| 1 | RA64PRE ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06 06:32
|
|---|
| 2 | VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; entry point for the pre-install logic
|
|---|
| 5 | N RACHK
|
|---|
| 6 | S RACHK=$$NEWCP^XPDUTL("PRE1","EN1^RA64PRE")
|
|---|
| 7 | ; Change the Menu Text (#1) field for the following options:
|
|---|
| 8 | ;
|
|---|
| 9 | ;IA: 10075 Read OPTION (#19) file NAME (#.01) w/FileMan
|
|---|
| 10 | ;
|
|---|
| 11 | ;Option Name
|
|---|
| 12 | ;-----------
|
|---|
| 13 | ;RA WKLIPHY CPT ITYPE
|
|---|
| 14 | ; from: Physician CPT Report by I-Type
|
|---|
| 15 | ; to: Physician CPT Report by Imaging Type
|
|---|
| 16 | ;RA WKLIPHY SWRVU ITYPE
|
|---|
| 17 | ; from: Physician scaled wRVU Report by I-Type
|
|---|
| 18 | ; to: Physician scaled wRVU Report by Imaging Type
|
|---|
| 19 | ;RA WKLIPHY WRVU ITYPE
|
|---|
| 20 | ; from: Physician wRVU Report by I-Type
|
|---|
| 21 | ; to: Physician wRVU Report by Imaging Type
|
|---|
| 22 | ;
|
|---|
| 23 | ;
|
|---|
| 24 | EN1 ;Change the Menu Text for the options mentioned above.
|
|---|
| 25 | ;If RA*5.0*64 has not been installed, exit the pre-install routine. The
|
|---|
| 26 | ;exporting of the options with the install of RA*5.0*64 will lay in the
|
|---|
| 27 | ;correct MENU TEXT definitions.
|
|---|
| 28 | K RARVU D FIELD^DID(79.2,200,,"LABEL","RARVU")
|
|---|
| 29 | Q:'$D(RARVU("LABEL"))#2
|
|---|
| 30 | ;
|
|---|
| 31 | K RAI,RAFDA,RAIEN,RAMSG,RARVU,RATXT,RAX
|
|---|
| 32 | F RAI=1:1 S RAX=$T(MENUTXT+RAI) Q:$P(RAX,";",3)="" D
|
|---|
| 33 | .S RAIEN=+$$FIND1^DIC(19,,"Q",$P(RAX,";",3))
|
|---|
| 34 | .I 'RAIEN D Q
|
|---|
| 35 | ..S RATXT(1)="'"_$P(RAX,";",3)_"' not found in the OPTION (#19) file."
|
|---|
| 36 | ..S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT
|
|---|
| 37 | ..Q
|
|---|
| 38 | .Q:$$GET1^DIQ(19,RAIEN,1)=$P(RAX,";",5) ;MENU TEXT update in the past
|
|---|
| 39 | .S RATXT(1)="Changing the MENU TEXT (#1) field of OPTION: "_$P(RAX,";",3)
|
|---|
| 40 | .S RATXT(2)="From: "_$P(RAX,";",4)
|
|---|
| 41 | .S RATXT(3)=" To: "_$P(RAX,";",5),RATXT(4)=" "
|
|---|
| 42 | .D BMES^XPDUTL(.RATXT) K RATXT
|
|---|
| 43 | .S RAFDA(19,RAIEN_",",1)=$P(RAX,";",5)
|
|---|
| 44 | .D UPDATE^DIE("E","RAFDA","","RAMSG(1)") K RAFDA
|
|---|
| 45 | .S RATXT(1)="The MENU TEXT update was "_$S($D(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."
|
|---|
| 46 | .S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RAMSG,RATXT
|
|---|
| 47 | .Q
|
|---|
| 48 | XIT ;clean up symbol table; exit
|
|---|
| 49 | K RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | MENUTXT ;option name; old menu type ; new menu type
|
|---|
| 53 | ;;RA WKLIPHY CPT ITYPE;Physician CPT Report by I-Type;Physician CPT Report by Imaging Type
|
|---|
| 54 | ;;RA WKLIPHY SWRVU ITYPE;Physician scaled wRVU Report by I-Type;Physician scaled wRVU Report by Imaging Type
|
|---|
| 55 | ;;RA WKLIPHY WRVU ITYPE;Physician wRVU Report by I-Type;Physician wRVU Report by Imaging Type
|
|---|
| 56 | ;;
|
|---|
