source: FOIAVistA/trunk/r/NOIS-FSC/FSCQSG.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1FSCQSG ;SLC/STAFF-NOIS Query Search Greater Than ;1/11/98 15:50
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4GT ; from FSCQS
5 I LIST=1 D Q
6 .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
7 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
8 ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),CVALUE>VALUE X ACTION
9 I LIST=0 D Q
10 .S CVALUE=VALUE F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" D
11 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
12 ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
13 I LIST="" D Q
14 .S CVALUE=VALUE F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" D
15 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
16 Q
17NGT ; from FSCQS
18 I LIST=1 D Q
19 .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
20 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
21 ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),CVALUE'>VALUE X ACTION
22 I LIST=0 D Q
23 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" Q:CVALUE>VALUE D
24 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
25 ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
26 I LIST="" D Q
27 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" Q:CVALUE>VALUE D
28 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
29 Q
Note: See TracBrowser for help on using the repository browser.