- 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 ---[H[J[2J[HICD1854P 270 printed Mar 13, 2025@20:53:36 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
