Routine: DGYQPOST

Information

DGYQPOST ;AISC/TET - POST INIT TO PATCH DG*5.3*41

Source file <DGYQPOST.m>

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE EN^DIEZ ^DIK

Name	Comments	DBIA/ICR reference
RCOMP	;entry point to re-compile templates
EN	;entry point for entire post init
DOB	;entry point to remove value from latest dob field (#.07) in period of service file (#21)
ITEMP	;input templates to be recompiled
MESS	;
WARD	;delete .001 field from ward location file (#42), if exists
ERRMESS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?17,"Recompilation of affected Registration Input Templates",!,DGDASH,! Line Location: RCOMP+3
Function Call: WRITE	Prompt: !?5,DGTEMP Line Location: RCOMP+4
Function Call: WRITE	Prompt: !!,">>>> Modifying data in the Period of Service File (#21)..." Line Location: DOB+1
Function Call: WRITE	Prompt: !," >>>> Deleting the Latest DOB Field (#.07) for select entries",! Line Location: DOB+2
Function Call: WRITE	Prompt: !!!! Line Location: ERRMESS+1
Function Call: WRITE	Prompt: !,$P(DGX,";;",2) Line Location: ERRMESS+2
Routine Call	DIE Line Location: DOB+17
Routine Call	DIC Line Location: DOB+8

Name	Line Occurrences (* Changed, ! Killed)
^DD("ROU"	RCOMP+2
^DD(42	WARD+1
^DIE - [#.402]	RCOMP+7
^DIE("B"	RCOMP+6

Name	Field # of Occurrence
DA	WARD+2~, WARD+4!, DOB+3~, DOB+16
DA(1	WARD+4*
DGDASH	RCOMP+1~, RCOMP+2*, RCOMP+3
DGERR	DOB+3~, DOB+6, DOB+13*, DOB+19, DOB+20
DGIEN	RCOMP+5~, RCOMP+6*, RCOMP+7, RCOMP+8
DGMAX	RCOMP+1~, RCOMP+2*, RCOMP+8
DGROU	RCOMP+1~, RCOMP+5~, RCOMP+7*, RCOMP+8
DGTEMP	RCOMP+1~, RCOMP+4*, RCOMP+6, RCOMP+9
DGX	DOB+3~, DOB+6, DOB+7, DOB+12, ERRMESS+2
DIC	WARD+2~, DOB+3~, DOB+4*, DOB+16
DIC(0	DOB+5*
DIE	DOB+3~, DOB+16*
DIK	WARD+2~, WARD+4*!
DMAX	RCOMP+5~, RCOMP+8*
DR	DOB+3~, DOB+16*
DTIME	RCOMP+2*
I	RCOMP+1~, RCOMP+4*
U	RCOMP+2*, RCOMP+8, DOB+15
X	RCOMP+5~, RCOMP+8, DOB+3~, DOB+7, ERRMESS+2*
Y	RCOMP+5~, RCOMP+8*, DOB+3~, DOB+9, DOB+14, DOB+15, DOB+16