13 lines
466 B
Mathematica
13 lines
466 B
Mathematica
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
|