- 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