Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
891 bytes
|
Rev | Line | |
---|
[628] | 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.