source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCQSW.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: 4.2 KB
Line 
1FSCQSW ;SLC/STAFF-NOIS Query Search Word-Processing ;8/8/98 22:10
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4CON ; from FSCQS
5 I FIELD=59 D PCON Q
6 N CALL,SUB,SUBNUM
7 S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
8 S VALUE=$$UP^XLFSTR(VALUE)
9 I LIST=1!(LIST=0) D Q
10 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
11 ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
12 I LIST="" D Q
13 .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 D
14 ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
15 Q
16 ;
17NCON ; from FSCQS
18 I FIELD=59 D PNCON Q
19 N CALL,OK,SUB,SUBNUM
20 S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
21 S VALUE=$$UP^XLFSTR(VALUE)
22 I LIST=1!(LIST=0) D Q
23 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
24 ..I '$O(^FSCD("CALL",CALL,SUB,0)) Q
25 ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
26 ..I 'OK X ACTION
27 I LIST="" D Q
28 .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 D
29 ..I '$O(^FSCD("CALL",CALL,SUB,0)) Q
30 ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
31 ..I 'OK X ACTION
32 Q
33 ;
34EX ; from FSCQS
35 I FIELD=59 D PEX Q
36 N CALL,SUB
37 S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
38 I LIST=1!(LIST=0) D Q
39 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
40 ..I $O(^FSCD("CALL",CALL,SUB,0)) X ACTION
41 I LIST="" D Q
42 .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 I $O(^(CALL,SUB,0)) X ACTION
43 Q
44 ;
45NEX ; from FSCQS
46 I FIELD=59 D PNEX Q
47 N CALL,SUB
48 S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
49 I LIST=1!(LIST=0) D Q
50 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
51 ..I '$O(^FSCD("CALL",CALL,SUB,0)) X ACTION
52 I LIST="" D Q
53 .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 I '$O(^(CALL,SUB,0)) X ACTION
54 Q
55PCON ;
56 N CALL,IEN,SUB,SUBNUM
57 S SUB=2
58 S VALUE=$$UP^XLFSTR(VALUE)
59 I LIST=1!(LIST=0) D Q
60 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
61 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
62 ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
63 I LIST="" D Q
64 .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
65 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
66 ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
67 Q
68 ;
69PNCON ;
70 N CALL,IEN,OK,SUB,SUBNUM
71 S SUB=2
72 S VALUE=$$UP^XLFSTR(VALUE)
73 I LIST=1!(LIST=0) D Q
74 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
75 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
76 ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) Q
77 ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
78 ..I 'OK X ACTION
79 I LIST="" D Q
80 .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
81 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
82 ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) Q
83 ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
84 ..I 'OK X ACTION
85 Q
86 ;
87PEX ;
88 N CALL,IEN,SUB
89 S SUB=2
90 I LIST=1!(LIST=0) D Q
91 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
92 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
93 ..I $O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
94 I LIST="" D Q
95 .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
96 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
97 ..I $O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
98 Q
99 ;
100PNEX ;
101 N CALL,IEN,SUB
102 S SUB=2
103 I LIST=1!(LIST=0) D Q
104 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
105 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL))
106 ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
107 I LIST="" D Q
108 .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
109 ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL))
110 ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
111 Q
Note: See TracBrowser for help on using the repository browser.