AMQQAV2 ; IHS/CMI/THL - MORE OVERFLOW FROM AMQQAV ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;-----
COMPT ; ENTRY POINT FROM AMQQAV
I AMQQNOCO>1 D COMPT2 Q
I $D(AMQQXX) G COMPT1
R !,?(5*$D(AMQQZNM)),"Titre: ",X:DTIME E S AMQQQUIT="" Q
I X?1."?" W !!,"Enter a titre to be used as the comparison value (e.g. NEGATIVE, 1:64 etc.)",!! G COMPT
I X=U S AMQQQUIT="" Q
I X="" Q
COMPT1 I X=0,AMQQSQBS="<" Q:$D(AMQQXX) W " ??",*7 G COMPT
I X?1"1:"1.5N S X=$P(X,":",2)
I X=1,AMQQSQBS="<",$D(AMQQSQNT) K AMQQSQNT S AMQQSQBS="=",X="POSITIVE"
I X=1,AMQQSQBS=">",$D(AMQQSQNT) K AMQQSQNT S AMQQSQBS="<",X="POSITIVE"
I X=+X,X>0 G CN
I $G(AMQQSQBS)'="<",$E("NEGATIVE",1,$L(X))=X W:'$D(AMQQXX) $E("NEGATIVE",$L(X)+1,8) S X=0 G CN
I $G(AMQQSQBS)="<"!($G(AMQQSQNM)="IS NOT"),$E("POSITIVE",1,$L(X))=X W:'$D(AMQQXX) $E("POSITIVE",$L(X)+1,8) K AMQQSQNT S X=0,AMQQSQBS="=",AMQQSQF1="EQUAL",AMQQSQF2="AMQQF",AMQQSQN=211,AMQQSQNM="IS" G CN
I $G(AMQQSQBS)="=",$E("POSITIVE",1,$L(X))=X W:'$D(AMQQXX) $E("POSITIVE",$L(X)+1,8) S X=0,AMQQSQF1="GRT",AMQQSQF2="AMQQF",AMQQSQBS=">",AMQQSQNM="GREATER THAN",AMQQSQN=209 G CN
I X'?1.5N Q:$D(AMQQXX) W " ??",*7 G COMPT
I '$D(AMQQXX) W " (1:",X,")"
CN S AMQQCOMP=X
Q
;
COMPT2 I $D(AMQQXX) N Z S Z=X,X=$P(X,";") G COMPT21
R !,?(5*$D(AMQQZNM)),"Enter the lower titre: ",X:DTIME E S AMQQQUIT="" Q
COMPT21 I X="" S AMQQCOMP="" Q
I X=U S AMQQQUIT="" Q
I X?1."?" W !,"Enter a titre (e.g. 'NEGATIVE', '1:64', etc.)",!!! G COMPT2
I X?1"1:"1.5N S X=$P(X,":",2) G N
I $E("NEGATIVE",1,$L(X))=X W $E("NEGATIVE",$L(X)+1,8) S X=0 G N
I X'?1.5N W " ??",*7 G COMPT2
W " (1:",X,")"
N S AMQQCOMP=X_";"
I $D(AMQQXX) S AMQQXX=$P(Z,";",2) G N21
N2 R !,?(5*$D(AMQQZNM)),"Enter the upper titre: ",X:DTIME E S AMQQQUIT="" Q
N21 I X="" S AMQQCOMP="" Q
I X?1."?" W !,"Enter a titre (e.g. 'NEGATIVE', '1:64', etc.)",!!! G COMPT2
I X=U S AMQQQUIT="" Q
I X?1"1:"1.5N S X=$P(X,":",2) I X'<+AMQQCOMP G CN2
I X'?1.5N!(X<+AMQQCOMP) W " ??",*7 G COMPT2
W " (1:",X,")"
CN2 S AMQQCOMP=AMQQCOMP_X
Q
;
COMPV ; ENTRY POINT FROM AMQQAV
I AMQQNOCO=2 D COMPV2 Q
COMPV1 E W !,"Visual acuity: 20/" R X:DTIME E S X=U
I $E(X)=U S AMQQQUIT="" Q
I X="" S AMQQCOMP="" Q
I X="BLIND" S AMQQCOMP=999 Q
I X?1."?" W !!,"Enter a Snellen Chart acuity like '20/40' or the word 'BLIND'",!! G COMPV
I X?1.3N,X,'(X#5) S AMQQCOMP=X Q
W " ??",*7 G COMPV1
;
COMPV2 W !!,"Enter the BEST visual acuity allowed in the range =>"
D COMPV1
G:AMQQCOMP="" COMPVEXT
S AMQQCOM1=AMQQCOMP
W !!,"Enter the WORST visual acuity allowed in the range =>"
D COMPV1
G:AMQQCOMP="" COMPVEXT
S AMQQCOM2=AMQQCOMP
I AMQQCOM1>AMQQCOM2 W " ??",*7,!,"The 'worst' value cannot be smaller than the 'best'!" G COMPV2
S AMQQCOMP=AMQQCOM1_";"_AMQQCOM2
COMPVEXT K AMQQCOM1,AMQQCOM2
Q
;
AMQQAV2 ; IHS/CMI/THL - MORE OVERFLOW FROM AMQQAV ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;-----
COMPT ; ENTRY POINT FROM AMQQAV
+1 IF AMQQNOCO>1
DO COMPT2
QUIT
+2 IF $DATA(AMQQXX)
GOTO COMPT1
+3 READ !,?(5*$DATA(AMQQZNM)),"Titre: ",X:DTIME
IF '$TEST
SET AMQQQUIT=""
QUIT
+4 IF X?1."?"
WRITE !!,"Enter a titre to be used as the comparison value (e.g. NEGATIVE, 1:64 etc.)",!!
GOTO COMPT
+5 IF X=U
SET AMQQQUIT=""
QUIT
+6 IF X=""
QUIT
COMPT1 IF X=0
IF AMQQSQBS="<"
IF $DATA(AMQQXX)
QUIT
WRITE " ??",*7
GOTO COMPT
+1 IF X?1"1:"1.5N
SET X=$PIECE(X,":",2)
+2 IF X=1
IF AMQQSQBS="<"
IF $DATA(AMQQSQNT)
KILL AMQQSQNT
SET AMQQSQBS="="
SET X="POSITIVE"
+3 IF X=1
IF AMQQSQBS=">"
IF $DATA(AMQQSQNT)
KILL AMQQSQNT
SET AMQQSQBS="<"
SET X="POSITIVE"
+4 IF X=+X
IF X>0
GOTO CN
+5 IF $GET(AMQQSQBS)'="<"
IF $EXTRACT("NEGATIVE",1,$LENGTH(X))=X
IF '$DATA(AMQQXX)
WRITE $EXTRACT("NEGATIVE",$LENGTH(X)+1,8)
SET X=0
GOTO CN
+6 IF $GET(AMQQSQBS)="<"!($GET(AMQQSQNM)="IS NOT")
IF $EXTRACT("POSITIVE",1,$LENGTH(X))=X
IF '$DATA(AMQQXX)
WRITE $EXTRACT("POSITIVE",$LENGTH(X)+1,8)
KILL AMQQSQNT
SET X=0
SET AMQQSQBS="="
SET AMQQSQF1="EQUAL"
SET AMQQSQF2="AMQQF"
SET AMQQSQN=211
SET AMQQSQNM="IS"
GOTO CN
+7 IF $GET(AMQQSQBS)="="
IF $EXTRACT("POSITIVE",1,$LENGTH(X))=X
IF '$DATA(AMQQXX)
WRITE $EXTRACT("POSITIVE",$LENGTH(X)+1,8)
SET X=0
SET AMQQSQF1="GRT"
SET AMQQSQF2="AMQQF"
SET AMQQSQBS=">"
SET AMQQSQNM="GREATER THAN"
SET AMQQSQN=209
GOTO CN
+8 IF X'?1.5N
IF $DATA(AMQQXX)
QUIT
WRITE " ??",*7
GOTO COMPT
+9 IF '$DATA(AMQQXX)
WRITE " (1:",X,")"
CN SET AMQQCOMP=X
+1 QUIT
+2 ;
COMPT2 IF $DATA(AMQQXX)
NEW Z
SET Z=X
SET X=$PIECE(X,";")
GOTO COMPT21
+1 READ !,?(5*$DATA(AMQQZNM)),"Enter the lower titre: ",X:DTIME
IF '$TEST
SET AMQQQUIT=""
QUIT
COMPT21 IF X=""
SET AMQQCOMP=""
QUIT
+1 IF X=U
SET AMQQQUIT=""
QUIT
+2 IF X?1."?"
WRITE !,"Enter a titre (e.g. 'NEGATIVE', '1:64', etc.)",!!!
GOTO COMPT2
+3 IF X?1"1:"1.5N
SET X=$PIECE(X,":",2)
GOTO N
+4 IF $EXTRACT("NEGATIVE",1,$LENGTH(X))=X
WRITE $EXTRACT("NEGATIVE",$LENGTH(X)+1,8)
SET X=0
GOTO N
+5 IF X'?1.5N
WRITE " ??",*7
GOTO COMPT2
+6 WRITE " (1:",X,")"
N SET AMQQCOMP=X_";"
+1 IF $DATA(AMQQXX)
SET AMQQXX=$PIECE(Z,";",2)
GOTO N21
N2 READ !,?(5*$DATA(AMQQZNM)),"Enter the upper titre: ",X:DTIME
IF '$TEST
SET AMQQQUIT=""
QUIT
N21 IF X=""
SET AMQQCOMP=""
QUIT
+1 IF X?1."?"
WRITE !,"Enter a titre (e.g. 'NEGATIVE', '1:64', etc.)",!!!
GOTO COMPT2
+2 IF X=U
SET AMQQQUIT=""
QUIT
+3 IF X?1"1:"1.5N
SET X=$PIECE(X,":",2)
IF X'<+AMQQCOMP
GOTO CN2
+4 IF X'?1.5N!(X<+AMQQCOMP)
WRITE " ??",*7
GOTO COMPT2
+5 WRITE " (1:",X,")"
CN2 SET AMQQCOMP=AMQQCOMP_X
+1 QUIT
+2 ;
COMPV ; ENTRY POINT FROM AMQQAV
+1 IF AMQQNOCO=2
DO COMPV2
QUIT
COMPV1 IF '$TEST
WRITE !,"Visual acuity: 20/"
READ X:DTIME
IF '$TEST
SET X=U
+1 IF $EXTRACT(X)=U
SET AMQQQUIT=""
QUIT
+2 IF X=""
SET AMQQCOMP=""
QUIT
+3 IF X="BLIND"
SET AMQQCOMP=999
QUIT
+4 IF X?1."?"
WRITE !!,"Enter a Snellen Chart acuity like '20/40' or the word 'BLIND'",!!
GOTO COMPV
+5 IF X?1.3N
IF X
IF '(X#5)
SET AMQQCOMP=X
QUIT
+6 WRITE " ??",*7
GOTO COMPV1
+7 ;
COMPV2 WRITE !!,"Enter the BEST visual acuity allowed in the range =>"
+1 DO COMPV1
+2 IF AMQQCOMP=""
GOTO COMPVEXT
+3 SET AMQQCOM1=AMQQCOMP
+4 WRITE !!,"Enter the WORST visual acuity allowed in the range =>"
+5 DO COMPV1
+6 IF AMQQCOMP=""
GOTO COMPVEXT
+7 SET AMQQCOM2=AMQQCOMP
+8 IF AMQQCOM1>AMQQCOM2
WRITE " ??",*7,!,"The 'worst' value cannot be smaller than the 'best'!"
GOTO COMPV2
+9 SET AMQQCOMP=AMQQCOM1_";"_AMQQCOM2
COMPVEXT KILL AMQQCOM1,AMQQCOM2
+1 QUIT
+2 ;
