Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCHNPO4

Package: IFCAP

Routine: PRCHNPO4


Information

PRCHNPO4 ;WOIFO/RSD/RHD-CONT. OF NEW PO--COMPLETE PROCESSING IN SUPPLY ;4/22/98 06:21

Source Information

Source file <PRCHNPO4.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**51,56,81,79,196,220**;Oct 20, 2000;Build 23
PHA
FS
ASK
ISMS ;I PRCHSC=9 ;;I $D(PRCHISMS) ;CHECK ISMS SWITCH AND IF TRUE CREATE ISMS TRANSACTION
EDI ;CHECK TO SEE IF IT IS AN EDI PO AND SEND TO AUSTIN
INV
PRT ;IF IMPREST FUND PO, PRINT A COPY ON BOTH IMPREST FUND & FISCAL PRINTER.
QQ
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Procurement History transaction error "
  • Line Location: PHA+0
Function Call: WRITE
  • Prompt: !,"Insufficient funds for this request."
  • Line Location: PHA+6
Function Call: WRITE
  • Prompt: !!,?5,"One or more of the items on this delivery order",!,?5,"does not contain contract number."
  • Line Location: PHA+10
Function Call: WRITE
  • Prompt: !!,?5,"Line item "_PRCHITM_" on this purchase card order",!,?5,"does not contain a required contract number."
  • Line Location: PHA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"P.O. is missing the Purchasing Agent and must be re-edited !",$C(7)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"You must be the Purchasing Agent listed on P.O. to sign it.",$C(7)
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,?5,"This pharmacy order is a no charge order."
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!!," ***** TAKE NOTE *****"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !!,?2,MSG1,!!,MSG2,!!
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: $C(7),!!,"The 'Do You Want to Send This EDI?' question was bypassed - You must reedit PO"
  • Line Location: ASK+19
Function Call: WRITE
  • Prompt: !!,"In File #440.5, the Expiration Date for this card is blank or this card has"
  • Line Location: ASK+27
Function Call: WRITE
  • Prompt: !,?5,"expired! An EDI order will reject. Please contact your Purchase"
  • Line Location: ASK+28
Function Call: WRITE
  • Prompt: !,?5,"Card Coordinator."
  • Line Location: ASK+29
Function Call: WRITE
  • Prompt: !,"As you have elected to send this order EDI, please ask the Purchase Card"
  • Line Location: ASK+35
Function Call: WRITE
  • Prompt: !,"Coordinator to update the Card's Expiration Date before completing this"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !,"Purchase Order. - You must reedit this PO."
  • Line Location: ASK+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+47
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction"
  • Line Location: EDI+3
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction"
  • Line Location: EDI+11
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+1
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!",$C(7)
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+1
Info |  Source |  Entry Points |  Interaction Calls