Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY316PS

IBY316PS.m

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