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

GMRGX1PR  ;HIRMFO/RM-PREINIT 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)  Put four Nursing options out of order while patch is loading

 +4       ;

 +5        DO OOS("Installing patch GMRG*3*1")

 +6        QUIT 

OOS(NURMSG) ; options out-of-service

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

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

 +3        NEW NUROPT,NURX

           SET NURX=1

 +4        FOR 

               SET NUROPT=$TEXT(OPTIONS+NURX)

               IF $PIECE(NUROPT,";",3)=""

                   QUIT 

               Begin DoDot:1

 +5                SET NUROPT=$PIECE(NUROPT,";",3)

                   SET NURX=NURX+1

 +6                DO OUT^XPDMENU(NUROPT,NURMSG)

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

OPTIONS   ; options list

 +1       ;;NURCPE-CARE

 +2       ;;NURCPE-EVAL

 +3       ;;NURCPP-CARE

 +4       ;;NURCPP-EVAL

 +5       ;;;

 +6        QUIT