Routine: HDISDSR1

Information

HDISDSR1 ;BPFO/DTG - HDI MAILMAN SERVER COLLECT SDO DATA; Apr 07, 2018@12:42

Package	Total	Call Graph
Kernel	3	^%ZISC $$UP^XLFSTR $$DEC^XLFUTL
Health Data and Informatics	1	CLEAN^HDISDSR
MailMan	1	SENDMSG^XMXAPI
Registration	1	$$SITE^VASITE
VA FileMan	1	$$GET1^DIQ

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	HDISDSRL

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; initialize vars and file
MAILSEND(HDISUBJ)	; Send extract back to requestor.
ENCODE(HDISTR)	; Encode a string, keep remainder for next line ; Call with ORSTR by reference, Remainder returned in LRSTR
UUEN(STR)	; Uuencode string passed in.
UUBEGFN(HDFILENM)	; Construct uuencode "begin" coding ; Call with HDFILENM = name of uuencoded file attachment ; ; Returns HDIX = string with "begin..."_file name
SETDATA	; Set data into report structure
CLEAN	; clean up
DISER	; display return error type
DISTXT	; error text

External References

Name	Field # of Occurrence
^%ZISC	CLEAN+2
$$GET1^DIQ	INIT+12
CLEAN^HDISDSR	CLEAN+1
$$SITE^VASITE	INIT+7
$$UP^XLFSTR	INIT+10
$$DEC^XLFUTL	UUEN+9
SENDMSG^XMXAPI	MAILSEND+11

FileNo	Call Tags
^XMB(1 - [#4.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DTGHD("A"	MAILSEND+12*
^TMP($J	SETDATA+1

Label References

Name	Line Occurrences
$$UUBEGFN	DISER+7
$$UUEN	ENCODE+7, DISER+14
ENCODE	SETDATA+3
SETDATA	DISER+9, DISER+10, DISER+12, DISER+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	INIT+12~, MAILSEND+2~, MAILSEND+12, DISER+2~, DISER+4, DISER+10, DISER+13*
B	INIT+12~*, INIT+13, DISER+2~
B(	DISER+4*, DISER+10
HDFILENM	UUBEGFN~, UUBEGFN+6
>> HDICRLF	INIT+5*, DISER+8, DISER+10, DISER+12, DISER+13
>> HDIFER	DISER+7
HDII	UUEN+1~, UUEN+3*, UUEN+4
>> HDIJB	INIT+5*
>> HDILEN	ENCODE+3*, ENCODE+8
>> HDIMAX	INIT+13*
>> HDINODE	ENCODE+7, SETDATA+1, SETDATA+2, DISER+14, DISER+15, DISER+16
HDINSTR	MAILSEND+2~, MAILSEND+11
HDINSTR("ADDR	FLAGS" , MAILSEND+8*
HDINSTR("FROM"	MAILSEND+9*
>> HDIQUIT	ENCODE+3, ENCODE+4, ENCODE+5
>> HDISITE	INIT+7*
>> HDIST	INIT+7, INIT+8
>> HDISTN	INIT+7*
HDISTR	INIT+6, ENCODE~, ENCODE+3, ENCODE+5, ENCODE+6, ENCODE+8, SETDATA+2, SETDATA+3, DISER+8, DISER+10* , DISER+12, DISER+13, DISER+14
>> HDISUB	INIT+10*
HDISUBJ	MAILSEND~, MAILSEND+10*, MAILSEND+11
>> HDISV	INIT+4, ENCODE+7, SETDATA+2, DISER+6, DISER+7, DISER+14, DISER+15, DISER+16
>> HDITAB	INIT+5*
HDITASK	MAILSEND+2~, MAILSEND+11, MAILSEND+12
HDITO	MAILSEND+2~, MAILSEND+11
HDITO(	MAILSEND+7*
>> HDITXT	INIT+5*, SETDATA+2, SETDATA+3
HDIX	ENCODE+6, ENCODE+7, UUEN+1~, UUEN+4, UUEN+5, UUEN+6, UUBEGFN+5~, UUBEGFN+6, UUBEGFN+7
I	DISER+2~, DISER+4*
J	UUEN+1~, UUEN+9, UUEN+10, DISER+2~, DISER+6, DISER+7
K	UUEN+1~, UUEN+7, UUEN+8, UUEN+9
LEN	UUEN+1~, UUEN+2*, UUEN+3, UUEN+11
>> LT	ENCODE+6*
MSG	DISER+2~
>> RERRARY(	DISER+13
>> RERRARY(0	DISER+11
>> RERROR	DISER+1, DISER+4
RR	DISER+2~
S	UUEN+1~, UUEN+6*, UUEN+7
STR	UUEN~, UUEN+2, UUEN+4
TMP	UUEN+1~, UUEN+2, UUEN+10, UUEN+11*, UUEN+12
U	INIT+5*
X	UUEN+1~
XMERR	MAILSEND+2~
XMZ	MAILSEND+2~
>> XQSND	MAILSEND+7
>> XQSUB	INIT+10
Y	UUEN+1~, UUEN+6, UUEN+7, UUEN+9

Marked Items

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

Customize PDF page

Package: Health Data and Informatics