Routine: PSOFTDR

Package	Total	Call Graph
VA Fileman	4	^%DT ^%DTC DT^DIO2 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO DOSAGE REPORT

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEG+2, BEG+3
^%DTC	DTC
^%ZIS	DEV
^%ZISC	EXIT
^%ZTLOAD	DEV+3
DT^DIO2	HD+4, HD+6
^DIR	HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option provides a list of drugs for those prescriptions" Line Location: BEG+0
Function Call: WRITE	Prompt: !,"where the dosage field has a free text entry.",! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: BEG+2
Function Call: WRITE	Prompt: ! Line Location: BEG+3
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"*** No Records were found for this period ***",!! Line Location: ST1+8
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: @IOF Condition for execution: PSOPG>1 Line Location: HD+4
Function Call: WRITE	Prompt: "Run Date: " Line Location: HD+4
Function Call: WRITE	Prompt: ?72,"Page "_PSOPG Line Location: HD+4
Function Call: WRITE	Prompt: !,?20,"Free Text Dosage Entry Report",!,?15,"for the Period: " Line Location: HD+5
Function Call: WRITE	Prompt: " to " Line Location: HD+6
Function Call: WRITE	Prompt: !,"Drug",?40,"Free Text Entry",?74,"Count",!," Provider:Count" Line Location: HD+7
Function Call: WRITE	Prompt: ! Line Location: HD+8
Function Call: WRITE	Prompt: "-" Line Location: HD+8
Function Call: WRITE	Prompt: ! Line Location: HD+9
Routine Call	DIR Line Location: HD+1
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.607 - [#50.607]	FT1+2
^PSDRUG - [#50]	ST1+4, FT1+1, FT2+1, FT2+2, PRD+1
^PSRX - [#52]	ST1+3, ST1+6
^PSRX("AD"	ST1, ST1+1, ST1+2
^TMP(	START+1!, ST1+8, DET, DET+1, DET+2, DET+5, DET+6, EXIT!, PRD+3, PRD+4* , PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5, GETR+7, GETR+8*
^VA(200 - [#200]	DET+8

Label References

Name	Line Occurrences
DTC	BEG+3
EXIT	ST1+8
FT1	ST1+6
FT2	ST1+6
GETR	PRD+6
HD	ST1+7, DET+9, DET+10, DET+12
PRD	FT1+2, FT2+1, FT2+3

Naked Globals

Name	Field # of Occurrence
^(	ST1+6, FT1+1, FT2+2
^(0	ST1+3, ST1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BEG+2*
>> %DT("A"	BEG+2, BEG+3
>> %DT(0	BEG+2*
%ZIS	DEV!*
BEGDATE	BEG+2*, START+2, EXIT!, HD+6
DD	DTC~*, DTC+1
DIR	EXIT!, HD+1!
DIR("A"	HD+1*
DIR(0	HD+1*
DIROUT	EXIT!
DIRUT	ST1, ST1+1, ST1+2, DET, DET+1, DET+6, DET+7, DET+9, DET+10, DET+11 , EXIT!, HD+2
DT	BEG+2, HD+4
DTOUT	BEG+2, BEG+3, EXIT!
DUOUT	EXIT!
ENDDATE	BEG+3, ST1, EXIT!, HD+6, DTC+1
>> G	DEV+2*
I	DET+7, EXIT!, GETR+4, GETR+5
IO	ST1+7
IO("Q"	DEV+1, DEV+3!
IOF	HD+3, HD+4
ION	DEV
IOP	DEV!*
IOSL	DET+9, DET+10, DET+12
IOST	START+2, ST1+5, HD+1, HD+3
J	DET, DET+1, DET+2, DET+3, DET+5, DET+6, EXIT!, GETR+1, GETR+2, GETR+4 , GETR+5, GETR+6, GETR+8
K	EXIT!, GETR+1, GETR+2, GETR+3, GETR+5, GETR+7, GETR+8
L	DET+1*, DET+2, DET+4, DET+5, DET+6, EXIT!
M	DET+6*, EXIT!
MM	DTC~*
POP	DEV!
PSO2	START~, ST1+6*
PSOC	START~, FT1+1, FT1+2, FT2+2, FT2+3
PSOCNT	START~, ST1+7*
PSODR	START~, ST1+3, ST1+4, DET+2, DET+3, DET+5, DET+6, FT1+1, FT2+1, FT2+2 , PRD+1, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5, GETR+7 , GETR+8
PSODRN	START~, PRD+1*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5 , GETR+7, GETR+8
PSODS	START~, ST1+6, FT1+1, FT1+2, FT2+2, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7 , GETR+2, GETR+3, GETR+5, GETR+7, GETR+8
PSODT	START~, START+2, ST1, ST1+1, ST1+2
PSOION	DEV*!, DEV+1!
PSOJ	START~, ST1+6*
PSOL	START~, FT1+1, FT2+2
PSOPG	START~, ST1+7, HD+1, HD+3, HD+4
PSOPR	START~, PRD+1*, PRD+2, PRD+7, GETR+5, GETR+7, GETR+8
PSORF	START~, ST1+2*
PSORX0	START~, ST1+3*, PRD+1
PSORXN	START~, ST1+1*, ST1+2, ST1+3, ST1+6
PSOU	START~, ST1+6*, FT1+2
PSOY	START~
Q	START+2, ST1+5, DET+1, DET+3, DET+5, EXIT!
T	DET+8*, DET+9, EXIT!
TY	START~, START+1*, ST1+8, DET, DET+1, DET+2, DET+5, DET+6, EXIT, PRD+3 , PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5, GETR+7, GETR+8
X	EXIT!, GETR+4*, GETR+5, DTC
>> X1	DTC*
>> X2	DTC*
XX	DET+7*, DET+8, EXIT!
Y	BEG+2, BEG+3, EXIT!, GETR+3, GETR+4, GETR+7, HD+4, HD+6, HD+8, DTC , DTC+1
YY	DET+6*, DET+7, EXIT!
>> ZTDESC	DEV+2*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	DEV+2*
>> ZTSAVE(	DEV+2*
ZTSK	DEV!, DEV+3!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOFTDR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
FT1	;check for possible dosages. If does not match report
PRD	;
FT2	;check for local possible dosages. If does not exist report
DTC
DET
BEG
DEV
START
EXIT
ST1
GETR	;
HD	;