480 lines
6.3 KiB
Plaintext
480 lines
6.3 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 标记_grade
|
|
53 幼儿园
|
|
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
|
|
|
|
GRADE
|
|
LEGAL
|
|
53
|
|
END
|
|
COMMENT LEGAL USE 标记_grade
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
END
|
|
|
|
NUM
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
AFTER ENTRY
|
|
LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*10^6)+(grade*10^4)+num
|
|
GOTO GENDER
|
|
END
|
|
END
|
|
|
|
ID2
|
|
AFTER ENTRY
|
|
LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*10^6)+(grade*10^4)+num
|
|
END
|
|
END
|
|
|
|
GENDER
|
|
RANGE 1 2
|
|
MUSTENTER
|
|
END
|
|
|
|
NATION
|
|
RANGE 1 8
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 BIRTH
|
|
2 BIRTH
|
|
3 BIRTH
|
|
4 BIRTH
|
|
5 BIRTH
|
|
6 BIRTH
|
|
7 BIRTH
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
BIRTH
|
|
MUSTENTER
|
|
END
|
|
|
|
EXAMINE
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
GLASSTYPE
|
|
RANGE 1 4
|
|
JUMPS
|
|
1 visionR
|
|
2 visionR
|
|
3 OKR
|
|
4 visionR
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (GLASSTYPE=1) OR (GLASSTYPE=2) THEN
|
|
UNHIDE VISIONR
|
|
UNHIDE VISIONL
|
|
UNHIDE GLASSR
|
|
UNHIDE GLASSL
|
|
HIDE OKR
|
|
HIDE OKL
|
|
UNHIDE SPHERR
|
|
UNHIDE CYLINR
|
|
UNHIDE AXISR
|
|
UNHIDE SER
|
|
UNHIDE SPHERRT
|
|
UNHIDE CYLINRT
|
|
UNHIDE AXISRT
|
|
UNHIDE SPHERL
|
|
UNHIDE CYLINL
|
|
UNHIDE AXISL
|
|
UNHIDE SEL
|
|
UNHIDE SPHERLT
|
|
UNHIDE CYLINLT
|
|
UNHIDE AXISLT
|
|
ENDIF
|
|
IF GLASSTYPE=3 THEN
|
|
HIDE VISIONR
|
|
HIDE VISIONL
|
|
UNHIDE GLASSR
|
|
UNHIDE GLASSL
|
|
UNHIDE OKR
|
|
UNHIDE OKL
|
|
HIDE SPHERR
|
|
HIDE CYLINR
|
|
HIDE AXISR
|
|
HIDE SER
|
|
HIDE SPHERRT
|
|
HIDE CYLINRT
|
|
HIDE AXISRT
|
|
HIDE SPHERL
|
|
HIDE CYLINL
|
|
HIDE AXISL
|
|
HIDE SEL
|
|
HIDE SPHERLT
|
|
HIDE CYLINLT
|
|
HIDE AXISLT
|
|
ENDIF
|
|
IF GLASSTYPE=4 THEN
|
|
UNHIDE VISIONR
|
|
UNHIDE VISIONL
|
|
HIDE GLASSR
|
|
HIDE GLASSL
|
|
HIDE OKR
|
|
HIDE OKL
|
|
UNHIDE SPHERR
|
|
UNHIDE CYLINR
|
|
UNHIDE AXISR
|
|
UNHIDE SER
|
|
UNHIDE SPHERRT
|
|
UNHIDE CYLINRT
|
|
UNHIDE AXISRT
|
|
UNHIDE SPHERL
|
|
UNHIDE CYLINL
|
|
UNHIDE AXISL
|
|
UNHIDE SEL
|
|
UNHIDE SPHERLT
|
|
UNHIDE CYLINLT
|
|
UNHIDE AXISLT
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
OKR
|
|
RANGE -30.00 0.00
|
|
LEGAL
|
|
999
|
|
END
|
|
END
|
|
|
|
OKL
|
|
RANGE -30.00 0.00
|
|
LEGAL
|
|
999
|
|
END
|
|
AFTER ENTRY
|
|
IF (GLASSTYPE=3) AND (OKR=0) AND (OKL<>0) THEN
|
|
UNHIDE VISIONR
|
|
HIDE GLASSR
|
|
HIDE VISIONL
|
|
UNHIDE GLASSL
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKL=0) AND (OKR<>0) THEN
|
|
UNHIDE VISIONL
|
|
HIDE GLASSL
|
|
HIDE VISIONR
|
|
UNHIDE GLASSR
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKR<>0) AND (OKL<>0) THEN
|
|
HIDE VISIONR
|
|
HIDE VISIONL
|
|
UNHIDE GLASSR
|
|
UNHIDE GLASSL
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKR=0) AND (OKL=0) THEN
|
|
HELP "角膜塑形镜度数与戴镜类型矛盾，请核对" TYPE=WARNING
|
|
GOTO GLASSTYPE
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
VISIONR
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
GLASSR
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
VISIONL
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
GLASSL
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
SPHERR
|
|
RANGE -30.00 30.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
END
|
|
|
|
CYLINR
|
|
RANGE -15.00 15.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
END
|
|
|
|
AXISR
|
|
RANGE 0 180
|
|
LEGAL
|
|
999
|
|
END
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
AFTER ENTRY
|
|
UNHIDE SER
|
|
LET SER=spherR+cylinR*0.5
|
|
IF (cylinR > 0) AND (axisR > 90) THEN
|
|
UNHIDE SPHERRT
|
|
UNHIDE CYLINRT
|
|
UNHIDE AXISRT
|
|
LET spherRT=spherR+cylinR
|
|
LET cylinRT=cylinR*(-1)
|
|
LET axisRT=axisR-90
|
|
ENDIF
|
|
IF (cylinR > 0) AND (axisR < 90) THEN
|
|
UNHIDE SPHERRT
|
|
UNHIDE CYLINRT
|
|
UNHIDE AXISRT
|
|
LET spherRT=spherR+cylinR
|
|
LET cylinRT=cylinR*(-1)
|
|
LET axisRT=axisR+90
|
|
ENDIF
|
|
IF (cylinR <= 0) THEN
|
|
LET spherRT=999
|
|
LET cylinRT=999
|
|
LET axisRT=999
|
|
ENDIF
|
|
GOTO SPHERL
|
|
END
|
|
END
|
|
|
|
SPHERL
|
|
RANGE -30.00 30.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
END
|
|
|
|
CYLINL
|
|
RANGE -15.00 15.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
END
|
|
|
|
AXISL
|
|
RANGE 0 180
|
|
LEGAL
|
|
999
|
|
END
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
AFTER ENTRY
|
|
UNHIDE SEL
|
|
LET SEL=spherL+cylinL*0.5
|
|
IF (cylinL > 0) AND (axisL > 90) THEN
|
|
UNHIDE SPHERLT
|
|
UNHIDE CYLINLT
|
|
UNHIDE AXISLT
|
|
LET spherLT=spherL+cylinL
|
|
LET cylinLT=cylinL*(-1)
|
|
LET axisLT=axisL-90
|
|
ENDIF
|
|
IF (cylinL > 0) AND (axisL < 90) THEN
|
|
UNHIDE SPHERLT
|
|
UNHIDE CYLINLT
|
|
UNHIDE AXISLT
|
|
LET spherLT=spherL+cylinL
|
|
LET cylinLT=cylinL*(-1)
|
|
LET axisLT=axisL+90
|
|
ENDIF
|
|
IF (cylinL <= 0) THEN
|
|
LET spherLT=999
|
|
LET cylinLT=999
|
|
LET axisLT=999
|
|
ENDIF
|
|
GOTO Q39
|
|
END
|
|
END
|
|
|
|
Q39
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
Q40
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 NOTE
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
NAME
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
DATE
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|