|
Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
389 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
