Routine: DGRUDYN

Name	Comments	DBIA/ICR reference
EN(EVENT)	;
WARD(DGPV1,DGP)	; Retrieve Ward IEN for Division lookup. If the ward has been ; "translated", then return the original Ward IEN. ; Input ; DGPV1 - Copy of the PV1 segment ; DGP - Piece containing the ward to be checked
ENMFU(DGEVENT,DGDIV)	;ENTRY POINT FOR MASTER FILE UPDATE ROUTING

Name	Line Occurrences (* Changed, ! Killed)
^DGRU(46.12	WARD+15, WARD+17, WARD+18

Name	Line Occurrences
$$WARD	EN+19, EN+20, EN+21, EN+22

Name	Field # of Occurrence
CLIENT	EN+5~, EN+40, EN+41, ENMFU+2~, ENMFU+12, ENMFU+13
DGAPIEN	EN+37, EN+42, ENMFU+2~, ENMFU+9, ENMFU+14
DGDIV	EN+5~, EN+25*, EN+28, EN+35, ENMFU~, ENMFU+3, ENMFU+5
DGENTRY	EN+5~
DGEVENT	ENMFU~, ENMFU+12
DGFAC	EN+5~, EN+38, EN+42, ENMFU+2~, ENMFU+10, ENMFU+14
DGIEN	EN+5~, WARD+6~, WARD+9, WARD+13, WARD+15, WARD+18*, WARD+19
DGN	WARD+6~, WARD+8*, WARD+9, WARD+14, WARD+17
DGP	WARD~, WARD+8
DGPV1	WARD~, WARD+8
DGSCN	EN+5~, EN+28, EN+32, ENMFU+3, ENMFU+4, ENMFU+7
DGSITE	EN+5~
DGSTN	EN+5~, EN+35, ENMFU+5
DGW	WARD+6~, WARD+8*
DGWARD	EN+5~, EN+19, EN+20, EN+21, EN+22, EN+25
DGX	WARD+6~, WARD+14, WARD+15, WARD+17, WARD+18
DIC	WARD+6~
EVENT	EN~, EN+7, EN+19, EN+20, EN+21, EN+40
HLL	EN+31!, EN+32, ENMFU+6!, ENMFU+7
HLL("LINKS"	EN+37, EN+38, EN+41, ENMFU+9, ENMFU+10, ENMFU+13
>> HLNEXT	EN+11
HLNODE	EN+5~, EN+12
HLNODE(	EN+13
>> HLP("SUBSCRIBER"	EN+42, ENMFU+14
>> HLQUIT	EN+11
I	EN+10~, EN+11, EN+12, EN+13, EN+16, EN+17*, EN+18, EN+19, EN+20, EN+21 , EN+22
J	EN+10~, EN+12, EN+13
X	EN+10~
X(	EN+12, EN+13, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22
Y	WARD+6~

Information