source: FOIAVistA/trunk/r/GEN_MED_REC_GENERATOR-GMRG/GMRGX1PR.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 628 bytes
Line 
1GMRGX1PR ;HIRMFO/RM-PREINIT 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) Put four Nursing options out of order while patch is loading
5 ;
6 D OOS("Installing patch GMRG*3*1")
7 Q
8OOS(NURMSG) ; options out-of-service
9 ; NURMSG = text ==> option is put out-of-service
10 ; NURMSG = null ==> option is back in service
11 N NUROPT,NURX S NURX=1
12 F S NUROPT=$T(OPTIONS+NURX) Q:$P(NUROPT,";",3)="" D
13 .S NUROPT=$P(NUROPT,";",3),NURX=NURX+1
14 .D OUT^XPDMENU(NUROPT,NURMSG)
15 .Q
16 Q
17OPTIONS ; options list
18 ;;NURCPE-CARE
19 ;;NURCPE-EVAL
20 ;;NURCPP-CARE
21 ;;NURCPP-EVAL
22 ;;;
23 Q
Note: See TracBrowser for help on using the repository browser.