source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBY316PS.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 763 bytes
Line 
1IBY316PS ;;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
Note: See TracBrowser for help on using the repository browser.