Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUT98P14

AUT98P14.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; IHS/SET/DMJ AUT*98.1*14 02/02/2004
  1. ;
  1. D KILL
  1. D K2
  1. D S60
  1. Q
  1. KILL ;kill off bad dental dd
  1. K ^DD(9999999.31,500)
  1. K ^DD(9999999.31,"B","RVU (Relative Value Unit)",500)
  1. Q
  1. K2 ;delete revenue codes to be re-loaded
  1. S DIK="^AUTTREVN("
  1. F DA=184,185,341,342 D
  1. .D ^DIK
  1. Q
  1. S60 ;set file to 60 if 0
  1. F AUTRF="LAB","PAP SMEAR" D
  1. .S DA=$O(^AUTTREFT("B",AUTRF,0))
  1. .Q:'DA
  1. .Q:$P(^AUTTREFT(DA,0),"^",2)=60
  1. .S $P(^AUTTREFT(DA,0),"^",2)=60
  1. K AUTRF
  1. Q