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+20
GETS^DIQ	OENDL+24
^DIR	OENDL+39, TYPE+5, YN+1
OENDL^PSODEARU	EXPORT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," ************* NO MATCHING DATA *************",!! Line Location: OENDL+15
Function Call: WRITE	Prompt: !,$TR(HEADER,"^","\|") Line Location: OENDL+18
Function Call: WRITE	Prompt: !,$TR(RECORD,"^","\|") Line Location: OENDL+38
Function Call: WRITE	Prompt: !!,"End of Report. If 'Logging', please turn off 'Logging'.",! Line Location: OENDL+39
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: !,"\|Date Edited" 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+39 TYPE+5 YN+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	OENDL+27
^DD("DD"	OENDL+29, OENDL+30, OENDL+34
^TMP($J	OENDL+5!, OENDL+17, OENDL+37
^VA(200 - [#200]	OENDL+11
^XTMP(	OENDL+5!, OENDL+13*, OENDL+14, OENDL+19, OENDL+21, OENDL+22
^XTV(	OENDL+6, OENDL+7, OENDL+8, OENDL+9, OENDL+23

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

Customize PDF page

Package: Outpatient Pharmacy