Routine: DG53705I

Information

DG53705I ;ALB/TMK - DG*5.3*705 Pre-Install Routine ; 05-APR-2006

Source file <DG53705I.m>

Name	Comments	DBIA/ICR reference
EN	; Description: This entry point will be used as a driver for ; pre-installation updates. ; DBIA: 4542 for direct DD global access/kills and for one-time ; call to Fileman PT node cleanup (PT^DDUCHK1)
DELMISC	; Delete various miscellaneous nodes: ; write access, help, executable help, audit, etc
DELID	; Delete bad identifier nodes
STEP
XREF	; Xrefs that must be deleted
DONE
DELPTR	; Delete bad pointer nodes
CLEAN	; Erase TMP global used to screen DD update
CHK2(FILE,FLD,XREFNM,XREFNO)	; Returns ien of xref
DELDESCR	;Delete excess description nodes
CHK1(FILE,FLD,XREFNM)	; Check if xref exists ; Functon returns 1 if it exists, 0 if it doesn't
DELXREF	; Delete cross references and indexes

Name	Field # of Occurrence
DELIX^DDMOD	DELXREF+7, DELXREF+15
DELIXN^DDMOD	DELXREF+5
PT^DDUCHK1	DELPTR+3
$$CKUPD^DG53705E	EN+8
BMES^XPDUTL	EN+19, DELMISC+2, DELPTR+2, DELID+2, DELDESCR+2, DELXREF+2, STEP, DONE
MES^XPDUTL	EN+17

FileNo	Call Tags
^DPT - [#2]	DELIXN^DDMOD
2.01	DELIX^DDMOD

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DELXREF+14!, CHK1+4, CHK2+3, CHK2+4
^DD(2	DELMISC+3!, DELMISC+4!, DELMISC+5!, DELMISC+6!, DELMISC+9!, DELMISC+10!, DELID+3!, DELDESCR+3!
^DD(2.01	DELXREF+7
^DD(2.312	DELMISC+7!
^DIC(2	DELMISC+8!, DELMISC+11!, DELMISC+12!
^TMP("DG5.3705"	EN+7!, DONE+1*, CLEAN+1!
^TMP("DIERR"	DELXREF+16!

Name	Line Occurrences
$$CHK1	DELXREF+14
$$CHK2	DELXREF+15
DELDESCR	EN+24
DELID	EN+23
DELMISC	EN+20
DELPTR	EN+21
DELXREF	EN+22
DONE	EN+25
STEP	DELMISC+13, DELPTR+4, DELID+4, DELDESCR+4, DELXREF+17

Name	Field # of Occurrence
%	EN+6~, EN+8*, EN+9
>> DDUCFI	DELPTR+3*
>> DDUCFIX	DELPTR+3*
DGDEL	DELXREF+1~
DGXREF	DELXREF+1~
DGZ	DELXREF+1~, DELXREF+5, DELXREF+13, DELXREF+14, DELXREF+15
DGZ(	DELXREF+9*, DELXREF+12, DELXREF+13
DGZF	DELXREF+1~, DELXREF+11, DELXREF+12, DELXREF+13, DELXREF+14, DELXREF+15
DGZFLD	DELXREF+1~, DELXREF+12*, DELXREF+13, DELXREF+14, DELXREF+15
DGZN	DELXREF+1~, DELXREF+12*, DELXREF+13, DELXREF+14, DELXREF+15
FILE	CHK1~, CHK1+4, CHK2~, CHK2+3, CHK2+4
FLD	CHK1~, CHK1+4, CHK2~, CHK2+3, CHK2+4
I	EN+10~, EN+11*
NUM	CHK2+1~, CHK2+3, CHK2+4, CHK2+5
OK	CHK1+2~, CHK1+3, CHK1+4, CHK1+5
U	DELXREF+7, DELXREF+9, CHK1+4, CHK2+3, CHK2+4
X	DELXREF+1~, DELXREF+9*
XREFNM	CHK1~, CHK1+4, CHK2~, CHK2+3, CHK2+4
XREFNO	CHK2~, CHK2+3
Z	DELMISC+6, DELPTR+1~, DELID+1~, DELID+3, DELDESCR+1~, DELDESCR+3, DELXREF+1~, DELXREF+7, DELXREF+9, DELXREF+15 , CHK1+2~, CHK1+3, CHK1+4, CHK2+1~, CHK2+2, CHK2+4
Z0	DELPTR+1~
ZMES	EN+10~, EN+17
ZMES(	EN+11*
ZMES(3	EN+12*
ZMES(4	EN+13*
ZMES(5	EN+14*
ZMES(6	EN+15*
ZMES(7	EN+16*