Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
611 bytes
|
Rev | Line | |
---|
[613] | 1 | MCPRE02 ;HISC/DAD-FIX DATA IN PROCEDURE/SUBSPECIALTY FILE ;7/25/96 12:34
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | ;
|
---|
| 4 | ; Procedure/Subspecialty file (#697.2) Print Name field (#7)
|
---|
| 5 | ; Change 'GI ENDSCOPIC' to 'GI ENDOSCOPIC'
|
---|
| 6 | N DA,DIE,DR,MCD0,TEMP
|
---|
| 7 | S TEMP(1)=""
|
---|
| 8 | S TEMP(2)="Cleaning up data in the Procedure/Subspecialty file (#697.2)."
|
---|
| 9 | D MES^XPDUTL(.TEMP)
|
---|
| 10 | ;
|
---|
| 11 | I $$VFILE^DILFD(697.2) D
|
---|
| 12 | . S MCD0=0
|
---|
| 13 | . F S MCD0=$O(^MCAR(697.2,MCD0)) Q:MCD0'>0 D
|
---|
| 14 | .. S DR="2///@;2.1///@;9///@;10///@"
|
---|
| 15 | .. I $P($G(^MCAR(697.2,MCD0,0)),U,8)="GI ENDSCOPIC" S DR=DR_";7///GI ENDOSCOPIC"
|
---|
| 16 | .. S DIE="^MCAR(697.2,",DA=MCD0
|
---|
| 17 | .. D ^DIE
|
---|
| 18 | .. Q
|
---|
| 19 | . Q
|
---|
| 20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.