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: PRCHFPT0

Package: IFCAP

Routine: PRCHFPT0


Information

PRCHFPT0 ;WISC/RSD/RHD/BGJ-CONTINUATION--PRINT FREE FORM 2138 ;4/21/99 18:05

Source Information

Source file <PRCHFPT0.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**7**;Oct 20, 2000
STP ;PRINT HEADER ON FIRST PAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: STP+1
Function Call: WRITE
  • Prompt: !,?5,$S(Y="EM":"**EMERGENCY**",Y="SP":"*SPECIAL*",1:"")
  • Line Location: STP+1
Function Call: WRITE
  • Prompt: ?20,"*REPRINT* "
  • Condition for execution: $D(PRCHREPR)
  • Line Location: STP+1
Function Call: WRITE
  • Prompt: ?28,$S("D"=PRCHTYPE:"DELIVERY ORDER",PRCHTYPE]"":"PURCHASE CARD ORDER",PRCHDES="US":" USING SERVICE COPY",$D(PRCHNRQ):"REQUISITION FOR SUPPLIES OR SERVICES",1:"PURCHASE ORDER FOR SUPPLIES OR SERVICES"),?70
  • Line Location: STP+3
Function Call: WRITE
  • Prompt: "("_Y_")"
  • Line Location: STP+4
Function Call: WRITE
  • Prompt: "Dept. of Veterans Affairs "_$P(PRCHFTYP," ",2,99),?61
  • Line Location: STP+5
Function Call: WRITE
  • Prompt: $P(Y,U,1)
  • Line Location: STP+6
Function Call: WRITE
  • Prompt: "(",$P(Y,U,8),")"
  • Condition for execution: $P(Y,U,8)]""
  • Line Location: STP+6
Function Call: WRITE
  • Prompt: !,$P(PRCHHSP,U,1)," ",$P(PRCHHSP,U,2)
  • Line Location: STP+6
Function Call: WRITE
  • Prompt: !,$P(PRCHHSP,U,3),", ",$P($G(^DIC(5,+$P(PRCHHSP,U,4),0)),U,2)," ",$P(PRCHHSP,U,5),?61,"DEL. TO: ",$P(PRCH1,U,11),!,PRCHULN
  • Line Location: STP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STP+29
Function Call: WRITE
  • Prompt: ?9,V(I)
  • Condition for execution: $D(V(I))
  • Line Location: STP+29
Function Call: WRITE
  • Prompt: ?53,"|"
  • Line Location: STP+29
Function Call: WRITE
  • Prompt: ?62,S(I)
  • Condition for execution: $D(S(I))
  • Line Location: STP+29
Function Call: WRITE
  • Prompt: !
  • Line Location: STP+30
Function Call: WRITE
  • Prompt: ?5,V(10)
  • Condition for execution: $D(V(10))
  • Line Location: STP+30
Function Call: WRITE
  • Prompt: ?53,"|"
  • Line Location: STP+30
Function Call: WRITE
  • Prompt: ?62,S(10)
  • Condition for execution: $D(S(10))
  • Line Location: STP+30
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: STP+31
Function Call: WRITE
  • Prompt: $E(PRCHULN,1,53),"|",$E(PRCHULN,1,42)
  • Line Location: STP+32
Info |  Source |  Entry Points |  Interaction Calls