| 1 | PSXERR1 ;BIR/WPB-Continuation of Error Processing Utility ; [ 04/08/97 2:06 PM ]
|
|---|
| 2 | ;;2.0;CMOP;;11 Apr 97
|
|---|
| 3 | ERRMSG ;sends an alert and mail message if a user tries to retransmit a batch
|
|---|
| 4 | ;that has been retransmitted once.
|
|---|
| 5 | S XQAMSG="Batch "_OLDBAT_" can't be retransmitted again. Contact the IRM for help." D GRP1^PSXNOTE,SETUP^XQALERT
|
|---|
| 6 | S XMSUB=("RETRANSMISSION ERROR"),XMDUZ=DUZ,LNCT=5
|
|---|
| 7 | D XMZ^XMA2
|
|---|
| 8 | G:XMZ'>0 EXIT
|
|---|
| 9 | S ^XMB(3.9,XMZ,2,1,0)="Batch # "_OLDBAT_" has been retransmitted once."
|
|---|
| 10 | S ^XMB(3.9,XMZ,2,2,0)="There is either a system problem or there is a problem with the data in the"
|
|---|
| 11 | S ^XMB(3.9,XMZ,2,3,0)="batch. Please contact your local IRM for assistance in determining and"
|
|---|
| 12 | S ^XMB(3.9,XMZ,2,4,0)="correcting the problem. Once the problem has been corrected the IRM can"
|
|---|
| 13 | S ^XMB(3.9,XMZ,2,5,0)="reset the batch and allow you to retransmit."
|
|---|
| 14 | S ^XMB(3.9,XMZ,2,0)="^3.9^"_LNCT_U_LNCT_U_DT,XMDUN="CMOP Manager"
|
|---|
| 15 | K XMY S XMDUZ=DUZ
|
|---|
| 16 | D GRP^PSXNOTE,ENT1^XMD
|
|---|
| 17 | G EXIT^PSXRTRAN
|
|---|
| 18 | ER3 S PSXCT=PSXCT+1,ERRTXT(PSXCT)=""
|
|---|
| 19 | Q
|
|---|
| 20 | ER5 S PSXCT=PSXCT+1,ERRTXT(PSXCT)=""
|
|---|
| 21 | Q
|
|---|
| 22 | ER6 S PSXCT=11
|
|---|
| 23 | ER4 S PSXCT=11
|
|---|
| 24 | EXIT K ERRTXT,LNCT,OLDBAT,XMDUN,XMDUZ,XMSUB,XMZ,XQA,XQAMSG,PSXCT
|
|---|
| 25 | Q
|
|---|
