| [613] | 1 | FSCXREFO ;SLC/STAFF-NOIS Xrefs Call Open and Referred ;1/11/98 15:27
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AOLTYPE(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 5 | N LTYPE,STATUS
|
|---|
| 6 | I OP="SET" D Q
|
|---|
| 7 | .I FIELD="STATUS" D Q
|
|---|
| 8 | ..I VALUE=1 S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE S ^FSCD("CALL","AOLTYPE",LTYPE,CALL)=""
|
|---|
| 9 | .I FIELD="LTYPE" D Q
|
|---|
| 10 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOLTYPE",VALUE,CALL)=""
|
|---|
| 11 | I OP="KILL" D Q
|
|---|
| 12 | .I FIELD="STATUS" D Q
|
|---|
| 13 | ..S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE K ^FSCD("CALL","AOLTYPE",LTYPE,CALL)
|
|---|
| 14 | .I FIELD="LTYPE" D Q
|
|---|
| 15 | ..K ^FSCD("CALL","AOLTYPE",VALUE,CALL)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | AOPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 19 | N PACKG,STATUS
|
|---|
| 20 | I OP="SET" D Q
|
|---|
| 21 | .I FIELD="STATUS" D Q
|
|---|
| 22 | ..I VALUE=1 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","AOPACKG",PACKG,CALL)=""
|
|---|
| 23 | .I FIELD="PACKG" D Q
|
|---|
| 24 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOPACKG",VALUE,CALL)=""
|
|---|
| 25 | I OP="KILL" D Q
|
|---|
| 26 | .I FIELD="STATUS" D Q
|
|---|
| 27 | ..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","AOPACKG",PACKG,CALL)
|
|---|
| 28 | .I FIELD="PACKG" D Q
|
|---|
| 29 | ..K ^FSCD("CALL","AOPACKG",VALUE,CALL)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | ARPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
|
|---|
| 33 | N PACKG,STATUS
|
|---|
| 34 | I OP="SET" D Q
|
|---|
| 35 | .I FIELD="STATUS" D Q
|
|---|
| 36 | ..I VALUE=3 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","ARPACKG",PACKG,CALL)=""
|
|---|
| 37 | .I FIELD="PACKG" D Q
|
|---|
| 38 | ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARPACKG",VALUE,CALL)=""
|
|---|
| 39 | I OP="KILL" D Q
|
|---|
| 40 | .I FIELD="STATUS" D Q
|
|---|
| 41 | ..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","ARPACKG",PACKG,CALL)
|
|---|
| 42 | .I FIELD="PACKG" D Q
|
|---|
| 43 | ..K ^FSCD("CALL","ARPACKG",VALUE,CALL)
|
|---|
| 44 | Q
|
|---|
