source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA64PST.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1RA64PST ;Hines OI/GJC - Post-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 post-install logic
5 N RACHK
6 S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RA64PST")
7 ; Add the correct calendar year scaling factors to the correct
8 ; imaging type records in the IMAGING TYPE (#79.2) file.
9 Q
10 ;
11EN1 ; Add the scaling facors to the correct IMAGING TYPE file records.
12 N RAI,RAX K RAMSG
13 F RAI=1:1 S RAX=$T(FACTORS+RAI) Q:RAX="" D
14 .S RAIEN=+$O(^RA(79.2,"B",$P(RAX,";",3),0))
15 .I 'RAIEN D Q
16 ..S RATXT(1)="'"_$P(RAX,";",3)_"' not found as an imaging type record,"
17 ..S RATXT(2)="wRVU scaling factors not filed."
18 ..D BMES^XPDUTL(.RATXT) K RATXT
19 ..Q
20 .I '$D(^RA(79.2,"C",$P(RAX,";",4),RAIEN))#2 D Q
21 ..S RATXT(1)="'"_$P(RAX,";",4)_"' not found as the abbreviation for imaging type record:"
22 ..S RATXT(2)="'"_$P(RAX,";",3)_"'."
23 ..S RATXT(3)="wRVU scaling factors not filed."
24 ..D BMES^XPDUTL(.RATXT) K RATXT
25 ..Q
26 .Q:$D(^RA(79.2,RAIEN,"CY","B",$P(RAX,";",5)))\10 ;been there, done that
27 .S RAFDA(79.22,"+812,"_RAIEN_",",.01)=$P(RAX,";",5)
28 .S RAFDA(79.22,"+812,"_RAIEN_",",2)=$P(RAX,";",6)
29 .S RATXT(1)="Filing scaling wRVU factors for: '"_$P(RAX,";",3)_"'"
30 .D UPDATE^DIE("E","RAFDA","","RAMSG(1)") K RAFDA
31 .S RATXT(2)="The filing of data was "_$S($D(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."
32 .S RATXT(3)=" " D BMES^XPDUTL(.RATXT) K RAMSG,RATXT
33 .Q
34XIT ;clean up symbol table; exit
35 K RAIEN
36 Q
37 ;
38FACTORS ;I-type name;I-type abbreviation;calendar year;scaled wRVU value
39 ;;ANGIO/NEURO/INTERVENTIONAL;ANI;2006;0.61
40 ;;CT SCAN;CT;2006;0.70
41 ;;GENERAL RADIOLOGY;RAD;2006;1.21
42 ;;MAGNETIC RESONANCE IMAGING;MRI;2006;0.70
43 ;;NUCLEAR MEDICINE;NM;2006;1.57
Note: See TracBrowser for help on using the repository browser.