RA64PST ;Hines OI/GJC - Post-init Driver, patch 64 ;01/05/06 06:32
VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5
;
EN ; entry point for the post-install logic
N RACHK
S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RA64PST")
; Add the correct calendar year scaling factors to the correct
; imaging type records in the IMAGING TYPE (#79.2) file.
Q
;
EN1 ; Add the scaling facors to the correct IMAGING TYPE file records.
N RAI,RAX K RAMSG
F RAI=1:1 S RAX=$T(FACTORS+RAI) Q:RAX="" D
.S RAIEN=+$O(^RA(79.2,"B",$P(RAX,";",3),0))
.I 'RAIEN D Q
..S RATXT(1)="'"_$P(RAX,";",3)_"' not found as an imaging type record,"
..S RATXT(2)="wRVU scaling factors not filed."
..D BMES^XPDUTL(.RATXT) K RATXT
..Q
.I '$D(^RA(79.2,"C",$P(RAX,";",4),RAIEN))#2 D Q
..S RATXT(1)="'"_$P(RAX,";",4)_"' not found as the abbreviation for imaging type record:"
..S RATXT(2)="'"_$P(RAX,";",3)_"'."
..S RATXT(3)="wRVU scaling factors not filed."
..D BMES^XPDUTL(.RATXT) K RATXT
..Q
.Q:$D(^RA(79.2,RAIEN,"CY","B",$P(RAX,";",5)))\10 ;been there, done that
.S RAFDA(79.22,"+812,"_RAIEN_",",.01)=$P(RAX,";",5)
.S RAFDA(79.22,"+812,"_RAIEN_",",2)=$P(RAX,";",6)
.S RATXT(1)="Filing scaling wRVU factors for: '"_$P(RAX,";",3)_"'"
.D UPDATE^DIE("E","RAFDA","","RAMSG(1)") K RAFDA
.S RATXT(2)="The filing of data was "_$S($D(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."
.S RATXT(3)=" " D BMES^XPDUTL(.RATXT) K RAMSG,RATXT
.Q
XIT ;clean up symbol table; exit
K RAIEN
Q
;
FACTORS ;I-type name;I-type abbreviation;calendar year;scaled wRVU value
;;ANGIO/NEURO/INTERVENTIONAL;ANI;2006;0.61
;;CT SCAN;CT;2006;0.70
;;GENERAL RADIOLOGY;RAD;2006;1.21
;;MAGNETIC RESONANCE IMAGING;MRI;2006;0.70
;;NUCLEAR MEDICINE;NM;2006;1.57
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA64PST 1774 printed Nov 22, 2024@17:43:28 Page 2
RA64PST ;Hines OI/GJC - Post-init Driver, patch 64 ;01/05/06 06:32
VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5
+1 ;
EN ; entry point for the post-install logic
+1 NEW RACHK
+2 SET RACHK=$$NEWCP^XPDUTL("POST1","EN1^RA64PST")
+3 ; Add the correct calendar year scaling factors to the correct
+4 ; imaging type records in the IMAGING TYPE (#79.2) file.
+5 QUIT
+6 ;
EN1 ; Add the scaling facors to the correct IMAGING TYPE file records.
+1 NEW RAI,RAX
KILL RAMSG
+2 FOR RAI=1:1
SET RAX=$TEXT(FACTORS+RAI)
if RAX=""
QUIT
Begin DoDot:1
+3 SET RAIEN=+$ORDER(^RA(79.2,"B",$PIECE(RAX,";",3),0))
+4 IF 'RAIEN
Begin DoDot:2
+5 SET RATXT(1)="'"_$PIECE(RAX,";",3)_"' not found as an imaging type record,"
+6 SET RATXT(2)="wRVU scaling factors not filed."
+7 DO BMES^XPDUTL(.RATXT)
KILL RATXT
+8 QUIT
End DoDot:2
QUIT
+9 IF '$DATA(^RA(79.2,"C",$PIECE(RAX,";",4),RAIEN))#2
Begin DoDot:2
+10 SET RATXT(1)="'"_$PIECE(RAX,";",4)_"' not found as the abbreviation for imaging type record:"
+11 SET RATXT(2)="'"_$PIECE(RAX,";",3)_"'."
+12 SET RATXT(3)="wRVU scaling factors not filed."
+13 DO BMES^XPDUTL(.RATXT)
KILL RATXT
+14 QUIT
End DoDot:2
QUIT
+15 ;been there, done that
if $DATA(^RA(79.2,RAIEN,"CY","B",$PIECE(RAX,";",5)))\10
QUIT
+16 SET RAFDA(79.22,"+812,"_RAIEN_",",.01)=$PIECE(RAX,";",5)
+17 SET RAFDA(79.22,"+812,"_RAIEN_",",2)=$PIECE(RAX,";",6)
+18 SET RATXT(1)="Filing scaling wRVU factors for: '"_$PIECE(RAX,";",3)_"'"
+19 DO UPDATE^DIE("E","RAFDA","","RAMSG(1)")
KILL RAFDA
+20 SET RATXT(2)="The filing of data was "_$SELECT($DATA(RAMSG(1,"DIERR"))#2:"un",1:"")_"successful."
+21 SET RATXT(3)=" "
DO BMES^XPDUTL(.RATXT)
KILL RAMSG,RATXT
+22 QUIT
End DoDot:1
XIT ;clean up symbol table; exit
+1 KILL RAIEN
+2 QUIT
+3 ;
FACTORS ;I-type name;I-type abbreviation;calendar year;scaled wRVU value
+1 ;;ANGIO/NEURO/INTERVENTIONAL;ANI;2006;0.61
+2 ;;CT SCAN;CT;2006;0.70
+3 ;;GENERAL RADIOLOGY;RAD;2006;1.21
+4 ;;MAGNETIC RESONANCE IMAGING;MRI;2006;0.70
+5 ;;NUCLEAR MEDICINE;NM;2006;1.57
