Routine: PRCH69

Package	Total	Call Graph
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
FIX	;Here is the start of correcting file 440. The corrections are: ; 1. Remove all leading spaces from Vendor NAME ; 2. Leave only 2 stars (*) in front of INACTIVATED VENDOR NANE ; field. ; 3. Remove any REPLACEMENT VENDOR that points to itself. ; 4. If a chain of REPLACEMENT VENDORs has one that points ; to a previous entry in the chain, remove that REPLACEMENT ; VENDOR.
CLOOP

Name	Field # of Occurrence
MES^XPDUTL	FIX+31, FIX+33, FIX+35, FIX+37, CLOOP+23, CLOOP+31

Name	Line Occurrences (* Changed, ! Killed)
^DD(440	PRCH69+3!
^PRC(440 - [#440]	FIX+10, FIX+12, FIX+18, FIX+24!, FIX+40, CLOOP, CLOOP+10, CLOOP+11, CLOOP+16, CLOOP+19! , CLOOP+26!

Name	Line Occurrences
CLOOP	CLOOP+35

Name	Field # of Occurrence
^("ID"	PRCH69+3*

Name	Field # of Occurrence
CHAIN	CLOOP+1!, CLOOP+17!, CLOOP+20!, CLOOP+27!
CHAIN(	CLOOP+25, CLOOP+33*
>> CLOOP	FIX+44, CLOOP, CLOOP+8, CLOOP+16, CLOOP+18, CLOOP+19, CLOOP+21, CLOOP+26, CLOOP+28, CLOOP+33 , CLOOP+34
>> INACT	CLOOP*, CLOOP+1
>> LOOP	FIX+9, FIX+10, FIX+12, FIX+18, FIX+24, FIX+32, FIX+40, FIX+44, CLOOP+8, CLOOP+10 , CLOOP+11
>> MSG	FIX+30, FIX+31, FIX+32, FIX+33, FIX+34, FIX+35, FIX+36, FIX+37
>> MSG1	CLOOP+23
>> MSG1(1	CLOOP+21*
>> MSG1(2	CLOOP+22*
>> MSG2	CLOOP+31
>> MSG2(1	CLOOP+28*
>> MSG2(2	CLOOP+29*
>> MSG2(3	CLOOP+30*
>> NAME	FIX+12, FIX+14, FIX+16, FIX+18, FIX+23, CLOOP+9*, CLOOP+10, CLOOP+11
>> NNAME	FIX+23*, FIX+29, FIX+40
>> ONAME	FIX+12*, FIX+24
>> REPV	CLOOP+16*, CLOOP+17, CLOOP+18, CLOOP+25, CLOOP+30, CLOOP+34
U	FIX+12, FIX+18, CLOOP, CLOOP+10, CLOOP+16
>> X1	FIX+14*, FIX+15
>> X1C	FIX+13, FIX+15*, FIX+16