source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLPAT122.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1HLPAT122 ;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
6PRE ;
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
22POST ;
23 D POST1
24 D POST2
25 Q
26 ;
27POST1 ;
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 ;
70POST2 ;
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 ;
Note: See TracBrowser for help on using the repository browser.