ICD1833P.m

ICD1833P  ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;

 ;;18.0;DRG Grouper;**33**;Oct 13,2000;Build 7

 ;

 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

ICD1833P  ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;

 +1       ;;18.0;DRG Grouper;**33**;Oct 13,2000;Build 7

 +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