AUT98P14.m

AUT98P14 ;IHS/SET/DMJ - AUT 98.1 PATCH 14 ; [ 02/05/2004  4:33 PM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);**14**;MAR 04, 1998;Build 6

 ;

 ; IHS/SET/DMJ AUT*98.1*14 02/02/2004

 ;

 D KILL

 D K2

 D S60

 Q

KILL ;kill off bad dental dd

 K ^DD(9999999.31,500)

 K ^DD(9999999.31,"B","RVU (Relative Value Unit)",500)

 Q

K2 ;delete revenue codes to be re-loaded

 S DIK="^AUTTREVN("

 F DA=184,185,341,342 D

 .D ^DIK

 Q

S60 ;set file to 60 if 0

 F AUTRF="LAB","PAP SMEAR" D

 .S DA=$O(^AUTTREFT("B",AUTRF,0))

 .Q:'DA

 .Q:$P(^AUTTREFT(DA,0),"^",2)=60

 .S $P(^AUTTREFT(DA,0),"^",2)=60

 K AUTRF

 Q

AUT98P14  ;IHS/SET/DMJ - AUT 98.1 PATCH 14 ; [ 02/05/2004  4:33 PM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**14**;MAR 04, 1998;Build 6

 +2       ;

 +3       ; IHS/SET/DMJ AUT*98.1*14 02/02/2004

 +4       ;

 +5        DO KILL

 +6        DO K2

 +7        DO S60

 +8        QUIT 

KILL      ;kill off bad dental dd

 +1        KILL ^DD(9999999.31,500)

 +2        KILL ^DD(9999999.31,"B","RVU (Relative Value Unit)",500)

 +3        QUIT 

K2        ;delete revenue codes to be re-loaded

 +1        SET DIK="^AUTTREVN("

 +2        FOR DA=184,185,341,342

               Begin DoDot:1

 +3                DO ^DIK

               End DoDot:1

 +4        QUIT 

S60       ;set file to 60 if 0

 +1        FOR AUTRF="LAB","PAP SMEAR"

               Begin DoDot:1

 +2                SET DA=$ORDER(^AUTTREFT("B",AUTRF,0))

 +3                IF 'DA

                       QUIT 

 +4                IF $PIECE(^AUTTREFT(DA,0),"^",2)=60

                       QUIT 

 +5                SET $PIECE(^AUTTREFT(DA,0),"^",2)=60

               End DoDot:1

 +6        KILL AUTRF

 +7        QUIT