source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCQSL.m@ 1005

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1FSCQSL ;SLC/STAFF-NOIS Query Search Less Than ;1/11/98 15:50
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LT ; 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="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" Q:CVALUE'<VALUE 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="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" Q:CVALUE'<VALUE D
15 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
16 Q
17NLT ; 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 CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,VALUE,CALL)) Q:CALL<1 I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
24 .S CVALUE=VALUE F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" D
25 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
26 ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
27 I LIST="" D Q
28 .S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,VALUE,CALL)) Q:CALL<1 X ACTION
29 .S CVALUE=VALUE F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" D
30 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
31 Q
Note: See TracBrowser for help on using the repository browser.