PRCFFER1.m

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 ---PRCFFER1   1926     printed  Apr 09, 2024@21:21:05                                                                                                                                                                                                    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