ICD184P ;BPOIFO/ESW - ICD/DRG; 6/22/01 2:43pm ; 9/26/02 11:16am
;;18.0;DRG Grouper;**4**;Oct 13,2000
;
;
EN ;- Post-Install entry point
;
;- Add new Diagnoses
D ADDDIAG^ICD184P2
D ADDDIAG^ICD184P6
S ^DD(80,0,"VR")="20.0"
;
;- Add new Procedures
D ADDPROC^ICD184P1
S ^DD(80.1,0,"VR")="20.0"
;
;- Inactivate/revise Diagnoses
D CHGDIAG^ICD184P3
;
;- Inactivate/revise Procedures
D CHGPROC^ICD184P3
;
;- Update Diagnoses with AGE and SEX
D ^ICD184P4
;
;- Update Diagnoses w/complications/comorbidities
; This part will be included in a follow up patch
;D EN^ICD184P5
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD184P 627 printed Nov 22, 2024@16:59:04 Page 2
ICD184P ;BPOIFO/ESW - ICD/DRG; 6/22/01 2:43pm ; 9/26/02 11:16am
+1 ;;18.0;DRG Grouper;**4**;Oct 13,2000
+2 ;
+3 ;
EN ;- Post-Install entry point
+1 ;
+2 ;- Add new Diagnoses
+3 DO ADDDIAG^ICD184P2
+4 DO ADDDIAG^ICD184P6
+5 SET ^DD(80,0,"VR")="20.0"
+6 ;
+7 ;- Add new Procedures
+8 DO ADDPROC^ICD184P1
+9 SET ^DD(80.1,0,"VR")="20.0"
+10 ;
+11 ;- Inactivate/revise Diagnoses
+12 DO CHGDIAG^ICD184P3
+13 ;
+14 ;- Inactivate/revise Procedures
+15 DO CHGPROC^ICD184P3
+16 ;
+17 ;- Update Diagnoses with AGE and SEX
+18 DO ^ICD184P4
+19 ;
+20 ;- Update Diagnoses w/complications/comorbidities
+21 ; This part will be included in a follow up patch
+22 ;D EN^ICD184P5
+23 ;
+24 QUIT
+25 ;
