Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ICD1854P

ICD1854P.m

Go to the documentation of this file.

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

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1854P   270     printed  Apr 09, 2024@20:56:42                                                                                                                                                                                                     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