source: FOIAVistA/tag/r/CMOP-PSX/PSXERR1.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PSXERR1 ;BIR/WPB-Continuation of Error Processing Utility ; [ 04/08/97 2:06 PM ]
2 ;;2.0;CMOP;;11 Apr 97
3ERRMSG ;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
18ER3 S PSXCT=PSXCT+1,ERRTXT(PSXCT)=""
19 Q
20ER5 S PSXCT=PSXCT+1,ERRTXT(PSXCT)=""
21 Q
22ER6 S PSXCT=11
23ER4 S PSXCT=11
24EXIT K ERRTXT,LNCT,OLDBAT,XMDUN,XMDUZ,XMSUB,XMZ,XQA,XQAMSG,PSXCT
25 Q
Note: See TracBrowser for help on using the repository browser.