| [613] | 1 | HLPAT122 ;OIFO-OAKLAND/RJH - HL7 PATCH 122 PRE-INIT ;12/14/2007 13:18
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**122**;Oct 13, 1995;Build 14
|
|---|
| 3 | ;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | PRE ;
|
|---|
| 7 | ; remove HL7 Proxy user, "HLSEVEN,APPLICATION PROXY" : TEST v2
|
|---|
| 8 | ;
|
|---|
| 9 | ; create application proxy users for listeners and incoming filer
|
|---|
| 10 | ; N HLTEMP
|
|---|
| 11 | ; S HLTEMP=$$CREATE^XUSAP("HLSEVEN,APPLICATION PROXY","#")
|
|---|
| 12 | ;
|
|---|
| 13 | ; for Patch HL*1.6*122 TEST v5: remove the code, which is used to
|
|---|
| 14 | ; delete the entry, "HLSEVEN,APPLICATION PROXY" in file #200, the
|
|---|
| 15 | ; deletion has caused the problem to the IB at the testing sites.
|
|---|
| 16 | ; N DIK,DA
|
|---|
| 17 | ;
|
|---|
| 18 | ; S DIK="^VA(200,"
|
|---|
| 19 | ; S DA=$O(^VA(200,"B","HLSEVEN,APPLICATION PROXY",0))
|
|---|
| 20 | ; I DA D ^DIK
|
|---|
| 21 | Q
|
|---|
| 22 | POST ;
|
|---|
| 23 | D POST1
|
|---|
| 24 | D POST2
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | POST1 ;
|
|---|
| 28 | ; insert data for multiple fields: #8, #9, #10, #11, and #12.
|
|---|
| 29 | N DATA,DA
|
|---|
| 30 | ;
|
|---|
| 31 | S DA=$O(^HLCS(869.3,0))
|
|---|
| 32 | Q:'DA
|
|---|
| 33 | Q:'$D(^DD(869.3,70))
|
|---|
| 34 | Q:'$D(^DD(869.3,80))
|
|---|
| 35 | Q:'$D(^DD(869.3,90))
|
|---|
| 36 | Q:'$D(^DD(869.3,91))
|
|---|
| 37 | Q:'$D(^DD(869.3,92))
|
|---|
| 38 | Q:'$D(^DD(869.3,93))
|
|---|
| 39 | S DATA(1,8,0)="^869.35^1^1"
|
|---|
| 40 | S DATA(1,8,1,0)="MED.VA.GOV"
|
|---|
| 41 | ;
|
|---|
| 42 | S DATA(1,9,0)="^869.36^4^4"
|
|---|
| 43 | S DATA(1,9,1,0)="8090, 5561"
|
|---|
| 44 | S DATA(1,9,2,0)="9059, 9060, 27315, 27316"
|
|---|
| 45 | S DATA(1,9,3,0)="7010, 1583"
|
|---|
| 46 | S DATA(1,9,4,0)="8080"
|
|---|
| 47 | ;
|
|---|
| 48 | S DATA(1,10,0)="^869.391^3^3"
|
|---|
| 49 | S DATA(1,10,1,0)="VAHDR, VAFHIE, VA-VIE"
|
|---|
| 50 | S DATA(1,10,2,0)="VHAAAC, VAHTH"
|
|---|
| 51 | S DATA(1,10,3,0)="VDEF"
|
|---|
| 52 | ;
|
|---|
| 53 | S DATA(1,11,0)="^869.392^2^2"
|
|---|
| 54 | S DATA(1,11,1,0)="10.224.129.80"
|
|---|
| 55 | S DATA(1,11,2,0)="10.224.132.23, 10.224.132.28, 10.224.151.133, 10.224.151.153"
|
|---|
| 56 | ;
|
|---|
| 57 | S DATA(1,12,0)="^869.393^1^1"
|
|---|
| 58 | S DATA(1,12,1,0)="HDR.MED.VA.GOV, FHIE.MED.VA.GOV"
|
|---|
| 59 | ;
|
|---|
| 60 | M ^HLCS(869.3,DA)=DATA(1)
|
|---|
| 61 | ; re-index
|
|---|
| 62 | S DIK="^HLCS(869.3,"
|
|---|
| 63 | D IX^DIK
|
|---|
| 64 | ;
|
|---|
| 65 | ; kill the original "C" x-ref in file #773 and #772
|
|---|
| 66 | K ^DD(773,2,1,1)
|
|---|
| 67 | K ^DD(772,6,1,1)
|
|---|
| 68 | Q
|
|---|
| 69 | ;
|
|---|
| 70 | POST2 ;
|
|---|
| 71 | ; clear and set the counter of multi-listener, with port not equal to 5500,
|
|---|
| 72 | ; to "0 server"
|
|---|
| 73 | N HLDP,HLIEN
|
|---|
| 74 | S HLDP=0
|
|---|
| 75 | F S HLDP=$O(^HLCS(870,"E","M",HLDP)) Q:'HLDP D
|
|---|
| 76 | . ; if port number = 5500 quit
|
|---|
| 77 | . I $P(^HLCS(870,HLDP,400),"^",2)=5500 Q
|
|---|
| 78 | . D CLRMCNTR^HLCSTCP4
|
|---|
| 79 | . S HLIEN=HLDP
|
|---|
| 80 | . F X="IN","OUT" D CLRQUET^HLUTIL2(X)
|
|---|
| 81 | Q
|
|---|
| 82 | ;
|
|---|
