source: FOIAVistA/trunk/r/RECORD_TRACKING-RT/RTYAFIX.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 891 bytes
Line 
1RTYAFIX ;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 ;
11EN ; 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 ;
22TEXT ; 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.