| 1 | RA64PST ;Hines OI/GJC - Post-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 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 | ;
|
|---|
| 11 | EN1 ; 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
|
|---|
| 34 | XIT ;clean up symbol table; exit
|
|---|
| 35 | K RAIEN
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | FACTORS ;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
|
|---|
