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 ---[H[J[2J[HICDHLPD 2528 printed Apr 09, 2024@20:57:04 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
