FSCQSS ;SLC/STAFF-NOIS Query Search Setup ;8/18/98 12:07
;;1.1;NOIS;;Sep 06, 1998
;
SETUP ; from FSCQS
N COND,FFSEQ,FIELD,FQUERY,FSEQ,NODE,VALUE
S FSEQ=+$O(CRITERIA("O",0)),STEP=+CRITERIA("O",FSEQ)
S FFSEQ=+$O(CRITERIA("O",FSEQ,0)),FQUERY=+CRITERIA("O",FSEQ,FFSEQ)
S QUERY=CRITERIA(STEP,FQUERY)
F S FFSEQ=$O(CRITERIA("O",FSEQ,FFSEQ)) Q:FFSEQ<1 S FQUERY=+CRITERIA("O",FSEQ,FFSEQ) D
.S FQUERY=CRITERIA(STEP,FQUERY)
.S FIELD=$P(FQUERY,U),COND=$P(FQUERY,U,2),VALUE=$P(FQUERY,U,3)
.I "PND"'[$E(CRITERIA("F",FIELD)) S VALUE=""""_$$UP^XLFSTR(VALUE)_""""
.I $P(CRITERIA("F",FIELD),U)="W" D Q
..S VALUE=$E(VALUE,2,$L(VALUE)-1) D QUOTES(.VALUE)
..I FIELD=59 D PERWP Q
..I COND="[" D Q
...S CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,LINE1,SUBNUM I 1"
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL"""",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
..I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $O(^FSCD(""CALL"",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))" Q
..I COND="'[" D Q
...S CRITERIA("O",FSEQ,"AND",FFSEQ)="N LINE1,GOOD,SUBNUM I 1"
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="I $O(^FSCD(""CALL"",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))"
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL"""",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
..I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$O(^FSCD(""CALL"",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))" Q
.S NODE=$P(CRITERIA("F",FIELD),U,2)
.I NODE["7100.6," D PER Q
.I NODE[";",$E(NODE,1,2)'="1;" D Q
..S CRITERIA("O",FSEQ,"AND",1+(NODE*.00001))="S X("_+NODE_")=$G(^FSCD(""CALL"",CALL,"_+NODE_")) I 1"
..I COND["exist" D Q
...I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))" Q
...I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))" Q
..I COND["range" D Q
...S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S X(""BEG"")="""_$P(VALUE,"-")_""",X(""END"")="""_$P(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
...I COND="range" S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")'<X(""BEG""),$P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")'>X(""END"")"
...I COND="not range" S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")<X(""BEG"")!($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")>X(""END""))"
..S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))"_COND_VALUE
.I $E(NODE,1,2)="1;" D Q
..S CRITERIA("O",FSEQ,"AND",1.1)="S Y=$G(^FSCD(""CALL"",CALL,1)) I 1"
..I COND["exist" D Q
...I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L(Y)" Q
...I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L(Y)" Q
..S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR(Y)"_COND_VALUE
S CRITERIA("O",FSEQ,"AND",1+$O(CRITERIA("O",FSEQ,"A"),-1))="S ^TMP(""FSC NEWLIST"",$J,CALL)="""""
Q
;
PERWP ;
I COND="[" D Q
.S CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL USER"""",IEN,2,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
I COND="exists" D Q
.S CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
I COND="'[" D Q
.S CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL USER"""",IEN,2,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.4)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
I COND="not exists" D Q
.S CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I 1"
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I '$O(^FSCD(""CALL USER"",IEN,2,0))" Q
Q
;
PER ;
S NODE=$P(NODE,",",2)
S CRITERIA("O",FSEQ,"AND",1+((NODE+5000)*.00001))="S X("_(5000+NODE)_")=$G(^FSCD(""CALL USER"",+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)),"_+NODE_")) I 1"
I COND["exist" D Q
.I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))" Q
.I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))" Q
I COND["range" D Q
.S CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S X(""BEG"")="""_$P(VALUE,"-")_""",X(""END"")="""_$P(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
.I COND="range" S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")'<X(""BEG""),$P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")'>X(""END"")"
.I COND="not range" S CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")<X(""BEG"")!($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")>X(""END""))"
S CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))"_COND_VALUE
Q
;
QUOTES(VALUE) ; from FSCQSSM
N CHAR,CNT,TEMP
I VALUE["""" D
.S TEMP=""
.F CNT=1:1:$L(VALUE) S CHAR=$E(VALUE,CNT) D
..I CHAR="""" S TEMP=TEMP_"""""""""" Q
..S TEMP=TEMP_CHAR
.S VALUE=""""""_TEMP_""""""
E S VALUE=""""""_VALUE_""""""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQSS 6220 printed Dec 13, 2024@02:19:06 Page 2
FSCQSS ;SLC/STAFF-NOIS Query Search Setup ;8/18/98 12:07
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
SETUP ; from FSCQS
+1 NEW COND,FFSEQ,FIELD,FQUERY,FSEQ,NODE,VALUE
+2 SET FSEQ=+$ORDER(CRITERIA("O",0))
SET STEP=+CRITERIA("O",FSEQ)
+3 SET FFSEQ=+$ORDER(CRITERIA("O",FSEQ,0))
SET FQUERY=+CRITERIA("O",FSEQ,FFSEQ)
+4 SET QUERY=CRITERIA(STEP,FQUERY)
+5 FOR
SET FFSEQ=$ORDER(CRITERIA("O",FSEQ,FFSEQ))
if FFSEQ<1
QUIT
SET FQUERY=+CRITERIA("O",FSEQ,FFSEQ)
Begin DoDot:1
+6 SET FQUERY=CRITERIA(STEP,FQUERY)
+7 SET FIELD=$PIECE(FQUERY,U)
SET COND=$PIECE(FQUERY,U,2)
SET VALUE=$PIECE(FQUERY,U,3)
+8 IF "PND"'[$EXTRACT(CRITERIA("F",FIELD))
SET VALUE=""""_$$UP^XLFSTR(VALUE)_""""
+9 IF $PIECE(CRITERIA("F",FIELD),U)="W"
Begin DoDot:2
+10 SET VALUE=$EXTRACT(VALUE,2,$LENGTH(VALUE)-1)
DO QUOTES(.VALUE)
+11 IF FIELD=59
DO PERWP
QUIT
+12 IF COND="["
Begin DoDot:3
+13 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,LINE1,SUBNUM I 1"
+14 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL"""",CALL,"_$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S
GOOD=1 Q"" I 1"
+15 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
End DoDot:3
QUIT
+16 IF COND="exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $O(^FSCD(""CALL"",CALL,"_$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))"
QUIT
+17 IF COND="'["
Begin DoDot:3
+18 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N LINE1,GOOD,SUBNUM I 1"
+19 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="I $O(^FSCD(""CALL"",CALL,"_$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))"
+20 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL"""",CALL,"_$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S
GOOD=1 Q"" I 1"
+21 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
End DoDot:3
QUIT
+22 IF COND="not exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$O(^FSCD(""CALL"",CALL,"_$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))"
QUIT
End DoDot:2
QUIT
+23 SET NODE=$PIECE(CRITERIA("F",FIELD),U,2)
+24 IF NODE["7100.6,"
DO PER
QUIT
+25 IF NODE[";"
IF $EXTRACT(NODE,1,2)'="1;"
Begin DoDot:2
+26 SET CRITERIA("O",FSEQ,"AND",1+(NODE*.00001))="S X("_+NODE_")=$G(^FSCD(""CALL"",CALL,"_+NODE_")) I 1"
+27 IF COND["exist"
Begin DoDot:3
+28 IF COND="exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L($P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_"))"
QUIT
+29 IF COND="not exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L($P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_"))"
QUIT
End DoDot:3
QUIT
+30 IF COND["range"
Begin DoDot:3
+31 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S X(""BEG"")="""_$PIECE(VALUE,"-")_""",X(""END"")="""_$PIECE(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
+32 IF COND="range"
SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_")'<X(""BEG""),$P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_")'>X(""END"")"
+33 IF COND="not range"
SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_")<X(""BEG"")!($P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_")>X(""END""))"
End DoDot:3
QUIT
+34 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR($P(X("_+NODE_"),U,"_+$PIECE(NODE,";",2)_"))"_COND_VALUE
End DoDot:2
QUIT
+35 IF $EXTRACT(NODE,1,2)="1;"
Begin DoDot:2
+36 SET CRITERIA("O",FSEQ,"AND",1.1)="S Y=$G(^FSCD(""CALL"",CALL,1)) I 1"
+37 IF COND["exist"
Begin DoDot:3
+38 IF COND="exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L(Y)"
QUIT
+39 IF COND="not exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L(Y)"
QUIT
End DoDot:3
QUIT
+40 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR(Y)"_COND_VALUE
End DoDot:2
QUIT
End DoDot:1
+41 SET CRITERIA("O",FSEQ,"AND",1+$ORDER(CRITERIA("O",FSEQ,"A"),-1))="S ^TMP(""FSC NEWLIST"",$J,CALL)="""""
+42 QUIT
+43 ;
PERWP ;
+1 IF COND="["
Begin DoDot:1
+2 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
+3 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
+4 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL USER"""",IEN,2,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
+5 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
End DoDot:1
QUIT
+6 IF COND="exists"
Begin DoDot:1
+7 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
+8 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
+9 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
End DoDot:1
QUIT
+10 IF COND="'["
Begin DoDot:1
+11 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
+12 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
+13 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
+14 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.3)="S LINE1=""F S SUBNUM=$O(^FSCD(""""CALL USER"""",IEN,2,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))["_VALUE_" S GOOD=1 Q"" I 1"
+15 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.4)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
End DoDot:1
QUIT
+16 IF COND="not exists"
Begin DoDot:1
+17 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="N GOOD,IEN,LINE1,SUBNUM I 1"
+18 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I 1"
+19 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I '$O(^FSCD(""CALL USER"",IEN,2,0))"
QUIT
End DoDot:1
QUIT
+20 QUIT
+21 ;
PER ;
+1 SET NODE=$PIECE(NODE,",",2)
+2 SET CRITERIA("O",FSEQ,"AND",1+((NODE+5000)*.00001))="S X("_(5000+NODE)_")=$G(^FSCD(""CALL USER"",+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)),"_+NODE_")) I 1"
+3 IF COND["exist"
Begin DoDot:1
+4 IF COND="exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $L($P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_"))"
QUIT
+5 IF COND="not exists"
SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I '$L($P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_"))"
QUIT
End DoDot:1
QUIT
+6 IF COND["range"
Begin DoDot:1
+7 SET CRITERIA("O",FSEQ,"AND",FFSEQ+.1)="S X(""BEG"")="""_$PIECE(VALUE,"-")_""",X(""END"")="""_$PIECE(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
+8 IF COND="range"
SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_")'<X(""BEG""),$P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_")'>X(""END"")"
+9 IF COND="not range"
SET CRITERIA("O",FSEQ,"AND",FFSEQ+.2)="I $P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_")<X(""BEG"")!($P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_")>X(""END""))"
End DoDot:1
QUIT
+10 SET CRITERIA("O",FSEQ,"AND",FFSEQ)="I $$UP^XLFSTR($P(X("_(5000+NODE)_"),U,"_+$PIECE(NODE,";",2)_"))"_COND_VALUE
+11 QUIT
+12 ;
QUOTES(VALUE) ; from FSCQSSM
+1 NEW CHAR,CNT,TEMP
+2 IF VALUE[""""
Begin DoDot:1
+3 SET TEMP=""
+4 FOR CNT=1:1:$LENGTH(VALUE)
SET CHAR=$EXTRACT(VALUE,CNT)
Begin DoDot:2
+5 IF CHAR=""""
SET TEMP=TEMP_""""""""""
QUIT
+6 SET TEMP=TEMP_CHAR
End DoDot:2
+7 SET VALUE=""""""_TEMP_""""""
End DoDot:1
+8 IF '$TEST
SET VALUE=""""""_VALUE_""""""
+9 QUIT
