Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLCSTCPA.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLCSTCPA.m
r628 r636 1 HLCSTCPA ;OIFO-O/RJH - (TCP/IP) VMS ;07/26/2007 10:29 2 ;;1.6;HEALTH LEVEL SEVEN;**84,122**;Oct 13, 1995;Build 14 3 ;Per VHA Directive 2004-038, this routine should not be modified. 1 HLCSTCPA ;OIFO-O/RJH - (TCP/IP) VMS ;07/10/2003 10:12 2 ;;1.6;HEALTH LEVEL SEVEN;**84**;Oct 13, 1995 4 3 ; 5 ; 1. port number is input from VMS COM file, such as HLSxxxxDSM.COM, 6 ; HLSxxxxCACHE.COM, or HLSxxxxGTM.COM file, where xxxx is port 7 ; number. 8 ; 2. find the ien of #870(logical link file) for the multi-listener 4 ; 1. port number is input from VMS HLSxxxxDSM.COM or HLSxxxxCACHE.COM 5 ; file, where xxxx is port number. 6 ; 2. find the ien of #870(logical link file) for the HL7 multi-listener 7 ; 3. call the appropriate entry: 8 ; for Cache: CACHEVMS^HLCSTCP(ien of #870) 9 ; for DSM: EN^HLCSTCP 9 10 Q 11 PORT ; 12 ;HLIEN870: ien in #870 (logical link file) 13 ;HLPORT: port number of multi-listener 14 ;HLPRTS: port number in entry to be tested 15 ;input of DSM: % = device^port number of multi-listener 16 ;input of Cache: port number of TCPIP 10 17 ; 11 GTMPORT(%) ; From tcpip ZFOO for GT.M12 ; %: device^port number13 N HLPORT14 S HLPORT=$P($G(%),"^",2)15 I $G(^%ZOSF("OS"))'["GT.M" D ^%ZTER Q16 D IEN17 Q18 ;19 PORT ;20 ; HLPORT: port number of multi-listener21 ; input of DSM: % = device^port number of multi-listener22 ; input of Cache: port number of TCPIP23 ;24 N HLPORT25 S HLPORT=026 18 I ^%ZOSF("OS")["OpenM" D 27 19 . S HLPORT=$ZF("GETSYM","PORT") 28 20 I ^%ZOSF("OS")["DSM" D 29 21 . S HLPORT=$P(%,"^",2) 30 ;31 IEN ;32 ; HLIEN870: ien in #870 (logical link file)33 ; HLPRTS: port number in entry to be tested34 ;35 N HLIEN87036 22 I 'HLPORT D ^%ZTER Q 37 23 S HLIEN870=0 … … 41 27 ; 42 28 K HLPORT,HLPRTS 43 ; patch 12244 S U="^"45 29 ; 46 30 ;for Cache/VMS 47 31 I ^%ZOSF("OS")["OpenM" D Q 48 . D CACHEVMS(HLIEN870)32 .D CACHEVMS^HLCSTCP(HLIEN870) 49 33 ; 50 34 ;for DSM … … 52 36 . S $P(%,"^",2)=HLIEN870 ;set % = device^ien of #870 53 37 . K HLIEN870 54 . D EN 55 ; 56 ;for GT.M 57 I ^%ZOSF("OS")["GT.M" D Q 58 . S HLDP=HLIEN870 ;set HLDP = ien of #870 59 . K HLIEN870 60 . D GTMUCX 38 . D EN^HLCSTCP 61 39 ; 62 40 D ^%ZTER 63 41 Q 64 GTMUCX ; GT.M /VMS tcpip65 ;listener, % = device^port66 S U="^",IO=$P(%,U)67 ; S IO(0)=$P O IO(0) ;Setup null device68 ; GTM specific code69 S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")70 X "O IO:(RECORDSIZE=512)"71 D LISTEN^HLCSTCP72 C IO73 Q74 ;75 ; $ x=f$trnlnm("sys$net") !This is our MBX device76 ; $!77 ; $! for GT.M78 ; $ assign 'f$trnlnm("SYS$NET")' SYS$NET79 ; $! Depending on how your command files are set up, you may need to80 ; $! run the GT.M profile file.81 ; $ @<user$:[gtmmgr]>gtmprofile.com82 ; $ forfoo="$" + f$parse("user$:[gtmmgr.r]ZFOO.exe")83 ; $ PORT=500084 ; $ data="''x'^''PORT'"85 ; $ forfoo GTMPORT^HLCSTCPA("''data'")86 ;87 CACHEVMS(%) ;Cache'/VMS tcpip88 ;listener, % = HLDP89 I $G(%)="" D ^%ZTER Q90 ; patch 13391 S IO="SYS$NET",U="^",HLDP=%92 S IO(0)="_NLA0:" O IO(0) ;Setup null device93 ; **Cache'/VMS specific code**94 O IO::5 E D MON^HLCSTCP("Openfail") Q95 X "U IO:(::""-M"")" ;Packet mode like DSM96 D LISTEN^HLCSTCP97 C IO98 Q99 ;100 EN ; DSM/VMS tcpip101 ;listener, % = device^HLDP102 I $G(%)="" D ^%ZTER Q103 ; patch 122104 ; S IO="SYS$NET",U="^",HLDP=$P(%,U,2)105 S U="^",IO=$P(%,U),HLDP=$P(%,U,2)106 ; patch 133107 S IO(0)="_NLA0:" O IO(0) ;Setup null device108 ; **VMS specific code, need to share device**109 O IO:(TCPDEV):60 E D MON^HLCSTCP("Openfail") Q110 ; patch 122111 D LISTEN^HLCSTCP112 C IO113 Q
Note:
See TracChangeset
for help on using the changeset viewer.