PRCH128P.m

PRCH128P ;VMP/RB - FIX ^DD(443.61,8) & ^DD(442.01,8) FSC FIELD#8 ENTRY ;03/09/10

 ;;5.1;IFCAP;**128**;03/31/10;Build 7

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;;

 Q

FIXDD ;

 ;1. Post install to delete node 9 from ^DD(443.61,8) (FSC) to insure

 ;   the field update in patch cleans up node ^DD(443.61,8,9). This

 ;   is a field under subfile Item (443.61).

 ;2. Post install to delete node 9 from ^DD(442.01,8) (FSC) to insure

 ;   the field update in patch cleans up node ^DD(442.01,8,9). This

 ;   is a field under subfile Item (442.01).

 ;

KILL K ^DD(443.61,8,9),^DD(442.01,8,9)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCH128P   628     printed  Sep 23, 2025@19:41:02                                                                                                                                                                                                     Page 2

PRCH128P  ;VMP/RB - FIX ^DD(443.61,8) & ^DD(442.01,8) FSC FIELD#8 ENTRY ;03/09/10

 +1       ;;5.1;IFCAP;**128**;03/31/10;Build 7

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;;

 +4        QUIT 

FIXDD     ;

 +1       ;1. Post install to delete node 9 from ^DD(443.61,8) (FSC) to insure

 +2       ;   the field update in patch cleans up node ^DD(443.61,8,9). This

 +3       ;   is a field under subfile Item (443.61).

 +4       ;2. Post install to delete node 9 from ^DD(442.01,8) (FSC) to insure

 +5       ;   the field update in patch cleans up node ^DD(442.01,8,9). This

 +6       ;   is a field under subfile Item (442.01).

 +7       ;

KILL       KILL ^DD(443.61,8,9),^DD(442.01,8,9)

 +1        QUIT