| 1 | PSXRSUS1 ;BIR/WPB,BAB,HTW-CMOP Transmission Handler sub routine ;15 Dec 2001
|
|---|
| 2 | ;;2.0;CMOP;**41,51**;11 Apr 97
|
|---|
| 3 | ;
|
|---|
| 4 | STOREVAR ; store critical variables
|
|---|
| 5 | S X1=DT,X2=+2 D C^%DTC S XXX=X K X1,X2
|
|---|
| 6 | S ^XTMP("PSXTVARS "_$J,0)=XXX_U_DT_U_"variables for CMOP transmissions"
|
|---|
| 7 | S ZZ=""
|
|---|
| 8 | F X="PSXDIVML","PSOSITE","PSOLAP","PSOSYS","PSOPAR","PSXSYS","PSXTRANS","PSXFLAG","PRTDT","PSOINST","PSXDUZ","PSXSITE" S @X=$G(@X)
|
|---|
| 9 | F X="PSXCS","PSXDAYS","PSXDTRG","PSOBARS","PSOBAR1","PSOBAR0","PSOPROP","PSXVENDR","PSLION","TPRTDT" S @X=$G(@X)
|
|---|
| 10 | S ZZ=""
|
|---|
| 11 | F YY="PSXDIVML^1","PSOSITE^2","PSOLAP^3","PSOSYS^4","PSOPAR^5","PSXSYS^6","PSXTRANS^7","PSXFLAG^8","PRTDT^9","PSOINST^10","PSXDUZ^11","PSXSITE^12" D SET^PSXUTL(.ZZ,U,YY)
|
|---|
| 12 | S ^XTMP("PSXTVARS "_$J,1)=ZZ
|
|---|
| 13 | S ZZ=""
|
|---|
| 14 | F YY="PSXCS^1","PSXDAYS^2","PSXDTRG^3","PSOBARS^4","PSOBAR1^5","PSOBAR0^6","PSOPROP^7","PSXVENDR^8","PSLION^9","TPRTDT^10" D SET^PSXUTL(.ZZ,U,YY)
|
|---|
| 15 | S ^XTMP("PSXTVARS "_$J,2)=ZZ
|
|---|
| 16 | K XXX
|
|---|
| 17 | Q
|
|---|
| 18 | RESETVAR ; retrieve critical variables
|
|---|
| 19 | S ZZ=^XTMP("PSXTVARS "_$J,1)
|
|---|
| 20 | F YY="PSXDIVML^1","PSOSITE^2","PSOLAP^3","PSOSYS^4","PSOPAR^5","PSXSYS^6","PSXTRANS^7","PSXFLAG^8","PRTDT^9","PSOINST^10","PSXDUZ^11","PSXSITE^12" D SET^PSXUTL(.ZZ,U,YY)
|
|---|
| 21 | S ZZ=^XTMP("PSXTVARS "_$J,2)
|
|---|
| 22 | F YY="PSXCS^1","PSXDAYS^2","PSXDTRG^3","PSOBARS^4","PSOBAR1^5","PSOBAR0^6","PSOPROP^7","PSXVENDR^8","PSLION^9","TPRTDT^10" D PIECE^PSXUTL(ZZ,U,YY)
|
|---|
| 23 | Q
|
|---|
