- PRCFDPV1 ;WISC/LEM-PAYMENT ERROR PROCESSING CON'T ;6/21/11 17:52
- ;;5.1;IFCAP;**158**;Oct 20, 2000;Build 1
- ;Per VHA Directive 2004-038, this routine should not be modified.
- QUIT
- ; No top level entry
- STATT ; Transmitted
- W !!,"This FMS document has been transmitted to FMS."
- W !,"No error processing can be performed at this time.",!!
- D PAUSE^PRCFDPVU
- S PRCFA("ERROR")=0
- Q
- STATQ ; Queued for transmission
- W !!,"This FMS document has been queued for transmission to FMS."
- W !,"No error processing can be performed at this time.",!!
- D PAUSE^PRCFDPVU
- S PRCFA("ERROR")=0
- Q
- STATM ; Marked for immediate transmission
- W !!,"This FMS document has been marked for immediate transmission to FMS."
- W !,"No error processing can be performed at this time.",!!
- D PAUSE^PRCFDPVU
- S PRCFA("ERROR")=0
- Q
- STATE ; Error in transmission
- W !!,"This FMS document had an error during transmission."
- W !,"Use the option to 'Retransmit Stack File Document' on the FMS"
- W !,"Code Sheet Menu.",!
- D PAUSE^PRCFDPVU
- S PRCFA("ERROR")=0
- Q
- STATA ; Accepted by FMS
- W !!,"This FMS document has been accepted by FMS."
- W !,"No error processing is necessary.",!!
- D PAUSE^PRCFDPVU
- S PRCFA("ERROR")=0
- Q
- STATR ; Rejected by FMS
- W !!,"This FMS document has rejected due to one or more errors."
- S PRCFA("ERROR")=1
- Q
- STATR1 S:$G(MOP)="" MOP=2
- S LABEL=$S(MOP=1:"Purchase Order",MOP=21:"1358 Obligation",MOP=8:"Requistion",MOP=2:"Certified Invoice",0:"Obligation")
- W !,"The "_LABEL_" will now be displayed for your review.",!!
- W "Please review the source document very carefully and take",!,"the appropriate corrective action.",!
- D PAUSE^PRCFDPVU
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFDPV1 1683 printed Jan 18, 2025@03:04:19 Page 2
- PRCFDPV1 ;WISC/LEM-PAYMENT ERROR PROCESSING CON'T ;6/21/11 17:52
- +1 ;;5.1;IFCAP;**158**;Oct 20, 2000;Build 1
- +2 ;Per VHA Directive 2004-038, this routine should not be modified.
- +3 QUIT
- +4 ; No top level entry
- STATT ; Transmitted
- +1 WRITE !!,"This FMS document has been transmitted to FMS."
- +2 WRITE !,"No error processing can be performed at this time.",!!
- +3 DO PAUSE^PRCFDPVU
- +4 SET PRCFA("ERROR")=0
- +5 QUIT
- STATQ ; Queued for transmission
- +1 WRITE !!,"This FMS document has been queued for transmission to FMS."
- +2 WRITE !,"No error processing can be performed at this time.",!!
- +3 DO PAUSE^PRCFDPVU
- +4 SET PRCFA("ERROR")=0
- +5 QUIT
- STATM ; Marked for immediate transmission
- +1 WRITE !!,"This FMS document has been marked for immediate transmission to FMS."
- +2 WRITE !,"No error processing can be performed at this time.",!!
- +3 DO PAUSE^PRCFDPVU
- +4 SET PRCFA("ERROR")=0
- +5 QUIT
- STATE ; Error in transmission
- +1 WRITE !!,"This FMS document had an error during transmission."
- +2 WRITE !,"Use the option to 'Retransmit Stack File Document' on the FMS"
- +3 WRITE !,"Code Sheet Menu.",!
- +4 DO PAUSE^PRCFDPVU
- +5 SET PRCFA("ERROR")=0
- +6 QUIT
- STATA ; Accepted by FMS
- +1 WRITE !!,"This FMS document has been accepted by FMS."
- +2 WRITE !,"No error processing is necessary.",!!
- +3 DO PAUSE^PRCFDPVU
- +4 SET PRCFA("ERROR")=0
- +5 QUIT
- STATR ; Rejected by FMS
- +1 WRITE !!,"This FMS document has rejected due to one or more errors."
- +2 SET PRCFA("ERROR")=1
- +3 QUIT
- STATR1 if $GET(MOP)=""
- SET MOP=2
- +1 SET LABEL=$SELECT(MOP=1:"Purchase Order",MOP=21:"1358 Obligation",MOP=8:"Requistion",MOP=2:"Certified Invoice",0:"Obligation")
- +2 WRITE !,"The "_LABEL_" will now be displayed for your review.",!!
- +3 WRITE "Please review the source document very carefully and take",!,"the appropriate corrective action.",!
- +4 DO PAUSE^PRCFDPVU
- +5 QUIT