- HLP153 ;IRMFO-ALB/CJM -Post-Install routine;03/24/2004 14:43 ;02/14/2011
- ;;1.6;HEALTH LEVEL SEVEN;**153**;Oct 13, 1995;Build 11
- ;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- POST N IEN,DATA
- ;
- ;Inactivates HL7 Monitor-Link 870
- S IEN=$O(^HLEV(776.1,"B","LINK (870) CHECKS",0))
- I IEN,$D(^HLEV(776.1,IEN,0)) S $P(^HLEV(776.1,IEN,0),"^",2)="I"
- ;
- ;These two entries need to be in the HLO Process Registry file.
- S IEN=$O(^HLD(779.3,"B","COUNT RECORDS",0))
- I 'IEN S DATA(.01)="COUNT RECORDS",DATA(.02)=1,IEN=$$ADD^HLOASUB1(779.3,,.DATA)
- 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)
- ;
- S IEN=$O(^HLD(779.3,"B","RECOUNT ALL QUEUES",0))
- I 'IEN S DATA(.01)="RECOUNT ALL QUEUES",DATA(.02)=1,IEN=$$ADD^HLOASUB1(779.3,,.DATA)
- 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)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP153 1035 printed Jan 18, 2025@03:00:46 Page 2
- 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
- +2 ;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- POST NEW IEN,DATA
- +1 ;
- +2 ;Inactivates HL7 Monitor-Link 870
- +3 SET IEN=$ORDER(^HLEV(776.1,"B","LINK (870) CHECKS",0))
- +4 IF IEN
- IF $DATA(^HLEV(776.1,IEN,0))
- SET $PIECE(^HLEV(776.1,IEN,0),"^",2)="I"
- +5 ;
- +6 ;These two entries need to be in the HLO Process Registry file.
- +7 SET IEN=$ORDER(^HLD(779.3,"B","COUNT RECORDS",0))
- +8 IF 'IEN
- SET DATA(.01)="COUNT RECORDS"
- SET DATA(.02)=1
- SET IEN=$$ADD^HLOASUB1(779.3,,.DATA)
- +9 IF IEN
- SET ^HLD(779.3,IEN,0)="COUNT RECORDS^1^0^1^1440^"_DT_".02^0^QUIT1^HLOPROC1^UPDCNTS^HLOSITE^1^0^^0"
- SET ^HLD(779.3,"C",1,IEN)=""
- KILL ^HLD(779.3,"C",0,IEN)
- +10 ;
- +11 SET IEN=$ORDER(^HLD(779.3,"B","RECOUNT ALL QUEUES",0))
- +12 IF 'IEN
- SET DATA(.01)="RECOUNT ALL QUEUES"
- SET DATA(.02)=1
- SET IEN=$$ADD^HLOASUB1(779.3,,.DATA)
- +13 IF IEN
- SET ^HLD(779.3,IEN,0)="RECOUNT ALL QUEUES^1^0^1^2880^"_DT_".02^0^QUIT1^HLOPROC1^QCOUNT^HLOPROC1^1^0^^0"
- SET ^HLD(779.3,"C",1,IEN)=""
- KILL ^HLD(779.3,"C",0,IEN)
- +14 QUIT