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