Routine: PSAUTL1

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

Package

Total

Call Graph

Drug Accountability

PSANDC1^PSAHELP

Kernel

$$FMTE^XLFDT

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

Package

Total

Caller Graph

Drug Accountability

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

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	;PSA325 - check for multiple OP sites
DU
DISPLAY	;Displays an error-free line item

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

Name	Line Occurrences
OPSITE	SITES+4

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*

Customize PDF page

Package: Drug Accountability

Routine: PSAUTL1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: