Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RA64PRE

RA64PRE.m

Go to the documentation of this file.
  1. RA64PRE ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06 06:32
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5
  1. ;
  1. EN ; entry point for the pre-install logic
  1. N RACHK
  1. S RACHK=$$NEWCP^XPDUTL("PRE1","EN1^RA64PRE")
  1. ; Change the Menu Text (#1) field for the following options:
  1. ;
  1. ;IA: 10075 Read OPTION (#19) file NAME (#.01) w/FileMan
  1. ;
  1. ;Option Name
  1. ;-----------
  1. ;RA WKLIPHY CPT ITYPE
  1. ; from: Physician CPT Report by I-Type
  1. ; to: Physician CPT Report by Imaging Type
  1. ;RA WKLIPHY SWRVU ITYPE
  1. ; from: Physician scaled wRVU Report by I-Type
  1. ; to: Physician scaled wRVU Report by Imaging Type
  1. ;RA WKLIPHY WRVU ITYPE
  1. ; from: Physician wRVU Report by I-Type
  1. ; to: Physician wRVU Report by Imaging Type
  1. ;
  1. ;
  1. 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
  1. ;exporting of the options with the install of RA*5.0*64 will lay in the
  1. ;correct MENU TEXT definitions.
  1. K RARVU D FIELD^DID(79.2,200,,"LABEL","RARVU")
  1. Q:'$D(RARVU("LABEL"))#2
  1. ;
  1. K RAI,RAFDA,RAIEN,RAMSG,RARVU,RATXT,RAX
  1. F RAI=1:1 S RAX=$T(MENUTXT+RAI) Q:$P(RAX,";",3)="" D
  1. .S RAIEN=+$$FIND1^DIC(19,,"Q",$P(RAX,";",3))
  1. .I 'RAIEN D Q
  1. ..S RATXT(1)="'"_$P(RAX,";",3)_"' not found in the OPTION (#19) file."
  1. ..S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT
  1. ..Q
  1. .Q:$$GET1^DIQ(19,RAIEN,1)=$P(RAX,";",5) ;MENU TEXT update in the past
  1. .S RATXT(1)="Changing the MENU TEXT (#1) field of OPTION: "_$P(RAX,";",3)
  1. .S RATXT(2)="From: "_$P(RAX,";",4)
  1. .S RATXT(3)=" To: "_$P(RAX,";",5),RATXT(4)=" "
  1. .D BMES^XPDUTL(.RATXT) K RATXT
  1. .S RAFDA(19,RAIEN_",",1)=$P(RAX,";",5)
  1. .D UPDATE^DIE("E","RAFDA","","RAMSG(1)") K RAFDA
  1. .S RATXT(1)="The MENU TEXT update was "_$S($D(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."
  1. .S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RAMSG,RATXT
  1. .Q
  1. XIT ;clean up symbol table; exit
  1. K RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX
  1. Q
  1. ;
  1. ;;RA WKLIPHY CPT ITYPE;Physician CPT Report by I-Type;Physician CPT Report by Imaging Type
  1. ;;RA WKLIPHY SWRVU ITYPE;Physician scaled wRVU Report by I-Type;Physician scaled wRVU Report by Imaging Type
  1. ;;RA WKLIPHY WRVU ITYPE;Physician wRVU Report by I-Type;Physician wRVU Report by Imaging Type
  1. ;;