Routine: ENXIP62

Information

ENXIP62 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;12/15/1999

Source file <ENXIP62.m>

Package	Total	Call Graph
VA FileMan	6	DELIX^DDMOD MSG^DIALOG $$GET1^DID (,FILE)^DIE (,ENALL)^DIK EN^DIU2
Kernel	1	($$NEWCP,BMES,MES)^XPDUTL

Name	Comments	DBIA/ICR reference
PR	;Pre Install Entry Point ; DBIA #2878 allows update of DD global to remove cross-reference logic
PS	;Post Install Entry Point
XREF	; build new x-ref
ZZSF	; remove ZZ prefixes from #6928.1 local entries when not duplicate
ISSDTO	; Delete data dictionary and data of ISSUED TO subfile within LOCKS file
DELTQI	; Delete TOTAL QUANTITY ISSUED field from file 6926.01

Name	Field # of Occurrence
DELIX^DDMOD	PR+18
MSG^DIALOG	PR+18, DELTQI+17
$$GET1^DID	ISSDTO+3, DELTQI+3
^DIE	ZZSF+13
FILE^DIE	DELTQI+17
^DIK	PR+11, DELTQI+20
ENALL^DIK	XREF+10
EN^DIU2	ISSDTO+7
$$NEWCP^XPDUTL	PS+4
BMES^XPDUTL	PS+5, XREF+3, ZZSF+3, ISSDTO+4, ISSDTO+6, DELTQI+4, DELTQI+6
MES^XPDUTL	ZZSF+14

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PR+18
^ENG("KEY" - [#6926]	XREF+6, DELTQI+10, DELTQI+12, DELTQI+14
^ENG(6928.1 - [#6928.1]	ZZSF+9, ZZSF+11, ZZSF+13

Name	Field # of Occurrence
DA	PR+2~, PR+9, XREF+1~, ZZSF+1~, ZZSF+11, DELTQI+1~, DELTQI+20!*
DA(1	PR+9, XREF+6, XREF+8, DELTQI+20*
DA(2	PR+9*
DIE	ZZSF+1~, ZZSF+7*, DELTQI+1~
DIK	PR+2~, PR+4, XREF+1~, XREF+8, DELTQI+20*
DIK(1	XREF+9*
DIU	ISSDTO+1~, ISSDTO+7*
DIU(0	ISSDTO+7*
DR	ZZSF+1~, ZZSF+7*
ENC	ZZSF+1~, ZZSF+5, ZZSF+13, ZZSF+14
ENDA	DELTQI+1~, DELTQI+10*, DELTQI+12, DELTQI+14, DELTQI+16
ENDA1	DELTQI+1~, DELTQI+12*, DELTQI+14, DELTQI+16
ENFDA	DELTQI+1~, DELTQI+15!
ENFDA(	DELTQI+16*
ENSF	ZZSF+1~, ZZSF+9*, ZZSF+10, ZZSF+11, ZZSF+12
ENSFX	ZZSF+1~, ZZSF+12*, ZZSF+13
ENX	PS+1~, PS+3*, PS+4, PS+5
U	DELTQI+14
X	PR+18*, ZZSF+1~
Y	PS+4*, PS+5, ZZSF+1~