Routine: HLP153

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP153   1035     printed  Sep 23, 2025@19:35:38                                                                                                                                                                                                      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

HLP153.m