ICD1833P ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;
;;18.0;DRG Grouper;**33**;Oct 13,2000;Build 8
;
Q
DRG ;
N FDA,DA,DIE,DR,MAJOR
;
; HD233286
;
; next line in case patch being re-installed
I $P(^ICD9(14197,3,1,1,0),U,4)=7 G NEXT
S FDA(1820,80,"?1,",.01)="`14197"
S FDA(1820,80.071,"?2,?1,",.01)=3071001
S FDA(1820,80.711,"+3,?2,?1,",.01)=826
S FDA(1820,80.711,"+4,?2,?1,",.01)=827
S FDA(1820,80.711,"+5,?2,?1,",.01)=828
S FDA(1820,80.711,"+6,?2,?1,",.01)=829
S FDA(1820,80.711,"+7,?2,?1,",.01)=830
D UPDATE^DIE("","FDA(1820)") K FDA(1820)
S FDA(1820,80,"?1,",.01)="`14198"
S FDA(1820,80.071,"?2,?1,",.01)=3071001
S FDA(1820,80.711,"+3,?2,?1,",.01)=826
S FDA(1820,80.711,"+4,?2,?1,",.01)=827
S FDA(1820,80.711,"+5,?2,?1,",.01)=828
S FDA(1820,80.711,"+6,?2,?1,",.01)=829
S FDA(1820,80.711,"+7,?2,?1,",.01)=830
D UPDATE^DIE("","FDA(1820)") K FDA(1820)
;
NEXT ;
; HD223286
;
S DA=3035
S DIE="^ICD0("
S MAJOR="B"
S DR="20///^S X=MAJOR"
D ^DIE
;
; HD241831
K DIC,DA,X,ROUTINE
S DA(1)=217
S DIC="^ICD("_DA(1)_",2,"
S DIC(0)="L"
S ROUTINE="ICDTLB3C"
S DIC("DR")="1///^S X=ROUTINE"
S X=3061001
K DO D FILE^DICN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1833P 1204 printed Dec 13, 2024@01:48:43 Page 2
ICD1833P ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;
+1 ;;18.0;DRG Grouper;**33**;Oct 13,2000;Build 8
+2 ;
+3 QUIT
DRG ;
+1 NEW FDA,DA,DIE,DR,MAJOR
+2 ;
+3 ; HD233286
+4 ;
+5 ; next line in case patch being re-installed
+6 IF $PIECE(^ICD9(14197,3,1,1,0),U,4)=7
GOTO NEXT
+7 SET FDA(1820,80,"?1,",.01)="`14197"
+8 SET FDA(1820,80.071,"?2,?1,",.01)=3071001
+9 SET FDA(1820,80.711,"+3,?2,?1,",.01)=826
+10 SET FDA(1820,80.711,"+4,?2,?1,",.01)=827
+11 SET FDA(1820,80.711,"+5,?2,?1,",.01)=828
+12 SET FDA(1820,80.711,"+6,?2,?1,",.01)=829
+13 SET FDA(1820,80.711,"+7,?2,?1,",.01)=830
+14 DO UPDATE^DIE("","FDA(1820)")
KILL FDA(1820)
+15 SET FDA(1820,80,"?1,",.01)="`14198"
+16 SET FDA(1820,80.071,"?2,?1,",.01)=3071001
+17 SET FDA(1820,80.711,"+3,?2,?1,",.01)=826
+18 SET FDA(1820,80.711,"+4,?2,?1,",.01)=827
+19 SET FDA(1820,80.711,"+5,?2,?1,",.01)=828
+20 SET FDA(1820,80.711,"+6,?2,?1,",.01)=829
+21 SET FDA(1820,80.711,"+7,?2,?1,",.01)=830
+22 DO UPDATE^DIE("","FDA(1820)")
KILL FDA(1820)
+23 ;
NEXT ;
+1 ; HD223286
+2 ;
+3 SET DA=3035
+4 SET DIE="^ICD0("
+5 SET MAJOR="B"
+6 SET DR="20///^S X=MAJOR"
+7 DO ^DIE
+8 ;
+9 ; HD241831
+10 KILL DIC,DA,X,ROUTINE
+11 SET DA(1)=217
+12 SET DIC="^ICD("_DA(1)_",2,"
+13 SET DIC(0)="L"
+14 SET ROUTINE="ICDTLB3C"
+15 SET DIC("DR")="1///^S X=ROUTINE"
+16 SET X=3061001
+17 KILL DO
DO FILE^DICN
+18 QUIT
