source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCQSSM.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 5.8 KB
Line 
1FSCQSSM ;SLC/STAFF-NOIS Query Search Setup Multiple ;8/18/98 11:59
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4SETUP ; from FSCQS
5 N FSEQ,FFSEQ,FQUERY,FIELD,COND,VALUE,NODE
6 S FSEQ=0 F S FSEQ=$O(CRITERIA("O",FSEQ)) Q:FSEQ<1 D
7 .S STEP=+CRITERIA("O",FSEQ)
8 .S FFSEQ=0 F S FFSEQ=$O(CRITERIA("O",FSEQ,FFSEQ)) Q:FFSEQ<1 S FQUERY=+CRITERIA("O",FSEQ,FFSEQ) D
9 ..S FQUERY=CRITERIA(STEP,FQUERY)
10 ..S FIELD=$P(FQUERY,U),COND=$P(FQUERY,U,2),VALUE=$P(FQUERY,U,3)
11 ..I "PND"'[$E(CRITERIA("F",FIELD)) S VALUE=""""_$$UP^XLFSTR(VALUE)_""""
12 ..I $P(CRITERIA("F",FIELD),U)="W" D Q
13 ...S VALUE=$E(VALUE,2,$L(VALUE)-1) D QUOTES^FSCQSS(.VALUE)
14 ...I FIELD=59 D PERWP Q
15 ...I COND="[" D Q
16 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N LINE1,GOOD,SUBNUM I 1"
17 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.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"
18 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
19 ...I COND="exists" 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))" Q
20 ...I COND="'[" D Q
21 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N LINE1,GOOD,SUBNUM I 1"
22 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="I $O(^FSCD(""CALL"",CALL,"_$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,1:80)_",0))"
23 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.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"
24 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.3)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
25 ...I COND="not exists" 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))" Q
26 ..S NODE=$P(CRITERIA("F",FIELD),U,2)
27 ..I NODE["7100.6," D PER Q
28 ..I NODE[";",$E(NODE,1,2)'="1;" D Q
29 ...S CRITERIA("O",+$O(CRITERIA("O",0)),"AND",1+(NODE*.00001))="S X("_+NODE_")=$G(^FSCD(""CALL"",CALL,"_+NODE_")) I 1"
30 ...I COND["exist" D Q
31 ....I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $L($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))" Q
32 ....I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I '$L($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))" Q
33 ...I COND["range" D Q
34 ....S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S X(""BEG"")="""_$P(VALUE,"-")_""",X(""END"")="""_$P(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
35 ....I COND="range" S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")'<X(""BEG""),$P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")'>X(""END"")"
36 ....I COND="not range" S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")<X(""BEG"")!($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_")>X(""END""))"
37 ...S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $$UP^XLFSTR($P(X("_+NODE_"),U,"_+$P(NODE,";",2)_"))"_COND_VALUE
38 ..I $E(NODE,1,2)="1;" D Q
39 ...S CRITERIA("O",FSEQ,"AND",1.1)="S Y=$G(^FSCD(""CALL"",CALL,1)) I 1"
40 ...I COND["exist" D Q
41 ....I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $L(Y)" Q
42 ....I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I '$L(Y)" Q
43 ...S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $$UP^XLFSTR(Y)"_COND_VALUE
44 .S CRITERIA("O",FSEQ,"AND",2+$O(CRITERIA("O",FSEQ,"A"),-1))="S ^TMP(""FSC NEWLIST"",$J,CALL)="""""
45 Q
46 ;
47PERWP ;
48 I COND="[" D Q
49 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N GOOD,IEN,LINE1,SUBNUM I 1"
50 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
51 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.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"
52 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.3)="S (GOOD,SUBNUM)=0 X LINE1 I GOOD"
53 I COND="exists" D Q
54 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N GOOD,IEN,LINE1,SUBNUM I 1"
55 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
56 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
57 I COND="'[" D Q
58 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N GOOD,IEN,LINE1,SUBNUM I 1"
59 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I IEN"
60 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $O(^FSCD(""CALL USER"",IEN,2,0))"
61 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.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"
62 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.4)="S (GOOD,SUBNUM)=0 X LINE1 I 'GOOD"
63 I COND="not exists" D Q
64 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="N GOOD,IEN,LINE1,SUBNUM I 1"
65 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S IEN=+$G(^FSCD(""CALL USER"",""AUC"",DUZ,CALL)) I 1"
66 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I '$O(^FSCD(""CALL USER"",IEN,2,0))" Q
67 Q
68 ;
69PER ;
70 S NODE=$P(NODE,",",2)
71 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"
72 I COND["exist" D Q
73 .I COND="exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $L($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))" Q
74 .I COND="not exists" S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I '$L($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))" Q
75 I COND["range" D Q
76 .S CRITERIA("O",FSEQ,"AND",FFSEQ+1.1)="S X(""BEG"")="""_$P(VALUE,"-")_""",X(""END"")="""_$P(VALUE,"-",2)_""" I X(""BEG"")=+X(""BEG""),X(""END"")=+X(""END"")"
77 .I COND="range" S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")'<X(""BEG""),$P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")'>X(""END"")"
78 .I COND="not range" S CRITERIA("O",FSEQ,"AND",FFSEQ+1.2)="I $P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")<X(""BEG"")!($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_")>X(""END""))"
79 S CRITERIA("O",FSEQ,"AND",FFSEQ+1)="I $$UP^XLFSTR($P(X("_(5000+NODE)_"),U,"_+$P(NODE,";",2)_"))"_COND_VALUE
80 Q
81 ;
Note: See TracBrowser for help on using the repository browser.