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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAUTL4

Package: Drug Accountability

Routine: PSAUTL4


Information

PSAUTL4 ;BIR ISC/JMB-Verify Invoices Utility ; 8/19/97

Source Information

Source file <PSAUTL4.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Drug Accountability 1 PSANDC1^PSAHELP  

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

Package Total Caller Graph
Drug Accountability 5 PSAVER1  PSAVER2  PSAVERA  PSAVERA1  PSAVERA2  

Entry Points

Name Comments DBIA/ICR reference
VERDISP ;Displays a line item on a processed or verified invoice
DRUG
QTY
UPC
OU
NDC
PRICE
VSN
VDU
VDUOU
STOCK
REORDER

External References

Name Field # of Occurrence
PSANDC1^PSAHELP NDC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: PSALINEN_" "
  • Line Location: VERDISP+1
Function Call: WRITE
  • Prompt: "*"_$P($G(^PSDRUG(+PSADJD,0)),"^")
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN MASTER VAULT **"
  • Line Location: DRUG+13
Function Call: WRITE
  • Prompt: !?5,"** INACTIVE IN DRUG FILE **"
  • Line Location: DRUG+14
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"
  • Line Location: DRUG+15
Function Call: WRITE
  • Prompt: !,"Qty Invoiced: "
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: PSAQTY_" ("_$S($P(PSADATA,"^",3):$P(PSADATA,"^",3),$P(PSADATA,"^",3)=0:0,1:"Blank")_")"
  • Line Location: QTY+5
Function Call: WRITE
  • Prompt: $P(PSADATA,"^",3)
  • Line Location: QTY+6
Function Call: WRITE
  • Prompt: !,"Order Unit : "
  • Line Location: OU+0
Function Call: WRITE
  • Prompt: $S(+PSAOU:$P($G(^DIC(51.5,+PSAOU,0)),"^"),1:"Blank")
  • Line Location: OU+8
Function Call: WRITE
  • Prompt: ?38,"NDC: "
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: PSANDCX
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !,"Unit Price : $"
  • Line Location: PRICE+0
Function Call: WRITE
  • Prompt: $S($G(PSAPRICE):PSAPRICE,1:"0.00")
  • Line Location: PRICE+10
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Order Unit: "_$S(+PSADUOU:+PSADUOU,+PSASUB&(+$P($G(^PSDRUG(+PSADRG,1,PSASUB,0)),"^",7)):+$P($G(^PSDRUG(+PSADRG,1,PSASUB,0)),"^",7),1:"Blank"),!
  • Line Location: VDUOU+0
Function Call: WRITE
  • Prompt: "Stock Level : "_PSASTOCK
  • Line Location: STOCK+1
Function Call: WRITE
  • Prompt: !,"Reorder Level : "_PSAREORD,!
  • Line Location: REORDER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] OU+1, OU+7, OU+8
^PSD(58.8 - [#58.8] DRUG+13, DRUG+15, VDUOU+2, STOCK, REORDER
^PSD(58.811 - [#58.811] DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5, PRICE+1, PRICE+2, VSN+3
^PSDRUG - [#50] DRUG+6, DRUG+7, DRUG+10, DRUG+11, DRUG+13, DRUG+14, OU+3, VDU+1, VDUOU

Naked Globals

Name Field # of Occurrence
^(0 DRUG+13, DRUG+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT DRUG+13, DRUG+15
>> PSA50IEN DRUG+6*, DRUG+8*, DRUG+10*
>> PSADATA DRUG+5, DRUG+10, DRUG+11, QTY+5, QTY+6, UPC, OU+1, NDC, PRICE+6, PRICE+9
, VSN
>> PSADICW PSAUTL4+5
>> PSADJ DRUG*, DRUG+1, DRUG+2, DRUG+5, DRUG+7*, DRUG+9, QTY+2*, QTY+3, OU+4*, OU+5
, PRICE+1*, PRICE+2
>> PSADJD DRUG+3*, DRUG+4, DRUG+5, DRUG+6, DRUG+7, DRUG+8
>> PSADJO OU+4*, OU+5*, OU+7, OU+8
>> PSADJP PRICE+1*, PRICE+2*, PRICE+4, PRICE+5*, PRICE+6, PRICE+7, PRICE+8
>> PSADJQ QTY+2*, QTY+3*, QTY+5, QTY+6
>> PSADJSUP DRUG+8*
>> PSADRG DRUG+5*, DRUG+6*, DRUG+7*, DRUG+8*, DRUG+10*, DRUG+12, DRUG+13, DRUG+14, DRUG+15, OU+3
, VDU+1, VDUOU, STOCK, REORDER
>> PSADUOU VDU*, VDUOU
>> PSAIEN DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5, PRICE+1, PRICE+2, VSN+3
>> PSAIEN1 DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5, PRICE+1, PRICE+2, VSN+3
>> PSAIN DRUG+13, DRUG+15
>> PSALINE PSAUTL4+5*, DRUG, DRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5, PRICE+1, PRICE+2
, VSN+3
>> PSALINEN VERDISP+1
>> PSALOC VDUOU+2, STOCK, REORDER
>> PSANDC NDC*, NDC+1
PSANDCX NDC+1!
>> PSANODE DRUG+2*, DRUG+3, QTY+3*, OU+5*, PRICE+2*
>> PSAOU OU+1*, OU+3*, OU+7*, OU+8
>> PSAP67 VSN+3*, VSN+4, VSN+5, VSN+6, VSN+7
>> PSAPRICE PRICE+7*, PRICE+9*, PRICE+10
>> PSAQTY QTY+5*, QTY+6*
>> PSAREORD VDU*, REORDER*, REORDER+1
>> PSASTOCK VDU*, STOCK*, STOCK+1
>> PSASUB VDU*, VDUOU
>> PSASUP DRUG+4*, DRUG+5
>> PSATEMP OU+2*, OU+3, VDU
>> PSAUPC UPC*
>> PSAVSN VSN*, VSN+1
U UPC
>> Y PSAUTL4+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All