- PRCFFER1 ;WISC/SJG-OBLIGATION ERROR PROCESSING CON'T ;7/24/00 23:17
- V ;;5.1;IFCAP;;Oct 20, 2000
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- QUIT
- MSG(STATUS,PRCFA) ;
- S PRCFA("ERROR")=$S(STATUS="R":1,1:0)
- I STATUS="" D STAT0,PAUSE Q
- I STATUS="A" D STATA,PAUSE Q
- I STATUS="E" D STATE,PAUSE Q
- I STATUS="F" D STATF,PAUSE Q
- I STATUS="M" D STATM,PAUSE Q
- I STATUS="Q" D STATQ,PAUSE Q
- I STATUS="R" D STATR Q
- I STATUS="T" D STATT,PAUSE Q
- D EN^DDIOL("The status "_STATUS_"is not valid")
- D EN^DDIOL("No error processing can be performed")
- ;
- PAUSE ; return to continue
- W ! D EN^DDIOL("Press 'RETURN' to continue")
- R X:DTIME
- I $D(IOF) W @IOF
- Q
- ;
- STAT0 ; No Status on Stack File Entry
- W !!,"This FMS document does not have a status!!."
- W !,"No error processing can be performed at this time.",!!
- Q
- STATT ; Transmitted
- W !!,"This FMS document has been transmitted to FMS."
- W !,"No error processing can be performed at this time.",!!
- 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.",!
- 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.",!!
- Q
- STATE ; Error in transmission
- W !!,"This FMS document has an error in transmission."
- W !,"Use the option to 'Retransmit Stack File Document' on the FMS"
- W !,"Code Sheet Menu.",!
- Q
- STATA ; Accepted by FMS
- W !!,"This FMS document has been accepted by FMS."
- W !,"No error processing is necessary.",!!
- Q
- STATF ; Final
- W !!
- D EN^DDIOL("This document duplicates information already accepted by FMS.")
- D EN^DDIOL("No error processing is necessary.")
- W !!
- Q
- STATR ; Rejected by FMS
- W !!,"This FMS document has rejected due to one or more errors."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFFER1 1926 printed Apr 23, 2025@18:17:49 Page 2
- PRCFFER1 ;WISC/SJG-OBLIGATION ERROR PROCESSING CON'T ;7/24/00 23:17
- V ;;5.1;IFCAP;;Oct 20, 2000
- +1 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +2 QUIT
- MSG(STATUS,PRCFA) ;
- +1 SET PRCFA("ERROR")=$SELECT(STATUS="R":1,1:0)
- +2 IF STATUS=""
- DO STAT0
- DO PAUSE
- QUIT
- +3 IF STATUS="A"
- DO STATA
- DO PAUSE
- QUIT
- +4 IF STATUS="E"
- DO STATE
- DO PAUSE
- QUIT
- +5 IF STATUS="F"
- DO STATF
- DO PAUSE
- QUIT
- +6 IF STATUS="M"
- DO STATM
- DO PAUSE
- QUIT
- +7 IF STATUS="Q"
- DO STATQ
- DO PAUSE
- QUIT
- +8 IF STATUS="R"
- DO STATR
- QUIT
- +9 IF STATUS="T"
- DO STATT
- DO PAUSE
- QUIT
- +10 DO EN^DDIOL("The status "_STATUS_"is not valid")
- +11 DO EN^DDIOL("No error processing can be performed")
- +12 ;
- PAUSE ; return to continue
- +1 WRITE !
- DO EN^DDIOL("Press 'RETURN' to continue")
- +2 READ X:DTIME
- +3 IF $DATA(IOF)
- WRITE @IOF
- +4 QUIT
- +5 ;
- STAT0 ; No Status on Stack File Entry
- +1 WRITE !!,"This FMS document does not have a status!!."
- +2 WRITE !,"No error processing can be performed at this time.",!!
- +3 QUIT
- STATT ; Transmitted
- +1 WRITE !!,"This FMS document has been transmitted to FMS."
- +2 WRITE !,"No error processing can be performed at this time.",!!
- +3 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 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 QUIT
- STATE ; Error in transmission
- +1 WRITE !!,"This FMS document has an error in transmission."
- +2 WRITE !,"Use the option to 'Retransmit Stack File Document' on the FMS"
- +3 WRITE !,"Code Sheet Menu.",!
- +4 QUIT
- STATA ; Accepted by FMS
- +1 WRITE !!,"This FMS document has been accepted by FMS."
- +2 WRITE !,"No error processing is necessary.",!!
- +3 QUIT
- STATF ; Final
- +1 WRITE !!
- +2 DO EN^DDIOL("This document duplicates information already accepted by FMS.")
- +3 DO EN^DDIOL("No error processing is necessary.")
- +4 WRITE !!
- +5 QUIT
- STATR ; Rejected by FMS
- +1 WRITE !!,"This FMS document has rejected due to one or more errors."
- +2 QUIT
