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

Package: Drug Accountability

Routine: PSAUTL1


Information

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

Source Information

Source file <PSAUTL1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Drug Accountability 1 PSANDC1^PSAHELP  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Drug Accountability 27 PSABRKU2  PSADJ  PSADJR  PSADRU  PSAHIS  PSAHIS1  PSALEVEL  PSALEVRP  
PSALOC  PSANAC  PSANDF  PSAPROC  PSAPROC1  PSAPROC2  PSAPROC4  PSAPROC6  
PSAPROC9  PSARDCUT  PSAREORD  PSASIG  PSAUTL3  PSAUTL5  PSAVER  PSAVER1  
PSAVER4  PSAVER5  PSAVERA  

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

External References

Name Field # of Occurrence
PSANDC1^PSAHELP DISPLAY+13, EDIT1+22
$$FMTE^XLFDT EDITDISP+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] DISPLAY+12, DISPLAY+16, EDIT1+17, EDIT1+18, EDIT1+20, EDIT1+28
^PS(59 - [#59] OPSITE+5, OPSITE+6, OPSITE+9
^PS(59.4 - [#59.4] SITES+6
^PSD(58.8 - [#58.8] SITES+4, OPSITE+5, OPSITE+6, OPSITE+9, DISPLAY+5, DISPLAY+6, DISPLAY+27, DISPLAY+28, DISPLAY+30, EDIT1+7
, EDIT1+8, DUOU+2, DUOU+4, DUOU+6
^PSDRUG - [#50] DISPLAY+3, DISPLAY+5, DISPLAY+7, DISPLAY+11, DISPLAY+24, DISPLAY+25, EDIT1+5, EDIT1+7, EDIT1+20, DU
, DUOU
^XTMP("PSAPV" EDIT1, EDIT1+5, EDIT1+36

Label References

Name Line Occurrences
OPSITE SITES+4

Naked Globals

Name Field # of Occurrence
^(0 DISPLAY+5, DISPLAY+6, EDIT1+7, EDIT1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT DISPLAY+5, DISPLAY+6, EDIT1+7, EDIT1+8
IOF EDITDISP+1
>> PSACOMB SITES+2*, SITES+7*, SITES+8*, SITES+9*, SITES+11*
>> PSACTRL EDIT1, EDIT1+5, EDIT1+36
>> PSADATA DISPLAY+2, DISPLAY+8, DISPLAY+9, DISPLAY+11, DISPLAY+14, DISPLAY+15, DISPLAY+19, DISPLAY+20, DISPLAY+21, DISPLAY+22
, DISPLAY+25, DISPLAY+26, DISPLAY+28, DISPLAY+30, EDIT1*, EDIT1+1, EDIT1+2, EDIT1+3, EDIT1+4, EDIT1+11
, EDIT1+12, EDIT1+13, EDIT1+16, EDIT1+17, EDIT1+18, EDIT1+19, EDIT1+20, EDIT1+23, EDIT1+26, EDIT1+27
, EDIT1+31, EDIT1+32, EDIT1+33, EDIT1+34, EDIT1+36, DUOU, DUOU+4, DUOU+6
>> PSADISP DISPLAY+1*
>> PSAIEN DISPLAY+2*, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+11, DISPLAY+24, DISPLAY+25, DISPLAY+27
, DISPLAY+28, DISPLAY+30, EDIT1+2*, EDIT1+3*, EDIT1+5, EDIT1+6, EDIT1+7, EDIT1+8, EDIT1+20, DU
, DUOU, DUOU+4, DUOU+6
>> PSAIN DISPLAY+5, DISPLAY+6, DISPLAY+26, EDITDISP+1, EDIT1+4, EDIT1+7, EDIT1+8, EDIT1+36*
>> PSAISIT SITES+4*, SITES+6, SITES+7, SITES+8
>> PSAISITN SITES+2*, SITES+6*, SITES+7, SITES+8
>> PSALINE DISPLAY+3, EDIT1, EDIT1+5
>> PSALOC SITES+2, SITES+4, OPSITE+4, OPSITE+5, OPSITE+6, OPSITE+9, DISPLAY+26*, DISPLAY+27, DISPLAY+28, DISPLAY+30
, EDIT1+4*, EDIT1+36*, DUOU+2, DUOU+4, DUOU+6
>> PSANDC DISPLAY+2*, DISPLAY+13, EDIT1+22
PSANDCX DISPLAY+13!, EDIT1+22!
>> PSAOSIT SITES+5*, SITES+7, SITES+9, OPSITE+2*, OPSITE+5*, OPSITE+6*, OPSITE+9*
PSAOSITC OPSITE+3!, OPSITE+6*, OPSITE+7
>> PSAOSITN SITES+2*, SITES+7, SITES+9, OPSITE+2*, OPSITE+5*, OPSITE+7*, OPSITE+8*, OPSITE+9*, OPSITE+10*
PSAOU DISPLAY+11*, DISPLAY+12, DISPLAY+16, EDIT1+27~*, EDIT1+28
>> PSAPRICE EDIT1+23*, EDIT1+24*, EDIT1+25
>> PSAREORD DISPLAY+30*, DISPLAY+31, DUOU+6*, DUOU+7
>> PSASLN EDITDISP+1
>> PSASTOCK DISPLAY+28*, DISPLAY+29, DUOU+4*, DUOU+5
>> PSASUB DISPLAY+2*, DISPLAY+11, DISPLAY+25, EDIT1+1*, EDIT1+20, DUOU
>> PSAVSN DISPLAY+2*, DISPLAY+14, EDIT1+25
>> SN OPSITE+6*, OPSITE+7, OPSITE+8
U DISPLAY+15, EDIT1+26, EDIT1+27
>> XX OPSITE+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All