Routine: DG53688P

Information

DG53688P ;ALB/CKN,BAJ,ERC - Patch DG*5.3*688 Install Utility Routine ; 8/15/08 12:03pm

Source Information

Source file <DG53688P.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	4	START^DG53688A START^DG53688B ($$ADD,$$UPD)^DGENDBS $$SITE^VASITE
VA Fileman	3	(FILE,UPDATE)^DIE ENALL^DIK $$GET1^DIQ
Kernel	2	($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
HECMSG	; Send message to HEC Legacy that install is complete.
ENRSTAT()	;Add NOT APPLICABLE to the Enrollment Status file (#27.15)
88()	; Add entry #88 TEMP. ADDRESS DATA INCOMPLETE
ERR	;set error message into DGMSG for installation message
506()	; Update entry #506 in the INCONSISTENT DATA ELEMENTS file (#38.6)
CHKSTAT	;check to see if existing NOT APPLICABLE entry has "N" for .02 field
ISTHERE(FILE,DGDATA,GLOBAL)	;
NEWSTAT	;set .01 and .02 fields ; .01 - NOT APPLICABLE ; .02 - N:NOT ENROLLED
MSG(DGB)	;generate installation message
TEXT	;FILE#;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....
SETSTAT	;set .02 field (Enr Category) to "N" (Not Enrolled) on existing N/A entry
EP	;Entry point - Driver
CREF	;index fuile #35 with new "C" cross reference

External References

Name	Field # of Occurrence
START^DG53688A	EP+4
START^DG53688B	EP+5
$$ADD^DGENDBS	EP+15
$$UPD^DGENDBS	506+11
FILE^DIE	SETSTAT+4
UPDATE^DIE	88+22, NEWSTAT+9
ENALL^DIK	CREF+3
$$GET1^DIQ	HECMSG+7
$$SITE^VASITE	HECMSG+6
$$FMTE^XLFDT	HECMSG+15
$$NOW^XLFDT	HECMSG+15
^XMD	HECMSG+18
BMES^XPDUTL	EP+30, EP+31, ISTHERE+5, HECMSG+19, 506+5, 506+12, 506+15, 88+4, 88+12, 88+14 , 88+24, 88+26, 88+28, MSG+2
MES^XPDUTL	506+13, 88+9, 88+10, 88+11, 88+25, MSG+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(35 - [#35]	Classic Fileman Calls
^HLCS(869.3 - [#869.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGEN(27.15 - [#27.15]	ENRSTAT+6, ENRSTAT+7, ENRSTAT+12, CHKSTAT+1
^DGIN(38.6 - [#38.6]	88+7, 88+8, 88+10

Label References

Name	Line Occurrences
$$506	EP+20
$$88	EP+21
$$ENRSTAT	EP+26
$$ISTHERE	EP+13
CHKSTAT	ENRSTAT+8
CREF	HECMSG+3
ERR	NEWSTAT+10, SETSTAT+5
MSG	ENRSTAT+9, ENRSTAT+11, ENRSTAT+13, NEWSTAT+11, ERR+5, ERR+6
SETSTAT	ENRSTAT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	EP+1~, EP+7, EP+8, EP+15, EP+20, EP+21, EP+24, EP+26, EP+28, 506+3~ , 506+4, 506+14, 506+15, 506+16, 88+1~, 88+2, 88+7, 88+13, 88+27, 88+28 , 88+29
ACTION	EP+1~, EP+7, EP+20, EP+26*, EP+30
DATA	EP+10*, EP+11, 506+3~, 506+11, 88+1~
DATA(	506+6*
DATA(2	506+7*
DATA(50	506+8*
DGABORT	EP+25~, ENRSTAT+4, ENRSTAT+6, ENRSTAT+9, ENRSTAT+10, ENRSTAT+11, ENRSTAT+14, NEWSTAT+10, NEWSTAT+12, NEWSTAT+13 , CHKSTAT+1, SETSTAT+5, SETSTAT+6
DGB	MSG~, MSG+2
DGC	ERR+1~, ERR+2, ERR+3, ERR+4, ERR+5
DGCAT	ENRSTAT+1~, ENRSTAT+3*, NEWSTAT+6, SETSTAT+2
DGCC	ERR+1~, ERR+2, ERR+4, ERR+5
DGDATA	EP+10!, EP+13, EP+15, ISTHERE~
DGDATA(	EP+12*, EP+17, ISTHERE+5
DGENDA	506+3~, 506+4*, 506+11
DGERR	506+3~, 506+11, 506+13, 88+1~, 88+23, NEWSTAT+8!, NEWSTAT+10, SETSTAT+3!, SETSTAT+5, SETSTAT+6 , ERR+7!
DGERR("DIERR"	88+25, ERR+3, ERR+4, ERR+5
DGFDA	88+1~, NEWSTAT+4~, SETSTAT+1~
DGFDA(	SETSTAT+2*
DGFDA(1	NEWSTAT+5, NEWSTAT+6
DGIEN	88+1~, NEWSTAT+4~, NEWSTAT+7*
DGIEN(1	88+2*
DGMSG	ENRSTAT+1~, ENRSTAT+9, ENRSTAT+11, ENRSTAT+13, NEWSTAT+11, ERR+5*, MSG+2, MSG+3
DGSTAT	ENRSTAT+1~, ENRSTAT+2*, NEWSTAT+5
DGTITL	506+3~, 506+4, 506+12, 506+15, 88+1~, 88+3, 88+24, 88+28
DGWP	506+3~, 88+1~
DGWP(1	506+9, 88+18
DGWP(2	506+10, 88+19
DGWP(3	88+20*
DGWP(4	88+21*
DIFROM	HECMSG+5~
DIK	CREF+1~, CREF+2*
DIK(1	CREF+2*
DMSG	EP+1~, EP+7, EP+17, EP+20, EP+21, EP+26*, EP+30
DUZ	HECMSG+11
ELEMNT	EP+1~, EP+8*, EP+9, EP+10
EXIST	EP+1~, EP+9, EP+10, EP+13, EP+14
FILE	EP+9, EP+13, EP+15, ISTHERE~, ISTHERE+5, 506+3~, 506+4, 506+11
FOUND	ISTHERE+1~, ISTHERE+2, ISTHERE+6, ISTHERE+7
GLOB	ISTHERE+1~, ISTHERE+3*, ISTHERE+4
GLOBAL	EP+7*, EP+13, ISTHERE~, ISTHERE+3
I	EP+1~, EP+8, 88+1~, 88+16
J	EP+1~, EP+10*
MSG	HECMSG+5~
MSG(1	HECMSG+13, HECMSG+14, HECMSG+15, HECMSG+16, HECMSG+17*
PRODFLG	HECMSG+5~, HECMSG+7*, HECMSG+10, HECMSG+11, HECMSG+16
QUIT	88+1~, 88+2*
ROOT	88+1~, 88+5*, 88+6, 88+8, 88+11, 88+15, 88+16, 88+17
SITE	HECMSG+5~, HECMSG+6*
STATN	HECMSG+5~, HECMSG+6*, HECMSG+9, HECMSG+14
>> SUB	EP+10, EP+11, EP+12, EP+13
U	HECMSG+6, HECMSG+13, HECMSG+14, HECMSG+15, HECMSG+16, HECMSG+17, 88+8, ENRSTAT+7, ENRSTAT+12, CHKSTAT+1
>> VALUE	EP+11*, EP+12
XMDUZ	HECMSG+5~, HECMSG+8*, HECMSG+9
XMSUB	HECMSG+5~, HECMSG+9*
XMTEXT	HECMSG+5~, HECMSG+12*
XMY	HECMSG+5~
XMY(	HECMSG+11*
XMY("S.IVMB*2	860 MESSAGE@IVM.MED.VA.GOV" , HECMSG+10
>> XPDABORT	EP+29*

Customize PDF page

Package: Registration

Routine: DG53688P

Call Graph Total: 10