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

Package: Drug Accountability

Routine: PSAUTL4


Information

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

Source Information

Source file <PSAUTL4.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls