|
Last change
on this file since 1780 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.5 KB
|
| Rev | Line | |
|---|
| 1 | ICDHLPO ;ALB/GRR/EG-HELP DISPLAY FOR OPERATION IDENTIFIERS ; 9/22/04 9:38am
|
|---|
| 2 | ;;18.0;DRG Grouper;**10,14**;Oct 20, 2000;Build 1
|
|---|
| 3 | EN ;revised 12/94 abr
|
|---|
| 4 | N ICDID,I,J,ID
|
|---|
| 5 | F I=1:1 S ICDID=$T(PXCODE+I),ICDID=$P(ICDID,";;",2) Q:ICDID="EXIT" D
|
|---|
| 6 | . S ICDID($P(ICDID,"="))=ICDID
|
|---|
| 7 | W ! S I="" F J=0:1 S I=$O(ICDID(I)) Q:I="" D
|
|---|
| 8 | . I J#3 W ?(J#3*27)
|
|---|
| 9 | . I '(J#3) W !
|
|---|
| 10 | . W ICDID(I)
|
|---|
| 11 | K ICDID
|
|---|
| 12 | W ! F I=1:1 S ICDID=$T(PNCODE+I),ICDID=$P(ICDID,";;",2) Q:ICDID="EXIT" D
|
|---|
| 13 | . W ?(I-1#3*27) I '(I-1#3) W !
|
|---|
| 14 | .W ICDID
|
|---|
| 15 | W !
|
|---|
| 16 | Q
|
|---|
| 17 | PXCODE ; procedure id codes
|
|---|
| 18 | ;;H=Cardiac Cath/Angiogr
|
|---|
| 19 | ;;N=Non-OR proc.
|
|---|
| 20 | ;;E=Common Duct Expl.
|
|---|
| 21 | ;;g=other MDC13 OR proc.
|
|---|
| 22 | ;;a=other MDC12 OR proc.
|
|---|
| 23 | ;;K=Intracranial Vascular
|
|---|
| 24 | ;;S=Ventricular Shunt
|
|---|
| 25 | ;;T=Total Cholecystect.
|
|---|
| 26 | ;;O=OR proc.
|
|---|
| 27 | ;;L=Local Excision/Biopsy
|
|---|
| 28 | ;;I=Tubal Interruption
|
|---|
| 29 | ;;c=Cesarean Section
|
|---|
| 30 | ;;n=No compl. OR proc.
|
|---|
| 31 | ;;s=Steriliza/postpart D&C
|
|---|
| 32 | ;;d=D&C
|
|---|
| 33 | ;;z=Non-extensive
|
|---|
| 34 | ;;y=Prostatic
|
|---|
| 35 | ;;e=Extractns & Restoratns.
|
|---|
| 36 | ;;D=Rehab&Detox
|
|---|
| 37 | ;;R=Rehab
|
|---|
| 38 | ;;P=Valve proc.
|
|---|
| 39 | ;;o=DRG108 proc.
|
|---|
| 40 | ;;l=Liver
|
|---|
| 41 | ;;b=Bypass
|
|---|
| 42 | ;;t=Trachea
|
|---|
| 43 | ;;B=Bone Marrow
|
|---|
| 44 | ;;h=Hepatobiliary
|
|---|
| 45 | ;;p=Pacemaker Lead
|
|---|
| 46 | ;;m=Subtotal Mastect.
|
|---|
| 47 | ;;M=Total Mastectomy
|
|---|
| 48 | ;;q=Heart Transplant
|
|---|
| 49 | ;;r=Lung Transplant
|
|---|
| 50 | ;;u=Proc for trauma
|
|---|
| 51 | ;;x=Extensive Procedure
|
|---|
| 52 | ;;F=combined spinal fusion
|
|---|
| 53 | ;;k=skin graft
|
|---|
| 54 | ;;f=other MDC24 OR proc.
|
|---|
| 55 | ;;V=Ventilator
|
|---|
| 56 | ;;C=Chemo inplant
|
|---|
| 57 | ;;Q=Craniotomy
|
|---|
| 58 | ;;I=injectable/infusion (injection or infusion of drugs)
|
|---|
| 59 | ;;EXIT
|
|---|
| 60 | Q
|
|---|
| 61 | PNCODE ;numeric ID's for procedures/ operations
|
|---|
| 62 | ;;1=Percutaneous
|
|---|
| 63 | ;;2=DRG228 proc.
|
|---|
| 64 | ;;3=Biliary
|
|---|
| 65 | ;;4=DRG232 proc.
|
|---|
| 66 | ;;6=DRG106
|
|---|
| 67 | ;;7=DRG110
|
|---|
| 68 | ;;7=DRG117
|
|---|
| 69 | ;;EXIT
|
|---|
| 70 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
