ICDHLPO ;ALB/GRR/EG-HELP DISPLAY FOR OPERATION IDENTIFIERS ; 11/9/07 12:52pm
;;18.0;DRG Grouper;**10,14,31,55**;Oct 20, 2000;Build 20
EN ;revised 12/94 abr
N ICDID,I,J,ID
F I=1:1 S ICDID=$T(PXCODE+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(PNCODE+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
PXCODE ; procedure id codes
;;A=Amputation
;;B=Bone Marrow
;;C=Chemo inplant
;;D=Rehab&Detox
;;E=Common Duct Expl.
;;F=combined spinal fusion
;;H=Cardiac Cath/Angiogr
;;I=Tubal Interruption
;;J=Inguinal and femoral hernia procedures
;;K=Intracranial Vascular
;;L=Local Excision/Biopsy
;;M=Total Mastectomy
;;N=Non-OR proc.
;;O=OR proc
;;P=Valve proc.
;;Q=Craniotomy
;;R=Rehab
;;S=Ventricular Shunt
;;T=Total CHOLECYSTECTOMY
;;V=Ventilator
;;Z=Stent procedures
;;a=other MDC12 OR proc. - MALE REPRODUCTIVE SYSTEM
;;b=Bypass
;;c=Cesarean Section
;;d=D&C
;;e=Extractns & Restoratns.
;;f=other MDC24 OR proc.- MULTIPLE SIGNIFICANT TRAUMA
;;g=other MDC13 OR proc. - FEMALE REPRODUCTIVE SYSTEM
;;h=Hepatobiliary
;;i=injectable/infusion (injection or infusion of drugs)
;;k=skin graft
;;l=Liver
;;m=Subtotal Mastect.
;;n=No compl. OR proc.
;;o=DRG108 proc.before10/1/07(CMS)-Other cardiothoracic procedures
;;o=DRG228 after 9/31/07(MS)-Other cardiothoracic procedures
;;p=Pacemaker Lead
;;q=Heart Transplant
;;r=Lung Transplant
;;s=Steriliza/postpart D&C
;;t=Trachea
;;u=Proc for trauma
;;x=Extensive Procedure
;;y=Prostatic
;;z=Non-extensive
;;EXIT
Q
PNCODE ;numeric ID's for procedures/ operations
;;1=Percutaneous procedure done through the skin
;;2=DRG228-before10/1/07(CMS)- Major thumb or joint procedures
;;2=DRG506 after 9/31/07(MS)- Major thumb or joint procedures
;;3=Biliary
;;4=DRG232 before10/1/07(CMS)-Arthroscopy
;;4=DRG509 after 9/31/07(MS)-Arthroscopy
;;6=DRG106 before10/1/07(CMS)-coronary bypass
;;6=DRG231 after 9/31/07(MS)-coronary bypass
;;7=DRG110,117 before10/1/07(CMS)-Major cardiovasc procedures or thoracic aortic anuerysm repair
;;7=DRG237,260 after 9/31/07(MS)-Major cardiovasc procedures or thoracic aortic anuerysm repair
;;EXIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICDHLPO 2421 printed Oct 16, 2024@17:51:34 Page 2
ICDHLPO ;ALB/GRR/EG-HELP DISPLAY FOR OPERATION IDENTIFIERS ; 11/9/07 12:52pm
+1 ;;18.0;DRG Grouper;**10,14,31,55**;Oct 20, 2000;Build 20
EN ;revised 12/94 abr
+1 NEW ICDID,I,J,ID
+2 FOR I=1:1
SET ICDID=$TEXT(PXCODE+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(PNCODE+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
PXCODE ; procedure id codes
+1 ;;A=Amputation
+2 ;;B=Bone Marrow
+3 ;;C=Chemo inplant
+4 ;;D=Rehab&Detox
+5 ;;E=Common Duct Expl.
+6 ;;F=combined spinal fusion
+7 ;;H=Cardiac Cath/Angiogr
+8 ;;I=Tubal Interruption
+9 ;;J=Inguinal and femoral hernia procedures
+10 ;;K=Intracranial Vascular
+11 ;;L=Local Excision/Biopsy
+12 ;;M=Total Mastectomy
+13 ;;N=Non-OR proc.
+14 ;;O=OR proc
+15 ;;P=Valve proc.
+16 ;;Q=Craniotomy
+17 ;;R=Rehab
+18 ;;S=Ventricular Shunt
+19 ;;T=Total CHOLECYSTECTOMY
+20 ;;V=Ventilator
+21 ;;Z=Stent procedures
+22 ;;a=other MDC12 OR proc. - MALE REPRODUCTIVE SYSTEM
+23 ;;b=Bypass
+24 ;;c=Cesarean Section
+25 ;;d=D&C
+26 ;;e=Extractns & Restoratns.
+27 ;;f=other MDC24 OR proc.- MULTIPLE SIGNIFICANT TRAUMA
+28 ;;g=other MDC13 OR proc. - FEMALE REPRODUCTIVE SYSTEM
+29 ;;h=Hepatobiliary
+30 ;;i=injectable/infusion (injection or infusion of drugs)
+31 ;;k=skin graft
+32 ;;l=Liver
+33 ;;m=Subtotal Mastect.
+34 ;;n=No compl. OR proc.
+35 ;;o=DRG108 proc.before10/1/07(CMS)-Other cardiothoracic procedures
+36 ;;o=DRG228 after 9/31/07(MS)-Other cardiothoracic procedures
+37 ;;p=Pacemaker Lead
+38 ;;q=Heart Transplant
+39 ;;r=Lung Transplant
+40 ;;s=Steriliza/postpart D&C
+41 ;;t=Trachea
+42 ;;u=Proc for trauma
+43 ;;x=Extensive Procedure
+44 ;;y=Prostatic
+45 ;;z=Non-extensive
+46 ;;EXIT
+47 QUIT
PNCODE ;numeric ID's for procedures/ operations
+1 ;;1=Percutaneous procedure done through the skin
+2 ;;2=DRG228-before10/1/07(CMS)- Major thumb or joint procedures
+3 ;;2=DRG506 after 9/31/07(MS)- Major thumb or joint procedures
+4 ;;3=Biliary
+5 ;;4=DRG232 before10/1/07(CMS)-Arthroscopy
+6 ;;4=DRG509 after 9/31/07(MS)-Arthroscopy
+7 ;;6=DRG106 before10/1/07(CMS)-coronary bypass
+8 ;;6=DRG231 after 9/31/07(MS)-coronary bypass
+9 ;;7=DRG110,117 before10/1/07(CMS)-Major cardiovasc procedures or thoracic aortic anuerysm repair
+10 ;;7=DRG237,260 after 9/31/07(MS)-Major cardiovasc procedures or thoracic aortic anuerysm repair
+11 ;;EXIT
+12 QUIT
