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

ICD18P36.m

Go to the documentation of this file.
  1. ICD18P36 ;ALB/MJB - ADD NON CC CODE ; 06/11/08 4:07pm
  1. ;;18.0;DRG Grouper;**36**;Oct 20, 2000;Build 14
  1. Q
  1. POST ;entry point to add code
  1. N SDA,ICDFLG
  1. S SDA(1)="",SDA(2)=" ICD*18.0*36 Post-Install starting.....",SDA(3)="" D ATADDQ
  1. N SDA
  1. S SDA(1)="",SDA(2)=" Adding code 427.31 to multiple CODE NOT CC WITH(#80.03) "
  1. S SDA(3)=" in the ICD DIAGNOSIS file (# 80)for code 427.32" D ATADDQ
  1. ;
  1. N ICDA
  1. S ICDA=0,ICDFLG=0
  1. ;F S ICDA=$O(^ICD9("ACC",2558,ICDA),-1) Q:ICDFLG!(ICDA="") D
  1. F S ICDA=$O(^ICD9("ACC",2558,ICDA)) Q:ICDFLG!(ICDA="") D
  1. .I ICDA=2557 D ICDADDQ S ICDFLG=1 Q
  1. ;
  1. EN ;start update
  1. N DIC,X,DA
  1. S DIC="^ICD9(2558,"_"2,",DA(1)=2,X=2557,DIC(0)="X"
  1. I '$D(^ICD9("ACC",2558,X)) D
  1. . D FILE^DICN
  1. .S ^ICD9("ACC",2558,X)=""
  1. .N SDA
  1. .S SDA(1)="",SDA(2)=" ICD*18.0*36 Post-Install completed.....",SDA(3)="" D ATADDQ
  1. .Q
  1. Q
  1. ICDADDQ ;
  1. N SDA
  1. S SDA(1)="",SDA(2)=" DUPLICATE CODE - CODE NOT ADDED"
  1. S SDA(3)=" ICD*18.0*36 Post-Install completed....." D ATADDQ
  1. ATADDQ ;
  1. D MES^XPDUTL(.SDA) K SDA
  1. Q
  1. ;