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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRGX1PR 651 printed Nov 22, 2024@17:05:56 Page 2
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
