- 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 Feb 18, 2025@23:17:14 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
