source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCQSE.m@ 623

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

initial load of WorldVistAEHR

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