Routine: PSGDCT

Package	Total	Call Graph
Inpatient Medications	5	ENDTS^PSGAMS (,ALM,CLM)^PSGDCT1 (,DONE1)^PSGDCTP ENCV^PSGSETU EN3^PSGTI
VA Fileman	3	^DIC YN^DICN ^DIR
Kernel	1	^%ZISC

Package

Total

Call Graph

Inpatient Medications

ENDTS^PSGAMS (,ALM,CLM)^PSGDCT1 (,DONE1)^PSGDCTP ENCV^PSGSETU EN3^PSGTI

VA Fileman

^DIC YN^DICN ^DIR

Kernel

^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU DCT

Package

Total

Caller Graph

Inpatient Medications

PSJU DCT

Name	Comments	DBIA/ICR reference
DISP	;view dispensed drugs
LC	;Convert data to lower case wording
CL
AL
ENQ	;
QUES	;
SH	;Select entries to be included..
DONE	;
SB	;
DIC(PSG,PSGDC,PSGT)	;LooK up a ward or report types.

Name	Field # of Occurrence
^%ZISC	PSGDCT+9
^DIC	DIC+10
YN^DICN	DISP+1
^DIR	QUES+1, QUES+3, QUES+7, SH+2, SB+3
ENDTS^PSGAMS	PSGDCT+8
^PSGDCT1	ENQ+1
ALM^PSGDCT1	AL
CLM^PSGDCT1	CL
^PSGDCTP	ENQ+1
DONE1^PSGDCTP	DONE+1
ENCV^PSGSETU	PSGDCT+7
EN3^PSGTI	PSGDCT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " not selected, DRUG report terminated...",$C(7) Line Location: PSGDCT+8
Function Call: WRITE	Prompt: !!,"...Ward" Line Location: QUES+1
Function Call: WRITE	Prompt: !! Line Location: QUES+3
Function Call: WRITE	Prompt: !!,"...Select category" Line Location: QUES+7
Function Call: WRITE	Prompt: !! Line Location: SH+2
Function Call: WRITE	Prompt: !!,"...",PSGDCT(1)," not selected" Line Location: SH+2
Function Call: WRITE	Prompt: !!,"...Sort order" Line Location: SB+3
Function Call: READ	Prompt: "Print all drugs costing at least? " Formatting: !! Timeout: DTIME Variable: PSGDCTL Line Location: CL+0
Function Call: WRITE	Prompt: " (ALL)" Condition for execution: PSGDCTL="" Line Location: CL+1
Function Call: WRITE	Prompt: !!,"...Cost limit" Line Location: CL+1
Function Call: READ	Prompt: "Print all drugs with a dispensing amount of at least? " Formatting: !! Timeout: DTIME Variable: PSGDCTA Line Location: AL+0
Function Call: WRITE	Prompt: " (ALL)" Condition for execution: PSGDCTA="" Line Location: AL+1
Function Call: WRITE	Prompt: !!,"...Dispensing amount" Line Location: AL+1
Function Call: WRITE	Prompt: !!,"Display the dispense drugs" Line Location: DISP+1
Function Call: WRITE	Prompt: !!,"Answer 'YES' and I will display the dispensed drugs associated with the ",!,PSGDCT(1)," or answer 'NO' and only the totals will be displayed.",! Line Location: DISP+1
Function Call: WRITE	Prompt: !!,"...Dispense drug display" Line Location: DISP+2
Routine Call	DIC Line Location: DIC+10
Routine Call	DIR Line Location: QUES+1 QUES+3 QUES+7 SH+2 SB+3

Name	Line Occurrences
DIC	QUES+4, SH+4
DISP	SH+5
DONE	PSGDCT+8
ENQ	PSGDCT+9
LC	QUES+8
QUES	PSGDCT+8, QUES+2
SH	SH+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DISP+1, DISP+2, DISP+3, LC+1
DIC	DIC+1!*, DIC+3
DIC("A"	DIC+10*
DIC("W"	DIC+7, DIC+8
DIC(0	DIC+1, DIC+10
DIR	QUES+1!, QUES+3!, QUES+7!, SH+1!, SH+2!, SB+3!
DIR("?"	QUES+3, QUES+7, SH+1*
DIR("??"	QUES+1, SB+3
DIR("A"	QUES+1, QUES+3, QUES+7, SH+1, SB+3*
DIR("B"	QUES+1, QUES+3, SH+1*
DIR(0	QUES+1, QUES+3, QUES+7, SH+1, SB+3*
>> DIRUT	QUES+1, SH+2, SB+3
DTIME	CL, AL
>> FD	PSGDCT+8
>> HLP	PSGDCT+8*
IO	PSGDCT+9
IO("Q"	PSGDCT+9
IO(0	PSGDCT+9
IOST	PSGDCT+9
>> POP	PSGDCT+9
PSG	SH+1*, SH+4, DIC~, DIC+1
PSGDC	DIC~, DIC+1, DIC+10
PSGDCLW	QUES+1!, QUES+2, QUES+3*, QUES+4!
PSGDCLW(0	QUES+4
>> PSGDCT	QUES+8*, SH+1, SH+5, DIC+10
>> PSGDCT(1	QUES+8*, SH+1, SH+2, SH+4, SB+3, DISP+1
>> PSGDCT(2	QUES+8*, SH+1
>> PSGDCTA	SB+1, AL, AL+1
>> PSGDCTD	SH+3*, SB+1
>> PSGDCTD(	SB+2
>> PSGDCTD(0	SH+4
>> PSGDCTL	SB+1, CL, CL+1
>> PSGDCTS	SB+1, SB+4
PSGDISP	DISP+3!*
PSGERR	PSGDCT+8!, QUES+1, QUES+7, SH+2, SH+5, SB+3, CL+1, AL+1, DISP+2*
PSGT	DIC~, DIC+10
>> RTN	PSGDCT+9*
>> SD	PSGDCT+8
U	DIC+10
X	QUES+8!, SB+1, SB+2, DIC+10, LC+1
>> XQUIT	PSGDCT+7
Y	QUES+2, QUES+3, QUES+7, QUES+8!, SH+3, SB+2*, SB+4, DIC+10
Y(0	DIC+10

Customize PDF page

Package: Inpatient Medications

Routine: PSGDCT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: