- 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 Feb 18, 2025@23:59:45 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 ;;