Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
IFCAP 3 P^PRCPUREP  ($$DESCR,$$UNITCODE)^PRCPUX1  DISPLAY^PRCPUX2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IFCAP 1 PRCPDAP2  

Entry Points

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

External References

Name Field # of Occurrence
P^PRCPUREP LINEITEM+3, LINEITEM+14, LINEITEM+16, LINEITEM+18
$$DESCR^PRCPUX1 LINEITEM+9
$$UNITCODE^PRCPUX1 LINEITEM+9
DISPLAY^PRCPUX2 LINEITEM+16

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] LINEITEM+8
^TMP($J LINEITEM+2, LINEITEM+6, LINEITEM+10, LINEITEM+11, LINEITEM+16, LINEITEM+17

Label References

Name Line Occurrences
H LINEITEM+3, LINEITEM+14
H1 LINEITEM+1, LINEITEM+3

Naked Globals

Name Field # of Occurrence
^( LINEITEM+2
^("E" LINEITEM+6
^("E1" LINEITEM+10
^("E2" LINEITEM+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % H*, H+1, H+2*, H+3
>> DATA LINEITEM+2*, LINEITEM+4, LINEITEM+5, LINEITEM+7
IOF H
IOSL LINEITEM+3, LINEITEM+14
>> ITEMDA LINEITEM+7*, LINEITEM+8, LINEITEM+9
>> LINEITEM LINEITEM+2*, LINEITEM+5, LINEITEM+6, LINEITEM+10, LINEITEM+11
>> NOW H
>> PAGE H*
>> PRCPFLAG LINEITEM+2, LINEITEM+3, LINEITEM+13, LINEITEM+14
>> SCREEN LINEITEM+3, LINEITEM+14, LINEITEM+16, LINEITEM+18, H
>> STCTRL LINEITEM+2, LINEITEM+6, LINEITEM+10, LINEITEM+11, LINEITEM+16, LINEITEM+17, H+3
>> TOTAL LINEITEM+2*, LINEITEM+4*, LINEITEM+15
>> TOTCOST LINEITEM+4*, LINEITEM+5
>> VENDA LINEITEM+7*, LINEITEM+8, LINEITEM+9
>> VENDATA LINEITEM+8*, LINEITEM+9
X LINEITEM+16!
X(1 LINEITEM+16*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All