HLPAT122 ;OIFO-OAKLAND/RJH - HL7 PATCH 122 PRE-INIT ;12/14/2007 13:18
;;1.6;HEALTH LEVEL SEVEN;**122**;Oct 13, 1995;Build 14
;Per VHA Directive 2004-038, this routine should not be modified.
;
Q
PRE ;
; remove HL7 Proxy user, "HLSEVEN,APPLICATION PROXY" : TEST v2
;
; create application proxy users for listeners and incoming filer
; N HLTEMP
; S HLTEMP=$$CREATE^XUSAP("HLSEVEN,APPLICATION PROXY","#")
;
; for Patch HL*1.6*122 TEST v5: remove the code, which is used to
; delete the entry, "HLSEVEN,APPLICATION PROXY" in file #200, the
; deletion has caused the problem to the IB at the testing sites.
; N DIK,DA
;
; S DIK="^VA(200,"
; S DA=$O(^VA(200,"B","HLSEVEN,APPLICATION PROXY",0))
; I DA D ^DIK
Q
POST ;
D POST1
D POST2
Q
;
POST1 ;
; insert data for multiple fields: #8, #9, #10, #11, and #12.
N DATA,DA
;
S DA=$O(^HLCS(869.3,0))
Q:'DA
Q:'$D(^DD(869.3,70))
Q:'$D(^DD(869.3,80))
Q:'$D(^DD(869.3,90))
Q:'$D(^DD(869.3,91))
Q:'$D(^DD(869.3,92))
Q:'$D(^DD(869.3,93))
S DATA(1,8,0)="^869.35^1^1"
S DATA(1,8,1,0)="DOMAIN.EXT"
;
S DATA(1,9,0)="^869.36^4^4"
S DATA(1,9,1,0)="8090, 5561"
S DATA(1,9,2,0)="9059, 9060, 27315, 27316"
S DATA(1,9,3,0)="7010, 1583"
S DATA(1,9,4,0)="8080"
;
S DATA(1,10,0)="^869.391^3^3"
S DATA(1,10,1,0)="VAHDR, VAFHIE, VA-VIE"
S DATA(1,10,2,0)="VHAAAC, VAHTH"
S DATA(1,10,3,0)="VDEF"
;
S DATA(1,11,0)="^869.392^2^2"
S DATA(1,11,1,0)="127.0.0.1"
S DATA(1,11,2,0)="127.0.0.1, 127.0.0.1, 127.0.0.1, 127.0.0.1"
;
S DATA(1,12,0)="^869.393^1^1"
S DATA(1,12,1,0)="HDR.DOMAIN.EXT, FHIE.DOMAIN.EXT"
;
M ^HLCS(869.3,DA)=DATA(1)
; re-index
S DIK="^HLCS(869.3,"
D IX^DIK
;
; kill the original "C" x-ref in file #773 and #772
K ^DD(773,2,1,1)
K ^DD(772,6,1,1)
Q
;
POST2 ;
; clear and set the counter of multi-listener, with port not equal to 5500,
; to "0 server"
N HLDP,HLIEN
S HLDP=0
F S HLDP=$O(^HLCS(870,"E","M",HLDP)) Q:'HLDP D
. ; if port number = 5500 quit
. I $P(^HLCS(870,HLDP,400),"^",2)=5500 Q
. D CLRMCNTR^HLCSTCP4
. S HLIEN=HLDP
. F X="IN","OUT" D CLRQUET^HLUTIL2(X)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLPAT122 2159 printed Nov 22, 2024@17:09:42 Page 2
HLPAT122 ;OIFO-OAKLAND/RJH - HL7 PATCH 122 PRE-INIT ;12/14/2007 13:18
+1 ;;1.6;HEALTH LEVEL SEVEN;**122**;Oct 13, 1995;Build 14
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 QUIT
PRE ;
+1 ; remove HL7 Proxy user, "HLSEVEN,APPLICATION PROXY" : TEST v2
+2 ;
+3 ; create application proxy users for listeners and incoming filer
+4 ; N HLTEMP
+5 ; S HLTEMP=$$CREATE^XUSAP("HLSEVEN,APPLICATION PROXY","#")
+6 ;
+7 ; for Patch HL*1.6*122 TEST v5: remove the code, which is used to
+8 ; delete the entry, "HLSEVEN,APPLICATION PROXY" in file #200, the
+9 ; deletion has caused the problem to the IB at the testing sites.
+10 ; N DIK,DA
+11 ;
+12 ; S DIK="^VA(200,"
+13 ; S DA=$O(^VA(200,"B","HLSEVEN,APPLICATION PROXY",0))
+14 ; I DA D ^DIK
+15 QUIT
POST ;
+1 DO POST1
+2 DO POST2
+3 QUIT
+4 ;
POST1 ;
+1 ; insert data for multiple fields: #8, #9, #10, #11, and #12.
+2 NEW DATA,DA
+3 ;
+4 SET DA=$ORDER(^HLCS(869.3,0))
+5 if 'DA
QUIT
+6 if '$DATA(^DD(869.3,70))
QUIT
+7 if '$DATA(^DD(869.3,80))
QUIT
+8 if '$DATA(^DD(869.3,90))
QUIT
+9 if '$DATA(^DD(869.3,91))
QUIT
+10 if '$DATA(^DD(869.3,92))
QUIT
+11 if '$DATA(^DD(869.3,93))
QUIT
+12 SET DATA(1,8,0)="^869.35^1^1"
+13 SET DATA(1,8,1,0)="DOMAIN.EXT"
+14 ;
+15 SET DATA(1,9,0)="^869.36^4^4"
+16 SET DATA(1,9,1,0)="8090, 5561"
+17 SET DATA(1,9,2,0)="9059, 9060, 27315, 27316"
+18 SET DATA(1,9,3,0)="7010, 1583"
+19 SET DATA(1,9,4,0)="8080"
+20 ;
+21 SET DATA(1,10,0)="^869.391^3^3"
+22 SET DATA(1,10,1,0)="VAHDR, VAFHIE, VA-VIE"
+23 SET DATA(1,10,2,0)="VHAAAC, VAHTH"
+24 SET DATA(1,10,3,0)="VDEF"
+25 ;
+26 SET DATA(1,11,0)="^869.392^2^2"
+27 SET DATA(1,11,1,0)="127.0.0.1"
+28 SET DATA(1,11,2,0)="127.0.0.1, 127.0.0.1, 127.0.0.1, 127.0.0.1"
+29 ;
+30 SET DATA(1,12,0)="^869.393^1^1"
+31 SET DATA(1,12,1,0)="HDR.DOMAIN.EXT, FHIE.DOMAIN.EXT"
+32 ;
+33 MERGE ^HLCS(869.3,DA)=DATA(1)
+34 ; re-index
+35 SET DIK="^HLCS(869.3,"
+36 DO IX^DIK
+37 ;
+38 ; kill the original "C" x-ref in file #773 and #772
+39 KILL ^DD(773,2,1,1)
+40 KILL ^DD(772,6,1,1)
+41 QUIT
+42 ;
POST2 ;
+1 ; clear and set the counter of multi-listener, with port not equal to 5500,
+2 ; to "0 server"
+3 NEW HLDP,HLIEN
+4 SET HLDP=0
+5 FOR
SET HLDP=$ORDER(^HLCS(870,"E","M",HLDP))
if 'HLDP
QUIT
Begin DoDot:1
+6 ; if port number = 5500 quit
+7 IF $PIECE(^HLCS(870,HLDP,400),"^",2)=5500
QUIT
+8 DO CLRMCNTR^HLCSTCP4
+9 SET HLIEN=HLDP
+10 FOR X="IN","OUT"
DO CLRQUET^HLUTIL2(X)
End DoDot:1
+11 QUIT
+12 ;
