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