|
Last change
on this file since 650 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
