Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
389 bytes
|
Line | |
---|
1 | RMPRUTL ;HINES OI/AAC-UTILITY PROGRAM FOR PROSTHETICS ;05/05/2004
|
---|
2 | ;;3.0;PROSTHETICS;**84**;MAY 5,2004
|
---|
3 | LKPHCPC ;
|
---|
4 | ; Patch 84 HCPCS Update 2004 - AAC 04/16/04
|
---|
5 | S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
---|
6 | Q
|
---|
7 | KILLXRF ; 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.