source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA64PRE.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1RA64PRE ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06 06:32
2VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5
3 ;
4EN ; 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 ;
24EN1 ;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
48XIT ;clean up symbol table; exit
49 K RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX
50 Q
51 ;
52MENUTXT ;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 ;;
Note: See TracBrowser for help on using the repository browser.