RTYAFIX.m

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 ---RTYAFIX   922     printed  Apr 09, 2024@21:37:10                                                                                                                                                                                                      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