source: FOIAVistA/trunk/r/NOIS-FSC/FSCQSC.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1FSCQSC ;SLC/STAFF-NOIS Query Search Contains ;4/22/94 11:58
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4CON ; from FSCQS
5 S VALUE=$$UP^XLFSTR(VALUE)
6 I LIST=1 D Q
7 .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
8 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
9 ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),$$UP^XLFSTR(CVALUE)[VALUE X ACTION
10 I LIST=0 D Q
11 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)[VALUE D
12 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
13 ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
14 I LIST="" D Q
15 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)[VALUE D
16 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
17 Q
18NCON ; from FSCQS
19 S VALUE=$$UP^XLFSTR(VALUE)
20 I LIST=1 D Q
21 .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
22 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
23 ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),$$UP^XLFSTR(CVALUE)'[VALUE X ACTION
24 I LIST=0 D Q
25 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)'[VALUE D
26 ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
27 ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
28 I LIST="" D Q
29 .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)'[VALUE 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.