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

HLP153.m

Go to the documentation of this file.
  1. HLP153 ;IRMFO-ALB/CJM -Post-Install routine;03/24/2004 14:43 ;02/14/2011
  1. ;;1.6;HEALTH LEVEL SEVEN;**153**;Oct 13, 1995;Build 11
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. POST N IEN,DATA
  1. ;
  1. ;Inactivates HL7 Monitor-Link 870
  1. S IEN=$O(^HLEV(776.1,"B","LINK (870) CHECKS",0))
  1. I IEN,$D(^HLEV(776.1,IEN,0)) S $P(^HLEV(776.1,IEN,0),"^",2)="I"
  1. ;
  1. ;These two entries need to be in the HLO Process Registry file.
  1. S IEN=$O(^HLD(779.3,"B","COUNT RECORDS",0))
  1. I 'IEN S DATA(.01)="COUNT RECORDS",DATA(.02)=1,IEN=$$ADD^HLOASUB1(779.3,,.DATA)
  1. I IEN S ^HLD(779.3,IEN,0)="COUNT RECORDS^1^0^1^1440^"_DT_".02^0^QUIT1^HLOPROC1^UPDCNTS^HLOSITE^1^0^^0",^HLD(779.3,"C",1,IEN)="" K ^HLD(779.3,"C",0,IEN)
  1. ;
  1. S IEN=$O(^HLD(779.3,"B","RECOUNT ALL QUEUES",0))
  1. I 'IEN S DATA(.01)="RECOUNT ALL QUEUES",DATA(.02)=1,IEN=$$ADD^HLOASUB1(779.3,,.DATA)
  1. I IEN S ^HLD(779.3,IEN,0)="RECOUNT ALL QUEUES^1^0^1^2880^"_DT_".02^0^QUIT1^HLOPROC1^QCOUNT^HLOPROC1^1^0^^0",^HLD(779.3,"C",1,IEN)="" K ^HLD(779.3,"C",0,IEN)
  1. Q