ICDHLPD.m

ICDHLPD ;ALB/GRR/EG - HELP DISPLAY DIAGNOSIS IDENTIFIERS ; 9/22/04 9:41am

 ;;18.0;DRG Grouper;**10,14,20,24,55,62**;Oct 20, 2000;Build 10

EN ;routine revised 12/94

 N ICDID,I,J,ID

 F I=1:1 S ICDID=$T(DXCODE+I),ICDID=$E($P(ICDID,";;",2),1,25) Q:ICDID="EXIT"  D

 . S ICDID($P(ICDID,"="))=ICDID

 W ! S I="" F J=0:1 S I=$O(ICDID(I)) Q:I=""  D

 . I J#3 W ?(J#3*27)

 . I '(J#3) W !

 . W ICDID(I)

 K ICDID

 W ! F I=1:1 S ICDID=$T(DNCODE+I),ICDID=$E($P(ICDID,";;",2),1,25) Q:ICDID="EXIT"  D

 . W ?(I-1#3*27) I '(I-1#3) W !

 .W ICDID

 W !

 Q

MAJ ;display major or procedure identifier

 W !,"1=Bowel",?20,"2=Chest",?50,"3=Lymphoma/Leukemia"

 W !,"4=Joint",?20,"5=Pancreas/Liver",?50,"6=Pelvic"

 W !,"7=Shoulder/Elbow",?20,"8=Thumb/Joint",?50,"9=Head/Neck"

 W !,"A=Cardio",?20,"M=Musculoskeletal",?50,"B=Spine"

 Q

DXCODE ;DIAGNOSIS CODES

 ;;A=AMI/CHF

 ;;B=abrtn

 ;;D=Delivered

 ;;E=extrm immtrty

 ;;F=fem

 ;;G=Ganglion

 ;;H=any DX

 ;;I=Acute MI

 ;;J=Maj prblm

 ;;K=Intracranial Hemorrhage

 ;;L=Leukemia/lymphoma

 ;;M=malignancy/Neoplasm

 ;;O=only

 ;;P=Pruritis

 ;;Q=Acute CNS DX

 ;;R=full term

 ;;S=Significant problem

 ;;T=Trauma

 ;;U=Ulcer/itis

 ;;V=CV cmplctn

 ;;W=Severe Sepsis

 ;;X=cmplx/cmplctd

 ;;Y=Mouth,Larynx,Pharynx

 ;;Z=2ndry DX of Heart failur

 ;;a=Adenoidectomy/Tonsillect

 ;;b=full thickness burn

 ;;c=MCV in prime or 2ndry

 ;;d=Postpartum

 ;;g=major GI dx

 ;;h=HIV

 ;;i=hiv related cond

 ;;j=inhalation injury

 ;;k=infection

 ;;l=Acute leuk.

 ;;m=hist malig as 2ry dx

 ;;o=ovary

 ;;p=prematurity

 ;;r=Breast Malig

 ;;s=MCV in 2ndry

 ;;t=Therapy

 ;;u=antepartum cmplx

 ;;v=Dx comp vag delivry

 ;;z=not sig 2ry dx

 ;;EXIT

 Q

DNCODE ; NUMERIC/OTHER ID CODES

 ;;1=coma>1hr

 ;;2=DRG492 before10/1/07(CMS) Chemo w acute leukemia as sdx or w high dose chemo agent

 ;;2=DRG 837 after 9/31/07(MS) Chemo w acute leukemia as sdx or w high dose chemo agent

 ;;3=DRG480 before10/1/07(CMS) liver transplant

 ;;3=DRG 005 after 9/31/07(MS) liver transplant

 ;;4=DRG481 before10/1/07(CMS) Bone marrow transplant  

 ;;4=DRG 009 after 9/31/07(MS) TRACH W MV 96+ HRS OR PDX EXC FACE, MOUTH & NECK W/O MAJ O.R

 ;;4=DRG14,15 after 10/1/07 ALLOGENEIC/AUTOLOGOUS BONE MARROW TRANSPLANT

 ;;4=DRG14,16,17 aft 9/31/11 ALLOGENEIC/AUTOLOGOUS BONE MARROW TRANSPLANT

 ;;5=DRG481 w/leuk

 ;;6=DRG546 curvature of spine or malignancy - before 10012007

 ;;6=DRG456 after 9/31/07 - Spinal fus exc cerv w spinal curv/malig/infec or 9+ fus w MCC

 ;;*=extensive burn

 ;;EXIT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICDHLPD   2528     printed  Feb 18, 2025@23:17:13                                                                                                                                                                                                     Page 2

ICDHLPD   ;ALB/GRR/EG - HELP DISPLAY DIAGNOSIS IDENTIFIERS ; 9/22/04 9:41am

 +1       ;;18.0;DRG Grouper;**10,14,20,24,55,62**;Oct 20, 2000;Build 10

EN        ;routine revised 12/94

 +1        NEW ICDID,I,J,ID

 +2        FOR I=1:1

               SET ICDID=$TEXT(DXCODE+I)

               SET ICDID=$EXTRACT($PIECE(ICDID,";;",2),1,25)

               if ICDID="EXIT"

                   QUIT 

               Begin DoDot:1

 +3                SET ICDID($PIECE(ICDID,"="))=ICDID

               End DoDot:1

 +4        WRITE !

           SET I=""

           FOR J=0:1

               SET I=$ORDER(ICDID(I))

               if I=""

                   QUIT 

               Begin DoDot:1

 +5                IF J#3

                       WRITE ?(J#3*27)

 +6                IF '(J#3)

                       WRITE !

 +7                WRITE ICDID(I)

               End DoDot:1

 +8        KILL ICDID

 +9        WRITE !

           FOR I=1:1

               SET ICDID=$TEXT(DNCODE+I)

               SET ICDID=$EXTRACT($PIECE(ICDID,";;",2),1,25)

               if ICDID="EXIT"

                   QUIT 

               Begin DoDot:1

 +10               WRITE ?(I-1#3*27)

                   IF '(I-1#3)

                       WRITE !

 +11               WRITE ICDID

               End DoDot:1

 +12       WRITE !

 +13       QUIT 

MAJ       ;display major or procedure identifier

 +1        WRITE !,"1=Bowel",?20,"2=Chest",?50,"3=Lymphoma/Leukemia"

 +2        WRITE !,"4=Joint",?20,"5=Pancreas/Liver",?50,"6=Pelvic"

 +3        WRITE !,"7=Shoulder/Elbow",?20,"8=Thumb/Joint",?50,"9=Head/Neck"

 +4        WRITE !,"A=Cardio",?20,"M=Musculoskeletal",?50,"B=Spine"

 +5        QUIT 

DXCODE    ;DIAGNOSIS CODES

 +1       ;;A=AMI/CHF

 +2       ;;B=abrtn

 +3       ;;D=Delivered

 +4       ;;E=extrm immtrty

 +5       ;;F=fem

 +6       ;;G=Ganglion

 +7       ;;H=any DX

 +8       ;;I=Acute MI

 +9       ;;J=Maj prblm

 +10      ;;K=Intracranial Hemorrhage

 +11      ;;L=Leukemia/lymphoma

 +12      ;;M=malignancy/Neoplasm

 +13      ;;O=only

 +14      ;;P=Pruritis

 +15      ;;Q=Acute CNS DX

 +16      ;;R=full term

 +17      ;;S=Significant problem

 +18      ;;T=Trauma

 +19      ;;U=Ulcer/itis

 +20      ;;V=CV cmplctn

 +21      ;;W=Severe Sepsis

 +22      ;;X=cmplx/cmplctd

 +23      ;;Y=Mouth,Larynx,Pharynx

 +24      ;;Z=2ndry DX of Heart failur

 +25      ;;a=Adenoidectomy/Tonsillect

 +26      ;;b=full thickness burn

 +27      ;;c=MCV in prime or 2ndry

 +28      ;;d=Postpartum

 +29      ;;g=major GI dx

 +30      ;;h=HIV

 +31      ;;i=hiv related cond

 +32      ;;j=inhalation injury

 +33      ;;k=infection

 +34      ;;l=Acute leuk.

 +35      ;;m=hist malig as 2ry dx

 +36      ;;o=ovary

 +37      ;;p=prematurity

 +38      ;;r=Breast Malig

 +39      ;;s=MCV in 2ndry

 +40      ;;t=Therapy

 +41      ;;u=antepartum cmplx

 +42      ;;v=Dx comp vag delivry

 +43      ;;z=not sig 2ry dx

 +44      ;;EXIT

 +45       QUIT 

DNCODE    ; NUMERIC/OTHER ID CODES

 +1       ;;1=coma>1hr

 +2       ;;2=DRG492 before10/1/07(CMS) Chemo w acute leukemia as sdx or w high dose chemo agent

 +3       ;;2=DRG 837 after 9/31/07(MS) Chemo w acute leukemia as sdx or w high dose chemo agent

 +4       ;;3=DRG480 before10/1/07(CMS) liver transplant

 +5       ;;3=DRG 005 after 9/31/07(MS) liver transplant

 +6       ;;4=DRG481 before10/1/07(CMS) Bone marrow transplant  

 +7       ;;4=DRG 009 after 9/31/07(MS) TRACH W MV 96+ HRS OR PDX EXC FACE, MOUTH & NECK W/O MAJ O.R

 +8       ;;4=DRG14,15 after 10/1/07 ALLOGENEIC/AUTOLOGOUS BONE MARROW TRANSPLANT

 +9       ;;4=DRG14,16,17 aft 9/31/11 ALLOGENEIC/AUTOLOGOUS BONE MARROW TRANSPLANT

 +10      ;;5=DRG481 w/leuk

 +11      ;;6=DRG546 curvature of spine or malignancy - before 10012007

 +12      ;;6=DRG456 after 9/31/07 - Spinal fus exc cerv w spinal curv/malig/infec or 9+ fus w MCC

 +13      ;;*=extensive burn

 +14      ;;EXIT

 +15       QUIT