Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Rev | Line | |
---|
[613] | 1 | IBYEPT ;ALB/BGA - PATCH IB*2*40 POST - INITIALIZATION ; 1-AUG-95
|
---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**40**; 21-MAR-94
|
---|
| 3 | ;
|
---|
| 4 | EN ; Patch IB*2*40 post initialization.
|
---|
| 5 | ;
|
---|
| 6 | D FIX ; Fix spelling of Non-Acute Classification entry
|
---|
| 7 | D ^IBYEPT1 ; Queue job to clean up 'Name of Insured'
|
---|
| 8 | Q
|
---|
| 9 | ;
|
---|
| 10 | ;
|
---|
| 11 | FIX ; This call corrects a problem with the spelling of the
|
---|
| 12 | ; entry 'ADMISSION TO CIRCUMENT SLOWNESS' (code 3.03) in
|
---|
| 13 | ; file 356.4. 'CIRCUMENT' should be spelled 'CIRCUMVENT.'
|
---|
| 14 | ;
|
---|
| 15 | W !!,">>> Correcting the spelling of the entry 'ADMISSION TO CIRCUMENT SLOWNESS'"
|
---|
| 16 | W !," (code 3.03) in file #356.4 ... "
|
---|
| 17 | N IBENT,DA,DR,DIE
|
---|
| 18 | I '$D(^IBE(356.4,"C","3.03")) W *7,!," This entry is not cross-referenced correctly!",!," Please contact IRMFO Customer Service staff for assistance." Q
|
---|
| 19 | S IBENT=$O(^IBE(356.4,"C","3.03",0)) I IBENT'>0 W *7,!," This entry could not be found!",!," Please contact IRMFO Customer Service staff for assistance." Q
|
---|
| 20 | S DR=".01////ADMISSION TO CIRCUMVENT SLOWNESS",DIE="^IBE(356.4,",DA=IBENT D ^DIE
|
---|
| 21 | W "done."
|
---|
| 22 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.