Routine: PSGDCT1

Package	Total	Caller Graph
Inpatient Medications	1	PSGDCT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CLM	;
SETDRG(TYP,X,IEN)	;TYP=TYPE OF DATA, X=DATA NAME, IEN=IEN OF DATA.
SET	; Set subscripts.
EXCLUDE(X)	; Check if item is to be included in report.
WDHLP	;
INC(X,ND)	;Increment amount and cost.
ALM	;
SBCHK	;
OIDF(OIND)
SETTMP(S1,S2,S3,ND)	; Set TMP by select type, dispense drug, and maybe ward.
SDH	;
ENQH	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Enter a number (dollar amount) to be the lower limit for this report. This number may be zero (0) to include all drugs with a positive cost. A NULL",!,"response will include all drugs. Enter an '^' to terminate this report." Line Location: CLM+1
Function Call: WRITE	Prompt: !!?2,"Enter a number to be the lower dispensing limit (inclusive) for this report.",!,"This number may be zero (0) to include all drugs with a positive dispensing",!,"amount. A NULL response will include all drugs. Enter an '^' to " Line Location: ALM+1
Function Call: WRITE	Prompt: !,"terminate this report." Line Location: ALM+2
Function Call: WRITE	Prompt: !!?2,"Select a DRUG for which you wish to have cost data print." Line Location: SDH+1
Function Call: WRITE	Prompt: !!,"Enter '",$E(PSGDCT(1),1),"' to have this report print the drugs in order of ",PSGDCT(2),".",!,"Enter 'C' to have this report print the drugs in descending order of TOTAL COST." Line Location: SBCHK+1
Function Call: WRITE	Prompt: !,"Enter 'A' to have this report print the drugs in descending order of the",!,"AMOUNT DISPENSED (in UNITS)." Line Location: SBCHK+2
Function Call: WRITE	Prompt: !!,"Enter the category that the drugs on the report will be selected by...",!,"Enter 'D' for Dispensed Drug",!,"Enter 'O' for Orderable Item",!,"Enter 'V' for VA Class...." Line Location: ENQH+1
Function Call: WRITE	Prompt: !!,"Enter ""YES"" to include dispensing amounts and cost by ward.",! Line Location: WDHLP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	PSGDCT1+5
^PS(50.606 - [#50.606]	OIDF+4
^PS(50.7 - [#50.7]	OIDF+3
^PS(57.6 - [#57.6]	PSGDCT1+3, PSGDCT1+4, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
^PSDRUG - [#50]	SET+1, SET+3, SET+4
^TMP($J	PSGDCT1+3!, SETTMP+1, SETTMP+2

Name	Line Occurrences
$$EXCLUDE	SET+2, SET+3, SET+4
$$INC	SETTMP+1, SETTMP+2, SETTMP+3
$$OIDF	SET+3
$$SETDRG	SET+1, SET+4
SET	PSGDCT1+7
SETTMP	SET+2, SET+3, SET+4

Name	Field # of Occurrence
^(0	SETTMP+1, SETTMP+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DRG	PSGDCT1+7*, SET+1, SET+2, SET+3, SET+4
>> FD	PSGDCT1+3
IEN	SETDRG~, SETDRG+1
NAME	OIDF+2~, OIDF+4*, OIDF+5
ND	SET+1*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+1, SETTMP+2, SETTMP+3, INC~, INC+1
>> ND50	SET+1*, SETTMP+1, SETTMP+2
>> OI	SET+3*
OIND	OIDF~, OIDF+3, OIDF+4, OIDF+5
>> PR	PSGDCT1+6*, PSGDCT1+7, SET+1
>> PSGDCLW	PSGDCT1+5
>> PSGDCLW(	PSGDCT1+5
>> PSGDCT	PSGDCT1+3, SET+2, SET+3, SETTMP+1
>> PSGDCT(1	SBCHK+1
>> PSGDCT(2	SBCHK+1
>> PSGDCTD	EXCLUDE+2
>> PSGDCTD(	EXCLUDE+2
>> PSGDCTS	SBCHK+2*
>> PSGDISP	PSGDCT1+3, SETTMP+2
>> PSGP2	PSGDCT1+3*, SETTMP+3
S1	SET+3, SET+4, SETTMP~, SETTMP+1, SETTMP+2
S2	SET+1*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+2
S3	PSGDCT1+5*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+3
>> SD	PSGDCT1+3
>> ST	PSGDCT1+3*, PSGDCT1+4, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
TYP	SETDRG~, SETDRG+1
U	PSGDCT1+5, SET+1, SET+3, SET+4, EXCLUDE+1, SETDRG+1, OIDF+4, SETTMP+1, SETTMP+2, INC+1
>> W	PSGDCT1+4*, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
>> WD	PSGDCT1+5*
X	EXCLUDE~, EXCLUDE+1, EXCLUDE+2, SETDRG~, SETDRG+1, OIDF+2~, OIDF+3, OIDF+4, SETTMP+3*, INC~ , INC+1

Customize PDF page

Package: Inpatient Medications

Routine: PSGDCT1

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: