| 1 | ICDHLPD ;ALB/GRR/EG - HELP DISPLAY DIAGNOSIS IDENTIFIERS ; 9/22/04 9:41am
|
|---|
| 2 | ;;18.0;DRG Grouper;**10,14,20,24**;Oct 20, 2000;Build 5
|
|---|
| 3 | EN ;routine revised 12/94
|
|---|
| 4 | N ICDID,I,J,ID
|
|---|
| 5 | F ID="DXCODE","DNCODE" D
|
|---|
| 6 | . F I=1:1 S ICDID=$T(@ID+I),ICDID=$P(ICDID,";;",2) Q:ICDID="EXIT" D
|
|---|
| 7 | .. S ICDID($P(ICDID,"="))=ICDID
|
|---|
| 8 | . W ! S I="" F J=0:1 S I=$O(ICDID(I)) Q:I="" D
|
|---|
| 9 | .. I J#3 W ?(J#3*27)
|
|---|
| 10 | .. I '(J#3) W !
|
|---|
| 11 | .. W ICDID(I)
|
|---|
| 12 | . K ICDID
|
|---|
| 13 | W !
|
|---|
| 14 | Q
|
|---|
| 15 | MAJ ;display major or procedure identifier
|
|---|
| 16 | W !,"1=Bowel",?20,"2=Chest",?50,"3=Lymphoma/Leukemia"
|
|---|
| 17 | W !,"4=Joint",?20,"5=Pancreas/Liver",?50,"6=Pelvic"
|
|---|
| 18 | W !,"7=Shoulder/Elbow",?20,"8=Thumb/Joint",?50,"9=Head/Neck"
|
|---|
| 19 | W !,"A=Cardio",?20,"M=Musculoskeletal",?50,"B=Spine"
|
|---|
| 20 | Q
|
|---|
| 21 | DXCODE ;DIAGNOSIS CODES
|
|---|
| 22 | ;;H=any DX
|
|---|
| 23 | ;;V=CV cmplctn
|
|---|
| 24 | ;;p=prematurity
|
|---|
| 25 | ;;F=fem
|
|---|
| 26 | ;;J=Maj prblm
|
|---|
| 27 | ;;T=Trauma
|
|---|
| 28 | ;;A=AMI/CHF
|
|---|
| 29 | ;;P=Pruritis
|
|---|
| 30 | ;;d=Postpartum
|
|---|
| 31 | ;;Y=Mouth,Larynx,Pharynx
|
|---|
| 32 | ;;t=Therapy
|
|---|
| 33 | ;;r=Breast Malig
|
|---|
| 34 | ;;l=Acute leuk.
|
|---|
| 35 | ;;E=extrm immtrty
|
|---|
| 36 | ;;K=Intracranial Hemorrhage
|
|---|
| 37 | ;;R=full term
|
|---|
| 38 | ;;O=only
|
|---|
| 39 | ;;I=Acute MI
|
|---|
| 40 | ;;G=Ganglion
|
|---|
| 41 | ;;D=Delivered
|
|---|
| 42 | ;;m=hist malig as 2ry dx
|
|---|
| 43 | ;;S=Significant problem
|
|---|
| 44 | ;;u=antepartum cmplx
|
|---|
| 45 | ;;X=cmplx/cmplctd
|
|---|
| 46 | ;;a=Adenoidectomy/Tonsillect
|
|---|
| 47 | ;;B=abrtn
|
|---|
| 48 | ;;b=full thickness burn
|
|---|
| 49 | ;;z=not sig 2ry dx
|
|---|
| 50 | ;;M=malignancy/Neoplasm
|
|---|
| 51 | ;;U=Ulcer/itis
|
|---|
| 52 | ;;L=Leukemia/lymphoma
|
|---|
| 53 | ;;v=Dx comp vag delivry
|
|---|
| 54 | ;;k=infection
|
|---|
| 55 | ;;h=HIV
|
|---|
| 56 | ;;i=hiv related cond
|
|---|
| 57 | ;;j=inhalation injury
|
|---|
| 58 | ;;Q=Acute CNS DX
|
|---|
| 59 | ;;W=Severe Sepsis
|
|---|
| 60 | ;;Z=2ndry HF (2ndry dx of heart failure)
|
|---|
| 61 | ;;c=MCV in prime or 2ndry
|
|---|
| 62 | ;;s=MCV in 2ndry
|
|---|
| 63 | ;;g=major GI dx
|
|---|
| 64 | ;;EXIT
|
|---|
| 65 | Q
|
|---|
| 66 | DNCODE ; NUMERIC/OTHER ID CODES
|
|---|
| 67 | ;;1=coma>1hr
|
|---|
| 68 | ;;2=DRG492
|
|---|
| 69 | ;;3=DRG480
|
|---|
| 70 | ;;4=DRG481
|
|---|
| 71 | ;;5=DRG481 w/leuk
|
|---|
| 72 | ;;6=DRG546 curvature of spine or malignancy
|
|---|
| 73 | ;;*=extensive burn
|
|---|
| 74 | ;;EXIT
|
|---|
| 75 | Q
|
|---|
