Routine: HDISDOL

Information

HDISDOL ;BPFO/DTG - LOOK UP SDO CODES FOR ORDERABLE ITEMS; Apr 07, 2018@12:42

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD BMES^XPDUTL
VA FileMan	3	LIST^DIC EN^DIQ1 ^DIR
Health Data and Informatics	1	$$EN^HDISDOC
List Manager	1	CLEAR^VALM1

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: 1

Package	Total	Caller Graph
Health Data and Informatics	1	HDISDO REQUEST SDO

Entry Points

Name	Comments	DBIA/ICR reference
EN	; lookup orderable items for lab ; pick area
AREA	; only for Lab
ASK	; partial, all, or item
ALL	;get all of the orderable items for an area
SING	; single lookup select
PART	; enter partial name for lookup
P2
INFO	; Display message, clear screen
INFOQS	; display quick stats for data return
INFOL	; Display Lab message, clear screen
INFOO	; output quick stats
QUIT	; exit here
CHKO(HOI)	;check if order belongs to the correct area
GETNAM(A)	; get orderable item name if single order
GOTO	; ; display quick summary
TYPE	; determine output format
DEVICE
DASK	; double dare for local device if type is ALL
DISER	; display return error type
DISTXT	; error text

External References

Name	Field # of Occurrence
^%ZIS	DEVICE
HOME^%ZIS	DEVICE+1
^%ZISC	DEVICE+10
^%ZTLOAD	DEVICE+9
LIST^DIC	PART+10, CHKO+2
EN^DIQ1	GETNAM+3
^DIR	ASK+8, SING+6, PART+6, INFOO+5, TYPE+8, DASK+6
$$EN^HDISDOC	ALL+5, SING+15, P2+4
CLEAR^VALM1	INFO+5, INFOO+1
BMES^XPDUTL	INFO+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Type Not Selected." Line Location: ASK+9
Function Call: WRITE	Prompt: !,*7,"Invalid Type Entered." Line Location: ASK+10
Function Call: WRITE	Prompt: !,*7,"Type Not Selected. Quiting" Line Location: ASK+15
Function Call: WRITE	Prompt: !,*7," Collecting SDO's",! Line Location: ALL+4
Function Call: WRITE	Prompt: *7,!,"Invalid Item" Line Location: SING+8
Function Call: WRITE	Prompt: *7,!,"Orderable Item NOT Associated to Selected Area: LABORATORY" Line Location: SING+13
Function Call: WRITE	Prompt: *7,!!," None of The Partial Matches Are Associated to The Selected Area: LABORATORY" Line Location: P2+0
Function Call: WRITE	Prompt: !,*7," Collecting SDO's",! Line Location: P2+2
Function Call: WRITE	Prompt: !,MSG(A) Line Location: INFOO+2
Function Call: WRITE	Prompt: !,*7,"Output Type Not Selected" Line Location: TYPE+9
Function Call: WRITE	Prompt: !,*7,"Valid Type Not Selected. Default to Report" Line Location: TYPE+10
Function Call: WRITE	Prompt: !,*7,"No Device Selected" Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,*7,"....Outputting...",!! Line Location: DEVICE+11
Routine Call	%ZIS Line Location: DEVICE
Routine Call	%ZIS Line Location: DEVICE+1
Routine Call	DIC Line Location: PART+10 CHKO+2
Routine Call	DIR Line Location: ASK+8 SING+6 PART+6 INFOO+5 TYPE+8 DASK+6

FileNo	Call Tags
^ORD(101.43 - [#101.43]	LIST^DIC
101.439	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("HDIOUT"	TYPE+15
^UTILITY("DIQ1"	GETNAM+3!

Label References

Name	Line Occurrences
$$CHKO	SING+12, PART+16
$$GETNAM	SING+14
@(	DEVICE+12
ALL	ASK+12
AREA	ALL+9
ASK	ASK+10, ALL+6, SING+7, PART+7
DASK	DEVICE+3
DEVICE	DEVICE+3
DISER	ALL+7, SING+17, P2+6
GOTO	ALL+8, SING+18, P2+7
INFO	EN+5
INFOL	INFOQS+10
INFOO	INFOL+15, DISER+10
INFOQS	GOTO+2
P2	PART+15
PART	ASK+13, P2, P2+5, P2+8
QUIT	ASK+9, ASK+15
SING	ASK+14, SING+8, SING+13, SING+16, SING+19
TYPE	GOTO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE*
>> %ZIS("A"	DEVICE*
A	EN+2~, ALL+7, SING+10, SING+17, PART+11, PART+12, PART+15, PART+16, P2+6, INFOQS+1~ , INFOQS+2, INFOQS+3, INFOQS+5, INFOQS+6, INFOQS+7, INFOQS+8, INFOO+2~, QUIT+2!, CHKO+1~, CHKO+5! , GETNAM~, GETNAM+2, TYPE+15, DEVICE+5, DASK+1~, DISER+2~, DISER+3, DISER+5, DISER+7*, DISER+9!
AA	EN+3~, PART+14!, CHKO+1~, CHKO+2!, CHKO+3!, CHKO+5!
AA("DILIST"	PART+11, PART+12, CHKO+3
AB	PART+11!, PART+17!
AB(	PART+13*, PART+15, PART+16
AR	CHKO+1~, CHKO+3!*, CHKO+5!
AR(	CHKO+4
B	EN+2~, INFOQS+1~, INFOQS+3, INFOQS+4, INFOQS+8, INFOQS+9, QUIT+2!, CHKO+1~, CHKO+4*, CHKO+5! , DASK+1~, DISER+2~
B(	DISER+3*, DISER+5
BB	EN+3~
C	EN+2~, QUIT+2!, GETNAM+1~, GETNAM+3*, DASK+1~
CC	EN+3~
COUNT	EN+2~, ALL+2, SING+2, PART+2*, INFOL+1, INFOL+2, INFOL+3, INFOL+4, INFOL+5, INFOL+6 , INFOL+7, INFOL+8, INFOL+9, INFOL+10, INFOL+11, INFOL+12, INFOL+13, QUIT+2!
>> D	PART+12*, PART+13
DA	EN+2~, SING+1!, PART+1!, QUIT+2!, GETNAM+1~, GETNAM+2*, GETNAM+4, TYPE+1!
DD	EN+3~
DIC	GETNAM+1~, GETNAM+3*
DIE	EN+2~, QUIT+2!
DIQ	GETNAM+1~, GETNAM+3*
DIQ(0	GETNAM+3*
DIR	EN+2~, ASK+1!, SING+1!, PART+1!, INFOO+3~, QUIT+2!, TYPE+1!, DASK+1~, DASK+2!
DIR("?"	ASK+7, PART+5, TYPE+7, DASK+4
DIR("A"	ASK+2, SING+4, PART+3, INFOO+4, TYPE+2, DASK+3
DIR("B"	INFOO+4, DASK+5
DIR("L"	ASK+4, ASK+5, ASK+6, TYPE+4, TYPE+5, TYPE+6
DIR("S"	SING+5*
DIR(0	ASK+3, SING+3, PART+4, INFOO+4, TYPE+3, DASK+3
DIRUT	EN+2~, ASK+1!, ASK+9, SING+1!, SING+7, PART+1!, PART+7, INFOO+3~, QUIT+2!, TYPE+1! , TYPE+9, DASK+1~, DASK+2!, DASK+7
DR	GETNAM+1~, GETNAM+3*
DT	TYPE+15, TYPE+16
E	PART+12, PART+13, CHKO+1~, CHKO+4, CHKO+5!
ERR	EN+2~, ALL+1!, ALL+2, ALL+5, ALL+6, ALL+7, SING+2, SING+15, SING+16, SING+17 , PART+2, P2+4, P2+5, P2+6, QUIT+2!, DISER+1, DISER+3
ERRARY	ALL+1!, SING+2!, PART+2!
ERRARY(	DISER+7
ERRARY(0	DISER+6
>> F	PART+12*
HDAR	EN+2~, AREA+2*, SING+15, P2+4, QUIT+2!, CHKO+4, DEVICE+6
HDIAR	EN+2~, AREA+1*, ALL+5, INFOQS+2, QUIT+2!, CHKO+4, TYPE+13
HDICRT	EN+2~, QUIT+3!, DEVICE+2*, DEVICE+3, DEVICE+11
HDIGO	EN+2~, QUIT+3!, TYPE+13*, DEVICE+5, DEVICE+12
HDIPART	EN+3~, EN+4, P2+3, INFOQS+6, QUIT+4!
HDISING	EN+3~, EN+4*, QUIT+4!
HDISP	EN+3~, EN+4*, INFOQS+3, INFOQS+8, QUIT+4!
HDITSK	EN+2~, QUIT+3!, TYPE+15*
HDITYPE	EN+2~, QUIT+3!, TYPE+11*, DEVICE+3
HOI	CHKO~, CHKO+2
HOK	EN+2~, SING+12*, SING+13, QUIT+3!
HTYP	EN+2~, ASK+1, ASK+11, ASK+12, ASK+13, ASK+14, INFOQS+2, INFOQS+5, INFOQS+6, INFOQS+7 , QUIT+3!, DEVICE+3
I	EN+2~, AREA+4, ALL+7, SING+17, P2+6, QUIT+2!, TYPE+15, DEVICE+8, DISER+2~, DISER+3* , DISER+5, DISER+7, DISER+8, DISER+9!
IO("Q"	DEVICE+4
IOST	DEVICE+2
LAB	EN+2~, QUIT+2!
LAB(	AREA+4*
LRCNT	INFOO+3~
LREND	INFOO+3~
LRST	INFOO+3~
LRSTN	INFOO+3~
LRSUB	INFOO+3~
LRTXT	INFOO+3~
LRVAL	INFOO+3~
MSG	EN+2~, INFO+1~, INFO+6, INFOQS+1~!, QUIT+2!, DISER+2~
MSG(	INFOO+2, DISER+5, DISER+7, DISER+8*
MSG(1	INFO+2, INFOQS+4, DISER+2*
MSG(10	INFOL+8*
MSG(11	INFOL+9*
MSG(12	INFOL+10*
MSG(13	INFOL+11*
MSG(14	INFOL+12*
MSG(15	INFOL+13*
MSG(16	INFOL+14*
MSG(2	INFO+3, INFOQS+9
MSG(3	INFOL+1*
MSG(4	INFO+4, INFOL+2
MSG(5	INFOL+3*
MSG(6	INFOL+4*
MSG(7	INFOL+5*
MSG(8	INFOL+6*
MSG(9	INFOL+7*
OB	GETNAM+1~
OB(	GETNAM+4
>> OIEN	SING+9*, SING+12, SING+14, SING+15, INFOQS+7
OIENAM	EN+3~, EN+4, SING+14, INFOQS+7, QUIT+4!
>> OK	ALL+6, ALL+7, SING+16, SING+17, PART+15, PART+16, P2, P2+5, P2+6, CHKO+2* , CHKO+4, CHKO+6, DEVICE+3, DASK+7, DASK+8, DASK+9*
>> PART	PART+9*, PART+10, PART+13
PHM	EN+2~, QUIT+2!
>> POP	DEVICE+1
RET	EN+2~, EN+4*, ALL+2, ALL+5, SING+2, SING+15, PART+2, P2+4, QUIT+1, QUIT+2! , TYPE+16
>> RET1	TYPE+16*
>> SINGM	SING+10*, SING+15
U	SING+10, INFOL+1, INFOL+2, INFOL+3, INFOL+4, INFOL+5, INFOL+6, INFOL+7, INFOL+8, INFOL+9 , INFOL+10, INFOL+11, INFOL+12, INFOL+13
X	SING+7, SING+10, INFOO+3~
Y	EN+2~, ASK+1!, ASK+9, ASK+10, ASK+11, SING+8, SING+9, SING+10, PART+7, PART+9 , P2+3, P2+4, INFOO+3~, QUIT+2!, TYPE+9, TYPE+10*, TYPE+11, DASK+1~, DASK+8
ZERR	ALL+1!
ZTDESC	DEVICE+4~, DEVICE+6*
ZTDTH	DEVICE+4~, DEVICE+5*
ZTIO	DEVICE+4~, DEVICE+7!
ZTRTN	DEVICE+4~, DEVICE+5*
ZTSAVE	DEVICE+4~
ZTSAVE(	DEVICE+8*
>> ZTSK	DEVICE+4

Marked Items

Name	Field # of Occurrence
$T(DISTXT+A	DISER+5

Customize PDF page

Package: Health Data and Informatics