| [613] | 1 | FSCXREF ;SLC/STAFF-NOIS Xrefs Call ;1/11/98 15:26
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AOM(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 5 | N MOD,STATUS
|
|---|
| 6 | I OP="SET" D Q
|
|---|
| 7 | .I FIELD="STATUS" D Q
|
|---|
| 8 | ..I VALUE=1 S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD S ^FSCD("CALL","AOM",MOD,CALL)=""
|
|---|
| 9 | .I FIELD="MOD" D Q
|
|---|
| 10 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOM",VALUE,CALL)=""
|
|---|
| 11 | I OP="KILL" D Q
|
|---|
| 12 | .I FIELD="STATUS" D Q
|
|---|
| 13 | ..S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD K ^FSCD("CALL","AOM",MOD,CALL)
|
|---|
| 14 | .I FIELD="MOD" D Q
|
|---|
| 15 | ..K ^FSCD("CALL","AOM",VALUE,CALL)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | AOP(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 19 | N PACK,STATUS
|
|---|
| 20 | I OP="SET" D Q
|
|---|
| 21 | .I FIELD="STATUS" D Q
|
|---|
| 22 | ..I VALUE=1 S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK S ^FSCD("CALL","AOP",PACK,CALL)=""
|
|---|
| 23 | .I FIELD="PACK" D Q
|
|---|
| 24 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOP",VALUE,CALL)=""
|
|---|
| 25 | I OP="KILL" D Q
|
|---|
| 26 | .I FIELD="STATUS" D Q
|
|---|
| 27 | ..S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK K ^FSCD("CALL","AOP",PACK,CALL)
|
|---|
| 28 | .I FIELD="PACK" D Q
|
|---|
| 29 | ..K ^FSCD("CALL","AOP",VALUE,CALL)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | AOS(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 33 | N SITE,STATUS
|
|---|
| 34 | I OP="SET" D Q
|
|---|
| 35 | .I FIELD="STATUS" D Q
|
|---|
| 36 | ..I VALUE=1 S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE S ^FSCD("CALL","AOS",SITE,CALL)=""
|
|---|
| 37 | .I FIELD="SITE" D Q
|
|---|
| 38 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOS",VALUE,CALL)=""
|
|---|
| 39 | I OP="KILL" D Q
|
|---|
| 40 | .I FIELD="STATUS" D Q
|
|---|
| 41 | ..S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE K ^FSCD("CALL","AOS",SITE,CALL)
|
|---|
| 42 | .I FIELD="SITE" D Q
|
|---|
| 43 | ..K ^FSCD("CALL","AOS",VALUE,CALL)
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | AOIS(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 47 | N ISC,STATUS
|
|---|
| 48 | I OP="SET" D Q
|
|---|
| 49 | .I FIELD="STATUS" D Q
|
|---|
| 50 | ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC S ^FSCD("CALL","AOIS",ISC,CALL)=""
|
|---|
| 51 | .I FIELD="ISC" D Q
|
|---|
| 52 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOIS",VALUE,CALL)=""
|
|---|
| 53 | I OP="KILL" D Q
|
|---|
| 54 | .I FIELD="STATUS" D Q
|
|---|
| 55 | ..S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC K ^FSCD("CALL","AOIS",ISC,CALL)
|
|---|
| 56 | .I FIELD="ISC" D Q
|
|---|
| 57 | ..K ^FSCD("CALL","AOIS",VALUE,CALL)
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | AOISP(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 61 | N ISC,STATUS
|
|---|
| 62 | I OP="SET" D Q
|
|---|
| 63 | .I FIELD="STATUS" D Q
|
|---|
| 64 | ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC S ^FSCD("CALL","AOISP",ISC,CALL)=""
|
|---|
| 65 | .I FIELD="ISC" D Q
|
|---|
| 66 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOISP",VALUE,CALL)=""
|
|---|
| 67 | I OP="KILL" D Q
|
|---|
| 68 | .I FIELD="STATUS" D Q
|
|---|
| 69 | ..S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC K ^FSCD("CALL","AOISP",ISC,CALL)
|
|---|
| 70 | .I FIELD="ISC" D Q
|
|---|
| 71 | ..K ^FSCD("CALL","AOISP",VALUE,CALL)
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | AOSC(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 75 | N SUB,STATUS
|
|---|
| 76 | I OP="SET" D Q
|
|---|
| 77 | .I FIELD="STATUS" D Q
|
|---|
| 78 | ..I VALUE=1 S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB S ^FSCD("CALL","AOSC",SUB,CALL)=""
|
|---|
| 79 | .I FIELD="SUB" D Q
|
|---|
| 80 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOSC",VALUE,CALL)=""
|
|---|
| 81 | I OP="KILL" D Q
|
|---|
| 82 | .I FIELD="STATUS" D Q
|
|---|
| 83 | ..S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB K ^FSCD("CALL","AOSC",SUB,CALL)
|
|---|
| 84 | .I FIELD="SUB" D Q
|
|---|
| 85 | ..K ^FSCD("CALL","AOSC",VALUE,CALL)
|
|---|
| 86 | Q
|
|---|
| 87 | ;
|
|---|
| 88 | AOID(OP,FIELD,VALUE,CALL) ;
|
|---|
| 89 | N ISC,STATUS
|
|---|
| 90 | I OP="SET" D Q
|
|---|
| 91 | .I FIELD="STATUS" D Q
|
|---|
| 92 | ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC S ^FSCD("CALL","AOID",ISC,CALL)=""
|
|---|
| 93 | .I FIELD="ISC" D Q
|
|---|
| 94 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOID",VALUE,CALL)=""
|
|---|
| 95 | I OP="KILL" D Q
|
|---|
| 96 | .I FIELD="STATUS" D Q
|
|---|
| 97 | ..S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC K ^FSCD("CALL","AOID",ISC,CALL)
|
|---|
| 98 | .I FIELD="ISC" D Q
|
|---|
| 99 | ..K ^FSCD("CALL","AOID",VALUE,CALL)
|
|---|
| 100 | Q
|
|---|
| 101 | ;
|
|---|
| 102 | AOU(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 103 | N SPEC,STATUS
|
|---|
| 104 | I OP="SET" D Q
|
|---|
| 105 | .I FIELD="STATUS" D Q
|
|---|
| 106 | ..I VALUE=1 S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC S ^FSCD("CALL","AOU",SPEC,CALL)=""
|
|---|
| 107 | .I FIELD="SPEC" D Q
|
|---|
| 108 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOU",VALUE,CALL)=""
|
|---|
| 109 | I OP="KILL" D Q
|
|---|
| 110 | .I FIELD="STATUS" D Q
|
|---|
| 111 | ..S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC K ^FSCD("CALL","AOU",SPEC,CALL)
|
|---|
| 112 | .I FIELD="SPEC" D Q
|
|---|
| 113 | ..K ^FSCD("CALL","AOU",VALUE,CALL)
|
|---|
| 114 | Q
|
|---|
