source: FOIAVistA/trunk/r/GEN_MED_REC_GENERATOR-GMRG/GMRGX1PO.m@ 894

Last change on this file since 894 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 466 bytes
Line 
1GMRGX1PO ;HIRMFO/RM-POSTINIT FOR PATCH GMRG*3*1 ;5/3/96
2 ;;3.0;Text Generator;**1**;Jan 24, 1996
3 ; This routine will do the following:
4 ; 1) Kill off the bad DD nodes as described in patch.
5 ; 2) Set the data in the Date Last Updated (6) field of the GMR
6 ; Text (124.3) file.
7 ; 3) Re-indexes the "AC" cross-reference on the Children (124.21)
8 ; sub-file.
9 ; 4) Put the four Nursing options back in order.
10 ;
11 D EN1^GMRGXUPD,OOS^GMRGX1PR("@")
12 Q
Note: See TracBrowser for help on using the repository browser.