Routine: PSODEARU

Information

PSODEARU ;WILM/BDB - EPCS Utilities and Reports; [5/7/02 5:53am] ;10/5/21 14:50

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR
Kernel	1	^%ZIS
Outpatient Pharmacy	1	OENDL^PSODEARU

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSODEART PSODEARU

Entry Points

Name	Comments	DBIA/ICR reference
OENDL(PSONS,BDT,EDT,FN)	;
EXPORT(PSONS,BDT,EDT,FN)	;Put in delimited format for exporting to Excel
TYPE	;Prompt for report format or delimited list
DL	;Delimited File message
YN	;yes or no prompt if no audited fields found for a file

External References

Name	Field # of Occurrence
^%ZIS	OENDL+1
$$GET1^DIQ	OENDL+21
GETS^DIQ	OENDL+25
^DIR	OENDL+41, TYPE+5, YN+1
OENDL^PSODEARU	EXPORT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," ************* NO MATCHING DATA *************",!! Line Location: OENDL+16
Function Call: WRITE	Prompt: !,$TR(HEADER,"^","\|") Line Location: OENDL+19
Function Call: WRITE	Prompt: !,$TR(RECORD,"^","\|") Line Location: OENDL+40
Function Call: WRITE	Prompt: !!,"End of Report. If 'Logging', please turn off 'Logging'.",! Line Location: OENDL+41
Function Call: WRITE	Prompt: ! Line Location: TYPE+1
Function Call: WRITE	Prompt: !!,"You have selected the delimited file output." Line Location: DL+2
Function Call: WRITE	Prompt: @IOF Line Location: DL+3
Function Call: WRITE	Prompt: !,"The report output will be displayed on the screen in a delimited format, so" Line Location: DL+4
Function Call: WRITE	Prompt: !,"it can be captured and exported. If you are using Reflections, you can turn" Line Location: DL+5
Function Call: WRITE	Prompt: !,"logging on by selecting 'Tools' on the top of the screen, then" Line Location: DL+6
Function Call: WRITE	Prompt: !,"select 'Logging' and capture to your desired location. To avoid undesired" Line Location: DL+7
Function Call: WRITE	Prompt: !,"wrapping, you may need to set your terminal session display settings to" Line Location: DL+8
Function Call: WRITE	Prompt: !,"180 columns. Please enter '0;180;9999' at the 'DEVICE:' prompt. Lines" Line Location: DL+9
Function Call: WRITE	Prompt: !,"may need to be deleted at the top and bottom of the logged file before" Line Location: DL+10
Function Call: WRITE	Prompt: !,"importing." Line Location: DL+11
Function Call: WRITE	Prompt: !!,"The format of the output is as follows, using '\|' as the delimiter:" Line Location: DL+12
Function Call: WRITE	Prompt: !,"Division\|Provider Name\|Edited by Name\|Field Name\|Original Data\|Edited Data" Line Location: DL+13
Function Call: WRITE	Prompt: !,"\|Source File\|Date Edited\|DEA Number" Line Location: DL+14
Function Call: WRITE	Prompt: ! Line Location: YN+1
Routine Call	%ZIS Line Location: OENDL+1
Routine Call	DIR Line Location: OENDL+41 TYPE+5 YN+1

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	OENDL+28
^DD("DD"	OENDL+30, OENDL+31, OENDL+36
^TMP($J	OENDL+5!, OENDL+18, OENDL+39
^VA(200 - [#200]	OENDL+12
^XTMP(	OENDL+5!, OENDL+14*, OENDL+15, OENDL+20, OENDL+22, OENDL+23
^XTV(	OENDL+6, OENDL+7, OENDL+8, OENDL+9, OENDL+24

Label References

Name	Line Occurrences
YN	DL+2, DL+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	OENDL+1!*
ARR	OENDL+2~
BDT	OENDL~, OENDL+6, EXPORT~, EXPORT+3
DA	OENDL+3~, OENDL+23*, OENDL+24, OENDL+25, OENDL+26, OENDL+27, OENDL+33, OENDL+34
>> DAT	OENDL+9*, OENDL+10, OENDL+11
DATA	OENDL+3~, OENDL+24*, OENDL+30, OENDL+31, OENDL+36, OENDL+37
DEA	OENDL+4~, OENDL+37*, OENDL+38
DIR	OENDL+41!, TYPE+1!, TYPE+5!, YN+1!
DIR("?"	TYPE+2, TYPE+3
DIR("A"	OENDL+41, TYPE+4, YN+1*
DIR(0	OENDL+41, TYPE+1, YN+1*
DIRUT	OENDL+3!, OENDL+22, OENDL+23, TYPE+5
DIVDA	OENDL+3~, OENDL+20*, OENDL+21, OENDL+22, OENDL+23
>> DTOUT	YN+2
>> DUOUT	YN+2
DV	OENDL+2~, OENDL+12*, OENDL+14
DVS	OENDL+2~, OENDL+12, OENDL+13
EDITDATE	OENDL+4~, OENDL+36*, OENDL+38
EDITOR	OENDL+4~, OENDL+27*, OENDL+38
EDT	OENDL~, OENDL+6, EXPORT~, EXPORT+3
FE	OENDL+2~, OENDL+24*, OENDL+28, OENDL+29, OENDL+32, OENDL+35
FLDNAME	OENDL+4~, OENDL+28*, OENDL+38
FN	OENDL~, OENDL+6, OENDL+7, OENDL+8, OENDL+9, OENDL+10, OENDL+24, OENDL+25, OENDL+26, OENDL+27 , OENDL+33, OENDL+34, EXPORT~, EXPORT+3
FSP	OENDL+2~
GUIFLAG	OENDL+1, OENDL+18, OENDL+19, OENDL+39, OENDL+40, OENDL+41, EXPORT+1~, EXPORT+2*
HCL	OENDL+2~
HEADER	OENDL+3~, OENDL+17*, OENDL+18, OENDL+19
I	OENDL+2~
IEN	OENDL+3~, OENDL+11, OENDL+12, OENDL+24
IO	OENDL+16, OENDL+19
IOF	DL+3
ION	OENDL+1
IOP	OENDL+1!*
J	OENDL+2~
>> LD	OENDL+6*, OENDL+7, OENDL+14
LEN	OENDL+2~
LINE	OENDL+2~
>> ND	OENDL+7*, OENDL+8, OENDL+9, OENDL+14
NEWVAL	OENDL+4~, OENDL+31, OENDL+34, OENDL+38
OLDVAL	OENDL+4~, OENDL+30, OENDL+33, OENDL+38
PAGE	OENDL+2~
>> POP	OENDL+1
PROVNAME	OENDL+4~, OENDL+26*, OENDL+38
PSODIV	OENDL+3~, OENDL+21*, OENDL+38
>> PSOION	OENDL+1*
PSONS	OENDL~, OENDL+5, OENDL+14, OENDL+15, OENDL+20, OENDL+22, OENDL+23, EXPORT~, EXPORT+3
PSOOUT	TYPE+5, DL+2, YN+1!, YN+2
>> PSOTYP	TYPE+6*
RDT	OENDL+2~
>> RECORD	OENDL+38*, OENDL+39, OENDL+40
RHD	OENDL+2~
ROW	OENDL+18, OENDL+39, EXPORT+1~
SRCFILE	OENDL+4~, OENDL+35*, OENDL+38
START	OENDL+3~, OENDL+22*, OENDL+23
U	OENDL+28, OENDL+38
XTV	OENDL+2~
XTV(	OENDL+26, OENDL+27, OENDL+33, OENDL+34
Y	OENDL+30, OENDL+31, OENDL+36*, TYPE+1!, TYPE+6, YN+1!, YN+2

Customize PDF page

Package: Outpatient Pharmacy