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

Package: Drug Accountability

Routine: PSAUTL1


Information

PSAUTL1 ;BIR/JMB-Prime Vendor Invoice Data Utility ;9/19/97

Source Information

Source file <PSAUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
SITES ;Gets the combined IP/OP's IP & OP site names
OPSITE ;PSA*3*25 - check for multiple OP sites
DISPLAY ;Displays an error-free line item
EDITDISP ;Displays a line item with errors.
EDIT1
DU
DUOU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN MASTER VAULT **"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !?5,"** INACTIVE IN DRUG FILE **"
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"Qty Invoiced: "_+$P(PSADATA,"^")
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Order Unit : "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: $S(PSAOU:$P($G(^DIC(51.5,+PSAOU,0)),"^"),1:"UNKNOWN")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: PSANDCX
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Order Unit: "_$S($P(PSADATA,"^",20):+$P(PSADATA,"^",20),+PSASUB&(+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank")
  • Line Location: DISPLAY+25
Function Call: WRITE
  • Prompt: !,"Stock Level : "_PSASTOCK
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: !,"Reorder Level : "_PSAREORD,!
  • Line Location: DISPLAY+31
Function Call: WRITE
  • Prompt: @IOF,!?23,"<<< PROCESS LINE ITEM SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN
  • Line Location: EDITDISP+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN MASTER VAULT **"
  • Line Location: EDIT1+7
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"
  • Line Location: EDIT1+8
Function Call: WRITE
  • Prompt: !,"Qty Invoiced: "
  • Line Location: EDIT1+10
Function Call: WRITE
  • Prompt: $P(PSADATA,"^",8)_" ("_$S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")_")"
  • Line Location: EDIT1+11
Function Call: WRITE
  • Prompt: $S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")
  • Line Location: EDIT1+12
Function Call: WRITE
  • Prompt: !,"Order Unit : "
  • Line Location: EDIT1+15
Function Call: WRITE
  • Prompt: PSANDCX
  • Line Location: EDIT1+22
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Order Unit: "_$S($P(PSADATA,"^",20):+$P(PSADATA,"^",20),+PSASUB&(+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank"),!
  • Line Location: DUOU+0
Function Call: WRITE
  • Prompt: "Stock Level : "_PSASTOCK
  • Line Location: DUOU+5
Function Call: WRITE
  • Prompt: !,"Reorder Level : "_PSAREORD,!
  • Line Location: DUOU+7
Info |  Source |  Entry Points |  Interaction Calls