|
Last change
on this file since 1553 was 613, checked in by George Lilly, 16 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.
