ICD1854P.m

ICD1854P ;ALB/MJB -DRG UPDATES;3/4/2011

 ;;18.0;DRG Grouper;**54**;Oct 20, 2000;Build 12

 ;

 Q

ICDPX ;UPDATE PX

 N X,DA,DIE,IDENT,DR

 D BMES^XPDUTL(">>> UPDATING PX IDENTIFIER...")

 S DA=598

 S DIE="^ICD0("

 S IDENT="Pp7"

 S DR="2////^S X=IDENT"

 D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1854P   270     printed  Nov 22, 2024@16:59:07                                                                                                                                                                                                     Page 2

ICD1854P  ;ALB/MJB -DRG UPDATES;3/4/2011

 +1       ;;18.0;DRG Grouper;**54**;Oct 20, 2000;Build 12

 +2       ;

 +3        QUIT 

ICDPX     ;UPDATE PX

 +1        NEW X,DA,DIE,IDENT,DR

 +2        DO BMES^XPDUTL(">>> UPDATING PX IDENTIFIER...")

 +3        SET DA=598

 +4        SET DIE="^ICD0("

 +5        SET IDENT="Pp7"

 +6        SET DR="2////^S X=IDENT"

 +7        DO ^DIE

 +8        QUIT