RMPRUTL.m

RMPRUTL ;HINES OI/AAC-UTILITY PROGRAM FOR PROSTHETICS ;05/05/2004

 ;;3.0;PROSTHETICS;**84**;MAY 5,2004

LKPHCPC ;

 ; Patch 84 HCPCS Update 2004 - AAC 04/16/04

 S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 Q

KILLXRF ; KILL XREF E AND DD ENTRY

 ; Patch 84 HCPCS Update 2004 - AAC 05/28/04

 K ^RMPR(661.1,"E") S DA(1)=661.1

 S DIK="^DD(661.1,",DA=2 D ^DIK

 Q

 ;

 ;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPRUTL   402     printed  Dec 13, 2024@02:37:59                                                                                                                                                                                                      Page 2

RMPRUTL   ;HINES OI/AAC-UTILITY PROGRAM FOR PROSTHETICS ;05/05/2004

 +1       ;;3.0;PROSTHETICS;**84**;MAY 5,2004

LKPHCPC   ;

 +1       ; Patch 84 HCPCS Update 2004 - AAC 04/16/04

 +2        SET X=$TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +3        QUIT 

KILLXRF   ; KILL XREF E AND DD ENTRY

 +1       ; Patch 84 HCPCS Update 2004 - AAC 05/28/04

 +2        KILL ^RMPR(661.1,"E")

           SET DA(1)=661.1

 +3        SET DIK="^DD(661.1,"

           SET DA=2

           DO ^DIK

 +4        QUIT 

 +5       ;

 +6       ;END