HLCSTCPA.m

HLCSTCPA ;OIFO-O/RJH - (TCP/IP) VMS ;07/10/2003  10:12

 ;;1.6;HEALTH LEVEL SEVEN;**84**;Oct 13, 1995

 ;

 ; 1. port number is input from VMS HLSxxxxDSM.COM or HLSxxxxCACHE.COM

 ;    file, where xxxx is port number.

 ; 2. find the ien of #870(logical link file) for the HL7 multi-listener

 ; 3. call the appropriate entry:

 ;    for Cache: CACHEVMS^HLCSTCP(ien of #870)

 ;    for DSM:   EN^HLCSTCP

 Q

PORT ;

 ;HLIEN870: ien in #870 (logical link file)

 ;HLPORT: port number of multi-listener

 ;HLPRTS: port number in entry to be tested

 ;input of DSM: % = device^port number of multi-listener

 ;input of Cache: port number of TCPIP

 ;

 I ^%ZOSF("OS")["OpenM" D

 . S HLPORT=$ZF("GETSYM","PORT")

 I ^%ZOSF("OS")["DSM" D

 . S HLPORT=$P(%,"^",2)

 I 'HLPORT D ^%ZTER Q

 S HLIEN870=0

 F  S HLIEN870=$O(^HLCS(870,"E","M",HLIEN870)) Q:'HLIEN870  D  Q:(HLPRTS=HLPORT)

 . S HLPRTS=$P(^HLCS(870,HLIEN870,400),"^",2)

 I 'HLIEN870 D ^%ZTER Q

 ;

 K HLPORT,HLPRTS

 ;

 ;for Cache/VMS

 I ^%ZOSF("OS")["OpenM" D  Q

 .D CACHEVMS^HLCSTCP(HLIEN870)

 ;

 ;for DSM

 I ^%ZOSF("OS")["DSM" D  Q

 . S $P(%,"^",2)=HLIEN870   ;set % = device^ien of #870

 . K HLIEN870

 . D EN^HLCSTCP

 ;

 D ^%ZTER

 Q

HLCSTCPA  ;OIFO-O/RJH - (TCP/IP) VMS ;07/10/2003  10:12

 +1       ;;1.6;HEALTH LEVEL SEVEN;**84**;Oct 13, 1995

 +2       ;

 +3       ; 1. port number is input from VMS HLSxxxxDSM.COM or HLSxxxxCACHE.COM

 +4       ;    file, where xxxx is port number.

 +5       ; 2. find the ien of #870(logical link file) for the HL7 multi-listener

 +6       ; 3. call the appropriate entry:

 +7       ;    for Cache: CACHEVMS^HLCSTCP(ien of #870)

 +8       ;    for DSM:   EN^HLCSTCP

 +9        QUIT 

PORT      ;

 +1       ;HLIEN870: ien in #870 (logical link file)

 +2       ;HLPORT: port number of multi-listener

 +3       ;HLPRTS: port number in entry to be tested

 +4       ;input of DSM: % = device^port number of multi-listener

 +5       ;input of Cache: port number of TCPIP

 +6       ;

 +7        IF ^%ZOSF("OS")["OpenM"

               Begin DoDot:1

 +8                SET HLPORT=$ZF("GETSYM","PORT")

               End DoDot:1

 +9        IF ^%ZOSF("OS")["DSM"

               Begin DoDot:1

 +10               SET HLPORT=$PIECE(%,"^",2)

               End DoDot:1

 +11       IF 'HLPORT

               DO ^%ZTER

               QUIT 

 +12       SET HLIEN870=0

 +13       FOR 

               SET HLIEN870=$ORDER(^HLCS(870,"E","M",HLIEN870))

               IF 'HLIEN870

                   QUIT 

               Begin DoDot:1

 +14               SET HLPRTS=$PIECE(^HLCS(870,HLIEN870,400),"^",2)

               End DoDot:1

               IF (HLPRTS=HLPORT)

                   QUIT 

 +15       IF 'HLIEN870

               DO ^%ZTER

               QUIT 

 +16      ;

 +17       KILL HLPORT,HLPRTS

 +18      ;

 +19      ;for Cache/VMS

 +20       IF ^%ZOSF("OS")["OpenM"

               Begin DoDot:1

 +21               DO CACHEVMS^HLCSTCP(HLIEN870)

               End DoDot:1

               QUIT 

 +22      ;

 +23      ;for DSM

 +24       IF ^%ZOSF("OS")["DSM"

               Begin DoDot:1

 +25      ;set % = device^ien of #870

                   SET $PIECE(%,"^",2)=HLIEN870

 +26               KILL HLIEN870

 +27               DO EN^HLCSTCP

               End DoDot:1

               QUIT 

 +28      ;

 +29       DO ^%ZTER

 +30       QUIT