Routine: DG837PST

Package	Total	Call Graph
VA FileMan	8	C^%DTC TURNON^DIAUTL (FILE,UPDATE)^DIE ^DIK $$VFILE^DILFD $$GET1^DIQ ^DIR EN^DIU2
Kernel	4	^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT ($$PATCH,BMES)^XPDUTL $$STA^XUAF4
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
IDFLD	;MVI_876 (ptd) - Turn on Audit for the new DoD identification fields
ALIAS	;MVI_805 (elz) - clean up Alias multiple in patient (#2) file.
AGAIN	;Line tag to be called if module needs to be run again.
EP	;MVI_791 (ckn) - Post install routine entry point for TF conversion process
QUE	;Queue the process
CHECK()	;Initial check
PROCESS	;
MAIL	;Send Mail message
STRTAGN	;Re run of process in case of process is stopped
STOP	;Stop the process
DELDD	;MVI_791 (ptd) - Delete obsolete fields in #391.91 file and 391.92.

External References

Name	Field # of Occurrence
C^%DTC	PROCESS+3
^%ZTLOAD	QUE+4
TURNON^DIAUTL	IDFLD+4, IDFLD+6
FILE^DIE	AGAIN+10, PROCESS+17, PROCESS+22, PROCESS+29
UPDATE^DIE	PROCESS+47
^DIK	PROCESS+50, DELDD+17
$$VFILE^DILFD	DELDD+23, DELDD+30
$$GET1^DIQ	PROCESS+19, PROCESS+41
^DIR	CHECK+7, STOP+5
EN^DIU2	DELDD+25, DELDD+33
$$SITE^VASITE	MAIL+3
$$DT^XLFDT	PROCESS+5
$$FMTE^XLFDT	MAIL+15, MAIL+17
$$NOW^XLFDT	CHECK+3, CHECK+12, PROCESS+52, PROCESS+53
^XMD	MAIL+20
$$PATCH^XPDUTL	IDFLD+2, ALIAS+2
BMES^XPDUTL	IDFLD+5, IDFLD+7, AGAIN+2, AGAIN+11, AGAIN+12, CHECK+1, CHECK+3, CHECK+4, CHECK+5, CHECK+13 , DELDD+12, DELDD+19, DELDD+27, DELDD+31, DELDD+35
$$STA^XUAF4	PROCESS+13, PROCESS+19, PROCESS+40, PROCESS+41

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHECK+7
Function Call: WRITE	Prompt: !!,"Stop process" Line Location: STOP+1
Function Call: WRITE	Prompt: !,"<< No process is currently running >>" Line Location: STOP+2
Function Call: WRITE	Prompt: !,"<< Process already completed >>" Line Location: STOP+3
Function Call: WRITE	Prompt: !!,"Process is currently running." Line Location: STOP+4
Function Call: WRITE	Prompt: ! Line Location: STOP+5
Routine Call	DIE Line Location: AGAIN+10 PROCESS+17 PROCESS+22 PROCESS+29
Routine Call	DIE Line Location: PROCESS+47
Routine Call	DIR Line Location: CHECK+7 STOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	TURNON^DIAUTL
^DGCN(391.92 - [#391.92]	VFILE^DILFD
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCN(391.91 - [#391.91]	PROCESS+4, PROCESS+7, PROCESS+10, PROCESS+12, PROCESS+15, PROCESS+16, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+31 , PROCESS+33, PROCESS+43, PROCESS+44, PROCESS+50
^DPT - [#2]	AGAIN+7, AGAIN+8
^DPT("B"	AGAIN+4
^TMP("DG837PST"	AGAIN+3!, AGAIN+4*, AGAIN+5, AGAIN+13!
^XTMP("DG837PST"	QUE+5, CHECK+3, CHECK+4, CHECK+5, CHECK+9, CHECK+10!, CHECK+11, CHECK+12, PROCESS+4, PROCESS+5 , PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+52, PROCESS+53, MAIL+10, MAIL+15, MAIL+17, MAIL+19, STOP+2 , STOP+3, STOP+6

Label References

Name	Line Occurrences
$$CHECK	EP+3, STRTAGN+3
ALIAS	DG837PST+3
DELDD	PROCESS+55
EP	DG837PST+4
IDFLD	DG837PST+3
MAIL	PROCESS+54
QUE	EP+4, STRTAGN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PROCESS+50, PROCESS+51!, DELDD+16, DELDD+18!
DA(1	PROCESS+49, DELDD+16
DFN	AGAIN+1~, AGAIN+4, AGAIN+5, AGAIN+7, AGAIN+8, AGAIN+10, AGAIN+11
DGALIAS	AGAIN+6~, AGAIN+8*, AGAIN+9
DGALIAS(	AGAIN+9*
DGERR	AGAIN+1~
DGERR("DIERR"	AGAIN+11
DGNM	AGAIN+1~, AGAIN+4*
DGX	AGAIN+1~, AGAIN+7*, AGAIN+8, AGAIN+10
DIK	PROCESS+49, PROCESS+51!, DELDD+16, DELDD+18!
DIR	CHECK+7!, STOP+5!, STOP+7!
DIR("A"	CHECK+7, STOP+5
DIR("B"	CHECK+7, STOP+5
DIR(0	CHECK+7, STOP+5
DIU	DELDD+24, DELDD+26!, DELDD+32, DELDD+34!
DIU(0	DELDD+24, DELDD+32
DT	PROCESS+3
DUZ	MAIL+4
FDA	AGAIN+1~, PROCESS+1~, PROCESS+14~, PROCESS+18!, PROCESS+20~, PROCESS+23!, PROCESS+30!, PROCESS+48!
FDA(	AGAIN+10*
FDA(1	PROCESS+15, PROCESS+16, PROCESS+21, PROCESS+27, PROCESS+28, PROCESS+34, PROCESS+35, PROCESS+36, PROCESS+37, PROCESS+38 , PROCESS+39, PROCESS+40, PROCESS+42, PROCESS+45, PROCESS+46*
FDAIEN	PROCESS+1~, PROCESS+44~, PROCESS+48!
FLDNUM	IDFLD+3~, IDFLD+4, IDFLD+5, IDFLD+6, IDFLD+7
INITSTRT	CHECK+2~, CHECK+9*, CHECK+11
MIEN	PROCESS+1~, PROCESS+25, PROCESS+26, PROCESS+31, PROCESS+43, PROCESS+44
MSG	MAIL+1~
MSG(	MAIL+8, MAIL+16, MAIL+18*
MSG(1	MAIL+7*
MSG(10	MAIL+19*
MSG(2	MAIL+9*
MSG(3	MAIL+10*
MSG(4	MAIL+11*
MSG(5	MAIL+12*
MSG(6	MAIL+13*
MSG(7	MAIL+14*
MSG(8	MAIL+15*
MSG(9	MAIL+17*
NODE0	PROCESS+1~, PROCESS+33*, PROCESS+34, PROCESS+35, PROCESS+36, PROCESS+37, PROCESS+38, PROCESS+39
PATCH	MAIL+1~, MAIL+2*, MAIL+9
QFLG	PROCESS+1~, PROCESS+2, PROCESS+7, PROCESS+8, PROCESS+52
RESTART	EP+1~, EP+2, CHECK+6, STRTAGN+1~, STRTAGN+2
SITE	MAIL+1~, MAIL+3*
SITENM	MAIL+1~, MAIL+3*, MAIL+13
SNODE0	PROCESS+1~, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+44, PROCESS+45, PROCESS+46
STATN	MAIL+1~, MAIL+3*, MAIL+6, MAIL+12
TFIEN	PROCESS+1~, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+15, PROCESS+16, PROCESS+21, PROCESS+24 , PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+31, PROCESS+33, PROCESS+43, PROCESS+44, PROCESS+49, PROCESS+50
TMPST	PROCESS+11~, PROCESS+12, PROCESS+13, PROCESS+19, PROCESS+33, PROCESS+40, PROCESS+41
X	PROCESS+1~, PROCESS+5
X1	PROCESS+1~, PROCESS+3*
X2	PROCESS+1~, PROCESS+3*
XMDUZ	MAIL+1~, MAIL+5*
XMSUB	MAIL+1~, MAIL+6*
XMTEXT	MAIL+1~, MAIL+5*
XMY	MAIL+1~
XMY(	MAIL+4*
XMY("CHINTAN.NAIK@DOMAIN.EXT"	MAIL+4*
XMY("CHRISTINE.CHESNEY@DOMAIN.EXT"	MAIL+4*
XMY("PAULETTE.DAVIS@DOMAIN.EXT"	MAIL+4*
Y	CHECK+8, STOP+6, STOP+7!
ZTDESC	QUE+1~, QUE+2*
>> ZTDTH	QUE+3*
>> ZTIO	QUE+3*
>> ZTQUEUED	QUE+6
>> ZTREQ	QUE+6*
ZTRTN	QUE+1~, QUE+2*
ZTSK	QUE+1~, QUE+5

Customize PDF page

Package: Registration

Routine: DG837PST

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: