Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
628 bytes
|
Line | |
---|
1 | GMRGX1PR ;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
|
---|
8 | OOS(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
|
---|
17 | OPTIONS ; 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.