RA64PST.m

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

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