| 1 | IBY316PS ;;DAOU/DJW - Post Installation Program ;13-September-2005
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**316**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | ;Program Description: This is the post install routine for IB*2.0*316
|
|---|
| 7 | ;
|
|---|
| 8 | ; Set 'INQUIRE POPULAR PAYERS'='NO'(#51.09) and 'NO. POPULAR PAYERS'=1 (#51.1)
|
|---|
| 9 | ;
|
|---|
| 10 | ; Remove data from the following fields:
|
|---|
| 11 | ; - 'MOST POPULAR LAST SAVE DATE' (#51.21)
|
|---|
| 12 | ; - list of 'POPULAR PAYERS' (#51.18)
|
|---|
| 13 | ;
|
|---|
| 14 | N DA,DIK,DIE,DR,D,D0,DIC,DQ,X,DI,%
|
|---|
| 15 | S DIK="^IBE(350.9,1,51.18,",DA(1)=1,DA=0
|
|---|
| 16 | F S DA=$O(^IBE(350.9,1,51.18,DA)) Q:'DA D ^DIK
|
|---|
| 17 | ;
|
|---|
| 18 | S DA=1,DIE="^IBE(350.9,",DR="51.21///@" D ^DIE
|
|---|
| 19 | S DA=1,DIE="^IBE(350.9,",DR="51.1///^S X=1" D ^DIE
|
|---|
| 20 | S DA=1,DIE="^IBE(350.9,",DR="51.09///^S X=0" D ^DIE
|
|---|
| 21 | ;
|
|---|
| 22 | Q
|
|---|
