Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
389 bytes
|
Rev | Line | |
---|
[628] | 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.