Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCFDPV1

PRCFDPV1.m

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