source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRUTL.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 389 bytes
Line 
1RMPRUTL ;HINES OI/AAC-UTILITY PROGRAM FOR PROSTHETICS ;05/05/2004
2 ;;3.0;PROSTHETICS;**84**;MAY 5,2004
3LKPHCPC ;
4 ; Patch 84 HCPCS Update 2004 - AAC 04/16/04
5 S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
6 Q
7KILLXRF ; KILL XREF E AND DD ENTRY
8 ; Patch 84 HCPCS Update 2004 - AAC 05/28/04
9 K ^RMPR(661.1,"E") S DA(1)=661.1
10 S DIK="^DD(661.1,",DA=2 D ^DIK
11 Q
12 ;
13 ;END
Note: See TracBrowser for help on using the repository browser.