- RCDPXPAM ;WISC/RFJ-auto process payments, message generation ;1 Jun 99
- ;;4.5;Accounts Receivable;**114,153**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- Q
- ;
- ;
- ERROR(RCDPDATE,RCDPXMZ,ERROR) ; reply to server message with error
- ; pass ^tmp($j,"rcdpxpay","error",#) for additional/multiple errors
- N LINE,MESSAGE,RCDPERR
- ;
- ; build error message
- S MESSAGE(1)="This message was received by the Automatic Payment Processing Server"
- S MESSAGE(2)="and was NOT processed because of the following error(s):"
- S MESSAGE(3)=" "
- S MESSAGE(4)=" "
- I ERROR'="" S MESSAGE(4)=" "_ERROR_"." D TRANERR^RCDPXPA1(RCDPDATE,RCDPXMZ,ERROR)
- ; display multiple errors
- S LINE=4,RCDPERR=0 F S RCDPERR=$O(^TMP($J,"RCDPXPAY","ERROR",RCDPERR)) Q:'RCDPERR D
- . S LINE=LINE+1,MESSAGE(LINE)=" "_^TMP($J,"RCDPXPAY","ERROR",RCDPERR)_"."
- . D TRANERR^RCDPXPA1(RCDPDATE,RCDPXMZ,^TMP($J,"RCDPXPAY","ERROR",RCDPERR))
- ;
- ; send message with response
- D MAILRESP(RCDPXMZ,.MESSAGE)
- ;
- ; set the transmissions status to error
- I $G(RCDPDATE) D TRANSTAT^RCDPXPA1(RCDPDATE,"e")
- Q
- ;
- ;
- DUPLCATE(RCDPDATE,SEQUENCE,RCDPXMZ) ; reply with duplicate warning message
- N MESSAGE,ORIGXMZ
- S ORIGXMZ=$P($G(^RCY(344.2,RCDPDATE,1,SEQUENCE,0)),"^",4) I 'ORIGXMZ S ORIGXMZ="unknown"
- ; same message sent to server twice
- I ORIGXMZ=RCDPXMZ Q
- ;
- S MESSAGE(1)="* * * * * W A R N I N G * * * * *"
- S MESSAGE(2)=" "
- S MESSAGE(3)="This message was received by the Automatic Payment Processing Server"
- S MESSAGE(4)="and is a duplicate sequence number ["_SEQUENCE_"] (line 1, piece 2)."
- S MESSAGE(5)=" "
- S MESSAGE(6)="The Automatic Payment Processing Server will only process the first"
- S MESSAGE(7)="message it receives for a sequence. The first message for the sequence"
- S MESSAGE(8)="was in mail message number "_ORIGXMZ_" and has been forwarded to you for"
- S MESSAGE(9)="review. Message number "_ORIGXMZ_" will be used for payment processing."
- S MESSAGE(10)="This message will not be used."
- ;
- I ORIGXMZ D MAILRESP(ORIGXMZ,"") ; forward original
- D MAILRESP(RCDPXMZ,.MESSAGE) ; send response to duplicate
- Q
- ;
- ;
- RETRAN ; ask for retransmission
- N %Z,COUNT,DATA,DATE,MESSAGE,RCDPDA,STATUS,X9,XCNP,XMDUZ,XMZ
- S MESSAGE(1)="The following Automatic Payment(s) have not been processed and need"
- S MESSAGE(2)="to be retransmitted to the Automatic Payment Processing Server."
- S MESSAGE(3)=""
- S MESSAGE(4)=" TranDate Deposit# DepositDate Reason"
- S MESSAGE(5)=" -------- -------- ----------- ------"
- S COUNT=5
- S RCDPDA=0 F S RCDPDA=$O(^TMP($J,"RCDPXPAY","RETRAN",RCDPDA)) Q:'RCDPDA D
- . S DATE=$E($P(RCDPDA,"^"),4,5)_"-"_$E($P(RCDPDA,"^"),6,7)_"-"_$E($P(RCDPDA,"^"),2,3)
- . S DATA=^TMP($J,"RCDPXPAY","RETRAN",RCDPDA)
- . I $P(DATA,"^")="" S $P(DATA,"^")="unknown"
- . I $P(DATA,"^",2)="" S $P(DATA,"^",2)="unknown"
- . I $P(DATA,"^",3)="" S $P(DATA,"^",3)="unknown"
- . S $P(DATA,"^")=$E($P(DATA,"^")_" ",1,8)
- . S $P(DATA,"^",2)=$E($P(DATA,"^",2)_" ",1,11)
- . S $P(DATA,"^",3)=$S($P(DATA,"^",3)="r":"Partial Payment Received",$P(DATA,"^",3)="p":"Partial Payment Processed",1:"Error in Payment Message")
- . S COUNT=COUNT+1
- . S MESSAGE(COUNT)=" "_DATE_" "_$P(DATA,"^")_" "_$P(DATA,"^",2)_" "_$P(DATA,"^",3)
- S XMTEXT="MESSAGE("
- S XMSUB="Request Auto Payment Retransmission"
- S XMDUZ="AR Package",XMY("G.RCDP PAYMENTS")=""
- D ^XMD
- Q
- ;
- ;
- MAILRESP(RCDPXMZ,MESSAGE) ; enter response and forward message to mail group
- N %H,%I,%Z,ER,X,X9,XMA,XMC0,XMQF,XMZ,XMZ2,Z
- ; create response
- I $G(MESSAGE(1))'="" S %=$$ENT^XMA2R(RCDPXMZ,"Automatic Payment Processing Server Response",.MESSAGE,"","AR Package")
- ; forward original message
- S XMDUZ="AR Package",XMY("G.RCDP PAYMENTS")=""
- S XMZ=RCDPXMZ
- D ENT1^XMD
- Q
- ;
- ;
- PROCMSG ; show the message with processed deposits and receipts
- N %Z,MESSAGE,RCCOUNT,RCDPDATA,RCRECTDA,RCERROR,RCFLAG,RCUNLINK,X9,XCNP,XMDUZ,XMZ
- S MESSAGE(1)="The following Automatic Payment(s) have been processed by the"
- S MESSAGE(2)="Automatic Payment Processing Server."
- S MESSAGE(4)=" Deposit# Receipt# FMS Document# Total Amount Unlinked Accts"
- S MESSAGE(5)=" -------- ---------- ------------- ------------ --------------"
- S RCCOUNT=5
- I '$O(^TMP($J,"RCDPXPAP","PROCESS",0)) S MESSAGE(6)=" <<none>>",RCCOUNT=6
- S RCRECTDA=0 F S RCRECTDA=$O(^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)) Q:'RCRECTDA D
- . D DIQ344^RCDPRPLM(RCRECTDA,".01;.06;.15;200;")
- . S RCUNLINK=+^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)
- . S RCCOUNT=RCCOUNT+1
- . S MESSAGE(RCCOUNT)=$J($G(RCDPDATA(344,RCRECTDA,.06,"E")),10)
- . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,.01,"E")),12)
- . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,200,"E")),16)
- . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,.15,"E")),14,2)
- . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J(+RCUNLINK,16)
- . ; set error flag if receipt did not process (no fms document)
- . I $G(RCDPDATA(344,RCRECTDA,200,"E"))="" S RCERROR=1
- ;
- ; show if any receipts need to manually be processed due to errors
- I $G(RCERROR) D
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" "
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)="Warning: The receipts listed above that are missing the FMS Document# did not"
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)="completely process due to an error. Use the Receipt Processing option to view"
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)="the error and reprocess the receipt."
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" "
- ;
- ; show duplicate receipts, previously received/processed
- I $O(^TMP($J,"RCDPXPAP","DUPLICATE",0)) D
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" "
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)="The following receipts were received as duplicates."
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" Deposit# Receipt# FMS Document# Total Amount"
- . S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" -------- ---------- ------------- ------------"
- . S RCRECTDA=0 F S RCRECTDA=$O(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA)) Q:'RCRECTDA D
- . . D DIQ344^RCDPRPLM(RCRECTDA,".01;.06;.15;200;")
- . . S RCCOUNT=RCCOUNT+1
- . . S MESSAGE(RCCOUNT)=$J($G(RCDPDATA(344,RCRECTDA,.06,"E")),10)
- . . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,.01,"E")),12)
- . . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,200,"E")),16)
- . . ; show ** if fms document processed
- . . I $P(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA),"^",2)=1 S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_"**",RCFLAG=1
- . . E S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_" "
- . . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$J($G(RCDPDATA(344,RCRECTDA,.15,"E")),12,2)
- . . S MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_" "_$P(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA),"^")
- ;
- I $G(RCFLAG) S RCCOUNT=RCCOUNT+1,MESSAGE(RCCOUNT)=" ** FMS Document Processed"
- S XMTEXT="MESSAGE("
- S XMSUB="Auto Payment Processing Completed"
- S XMDUZ="AR Package",XMY("G.RCDP PAYMENTS")=""
- D ^XMD
- Q
- ;
- ;
- ZEROMSG(DATE) ; show RT received with no payments for a date
- ; date in the form MMDDYYYY
- S DATE=$E(DATE,1,2)_"/"_$E(DATE,3,4)_"/"_$E(DATE,5,8)
- N %Z,MESSAGE,X9,XCNP,XMDUZ,XMZ
- S MESSAGE(1)="The Automatic Payment Processing Server received a Lockbox"
- S MESSAGE(2)="transmission for "_DATE_" with no payments to process."
- S XMTEXT="MESSAGE("
- S XMSUB="Auto Payment Processing Completed"
- S XMDUZ="AR Package",XMY("G.RCDP PAYMENTS")=""
- D ^XMD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPXPAM 7686 printed Feb 18, 2025@23:13:06 Page 2
- RCDPXPAM ;WISC/RFJ-auto process payments, message generation ;1 Jun 99
- +1 ;;4.5;Accounts Receivable;**114,153**;Mar 20, 1995
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 QUIT
- +4 ;
- +5 ;
- ERROR(RCDPDATE,RCDPXMZ,ERROR) ; reply to server message with error
- +1 ; pass ^tmp($j,"rcdpxpay","error",#) for additional/multiple errors
- +2 NEW LINE,MESSAGE,RCDPERR
- +3 ;
- +4 ; build error message
- +5 SET MESSAGE(1)="This message was received by the Automatic Payment Processing Server"
- +6 SET MESSAGE(2)="and was NOT processed because of the following error(s):"
- +7 SET MESSAGE(3)=" "
- +8 SET MESSAGE(4)=" "
- +9 IF ERROR'=""
- SET MESSAGE(4)=" "_ERROR_"."
- DO TRANERR^RCDPXPA1(RCDPDATE,RCDPXMZ,ERROR)
- +10 ; display multiple errors
- +11 SET LINE=4
- SET RCDPERR=0
- FOR
- SET RCDPERR=$ORDER(^TMP($JOB,"RCDPXPAY","ERROR",RCDPERR))
- if 'RCDPERR
- QUIT
- Begin DoDot:1
- +12 SET LINE=LINE+1
- SET MESSAGE(LINE)=" "_^TMP($JOB,"RCDPXPAY","ERROR",RCDPERR)_"."
- +13 DO TRANERR^RCDPXPA1(RCDPDATE,RCDPXMZ,^TMP($JOB,"RCDPXPAY","ERROR",RCDPERR))
- End DoDot:1
- +14 ;
- +15 ; send message with response
- +16 DO MAILRESP(RCDPXMZ,.MESSAGE)
- +17 ;
- +18 ; set the transmissions status to error
- +19 IF $GET(RCDPDATE)
- DO TRANSTAT^RCDPXPA1(RCDPDATE,"e")
- +20 QUIT
- +21 ;
- +22 ;
- DUPLCATE(RCDPDATE,SEQUENCE,RCDPXMZ) ; reply with duplicate warning message
- +1 NEW MESSAGE,ORIGXMZ
- +2 SET ORIGXMZ=$PIECE($GET(^RCY(344.2,RCDPDATE,1,SEQUENCE,0)),"^",4)
- IF 'ORIGXMZ
- SET ORIGXMZ="unknown"
- +3 ; same message sent to server twice
- +4 IF ORIGXMZ=RCDPXMZ
- QUIT
- +5 ;
- +6 SET MESSAGE(1)="* * * * * W A R N I N G * * * * *"
- +7 SET MESSAGE(2)=" "
- +8 SET MESSAGE(3)="This message was received by the Automatic Payment Processing Server"
- +9 SET MESSAGE(4)="and is a duplicate sequence number ["_SEQUENCE_"] (line 1, piece 2)."
- +10 SET MESSAGE(5)=" "
- +11 SET MESSAGE(6)="The Automatic Payment Processing Server will only process the first"
- +12 SET MESSAGE(7)="message it receives for a sequence. The first message for the sequence"
- +13 SET MESSAGE(8)="was in mail message number "_ORIGXMZ_" and has been forwarded to you for"
- +14 SET MESSAGE(9)="review. Message number "_ORIGXMZ_" will be used for payment processing."
- +15 SET MESSAGE(10)="This message will not be used."
- +16 ;
- +17 ; forward original
- IF ORIGXMZ
- DO MAILRESP(ORIGXMZ,"")
- +18 ; send response to duplicate
- DO MAILRESP(RCDPXMZ,.MESSAGE)
- +19 QUIT
- +20 ;
- +21 ;
- RETRAN ; ask for retransmission
- +1 NEW %Z,COUNT,DATA,DATE,MESSAGE,RCDPDA,STATUS,X9,XCNP,XMDUZ,XMZ
- +2 SET MESSAGE(1)="The following Automatic Payment(s) have not been processed and need"
- +3 SET MESSAGE(2)="to be retransmitted to the Automatic Payment Processing Server."
- +4 SET MESSAGE(3)=""
- +5 SET MESSAGE(4)=" TranDate Deposit# DepositDate Reason"
- +6 SET MESSAGE(5)=" -------- -------- ----------- ------"
- +7 SET COUNT=5
- +8 SET RCDPDA=0
- FOR
- SET RCDPDA=$ORDER(^TMP($JOB,"RCDPXPAY","RETRAN",RCDPDA))
- if 'RCDPDA
- QUIT
- Begin DoDot:1
- +9 SET DATE=$EXTRACT($PIECE(RCDPDA,"^"),4,5)_"-"_$EXTRACT($PIECE(RCDPDA,"^"),6,7)_"-"_$EXTRACT($PIECE(RCDPDA,"^"),2,3)
- +10 SET DATA=^TMP($JOB,"RCDPXPAY","RETRAN",RCDPDA)
- +11 IF $PIECE(DATA,"^")=""
- SET $PIECE(DATA,"^")="unknown"
- +12 IF $PIECE(DATA,"^",2)=""
- SET $PIECE(DATA,"^",2)="unknown"
- +13 IF $PIECE(DATA,"^",3)=""
- SET $PIECE(DATA,"^",3)="unknown"
- +14 SET $PIECE(DATA,"^")=$EXTRACT($PIECE(DATA,"^")_" ",1,8)
- +15 SET $PIECE(DATA,"^",2)=$EXTRACT($PIECE(DATA,"^",2)_" ",1,11)
- +16 SET $PIECE(DATA,"^",3)=$SELECT($PIECE(DATA,"^",3)="r":"Partial Payment Received",$PIECE(DATA,"^",3)="p":"Partial Payment Processed",1:"Error in Payment Message")
- +17 SET COUNT=COUNT+1
- +18 SET MESSAGE(COUNT)=" "_DATE_" "_$PIECE(DATA,"^")_" "_$PIECE(DATA,"^",2)_" "_$PIECE(DATA,"^",3)
- End DoDot:1
- +19 SET XMTEXT="MESSAGE("
- +20 SET XMSUB="Request Auto Payment Retransmission"
- +21 SET XMDUZ="AR Package"
- SET XMY("G.RCDP PAYMENTS")=""
- +22 DO ^XMD
- +23 QUIT
- +24 ;
- +25 ;
- MAILRESP(RCDPXMZ,MESSAGE) ; enter response and forward message to mail group
- +1 NEW %H,%I,%Z,ER,X,X9,XMA,XMC0,XMQF,XMZ,XMZ2,Z
- +2 ; create response
- +3 IF $GET(MESSAGE(1))'=""
- SET %=$$ENT^XMA2R(RCDPXMZ,"Automatic Payment Processing Server Response",.MESSAGE,"","AR Package")
- +4 ; forward original message
- +5 SET XMDUZ="AR Package"
- SET XMY("G.RCDP PAYMENTS")=""
- +6 SET XMZ=RCDPXMZ
- +7 DO ENT1^XMD
- +8 QUIT
- +9 ;
- +10 ;
- PROCMSG ; show the message with processed deposits and receipts
- +1 NEW %Z,MESSAGE,RCCOUNT,RCDPDATA,RCRECTDA,RCERROR,RCFLAG,RCUNLINK,X9,XCNP,XMDUZ,XMZ
- +2 SET MESSAGE(1)="The following Automatic Payment(s) have been processed by the"
- +3 SET MESSAGE(2)="Automatic Payment Processing Server."
- +4 SET MESSAGE(4)=" Deposit# Receipt# FMS Document# Total Amount Unlinked Accts"
- +5 SET MESSAGE(5)=" -------- ---------- ------------- ------------ --------------"
- +6 SET RCCOUNT=5
- +7 IF '$ORDER(^TMP($JOB,"RCDPXPAP","PROCESS",0))
- SET MESSAGE(6)=" <<none>>"
- SET RCCOUNT=6
- +8 SET RCRECTDA=0
- FOR
- SET RCRECTDA=$ORDER(^TMP($JOB,"RCDPXPAP","PROCESS",RCRECTDA))
- if 'RCRECTDA
- QUIT
- Begin DoDot:1
- +9 DO DIQ344^RCDPRPLM(RCRECTDA,".01;.06;.15;200;")
- +10 SET RCUNLINK=+^TMP($JOB,"RCDPXPAP","PROCESS",RCRECTDA)
- +11 SET RCCOUNT=RCCOUNT+1
- +12 SET MESSAGE(RCCOUNT)=$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.06,"E")),10)
- +13 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.01,"E")),12)
- +14 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,200,"E")),16)
- +15 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.15,"E")),14,2)
- +16 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY(+RCUNLINK,16)
- +17 ; set error flag if receipt did not process (no fms document)
- +18 IF $GET(RCDPDATA(344,RCRECTDA,200,"E"))=""
- SET RCERROR=1
- End DoDot:1
- +19 ;
- +20 ; show if any receipts need to manually be processed due to errors
- +21 IF $GET(RCERROR)
- Begin DoDot:1
- +22 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" "
- +23 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)="Warning: The receipts listed above that are missing the FMS Document# did not"
- +24 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)="completely process due to an error. Use the Receipt Processing option to view"
- +25 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)="the error and reprocess the receipt."
- +26 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" "
- End DoDot:1
- +27 ;
- +28 ; show duplicate receipts, previously received/processed
- +29 IF $ORDER(^TMP($JOB,"RCDPXPAP","DUPLICATE",0))
- Begin DoDot:1
- +30 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" "
- +31 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)="The following receipts were received as duplicates."
- +32 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" Deposit# Receipt# FMS Document# Total Amount"
- +33 SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" -------- ---------- ------------- ------------"
- +34 SET RCRECTDA=0
- FOR
- SET RCRECTDA=$ORDER(^TMP($JOB,"RCDPXPAP","DUPLICATE",RCRECTDA))
- if 'RCRECTDA
- QUIT
- Begin DoDot:2
- +35 DO DIQ344^RCDPRPLM(RCRECTDA,".01;.06;.15;200;")
- +36 SET RCCOUNT=RCCOUNT+1
- +37 SET MESSAGE(RCCOUNT)=$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.06,"E")),10)
- +38 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.01,"E")),12)
- +39 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,200,"E")),16)
- +40 ; show ** if fms document processed
- +41 IF $PIECE(^TMP($JOB,"RCDPXPAP","DUPLICATE",RCRECTDA),"^",2)=1
- SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_"**"
- SET RCFLAG=1
- +42 IF '$TEST
- SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_" "
- +43 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_$JUSTIFY($GET(RCDPDATA(344,RCRECTDA,.15,"E")),12,2)
- +44 SET MESSAGE(RCCOUNT)=MESSAGE(RCCOUNT)_" "_$PIECE(^TMP($JOB,"RCDPXPAP","DUPLICATE",RCRECTDA),"^")
- End DoDot:2
- End DoDot:1
- +45 ;
- +46 IF $GET(RCFLAG)
- SET RCCOUNT=RCCOUNT+1
- SET MESSAGE(RCCOUNT)=" ** FMS Document Processed"
- +47 SET XMTEXT="MESSAGE("
- +48 SET XMSUB="Auto Payment Processing Completed"
- +49 SET XMDUZ="AR Package"
- SET XMY("G.RCDP PAYMENTS")=""
- +50 DO ^XMD
- +51 QUIT
- +52 ;
- +53 ;
- ZEROMSG(DATE) ; show RT received with no payments for a date
- +1 ; date in the form MMDDYYYY
- +2 SET DATE=$EXTRACT(DATE,1,2)_"/"_$EXTRACT(DATE,3,4)_"/"_$EXTRACT(DATE,5,8)
- +3 NEW %Z,MESSAGE,X9,XCNP,XMDUZ,XMZ
- +4 SET MESSAGE(1)="The Automatic Payment Processing Server received a Lockbox"
- +5 SET MESSAGE(2)="transmission for "_DATE_" with no payments to process."
- +6 SET XMTEXT="MESSAGE("
- +7 SET XMSUB="Auto Payment Processing Completed"
- +8 SET XMDUZ="AR Package"
- SET XMY("G.RCDP PAYMENTS")=""
- +9 DO ^XMD
- +10 QUIT