source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICDHLPO.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1ICDHLPO ;ALB/GRR/EG-HELP DISPLAY FOR OPERATION IDENTIFIERS ; 11/9/07 12:52pm
2 ;;18.0;DRG Grouper;**10,14,31**;Oct 20, 2000;Build 7
3EN ;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
17PXCODE ; 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 ;;J=Inguinal and femoral hernia procedures
60 ;;EXIT
61 Q
62PNCODE ;numeric ID's for procedures/ operations
63 ;;1=Percutaneous
64 ;;2=DRG228 proc.
65 ;;3=Biliary
66 ;;4=DRG232 proc.
67 ;;6=DRG106
68 ;;7=DRG110
69 ;;7=DRG117
70 ;;EXIT
71 Q
Note: See TracBrowser for help on using the repository browser.