| 1 | FSCQSW ;SLC/STAFF-NOIS Query Search Word-Processing ;8/8/98 22:10
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | CON ; 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 | ;
|
|---|
| 17 | NCON ; 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 | ;
|
|---|
| 34 | EX ; 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 | ;
|
|---|
| 45 | NEX ; 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
|
|---|
| 55 | PCON ;
|
|---|
| 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 | ;
|
|---|
| 69 | PNCON ;
|
|---|
| 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 | ;
|
|---|
| 87 | PEX ;
|
|---|
| 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 | ;
|
|---|
| 100 | PNEX ;
|
|---|
| 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
|
|---|
