ICD184P.m

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 ---ICD184P   627     printed  Mar 13, 2025@20:53:33                                                                                                                                                                                                      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      ;