Last change
on this file since 952 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
1.5 KB
|
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.