source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCCPCML1.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1RCCPCML1 ;ALB@ALTOONA,PA/LDB - Send CCPC transmission (cont.);8/25/00 4:16 PM
2V ;;4.5;Accounts Receivable;**160**;Mar 20, 1995;
3 ;
4ERRML ;ERROR MESSAGES
5 N CT,ERROR,LN,PT,SP,XMDUZ,XMTEXT,XMSUB,XMY
6 K ^TMP($J,"ERRMSG")
7 S (ERROR,LN)=0 F S ERROR=$O(^TMP($J,"ERROR",ERROR)) Q:'ERROR D
8 .S LN=LN+1 S ^TMP($J,"ERRMSG",LN)=" "
9 .S LN=LN+1 S ^TMP($J,"ERRMSG",LN)=$P($T(ERRMSG+ERROR),";;",2)
10 .S LN=LN+1 S ^TMP($J,"ERRMSG",LN)=" "
11 .S CT=0,PT="" F S PT=$O(^TMP($J,"ERROR",ERROR,PT)) Q:PT="" D
12 ..S CT=CT+1,LN=LN+1
13 ..I PT=0 S ^TMP($J,"ERRMSG",LN)=" " Q
14 ..N Y I PT'=0 D
15 ...S PT(1)="" F S PT(1)=$O(^TMP($J,"ERROR",ERROR,PT,PT(1))) Q:PT(1)="" D
16 ....S ^TMP($J,"ERRMSG",LN)=$S($L(CT)<2:" "_CT,1:CT)_". "
17 ....S SP=" ",Y=PT,Y=PT_$E(SP,$L(PT),30)
18 ....S ^TMP($J,"ERRMSG",LN)=^TMP($J,"ERRMSG",LN)_Y_PT(1)
19 S XMDUZ="AR PACKAGE"
20 I $O(^XMB(3.8,"B","RCCPC STATEMENTS",0)) S XMY("G.RCCPC STATEMENTS")=""
21 E S XMY($G(DUZ))=""
22 S XMSUB="CCPC ERRORS FOUND DURING TRANSMISSION"
23 S XMTEXT="^TMP($J,""ERRMSG"","
24 D ^XMD
25 K ^TMP($J,"ERRMSG")
26 Q
27 ;
28ERRMSG ;Error messages
291 ;;CCPC transmission process found no records or an incomplete file. Contact IRM.
302 ;;No CCPC transmission records transmitted. Check file 349. Contact IRM.
313 ;;Corrupted PH segment has been encountered for the following patient(s):
324 ;;No key field in CCPC file for the following patient(s):
335 ;;Mailman message creation aborted. Please contact IRM.
346 ;;No transmission sent. Define REMOTE DOMAIN in AR TRANSMISSION TYPE file (349.1).
357 ;;Print Acknowledgements exist. Transmission cannot be resent.
368 ;;Address information is missing for the following patient(s):
379 ;;Address is marked as ADDRESS UNKNOWN for the following patient(s):
3810 ;;Corrupted Address. Re-enter address information for the following patient(s):
Note: See TracBrowser for help on using the repository browser.