|
Last change
on this file since 1476 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
891 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | RTYAFIX ;ALB/MLI - Set NOKILL node in OPTION file for RT ; 12/6/95 [12/6/95 4:30pm]
|
|---|
| 2 | ;;v 2.0;Record Tracking;**24**;10/22/91
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine will loop through all package namespaced RT options
|
|---|
| 5 | ; and set the NOKILL node of the option file to:
|
|---|
| 6 | ; RTAPL,RTDIV,RTFR,RTSYS
|
|---|
| 7 | ;
|
|---|
| 8 | ; This will cause KILL^XUSCLEAN to maintain (or NEW) these variables
|
|---|
| 9 | ; if the uers goes from RT to another application and back.
|
|---|
| 10 | ;
|
|---|
| 11 | EN ; start processing
|
|---|
| 12 | N I,J,X
|
|---|
| 13 | F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT" D
|
|---|
| 14 | . S J=0
|
|---|
| 15 | . F S J=$O(^DIC(19,"B",X,J)) Q:'J D
|
|---|
| 16 | . . I '$D(^DIC(19,J,0)) Q
|
|---|
| 17 | . . S ^DIC(19,J,"NOKILL")="RTAPL,RTDIV,RTFR,RTSYS"
|
|---|
| 18 | . . W !,"Node set for option: ",X
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | ;
|
|---|
| 22 | TEXT ; text lines holding menu option names
|
|---|
| 23 | ;;RT MAS-EXPED-MENU
|
|---|
| 24 | ;;RT MAS-FILE-CLERK-MENU
|
|---|
| 25 | ;;RT MAS-SUPER-MENU
|
|---|
| 26 | ;;RT OVERALL
|
|---|
| 27 | ;;RT PULL-MENU
|
|---|
| 28 | ;;RT RAD-FILE-CLERK-MENU
|
|---|
| 29 | ;;RT RAD-SUPER-MENU
|
|---|
| 30 | ;;RT TRANS-MENU
|
|---|
| 31 | ;;QUIT
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
