Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
628 bytes
|
Rev | Line | |
---|
[613] | 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.