HLOP158 ;ALB/CJM-Pre & Post install ;07/12/2012
;;1.6;HEALTH LEVEL SEVEN;**158**;Oct 13, 1995;Build 14
;Per VHA Directive 2004-038, this routine should not be modified.
;
PRE ;
I $P($G(^DD(779.1,.07,0)),"^")["(HOURS)" S ^TMP("HL*1.6*158")=1
Q
POST ;
I $G(^TMP("HL*1.6*158")) K ^TMP("HL*1.6*158") D
.N PURGE
.S PURGE=$P($G(^HLD(779.1,1,0)),"^",7)
.I PURGE S PURGE=(PURGE\24)
.I PURGE<3 S PURGE=3
.S $P(^HLD(779.1,1,0),"^",7)=PURGE
NOPING N IEN
S IEN=0
F S IEN=$O(^HLCS(870,IEN)) Q:'IEN D
.N LINK
.S LINK=$P($G(^HLCS(870,IEN,0)),"^")
.I $E(LINK,1)="V",LINK["VIE" S $P(^HLCS(870,IEN,0),"^",24)=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLOP158 635 printed Oct 16, 2024@17:59:39 Page 2
HLOP158 ;ALB/CJM-Pre & Post install ;07/12/2012
+1 ;;1.6;HEALTH LEVEL SEVEN;**158**;Oct 13, 1995;Build 14
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
PRE ;
+1 IF $PIECE($GET(^DD(779.1,.07,0)),"^")["(HOURS)"
SET ^TMP("HL*1.6*158")=1
+2 QUIT
POST ;
+1 IF $GET(^TMP("HL*1.6*158"))
KILL ^TMP("HL*1.6*158")
Begin DoDot:1
+2 NEW PURGE
+3 SET PURGE=$PIECE($GET(^HLD(779.1,1,0)),"^",7)
+4 IF PURGE
SET PURGE=(PURGE\24)
+5 IF PURGE<3
SET PURGE=3
+6 SET $PIECE(^HLD(779.1,1,0),"^",7)=PURGE
End DoDot:1
NOPING NEW IEN
+1 SET IEN=0
+2 FOR
SET IEN=$ORDER(^HLCS(870,IEN))
if 'IEN
QUIT
Begin DoDot:1
+3 NEW LINK
+4 SET LINK=$PIECE($GET(^HLCS(870,IEN,0)),"^")
+5 IF $EXTRACT(LINK,1)="V"
IF LINK["VIE"
SET $PIECE(^HLCS(870,IEN,0),"^",24)=1
End DoDot:1
+6 QUIT
