GMRGX1PO.m

GMRGX1PO ;HIRMFO/RM-POSTINIT FOR PATCH GMRG*3*1 ;5/3/96

 ;;3.0;Text Generator;**1**;Jan 24, 1996

 ; This routine will do the following:

 ;  1)  Kill off the bad DD nodes as described in patch.

 ;  2)  Set the data in the Date Last Updated (6) field of the GMR

 ;      Text (124.3) file.

 ;  3)  Re-indexes the "AC" cross-reference on the Children (124.21)

 ;      sub-file.

 ;  4)  Put the four Nursing options back in order.

 ;

 D EN1^GMRGXUPD,OOS^GMRGX1PR("@")

 Q

GMRGX1PO  ;HIRMFO/RM-POSTINIT FOR PATCH GMRG*3*1 ;5/3/96

 +1       ;;3.0;Text Generator;**1**;Jan 24, 1996

 +2       ; This routine will do the following:

 +3       ;  1)  Kill off the bad DD nodes as described in patch.

 +4       ;  2)  Set the data in the Date Last Updated (6) field of the GMR

 +5       ;      Text (124.3) file.

 +6       ;  3)  Re-indexes the "AC" cross-reference on the Children (124.21)

 +7       ;      sub-file.

 +8       ;  4)  Put the four Nursing options back in order.

 +9       ;

 +10       DO EN1^GMRGXUPD

           DO OOS^GMRGX1PR("@")

 +11       QUIT