Files
qwsy/月度/11月/常见病Epidata数据库-2025-模板/表3-1 (小学)/表3-1 学生健康状况及影响因素调查表(小学版)_2025.chk
binghuai 9d6aaf6b28 11.22
2025-11-24 10:12:19 +08:00

996 lines
8.0 KiB
Plaintext

LABELBLOCK
LABEL 标记_province
11 北京
12 天津
13 河北
14 山西
15 内蒙古
21 辽宁
22 吉林
23 黑龙江
31 上海
32 江苏
33 浙江
34 安徽
35 福建
36 江西
37 山东
41 河南
42 湖北
43 湖南
44 广东
45 广西
46 海南
50 重庆
51 四川
52 贵州
53 云南
54 西藏
61 陕西
62 甘肃
63 青海
64 宁夏
65 新疆
66 新疆生产建设兵团
END
LABEL 标记_a01
04 小学四年级
05 小学五年级
06 小学六年级
END
END
AFTER RECORD
IF (ID1=.) OR (ID2=.) THEN
HELP "ID=number must be entered in ID1 and ID2" TYPE=ERROR
IF ID1=. THEN
GOTO ID1
ELSE
GOTO ID2
ENDIF
EXIT
ENDIF
IF (ID1<>ID2) THEN
HELP "ID1=@ID1 and ID2=@ID2\n\nPlease check the data" TYPE=WARNING
GOTO ID1
ENDIF
END
ID1
Autosearch LIST ID1
MUSTENTER
TYPE STATUSBAR "ID1=" GREEN
END
province
COMMENT LEGAL USE 标记_province
MUSTENTER
REPEAT
BEFORE ENTRY
ID2=""
END
END
city
MUSTENTER
REPEAT
BEFORE ENTRY
ID2=""
END
END
county
MUSTENTER
REPEAT
BEFORE ENTRY
ID2=""
END
END
point
RANGE 1 2
MUSTENTER
REPEAT
BEFORE ENTRY
ID2=""
END
END
school
MUSTENTER
REPEAT
BEFORE ENTRY
ID2=""
END
END
date
MUSTENTER
REPEAT
END
a01
LEGAL
04
05
06
END
COMMENT LEGAL USE 标记_a01
MUSTENTER
BEFORE ENTRY
ID2=""
END
END
a011
MUSTENTER
BEFORE ENTRY
ID2=""
END
AFTER ENTRY
LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*1000000)+(a01*10000)+a011
GOTO a02
END
END
ID2
AFTER ENTRY
LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*1000000)+(a01*10000)+a011
END
END
a02
RANGE 1 2
MUSTENTER
END
a04
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a05
RANGE 1 8
LEGAL
9
END
MUSTENTER
AFTER ENTRY
IF ( (A05=1) OR (A05=2) OR (A05=3) OR (A05=4) OR (A05=5) OR (A05=6) OR (A05=7) ) AND (A02=1) THEN
GOTO Q92
ENDIF
IF ( (A05=1) OR (A05=2) OR (A05=3) OR (A05=4) OR (A05=5) OR (A05=6) OR (A05=7) ) AND (A02=2) THEN
GOTO Q91
ENDIF
END
END
Q91
RANGE 1 2
LEGAL
9
END
JUMPS
1 A06
END
MUSTENTER
AFTER ENTRY
IF (Q91 = 1) THEN
Q911=9999
ENDIF
END
END
Q911
JUMPS
0-20 A06
END
MUSTENTER
END
Q92
RANGE 1 2
LEGAL
9
END
JUMPS
1 A06
END
MUSTENTER
AFTER ENTRY
IF (Q92 = 1) THEN
Q921=9999
ENDIF
END
END
Q921
JUMPS
0-20 A06
END
MUSTENTER
END
a06
MUSTENTER
END
a061
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a062
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a063
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a064
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a065
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a066
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a067
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
a08
RANGE 1 2
LEGAL
9
END
JUMPS
2 A09
9 A09
END
MUSTENTER
AFTER ENTRY
IF (A08 = 2) THEN
A081=99
ENDIF
END
END
a081
RANGE 0 14
LEGAL
99
END
MUSTENTER
END
a09
RANGE 1 2
LEGAL
9
END
JUMPS
2 B01
END
AFTER ENTRY
IF (A09 = 2) THEN
A081=99
ENDIF
END
END
a091
RANGE 0 12
LEGAL
99
END
MUSTENTER
END
b01
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b03
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b04
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b05
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b13
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
b06
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
b09a
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b09a1
RANGE 1 3
LEGAL
9
END
MUSTENTER
END
b12
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
b14
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
b15
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
H401B
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
h401c
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h401d
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h01b
RANGE 1 3
LEGAL
9
END
MUSTENTER
END
h01c
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
h02a
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
d02
RANGE 1 4
LEGAL
9
END
JUMPS
1 d021
2 d022
3 d0231
4 c09
END
MUSTENTER
END
d021
RANGE 0 168
LEGAL
999
END
MUSTENTER
END
d022
RANGE 0 168
LEGAL
999
END
MUSTENTER
END
d0231
RANGE 0 168
LEGAL
999
END
MUSTENTER
END
d0232
RANGE 0 168
LEGAL
999
END
MUSTENTER
END
c09
RANGE 1 3
LEGAL
9
END
MUSTENTER
END
h403a
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h403b
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h403c
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h403d
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h403e
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h04a
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
h04b
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
h04c
RANGE 1 2
LEGAL
9
END
JUMPS
1 c10
9 c10
END
MUSTENTER
END
h04c
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
c10
RANGE 1 2
LEGAL
9
END
MUSTENTER
JUMPS
1 c102
2 h03a
END
END
c102
RANGE 0 1440
LEGAL
9999
END
MUSTENTER
END
h03a
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h03b
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h03c
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h03d
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
c03
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h03f
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
h03g
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
h03h
RANGE 1 6
LEGAL
9
END
MUSTENTER
END
h05a
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
hd031
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd032
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
hd033
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd034
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
hd07
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
hd051
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd052
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
hd0511
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd0512
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
hd061
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd062
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
hd0611
RANGE 0 24
LEGAL
99
END
MUSTENTER
END
hd0612
RANGE 0 59
LEGAL
99
END
MUSTENTER
END
h06a
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h06b
RANGE 1 5
LEGAL
9
END
MUSTENTER
END
h06c
RANGE 1 2
LEGAL
9
END
JUMPS
2 WRITE
END
MUSTENTER
END
h06d1
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06d2
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06d3
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06d4
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06d5
RANGE 1 2
LEGAL
9
END
JUMPS
2 H06D6
END
MUSTENTER
END
h06d6
RANGE 1 2
LEGAL
9
END
MUSTENTER
BEFORE ENTRY
IF (H06D1 =1) OR (H06D2 =1) OR (H06D3 =1) OR (H06D4 =1) OR (H06D5 =1) THEN
H06D6=2
GOTO h06e1
ENDIF
END
END
h06e1
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06e2
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06e3
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06e4
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06e7
RANGE 1 2
LEGAL
9
END
MUSTENTER
END
h06e5
RANGE 1 2
LEGAL
9
END
JUMPS
1 h06eother
2 h06e6
END
MUSTENTER
END
h06e6
RANGE 1 2
LEGAL
9
END
JUMPS
1 WRITE
END
MUSTENTER
END
h06f
RANGE 1 3
LEGAL
9
END
JUMPS
2 H06F2
3 WRITE
END
MUSTENTER
BEFORE ENTRY
UNHIDE h06f1
UNHIDE h06f2
END
AFTER ENTRY
IF H06F=1 THEN
HIDE h06f2
ELSE
IF H06F=2 THEN
HIDE h06f1
ENDIF
ENDIF
END
END
h06f1
RANGE 0 25
LEGAL
99
END
MUSTENTER
END
h06f2
RANGE 0 25
LEGAL
99
END
MUSTENTER
END
h06g
RANGE 1 4
LEGAL
9
END
MUSTENTER
END
h06g1
RANGE 1 4
LEGAL
9
END
MUSTENTER
END