Routine: DGEN408

Information

DGEN408 ;ALB/RKS - SEED THE HEC ; 5/3/02 3:04pm

Source Information

Source file <DGEN408.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$NOW^XLFDT
VA Fileman	2	$$GET1^DIQ ^DIR
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
Uncategorized	1	($$GETICN,$$GETVCCI,$$IFLOCAL,$$IFVCCI,GETICN)^MPIF001

Entry Points

Name	Comments	DBIA/ICR reference
NOTIFY(DGDATA)	; Send notification message to local mailgroup.
SEND(DGDATA,DGMSG,DGDEST)	; Build and send individual mailman messages
EN	; Main entry point for collection of MPI fields & transmission to HEC
BUILD(DGEXTRCT,DGDATA,MAX,DGDEST)	; Build mailman messages of MPI data
QUE	;Background task entry point for Production option
COLLECT(DGEXTRCT,DGDATA)	; Collect valid MPI data
TEST	; Test entry point for development testing. This entry point is ; not supported for user use.

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+21
$$GET1^DIQ	SEND+13
^DIR	EN+11, TEST+7
$$GETICN^MPIF001	COLLECT+8, COLLECT+9
$$GETVCCI^MPIF001	COLLECT+10
$$IFLOCAL^MPIF001	COLLECT+8
$$IFVCCI^MPIF001	COLLECT+8
GETICN^MPIF001	EN+5
$$SITE^VASITE	QUE+6, TEST+12
$$NOW^XLFDT	EN+20
^XMD	SEND+21, NOTIFY+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,*7,">> There were no patient MPI" Line Location: EN+6
Function Call: WRITE	Prompt: !,"Task Number: ",ZTSK Line Location: EN+23
Function Call: WRITE	Prompt: !!,"COLLECTING DATA TO SEND TO "_DGDEST_"DQMGR...please wait..." Line Location: TEST+14
Routine Call	DIR Line Location: EN+11 TEST+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	COLLECT+7

Label References

Name	Line Occurrences
BUILD	QUE+10, TEST+16
COLLECT	QUE+9, TEST+15
NOTIFY	QUE+11, TEST+17
SEND	BUILD+21, BUILD+31
TEST	EN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	BUILD+1~, BUILD+13, BUILD+14, BUILD+16
DFN	COLLECT+1~, COLLECT+3, COLLECT+7, COLLECT+8, COLLECT+9, COLLECT+10
DGDATA	QUE+1~, QUE+9, QUE+10, QUE+11, TEST+2~, TEST+15, TEST+16, TEST+17, COLLECT~, BUILD~ , BUILD+21, BUILD+31, SEND~, NOTIFY~
DGDATA("MSG"	BUILD+20, BUILD+30, SEND+16, NOTIFY+12, NOTIFY+13
DGDATA("MSGNUM"	BUILD+19, BUILD+20, BUILD+29, BUILD+30, SEND+14, SEND+15, SEND+16, NOTIFY+7
DGDATA("NUMREC"	COLLECT+13*, BUILD+10, BUILD+11, SEND+17, NOTIFY+7
DGDATA("SITE"	QUE+6, TEST+12, SEND+13, SEND+15
DGDATA("TEST"	TEST+9*
DGDATA("TOSEND"	BUILD+10, BUILD+11, SEND+14, SEND+15
DGDEST	EN+2~, EN+13, EN+14, QUE+10, TEST+8, TEST+14, TEST+16, BUILD~, BUILD+21, BUILD+31 , SEND~, SEND+4, SEND+8
DGEXTRCT	QUE+1~, QUE+3, QUE+4, QUE+9, QUE+10, QUE+13, TEST+2~, TEST+10, TEST+11, TEST+15 , TEST+16, TEST+19, COLLECT~, COLLECT+9, COLLECT+10, BUILD~, BUILD+14, BUILD+16
DGMSG	BUILD+1~, BUILD+6*, BUILD+7, BUILD+16, BUILD+21, BUILD+22, BUILD+31, SEND~, SEND+15, SEND+16 , SEND+17, SEND+19
DGTXT	NOTIFY+1~
DGTXT(	NOTIFY+7, NOTIFY+8, NOTIFY+9, NOTIFY+13
DGX	BUILD+1~
DIR	EN+2~, EN+11!, TEST+3!, TEST+7!
DIR("?"	EN+9, EN+10, TEST+6*
DIR("A"	EN+8, TEST+5
DIR("B"	EN+8*
DIR(0	EN+8, TEST+4
DIRUT	EN+2~, EN+12, TEST+7
>> IVMQUERY("LTD"	QUE+7!
>> IVMQUERY("OVIS"	QUE+7!
LINE	TEST+2~, COLLECT+1~, COLLECT+3, COLLECT+9, COLLECT+10, COLLECT+11, COLLECT+13, BUILD+1~, BUILD+13, BUILD+15 , BUILD+16, BUILD+18, BUILD+20, BUILD+23*, BUILD+26, BUILD+30
MAX	BUILD~, BUILD+3, BUILD+4, BUILD+10, BUILD+11, BUILD+18
MSG	SEND+1~, SEND+19*
TMP	SEND+7~, SEND+8*, SEND+9
U	QUE+6, TEST+12, COLLECT+9, SEND+15, SEND+16
>> X	NOTIFY+11, NOTIFY+12, NOTIFY+13
XMDUZ	SEND+1~, SEND+3, NOTIFY+1~, NOTIFY+3
XMERR	SEND+1~, NOTIFY+1~
XMSUB	SEND+1~, SEND+13, SEND+14, NOTIFY+1~, NOTIFY+5*
XMTEXT	SEND+1~, SEND+18, NOTIFY+1~, NOTIFY+14
XMY	SEND+1~, NOTIFY+1~
XMY(	SEND+9, SEND+11
XMY("G.IVMB H	EC MPI NOTIFICATION" , SEND+12, NOTIFY+4
XMY("S.IVMB M	PI SERVER@IVM.MED.VA.GOV" , SEND+5*
XMZ	SEND+1~, NOTIFY+1~
>> Y	EN+13, TEST+8
ZTDESC	EN+2~, EN+18*
ZTDTH	EN+2~, EN+20*
ZTIO	EN+2~, EN+19*
ZTRTN	EN+2~, EN+17*
ZTSAVE	EN+2~
ZTSAVE("DGDEST"	EN+16*
ZTSK	EN+2~, EN+23

Customize PDF page

Package: Registration

Routine: DGEN408

Call Graph Total: 7