RA64PRE.m

RA64PRE ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06  06:32

VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5

 ;

EN ; entry point for the pre-install logic

 N RACHK

 S RACHK=$$NEWCP^XPDUTL("PRE1","EN1^RA64PRE")

 ; Change the Menu Text (#1) field for the following options:

 ;

 ;IA: 10075 Read OPTION (#19) file NAME (#.01) w/FileMan

 ;

 ;Option Name

 ;-----------

 ;RA WKLIPHY CPT ITYPE

 ; from: Physician CPT Report by I-Type

 ;   to: Physician CPT Report by Imaging Type

 ;RA WKLIPHY SWRVU ITYPE

 ; from: Physician scaled wRVU Report by I-Type

 ;   to: Physician scaled wRVU Report by Imaging Type

 ;RA WKLIPHY WRVU ITYPE

 ; from: Physician wRVU Report by I-Type

 ;   to: Physician wRVU Report by Imaging Type

 ;

 ;

EN1 ;Change the Menu Text for the options mentioned above.

 ;If RA*5.0*64 has not been installed, exit the pre-install routine. The

 ;exporting of the options with the install of RA*5.0*64 will lay in the

 ;correct MENU TEXT definitions.

 K RARVU D FIELD^DID(79.2,200,,"LABEL","RARVU")

 Q:'$D(RARVU("LABEL"))#2

 ;

 K RAI,RAFDA,RAIEN,RAMSG,RARVU,RATXT,RAX

 F RAI=1:1 S RAX=$T(MENUTXT+RAI) Q:$P(RAX,";",3)=""  D

 .S RAIEN=+$$FIND1^DIC(19,,"Q",$P(RAX,";",3))

 .I 'RAIEN D  Q

 ..S RATXT(1)="'"_$P(RAX,";",3)_"' not found in the OPTION (#19) file."

 ..S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT

 ..Q

 .Q:$$GET1^DIQ(19,RAIEN,1)=$P(RAX,";",5)  ;MENU TEXT update in the past

 .S RATXT(1)="Changing the MENU TEXT (#1) field of OPTION: "_$P(RAX,";",3)

 .S RATXT(2)="From: "_$P(RAX,";",4)

 .S RATXT(3)="  To: "_$P(RAX,";",5),RATXT(4)=" "

 .D BMES^XPDUTL(.RATXT) K RATXT

 .S RAFDA(19,RAIEN_",",1)=$P(RAX,";",5)

 .D UPDATE^DIE("E","RAFDA","","RAMSG(1)") K RAFDA

 .S RATXT(1)="The MENU TEXT update was "_$S($D(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."

 .S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RAMSG,RATXT

 .Q

XIT ;clean up symbol table; exit

 K RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX

 Q

 ;

MENUTXT ;option name; old menu type ; new menu type

 ;;RA WKLIPHY CPT ITYPE;Physician CPT Report by I-Type;Physician CPT Report by Imaging Type

 ;;RA WKLIPHY SWRVU ITYPE;Physician scaled wRVU Report by I-Type;Physician scaled wRVU Report by Imaging Type

 ;;RA WKLIPHY WRVU ITYPE;Physician wRVU Report by I-Type;Physician wRVU Report by Imaging Type

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA64PRE   2327     printed  Apr 09, 2024@21:42:19                                                                                                                                                                                                     Page 2

RA64PRE   ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06  06:32

VERSION   ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5

 +1       ;

EN        ; entry point for the pre-install logic

 +1        NEW RACHK

 +2        SET RACHK=$$NEWCP^XPDUTL("PRE1","EN1^RA64PRE")

 +3       ; Change the Menu Text (#1) field for the following options:

 +4       ;

 +5       ;IA: 10075 Read OPTION (#19) file NAME (#.01) w/FileMan

 +6       ;

 +7       ;Option Name

 +8       ;-----------

 +9       ;RA WKLIPHY CPT ITYPE

 +10      ; from: Physician CPT Report by I-Type

 +11      ;   to: Physician CPT Report by Imaging Type

 +12      ;RA WKLIPHY SWRVU ITYPE

 +13      ; from: Physician scaled wRVU Report by I-Type

 +14      ;   to: Physician scaled wRVU Report by Imaging Type

 +15      ;RA WKLIPHY WRVU ITYPE

 +16      ; from: Physician wRVU Report by I-Type

 +17      ;   to: Physician wRVU Report by Imaging Type

 +18      ;

 +19      ;

EN1       ;Change the Menu Text for the options mentioned above.

 +1       ;If RA*5.0*64 has not been installed, exit the pre-install routine. The

 +2       ;exporting of the options with the install of RA*5.0*64 will lay in the

 +3       ;correct MENU TEXT definitions.

 +4        KILL RARVU

           DO FIELD^DID(79.2,200,,"LABEL","RARVU")

 +5        if '$DATA(RARVU("LABEL"))#2

               QUIT 

 +6       ;

 +7        KILL RAI,RAFDA,RAIEN,RAMSG,RARVU,RATXT,RAX

 +8        FOR RAI=1:1

               SET RAX=$TEXT(MENUTXT+RAI)

               if $PIECE(RAX,";",3)=""

                   QUIT 

               Begin DoDot:1

 +9                SET RAIEN=+$$FIND1^DIC(19,,"Q",$PIECE(RAX,";",3))

 +10               IF 'RAIEN

                       Begin DoDot:2

 +11                       SET RATXT(1)="'"_$PIECE(RAX,";",3)_"' not found in the OPTION (#19) file."

 +12                       SET RATXT(2)=" "

                           DO BMES^XPDUTL(.RATXT)

                           KILL RATXT

 +13                       QUIT 

                       End DoDot:2

                       QUIT 

 +14      ;MENU TEXT update in the past

                   if $$GET1^DIQ(19,RAIEN,1)=$PIECE(RAX,";",5)

                       QUIT 

 +15               SET RATXT(1)="Changing the MENU TEXT (#1) field of OPTION: "_$PIECE(RAX,";",3)

 +16               SET RATXT(2)="From: "_$PIECE(RAX,";",4)

 +17               SET RATXT(3)="  To: "_$PIECE(RAX,";",5)

                   SET RATXT(4)=" "

 +18               DO BMES^XPDUTL(.RATXT)

                   KILL RATXT

 +19               SET RAFDA(19,RAIEN_",",1)=$PIECE(RAX,";",5)

 +20               DO UPDATE^DIE("E","RAFDA","","RAMSG(1)")

                   KILL RAFDA

 +21               SET RATXT(1)="The MENU TEXT update was "_$SELECT($DATA(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."

 +22               SET RATXT(2)=" "

                   DO BMES^XPDUTL(.RATXT)

                   KILL RAMSG,RATXT

 +23               QUIT 

               End DoDot:1

XIT       ;clean up symbol table; exit

 +1        KILL RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX

 +2        QUIT 

 +3       ;

MENUTXT   ;option name; old menu type ; new menu type

 +1       ;;RA WKLIPHY CPT ITYPE;Physician CPT Report by I-Type;Physician CPT Report by Imaging Type

 +2       ;;RA WKLIPHY SWRVU ITYPE;Physician scaled wRVU Report by I-Type;Physician scaled wRVU Report by Imaging Type

 +3       ;;RA WKLIPHY WRVU ITYPE;Physician wRVU Report by I-Type;Physician wRVU Report by Imaging Type

 +4       ;;