DG53771P	;ALB/ERC - Patch DG53771P Post Install ;10/30/07
	;;5.3;Registration;**771**;AUG 13, 1995;Build 5
	;
	Q
EN	; This routine will update the USE FOR Z07 CHECK field #6
	; in the INCONSISTENT DATA ELEMENTS file #38.6 for CC 
	; 75, 76, 78, 306, 307 and 409
	N RULE,DA,DIE,DR
	F RULE=75,76,78,306,307,409 D
	.D BMES^XPDUTL("Modifying entry #"_RULE_" in 38.6 file.")
	.S DIE=38.6,DA=$$FIND1^DIC(DIE,"","X",RULE)
	.I 'DA D  Q
	..D MES^XPDUTL("    *** Entry not found! Nothing Updated!! ***") Q
	.S DR="6////0" D ^DIE
	.D MES^XPDUTL("    *** Update Complete ***")
	D BMES^XPDUTL("")
	Q