GMRGX1PR.m

GMRGX1PR ;HIRMFO/RM-PREINIT FOR PATCH GMRG*3*1 ;5/3/96

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

 ; This routine will do the following:

 ;  1)  Put four Nursing options out of order while patch is loading

 ;

 D OOS("Installing patch GMRG*3*1")

 Q

OOS(NURMSG) ; options out-of-service

 ; NURMSG = text ==> option is put out-of-service

 ; NURMSG = null ==> option is back in service

 N NUROPT,NURX S NURX=1

 F  S NUROPT=$T(OPTIONS+NURX) Q:$P(NUROPT,";",3)=""  D

 .S NUROPT=$P(NUROPT,";",3),NURX=NURX+1

 .D OUT^XPDMENU(NUROPT,NURMSG)

 .Q

 Q

OPTIONS ; options list

 ;;NURCPE-CARE

 ;;NURCPE-EVAL

 ;;NURCPP-CARE

 ;;NURCPP-EVAL

 ;;;

 Q