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 Total: 2

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

Caller Graph

Caller Graph Total: 25

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

Entry Points

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

External References

Name Field # of Occurrence
PSANDC1^PSAHELP DISPLAY+13, EDIT1+19
$$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: !,"*****>",!,"Note: The order unit was changed from EACH to ",$P($G(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !," during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"
  • Line Location: DISPLAY+17
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+19
Function Call: WRITE
  • Prompt: !,"Stock Level : "_PSASTOCK
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !,"Reorder Level : "_PSAREORD,!
  • Line Location: DISPLAY+25
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+4
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"
  • Line Location: EDIT1+5
Function Call: WRITE
  • Prompt: !,"Qty Invoiced: "
  • Line Location: EDIT1+7
Function Call: WRITE
  • Prompt: $P(PSADATA,"^",8)_" ("_$S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")_")"
  • Line Location: EDIT1+8
Function Call: WRITE
  • Prompt: $S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")
  • Line Location: EDIT1+9
Function Call: WRITE
  • Prompt: !,"Order Unit : "
  • Line Location: EDIT1+12
Function Call: WRITE
  • Prompt: PSANDCX
  • Line Location: EDIT1+19
Function Call: WRITE
  • Prompt: !,"*****>",!,"Note: The order unit was changed from EACH to ",$P($G(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"
  • Line Location: EDIT1+25
Function Call: WRITE
  • Prompt: !," during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"
  • Line Location: EDIT1+26
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+14, EDIT1+15, EDIT1+17, EDIT1+25
^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+21, DISPLAY+22, DISPLAY+24, EDIT1+4
, EDIT1+5, DUOU+2, DUOU+4, DUOU+6
^PSDRUG - [#50] DISPLAY+3, DISPLAY+5, DISPLAY+7, DISPLAY+11, DISPLAY+18, DISPLAY+19, EDIT1+2, EDIT1+4, EDIT1+17, DU
, DUOU
^XTMP("PSAPV" EDIT1, EDIT1+2, EDIT1+27

Label References

Name Line Occurrences
OPSITE SITES+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT DISPLAY+5, DISPLAY+6, EDIT1+4, EDIT1+5
IOF EDITDISP+1
>> PSACOMB SITES+2*, SITES+7*, SITES+8*, SITES+9*, SITES+11*
>> PSACTRL EDIT1, EDIT1+2, EDIT1+27
>> PSADATA DISPLAY+2, DISPLAY+8, DISPLAY+9, DISPLAY+11, DISPLAY+14, DISPLAY+15, DISPLAY+19, DISPLAY+20, DISPLAY+22, DISPLAY+24
, EDIT1*, EDIT1+1, EDIT1+8, EDIT1+9, EDIT1+10, EDIT1+13, EDIT1+14, EDIT1+15, EDIT1+16, EDIT1+17
, EDIT1+20, EDIT1+23, EDIT1+24, EDIT1+27, DUOU, DUOU+4, DUOU+6
>> PSADISP DISPLAY+1*
>> PSAIEN DISPLAY+2*, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+11, DISPLAY+18, DISPLAY+19, DISPLAY+21
, DISPLAY+22, DISPLAY+24, EDIT1+2, EDIT1+3, EDIT1+4, EDIT1+5, EDIT1+17, DU, DUOU, DUOU+4
, DUOU+6
>> PSAIN DISPLAY+5, DISPLAY+6, DISPLAY+20, EDITDISP+1, EDIT1+1, EDIT1+4, EDIT1+5, EDIT1+27*
>> PSAISIT SITES+4*, SITES+6, SITES+7, SITES+8
>> PSAISITN SITES+2*, SITES+6*, SITES+7, SITES+8
>> PSALINE DISPLAY+3, EDIT1, EDIT1+2
>> PSALOC SITES+2, SITES+4, OPSITE+4, OPSITE+5, OPSITE+6, OPSITE+9, DISPLAY+20*, DISPLAY+21, DISPLAY+22, DISPLAY+24
, EDIT1+1*, EDIT1+27*, DUOU+2, DUOU+4, DUOU+6
>> PSANDC DISPLAY+2*, DISPLAY+13, EDIT1+19
PSANDCX DISPLAY+13!, EDIT1+19!
>> 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+24~*, EDIT1+25
>> PSAPRICE EDIT1+20*, EDIT1+21*, EDIT1+22
>> PSAREORD DISPLAY+24*, DISPLAY+25, DUOU+6*, DUOU+7
>> PSASLN EDITDISP+1
>> PSASTOCK DISPLAY+22*, DISPLAY+23, DUOU+4*, DUOU+5
>> PSASUB DISPLAY+2*, DISPLAY+11, DISPLAY+19, EDIT1+17, DUOU
>> PSAVSN DISPLAY+2*, DISPLAY+14, EDIT1+22
>> SN OPSITE+6*, OPSITE+7, OPSITE+8
U DISPLAY+15, EDIT1+23, EDIT1+24
>> 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