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

IBY345PS.m

Go to the documentation of this file.
  1. IBY345PS ;;PROXICOM/RTO - Post Installation Program ;10-November-2006
  1. ;;2.0;INTEGRATED BILLING;**345**;21-MAR-94;Build 28
  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*345
  1. ;
  1. ; Program to check and clean up "ghost buffer entries"
  1. ;
  1. REM ; Remove old entries
  1. NEW IEN,STAT
  1. S IEN=0
  1. F S IEN=$O(^IBA(355.33,IEN)) Q:'IEN D
  1. . S STAT=$P($G(^IBA(355.33,IEN,0)),"^",4)
  1. . I STAT="E" Q
  1. . I $G(^IBA(355.33,IEN,40))="",$G(^IBA(355.33,IEN,60))="" Q
  1. . D DELDATA^IBCNBED(IEN)
  1. Q