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
;
;;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 ---[H[J[2J[HRA64PRE 2327 printed Dec 13, 2024@02:33:28 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 ;
+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 ;;
