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

AUMPOST2.m

Go to the documentation of this file.
  1. AUMPOST2 ;IHS/ASDST/DMJ - INSTALL NEW CODES FOR 2002 [ 09/26/2001 7:04 AM ]
  1. ;;02.1;ICD UPDATE;;SEP 12, 2001
  1. START ;START
  1. K ^DD(80.1,0,"DIC")
  1. S DLAYGO=80.1
  1. D ICD0
  1. D REV
  1. D INA
  1. S ^DD(80.1,0,"DIC")="AICDKWI0"
  1. K DLAYGO
  1. Q
  1. ICD0 ;install new icd0 codes
  1. F AUMI=1:1:16 D
  1. .S AUMLN=$T(@AUMI)
  1. .F AUMJ=2:1:8 S AUM(AUMJ)=$P(AUMLN,";",AUMJ)
  1. .S Y=$O(^ICD0("AB",AUM(2),0))
  1. .I 'Y D
  1. ..S DIC="^ICD0("
  1. ..S DIC(0)="LX"
  1. ..S X=AUM(2)
  1. ..D ^DIC
  1. .Q:+Y<0 S DA=+Y
  1. .S ^ICD0(DA,1)=AUM(3)
  1. .S $P(^ICD0(DA,0),"^",9)=""
  1. .S $P(^ICD0(DA,0),"^",11)=""
  1. .S $P(^ICD0(DA,0),"^",10)=AUM(4)
  1. .S $P(^ICD0(DA,0),"^",4)=$E(AUM(3),1,50)
  1. .S $P(^ICD0(DA,9999999),"^",4)=3011000
  1. .D MDC
  1. .S DIK="^ICD0(" D IX1^DIK
  1. Q
  1. MDC ;update MDC multiple
  1. F AUMI2=1:1 S AUMLN=$T(@AUMI+AUMI2) Q:+AUMLN D
  1. .S AUMMDC=$P(AUMLN,";",2)
  1. .S AUMDRG=$P(AUMLN,";",3)
  1. .S ^ICD0(DA,"MDC",AUMMDC,0)=AUMMDC
  1. .S ^ICD0(DA,"MDC",AUMMDC,"DRG")=AUMDRG
  1. .S:+AUMLN'=999 ^ICD0(DA,"MDC",0)="^80.12PA^"_AUMMDC_"^"_AUMI2
  1. K AUMI2,AUMMDC,AUMDRG
  1. Q
  1. REV ;revised descriptions
  1. S AUM(1)="OTHER FETAL MONITORING"
  1. S AUMCT=0
  1. F I=75.34 D
  1. .S AUMCT=AUMCT+1
  1. .S DA=$O(^ICD0("AB",I,0))
  1. .Q:'DA
  1. .S ^ICD0(DA,1)=AUM(AUMCT)
  1. .S $P(^ICD0(DA,0),"^",4)=$E(AUM(AUMCT),1,50)
  1. .S DIK="^ICD0(" D IX1^DIK
  1. Q
  1. INA ;inactivate entry point
  1. F I=67.5,81.09 D
  1. .S DA=$O(^ICD0("AB",I,0))
  1. .Q:'DA
  1. .S $P(^ICD0(DA,0),"^",11)=3011000
  1. Q
  1. ;new codes
  1. 1 ;37.28;INTRACARDIAC ECHOCARDIOGRAPHY
  1. 2 ;44.32;PERCUTANEOUS [ENDOSCOPIC] GASTROJEJUNOSTOMY
  1. ;6;154^156
  1. ;7;201
  1. ;10;288
  1. ;17;400^406^407
  1. 3 ;67.51;TRANSABDOMINAL CERCLAGE OF CERVIX;F
  1. ;13;360
  1. ;14;372^373
  1. ;21;442^443
  1. ;24;486
  1. 4 ;67.59;OTHER REPAIR OF INTERNAL CERVICAL OS;F
  1. ;13;360
  1. ;14;372^373
  1. ;21;442^443
  1. ;24;486
  1. 5 ;75.38;FETAL PULSE OXIMETRY
  1. 6 ;81.30;REFUSION OF SPINE, NOT OTHERWISE SPECIFIED
  1. ;1;4
  1. ;8;497^498
  1. ;21;442^443
  1. ;24;486
  1. 7 ;81.31;REFUSION OF ATLAS-AXIS SPINE
  1. ;1;4
  1. ;8;497^498
  1. ;21;442^443
  1. ;24;486
  1. 8 ;81.32;REFUSION OF OTHER CERVICAL SPINE, ANTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 9 ;81.33;REFUSION OF OTHER CERVICAL SPINE, POSTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 10 ;81.34;REFUSION OF DORSAL AND DORSOLUMBAR SPINE, ANTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 11 ;81.35;REFUSION OF DORSAL AND DORSOLUMBAR SPINE, POSTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24^486
  1. 12 ;81.36;REFUSION OF LUMBAR AND LUMBOSACRAL SPINE, ANTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 13 ;81.37;REFUSION OF LUMBAR AND LUMBOSACRAL SPINE, LATERAL TRANSVERSE PROCESS TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 14 ;81.38;REFUSION OF LUMBAR AND LUMBOSACRAL SPINE, POSTERIOR TECHNIQUE
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 15 ;81.39;REFUSION OF SPINE, NOT ELSEWHERE CLASSIFIED
  1. ;1;4
  1. ;8;496^519^520
  1. ;21;442^443
  1. ;24;486
  1. 16 ;97.44;NONOPERATIVE REMOVAL OF HEART ASSIST SYSTEM
  1. 999 ;end