RTYAFIX ;ALB/MLI - Set NOKILL node in OPTION file for RT ; 12/6/95 [12/6/95 4:30pm]
;;v 2.0;Record Tracking;**24**;10/22/91
;
; This routine will loop through all package namespaced RT options
; and set the NOKILL node of the option file to:
; RTAPL,RTDIV,RTFR,RTSYS
;
; This will cause KILL^XUSCLEAN to maintain (or NEW) these variables
; if the uers goes from RT to another application and back.
;
EN ; start processing
N I,J,X
F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT" D
. S J=0
. F S J=$O(^DIC(19,"B",X,J)) Q:'J D
. . I '$D(^DIC(19,J,0)) Q
. . S ^DIC(19,J,"NOKILL")="RTAPL,RTDIV,RTFR,RTSYS"
. . W !,"Node set for option: ",X
Q
;
;
TEXT ; text lines holding menu option names
;;RT MAS-EXPED-MENU
;;RT MAS-FILE-CLERK-MENU
;;RT MAS-SUPER-MENU
;;RT OVERALL
;;RT PULL-MENU
;;RT RAD-FILE-CLERK-MENU
;;RT RAD-SUPER-MENU
;;RT TRANS-MENU
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRTYAFIX 922 printed Nov 22, 2024@17:45:31 Page 2
RTYAFIX ;ALB/MLI - Set NOKILL node in OPTION file for RT ; 12/6/95 [12/6/95 4:30pm]
+1 ;;v 2.0;Record Tracking;**24**;10/22/91
+2 ;
+3 ; This routine will loop through all package namespaced RT options
+4 ; and set the NOKILL node of the option file to:
+5 ; RTAPL,RTDIV,RTFR,RTSYS
+6 ;
+7 ; This will cause KILL^XUSCLEAN to maintain (or NEW) these variables
+8 ; if the uers goes from RT to another application and back.
+9 ;
EN ; start processing
+1 NEW I,J,X
+2 FOR I=1:1
SET X=$PIECE($TEXT(TEXT+I),";;",2)
if X="QUIT"
QUIT
Begin DoDot:1
+3 SET J=0
+4 FOR
SET J=$ORDER(^DIC(19,"B",X,J))
if 'J
QUIT
Begin DoDot:2
+5 IF '$DATA(^DIC(19,J,0))
QUIT
+6 SET ^DIC(19,J,"NOKILL")="RTAPL,RTDIV,RTFR,RTSYS"
+7 WRITE !,"Node set for option: ",X
End DoDot:2
End DoDot:1
+8 QUIT
+9 ;
+10 ;
TEXT ; text lines holding menu option names
+1 ;;RT MAS-EXPED-MENU
+2 ;;RT MAS-FILE-CLERK-MENU
+3 ;;RT MAS-SUPER-MENU
+4 ;;RT OVERALL
+5 ;;RT PULL-MENU
+6 ;;RT RAD-FILE-CLERK-MENU
+7 ;;RT RAD-SUPER-MENU
+8 ;;RT TRANS-MENU
+9 ;;QUIT
