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

Package: IFCAP

Routine: PRCPDAP3


Information

PRCPDAP3 ;WISC/RFJ-drug accountability/prime vendor (print items) ;15 Mar 94

Source Information

Source file <PRCPDAP3.m>

Entry Points

Name Comments DBIA/ICR reference
LINEITEM ; print line items
H1 ; item header
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LINEITEM,?10,$P(DATA,"^",4),?30,$E($P(DATA,"^",5),1,14),?44,$J($P(DATA,"^"),8),$J($P(DATA,"^",2),6),$J($P(DATA,"^",3),10,2),$J(TOTCOST,12,2)
  • Line Location: LINEITEM+5
Function Call: WRITE
  • Prompt: !?3,^("E")
  • Line Location: LINEITEM+6
Function Call: WRITE
  • Prompt: !,?10,$E($$DESCR^PRCPUX1(0,ITEMDA),1,25),?35,"(#",ITEMDA,")",?45,"VN# ",VENDA,?54,$J($$UNITCODE^PRCPUX1(+$P(VENDATA,"^",7)),4),$J($P(VENDATA,"^",2),10,2)
  • Line Location: LINEITEM+9
Function Call: WRITE
  • Prompt: !?3,^("E1")
  • Line Location: LINEITEM+10
Function Call: WRITE
  • Prompt: !?3,^("E2")
  • Line Location: LINEITEM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LINEITEM+12
Function Call: WRITE
  • Prompt: !?68,"------------",!?10,"* * * * * T O T A L C O S T - - - - - - >",?68,$J(TOTAL,12,2)
  • Line Location: LINEITEM+15
Function Call: READ
  • Variable: E P E T I T I V E I T E M L I S T
  • Timeout: ",$J(^TMP($J,"PRCPDAPV
  • Line Location: LINEITEM+17
Function Call: WRITE
  • Prompt: !!,"* * * * R E P E T I T I V E I T E M L I S T :",$J(^TMP($J,"PRCPDAPV SET",STCTRL,"RIL"),29)
  • Line Location: LINEITEM+17
Function Call: WRITE
  • Prompt: !!?10,"* * * * * I N V O I C E L I N E I T E M S * * * * *"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"LN",?10,"NDC (6-4-2)",?30,"VENDOR NUMBER",?44,$J("QTY",8),$J("UNIT",6),$J("UNITCOST",10),$J("TOTALCOST",12)
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"PRIME VENDOR UPLOAD REPORT",?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !," SET CONTROL NUMBER: ",STCTRL,!,%
  • Line Location: H+3
Info |  Source |  Entry Points |  Interaction Calls