| 1 | RCCPCML1 ;ALB@ALTOONA,PA/LDB - Send CCPC transmission (cont.);8/25/00 4:16 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**160**;Mar 20, 1995;
|
|---|
| 3 | ;
|
|---|
| 4 | ERRML ;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 | ;
|
|---|
| 28 | ERRMSG ;Error messages
|
|---|
| 29 | 1 ;;CCPC transmission process found no records or an incomplete file. Contact IRM.
|
|---|
| 30 | 2 ;;No CCPC transmission records transmitted. Check file 349. Contact IRM.
|
|---|
| 31 | 3 ;;Corrupted PH segment has been encountered for the following patient(s):
|
|---|
| 32 | 4 ;;No key field in CCPC file for the following patient(s):
|
|---|
| 33 | 5 ;;Mailman message creation aborted. Please contact IRM.
|
|---|
| 34 | 6 ;;No transmission sent. Define REMOTE DOMAIN in AR TRANSMISSION TYPE file (349.1).
|
|---|
| 35 | 7 ;;Print Acknowledgements exist. Transmission cannot be resent.
|
|---|
| 36 | 8 ;;Address information is missing for the following patient(s):
|
|---|
| 37 | 9 ;;Address is marked as ADDRESS UNKNOWN for the following patient(s):
|
|---|
| 38 | 10 ;;Corrupted Address. Re-enter address information for the following patient(s):
|
|---|
