IVM16PR ;HEC/KSD - Patch Pre-Install rtn IVM*2*34;01.23.2001 ; 5/6/02 12:42pm
;;2.0;INCOME VERIFICATION;**34**;01.23.2001
;
Q
;
EN ;ENTRY POINT
;
N ADDR,PORT,STATION,TCPDATA,AN,RLLN,SLLN,STOP,VER,DA,FILE,RET,ERROR,DGENDA,IEN771,ORFIEN
;
; Get site's Station #
S STATION=$P($$SITE^VASITE,"^",3)
;
; Update ^HL(771) for ORF-Z06 to still be v1.5
S IEN771=+$O(^HL(771,"B","IVM",0))
D:IEN771>0
. S ORFIEN=+$O(^HL(771.2,"B","ORF",0)) Q:ORFIEN=0
. S IEN7712=+$O(^HL(771,IEN771,"MSG","B",ORFIEN,0)) Q:IEN7712=0
. S FILE=771.06
. S DGENDA(1)=IEN771,DGENDA=IEN7712
. K DATA
. S DATA(1)="ORF^IVMPRECZ"
. S RET=$$UPD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
;
; Define ZEG segment if necessary
S STOP=0
S DA=+$O(^HL(779.001,"B","ZEG",0))
D:'DA
. S FILE=779.001
. K DATA
. S DATA(.01)="ZEG"
. S DATA(2)="Enrollment Threshold"
. S RET=$$ADD^DGENDBS(FILE,"",.DATA,.ERROR)
. K DATA
. I ERROR'=""!(+RET=0) D ERROR(ERROR,"Creating ZEG") Q
. S DGENDA(1)=RET
. S VER=2.1
. S DA=+$O(^HL(779.001,DGENDA(1),1,"B",VER,0))
. D:'DA
. . K DATA
. . S DATA(.01)=+$O(^HL(771.5,"B",VER,0))
. . I DATA(.01)'>0 D ERROR("Version "_VER_" invalid","Creating ZEG") Q
. . S FILE=779.0101
. . S RET=$$ADD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
. . K DATA
. . I ERROR'=""!(+RET=0) D ERROR(ERROR,"Creating ZEG") Q
;
Q:STOP
Q:$$SETLL16(STATION,.RLLN,.SLLN)
Q:$$SETAPP(STATION,.AN)
D PROTOCOL(STATION,RLLN,SLLN,.AN)
Q
;
SETLL16(STATION,RLLN,SLLN) ;
;INPUT STATION = Station #
; RLLN = Receiving Logical Link Name
; SLLN = Sending Logical Link Name
;
;OUTPUT 0 : Success, 1 : Error
;
;PURPOSE Create the Receiving and Sending Logical Link.
;
N ADDR,PORT,RECVLL,SENDLL,RET,VISN,M,IENS
;
; Get Site's VISN
S VISN="",M=0
F S M=$O(^DIC(4,STATION,7,M)) Q:M="" D Q:VISN'=""
. S IENS=M_","_STATION
. Q:$$GET1^DIQ(4.014,IENS,.01)'="VISN"
. S VISN=$P($$GET1^DIQ(4.014,IENS,1)," ",2)
S:VISN="" VISN=23
S PORT=6000+VISN ;HEC production/quality assurance
;
; Sending Logical Link
S SLLN="LL"_VISN_"VISN"
;S ADDR="127.0.0.1" ;HEC development
S ADDR="127.0.0.1" ;HEC production
S RET=$$LL16^IVM16PF(SLLN,"TCP","NC",10,ADDR,PORT,"C","N","")
I +RET<0 D ERROR(RET,"v1.6 Send Link:"_SLLN) Q 1
;
RLL ; Receiving Logical Link
S RLLN="LL"_STATION_"VAMC"
S ADDR=""
S PORT=5000 ;all stations production
S RET=$$LL16^IVM16PF(RLLN,"TCP","MS",10,ADDR,PORT,"M","N","")
I +RET<0 D ERROR(RET,"v1.6 Receive Link:"_RLLN) Q 1
LL16EXIT Q STOP
;
;
SETAPP(STATION,AN) ;
;INPUT STATION = Station #
; AN = Array containing all the Application Names
;
;OUTPUT 0 : Success, 1 : Error
;
;PURPOSE Create the sending and receiving application definitions.
; IVM and IVM CENTER needed for 1.5 usage should
; already be defined.
;
N RECVAPP,SENDAPP
S AN("S")="VAMC "_STATION
S SENDAPP=$$APP^IVM16PF(AN("S"),"a",STATION,"USA")
I +SENDAPP<0 D ERROR(SENDAPP,"Sending App:"_AN("S")) G APPEXIT
;
ANR S AN("R")="HEC "_STATION
S RECVAPP=$$APP^IVM16PF(AN("R"),"a",724,"USA")
I +RECVAPP<0 D ERROR(RECVAPP,"Receiving App:"_AN("R"))
APPEXIT Q STOP
;
;
PROTOCOL(STATION,RLLN,SLLN,AN) ;
;INPUT STATION = Station #
; RLLN = Receiving Logical Link Name
; SLLN = Sending Logical Link Name
; AN = Array containing the Application Names
;
;OUTPUT None
;
;PURPOSE Using the table in line label PROTDAT create the
; protocols (Subscriber and Event Driver) for the
; v1.6 TCP/IP interfaces
;
N RESULT,SIEN,DUZ,V,N,N1,LNCNT,LINE,PROTRET
S N1="VAMC "_STATION,V=2.1
;
S LNCNT=1
F S LINE=$T(PROTDAT+LNCNT) Q:$P(LINE,";",3)="END" D Q:STOP
. K D,RESULT
. F N=3:1 Q:$P(LINE,";",N)="LEND" S D(N)=$$V($P(LINE,";",N))
. S NAM=D(3)_D(4)_D(5)
. D:NAM["CLIENT"
. . S SIEN=$$SP^IVM16PF(NAM,D(6),D(7),D(8),D(9),D(10))
. . I +SIEN<0 D ERROR(SIEN,"Subscriber:"_NAM)
. D:NAM["SERVER"
. . N TMPNAM,ITEMTXT
. . S TMPNAM=D(6)_D(7)_$P(NAM,"SERVER ",2)
. . S ITEMTXT=$$GETIT(TMPNAM)
. . S RESULT=$$EDP^IVM16PF(NAM,D(6),D(7),D(8),D(9),D(10),D(11),D(12),ITEMTXT)
. . I +RESULT<0 D ERROR(RESULT,"Event Driver:"_NAM)
. S LNCNT=LNCNT+1
K D
Q
;
ERROR(ERRMSG,SUBJ) ;
;INPUT ERRMSG = Error Message text
; SUBJ = Subject of the Message
;
;OUTPUT none
;
;PURPOSE Display an error message to the user. Set the
; variable STOP=1 which will stop the routine
; from continuing to run after an error is found.
;
N TXT
S STOP=1
S TXT=$P(ERRMSG,"^",2)
W !,"===================================================="
W !,"= ERROR ="
W !,"===================================================="
W !,"When creating "_SUBJ
W !,"===================================================="
W !,"**ERROR MSG: ",TXT
Q
;
V(VALUE) ;FUNCTION: If variable then pass back value of it.
;
I $E(VALUE)="@" Q @($E(VALUE,2,$L(VALUE)))
Q VALUE
;
GETIT(N) ;FUNCTION: Given Message Type and Event Type return the
; Transmission Description.
Q:N="ORUZ04H" "INSURANCE/Unsolicited HEC to VAMC"
Q:N="ORUZ04V" "INSURANCE/Unsolicited VAMC to HEC"
Q:N="ORUZ05" "DEMOGRAPHIC DATA/Unsolicited HEC to VAMC"
Q:N="ORUZ06" "DELETE MEANS TEST/Unsolicited HEC to VAMC"
Q:N="ORUZ07" "FULL DATA/Unsolicited VAMC to HEC"
Q:N="QRYZ07" "IVM INDIVIDUAL QUERY FULL DATA/Query HEC to VAMC"
Q:N="ORFZ07" "IVM INDIVIDUAL ACK/REPLY FULL DATA/Reply HEC to VAMC"
Q:N="ORUZ09" "IVM BILLING/COLLECTION/Unsolicited VAMC to HEC"
Q:N="ORUZ10" "INCOME TEST DATA/Unsolicited HEC to VAMC"
Q:N="QRYZ10" "FINANCIAL QUERY/Query VAMC to HEC"
Q:N="ORFZ10" "FINANCIAL QUERY/Reply HEC to VAMC"
Q:N="ORUZ11" "ENROLLMENT/ELIGIBILITY DATA/Unsolicited HEC to VAMC"
Q:N="QRYZ11" "ENROLLMENT/ELIGIBILITY QUERY/Query VAMC to HEC"
Q:N="ORFZ11" "ENROLLMENT/ELIGIBILITY QUERY/Reply HEC to VAMC"
Q:N="MFNZEG" "ENROLLMENT GROUP THRESHOLD/Unsolicited HEC to VAMC"
Q ""
;
PROTDAT ;;VAMC SIDE PROTOCOLS
;;@N1;; ORU-Z04 CLIENT H;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z04 SERVER H;ORU;Z04;@V;@AN("R");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORU-Z04 CLIENT V;@SLLN;@AN("R");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z04 SERVER V;ORU;Z04;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORU-Z05 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z05 SERVER;ORU;Z05;@V;@AN("R");;@SIEN;;LEND
;;@N1;; ORU-Z06 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z06 SERVER;ORU;Z06;@V;@AN("R");;@SIEN;;LEND
;;@N1;; ORU-Z07 CLIENT;@SLLN;@AN("R");ACK;;;LEND
;;@N1;; ORU-Z07 SERVER;ORU;Z07;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; QRY-Z07 CLIENT;@SLLN;@AN("S");ORF;Z07;D QRY^IVMPREC;LEND
;;@N1;; QRY-Z07 SERVER;QRY;Z07;@V;@AN("R");;@SIEN;;LEND
;;@N1;; ORF-Z07 CLIENT;@SLLN;@AN("R");ACK;;;LEND
;;@N1;; ORF-Z07 SERVER;ORF;Z07;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORU-Z09 CLIENT;@SLLN;@AN("R");ACK;;;LEND
;;@N1;; ORU-Z09 SERVER;ORU;Z09;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORU-Z10 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z10 SERVER;ORU;Z10;@V;@AN("R");;@SIEN;;LEND
;;@N1;; QRY-Z10 CLIENT;@SLLN;@AN("R");ORF;Z10;;LEND
;;@N1;; QRY-Z10 SERVER;QRY;Z10;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORF-Z10 CLIENT;@SLLN;@AN("S");ACK;;D ORF^IVMCM;LEND
;;@N1;; ORF-Z10 SERVER;ORF;Z10;@V;@AN("R");;@SIEN;;LEND
;;@N1;; ORU-Z11 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
;;@N1;; ORU-Z11 SERVER;ORU;Z11;@V;@AN("R");;@SIEN;;LEND
;;@N1;; QRY-Z11 CLIENT;@SLLN;@AN("R");ORF;Z11;;LEND
;;@N1;; QRY-Z11 SERVER;QRY;Z11;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
;;@N1;; ORF-Z11 CLIENT;@SLLN;@AN("S");ACK;;D ORF^IVMCM;LEND
;;@N1;; ORF-Z11 SERVER;ORF;Z11;@V;@AN("R");;@SIEN;;LEND
;;@N1;; MFN-ZEG CLIENT;@SLLN;@AN("S");MFK;ZEG;D MFN^DGENEGT2;LEND
;;@N1;; MFN-ZEG SERVER;MFN;ZEG;@V;@AN("R");;@SIEN;;LEND
;;END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM16PR 8026 printed Dec 13, 2024@02:00:25 Page 2
IVM16PR ;HEC/KSD - Patch Pre-Install rtn IVM*2*34;01.23.2001 ; 5/6/02 12:42pm
+1 ;;2.0;INCOME VERIFICATION;**34**;01.23.2001
+2 ;
+3 QUIT
+4 ;
EN ;ENTRY POINT
+1 ;
+2 NEW ADDR,PORT,STATION,TCPDATA,AN,RLLN,SLLN,STOP,VER,DA,FILE,RET,ERROR,DGENDA,IEN771,ORFIEN
+3 ;
+4 ; Get site's Station #
+5 SET STATION=$PIECE($$SITE^VASITE,"^",3)
+6 ;
+7 ; Update ^HL(771) for ORF-Z06 to still be v1.5
+8 SET IEN771=+$ORDER(^HL(771,"B","IVM",0))
+9 if IEN771>0
Begin DoDot:1
+10 SET ORFIEN=+$ORDER(^HL(771.2,"B","ORF",0))
if ORFIEN=0
QUIT
+11 SET IEN7712=+$ORDER(^HL(771,IEN771,"MSG","B",ORFIEN,0))
if IEN7712=0
QUIT
+12 SET FILE=771.06
+13 SET DGENDA(1)=IEN771
SET DGENDA=IEN7712
+14 KILL DATA
+15 SET DATA(1)="ORF^IVMPRECZ"
+16 SET RET=$$UPD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
End DoDot:1
+17 ;
+18 ; Define ZEG segment if necessary
+19 SET STOP=0
+20 SET DA=+$ORDER(^HL(779.001,"B","ZEG",0))
+21 if 'DA
Begin DoDot:1
+22 SET FILE=779.001
+23 KILL DATA
+24 SET DATA(.01)="ZEG"
+25 SET DATA(2)="Enrollment Threshold"
+26 SET RET=$$ADD^DGENDBS(FILE,"",.DATA,.ERROR)
+27 KILL DATA
+28 IF ERROR'=""!(+RET=0)
DO ERROR(ERROR,"Creating ZEG")
QUIT
+29 SET DGENDA(1)=RET
+30 SET VER=2.1
+31 SET DA=+$ORDER(^HL(779.001,DGENDA(1),1,"B",VER,0))
+32 if 'DA
Begin DoDot:2
+33 KILL DATA
+34 SET DATA(.01)=+$ORDER(^HL(771.5,"B",VER,0))
+35 IF DATA(.01)'>0
DO ERROR("Version "_VER_" invalid","Creating ZEG")
QUIT
+36 SET FILE=779.0101
+37 SET RET=$$ADD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
+38 KILL DATA
+39 IF ERROR'=""!(+RET=0)
DO ERROR(ERROR,"Creating ZEG")
QUIT
End DoDot:2
End DoDot:1
+40 ;
+41 if STOP
QUIT
+42 if $$SETLL16(STATION,.RLLN,.SLLN)
QUIT
+43 if $$SETAPP(STATION,.AN)
QUIT
+44 DO PROTOCOL(STATION,RLLN,SLLN,.AN)
+45 QUIT
+46 ;
SETLL16(STATION,RLLN,SLLN) ;
+1 ;INPUT STATION = Station #
+2 ; RLLN = Receiving Logical Link Name
+3 ; SLLN = Sending Logical Link Name
+4 ;
+5 ;OUTPUT 0 : Success, 1 : Error
+6 ;
+7 ;PURPOSE Create the Receiving and Sending Logical Link.
+8 ;
+9 NEW ADDR,PORT,RECVLL,SENDLL,RET,VISN,M,IENS
+10 ;
+11 ; Get Site's VISN
+12 SET VISN=""
SET M=0
+13 FOR
SET M=$ORDER(^DIC(4,STATION,7,M))
if M=""
QUIT
Begin DoDot:1
+14 SET IENS=M_","_STATION
+15 if $$GET1^DIQ(4.014,IENS,.01)'="VISN"
QUIT
+16 SET VISN=$PIECE($$GET1^DIQ(4.014,IENS,1)," ",2)
End DoDot:1
if VISN'=""
QUIT
+17 if VISN=""
SET VISN=23
+18 ;HEC production/quality assurance
SET PORT=6000+VISN
+19 ;
+20 ; Sending Logical Link
+21 SET SLLN="LL"_VISN_"VISN"
+22 ;S ADDR="127.0.0.1" ;HEC development
+23 ;HEC production
SET ADDR="127.0.0.1"
+24 SET RET=$$LL16^IVM16PF(SLLN,"TCP","NC",10,ADDR,PORT,"C","N","")
+25 IF +RET<0
DO ERROR(RET,"v1.6 Send Link:"_SLLN)
QUIT 1
+26 ;
RLL ; Receiving Logical Link
+1 SET RLLN="LL"_STATION_"VAMC"
+2 SET ADDR=""
+3 ;all stations production
SET PORT=5000
+4 SET RET=$$LL16^IVM16PF(RLLN,"TCP","MS",10,ADDR,PORT,"M","N","")
+5 IF +RET<0
DO ERROR(RET,"v1.6 Receive Link:"_RLLN)
QUIT 1
LL16EXIT QUIT STOP
+1 ;
+2 ;
SETAPP(STATION,AN) ;
+1 ;INPUT STATION = Station #
+2 ; AN = Array containing all the Application Names
+3 ;
+4 ;OUTPUT 0 : Success, 1 : Error
+5 ;
+6 ;PURPOSE Create the sending and receiving application definitions.
+7 ; IVM and IVM CENTER needed for 1.5 usage should
+8 ; already be defined.
+9 ;
+10 NEW RECVAPP,SENDAPP
+11 SET AN("S")="VAMC "_STATION
+12 SET SENDAPP=$$APP^IVM16PF(AN("S"),"a",STATION,"USA")
+13 IF +SENDAPP<0
DO ERROR(SENDAPP,"Sending App:"_AN("S"))
GOTO APPEXIT
+14 ;
ANR SET AN("R")="HEC "_STATION
+1 SET RECVAPP=$$APP^IVM16PF(AN("R"),"a",724,"USA")
+2 IF +RECVAPP<0
DO ERROR(RECVAPP,"Receiving App:"_AN("R"))
APPEXIT QUIT STOP
+1 ;
+2 ;
PROTOCOL(STATION,RLLN,SLLN,AN) ;
+1 ;INPUT STATION = Station #
+2 ; RLLN = Receiving Logical Link Name
+3 ; SLLN = Sending Logical Link Name
+4 ; AN = Array containing the Application Names
+5 ;
+6 ;OUTPUT None
+7 ;
+8 ;PURPOSE Using the table in line label PROTDAT create the
+9 ; protocols (Subscriber and Event Driver) for the
+10 ; v1.6 TCP/IP interfaces
+11 ;
+12 NEW RESULT,SIEN,DUZ,V,N,N1,LNCNT,LINE,PROTRET
+13 SET N1="VAMC "_STATION
SET V=2.1
+14 ;
+15 SET LNCNT=1
+16 FOR
SET LINE=$TEXT(PROTDAT+LNCNT)
if $PIECE(LINE,";",3)="END"
QUIT
Begin DoDot:1
+17 KILL D,RESULT
+18 FOR N=3:1
if $PIECE(LINE,";",N)="LEND"
QUIT
SET D(N)=$$V($PIECE(LINE,";",N))
+19 SET NAM=D(3)_D(4)_D(5)
+20 if NAM["CLIENT"
Begin DoDot:2
+21 SET SIEN=$$SP^IVM16PF(NAM,D(6),D(7),D(8),D(9),D(10))
+22 IF +SIEN<0
DO ERROR(SIEN,"Subscriber:"_NAM)
End DoDot:2
+23 if NAM["SERVER"
Begin DoDot:2
+24 NEW TMPNAM,ITEMTXT
+25 SET TMPNAM=D(6)_D(7)_$PIECE(NAM,"SERVER ",2)
+26 SET ITEMTXT=$$GETIT(TMPNAM)
+27 SET RESULT=$$EDP^IVM16PF(NAM,D(6),D(7),D(8),D(9),D(10),D(11),D(12),ITEMTXT)
+28 IF +RESULT<0
DO ERROR(RESULT,"Event Driver:"_NAM)
End DoDot:2
+29 SET LNCNT=LNCNT+1
End DoDot:1
if STOP
QUIT
+30 KILL D
+31 QUIT
+32 ;
ERROR(ERRMSG,SUBJ) ;
+1 ;INPUT ERRMSG = Error Message text
+2 ; SUBJ = Subject of the Message
+3 ;
+4 ;OUTPUT none
+5 ;
+6 ;PURPOSE Display an error message to the user. Set the
+7 ; variable STOP=1 which will stop the routine
+8 ; from continuing to run after an error is found.
+9 ;
+10 NEW TXT
+11 SET STOP=1
+12 SET TXT=$PIECE(ERRMSG,"^",2)
+13 WRITE !,"===================================================="
+14 WRITE !,"= ERROR ="
+15 WRITE !,"===================================================="
+16 WRITE !,"When creating "_SUBJ
+17 WRITE !,"===================================================="
+18 WRITE !,"**ERROR MSG: ",TXT
+19 QUIT
+20 ;
V(VALUE) ;FUNCTION: If variable then pass back value of it.
+1 ;
+2 IF $EXTRACT(VALUE)="@"
QUIT @($EXTRACT(VALUE,2,$LENGTH(VALUE)))
+3 QUIT VALUE
+4 ;
GETIT(N) ;FUNCTION: Given Message Type and Event Type return the
+1 ; Transmission Description.
+2 if N="ORUZ04H"
QUIT "INSURANCE/Unsolicited HEC to VAMC"
+3 if N="ORUZ04V"
QUIT "INSURANCE/Unsolicited VAMC to HEC"
+4 if N="ORUZ05"
QUIT "DEMOGRAPHIC DATA/Unsolicited HEC to VAMC"
+5 if N="ORUZ06"
QUIT "DELETE MEANS TEST/Unsolicited HEC to VAMC"
+6 if N="ORUZ07"
QUIT "FULL DATA/Unsolicited VAMC to HEC"
+7 if N="QRYZ07"
QUIT "IVM INDIVIDUAL QUERY FULL DATA/Query HEC to VAMC"
+8 if N="ORFZ07"
QUIT "IVM INDIVIDUAL ACK/REPLY FULL DATA/Reply HEC to VAMC"
+9 if N="ORUZ09"
QUIT "IVM BILLING/COLLECTION/Unsolicited VAMC to HEC"
+10 if N="ORUZ10"
QUIT "INCOME TEST DATA/Unsolicited HEC to VAMC"
+11 if N="QRYZ10"
QUIT "FINANCIAL QUERY/Query VAMC to HEC"
+12 if N="ORFZ10"
QUIT "FINANCIAL QUERY/Reply HEC to VAMC"
+13 if N="ORUZ11"
QUIT "ENROLLMENT/ELIGIBILITY DATA/Unsolicited HEC to VAMC"
+14 if N="QRYZ11"
QUIT "ENROLLMENT/ELIGIBILITY QUERY/Query VAMC to HEC"
+15 if N="ORFZ11"
QUIT "ENROLLMENT/ELIGIBILITY QUERY/Reply HEC to VAMC"
+16 if N="MFNZEG"
QUIT "ENROLLMENT GROUP THRESHOLD/Unsolicited HEC to VAMC"
+17 QUIT ""
+18 ;
PROTDAT ;;VAMC SIDE PROTOCOLS
+1 ;;@N1;; ORU-Z04 CLIENT H;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
+2 ;;@N1;; ORU-Z04 SERVER H;ORU;Z04;@V;@AN("R");D ACK^IVMPREC1;@SIEN;;LEND
+3 ;;@N1;; ORU-Z04 CLIENT V;@SLLN;@AN("R");ACK;;D ORU^IVMPREC2;LEND
+4 ;;@N1;; ORU-Z04 SERVER V;ORU;Z04;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+5 ;;@N1;; ORU-Z05 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
+6 ;;@N1;; ORU-Z05 SERVER;ORU;Z05;@V;@AN("R");;@SIEN;;LEND
+7 ;;@N1;; ORU-Z06 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
+8 ;;@N1;; ORU-Z06 SERVER;ORU;Z06;@V;@AN("R");;@SIEN;;LEND
+9 ;;@N1;; ORU-Z07 CLIENT;@SLLN;@AN("R");ACK;;;LEND
+10 ;;@N1;; ORU-Z07 SERVER;ORU;Z07;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+11 ;;@N1;; QRY-Z07 CLIENT;@SLLN;@AN("S");ORF;Z07;D QRY^IVMPREC;LEND
+12 ;;@N1;; QRY-Z07 SERVER;QRY;Z07;@V;@AN("R");;@SIEN;;LEND
+13 ;;@N1;; ORF-Z07 CLIENT;@SLLN;@AN("R");ACK;;;LEND
+14 ;;@N1;; ORF-Z07 SERVER;ORF;Z07;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+15 ;;@N1;; ORU-Z09 CLIENT;@SLLN;@AN("R");ACK;;;LEND
+16 ;;@N1;; ORU-Z09 SERVER;ORU;Z09;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+17 ;;@N1;; ORU-Z10 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
+18 ;;@N1;; ORU-Z10 SERVER;ORU;Z10;@V;@AN("R");;@SIEN;;LEND
+19 ;;@N1;; QRY-Z10 CLIENT;@SLLN;@AN("R");ORF;Z10;;LEND
+20 ;;@N1;; QRY-Z10 SERVER;QRY;Z10;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+21 ;;@N1;; ORF-Z10 CLIENT;@SLLN;@AN("S");ACK;;D ORF^IVMCM;LEND
+22 ;;@N1;; ORF-Z10 SERVER;ORF;Z10;@V;@AN("R");;@SIEN;;LEND
+23 ;;@N1;; ORU-Z11 CLIENT;@SLLN;@AN("S");ACK;;D ORU^IVMPREC2;LEND
+24 ;;@N1;; ORU-Z11 SERVER;ORU;Z11;@V;@AN("R");;@SIEN;;LEND
+25 ;;@N1;; QRY-Z11 CLIENT;@SLLN;@AN("R");ORF;Z11;;LEND
+26 ;;@N1;; QRY-Z11 SERVER;QRY;Z11;@V;@AN("S");D ACK^IVMPREC1;@SIEN;;LEND
+27 ;;@N1;; ORF-Z11 CLIENT;@SLLN;@AN("S");ACK;;D ORF^IVMCM;LEND
+28 ;;@N1;; ORF-Z11 SERVER;ORF;Z11;@V;@AN("R");;@SIEN;;LEND
+29 ;;@N1;; MFN-ZEG CLIENT;@SLLN;@AN("S");MFK;ZEG;D MFN^DGENEGT2;LEND
+30 ;;@N1;; MFN-ZEG SERVER;MFN;ZEG;@V;@AN("R");;@SIEN;;LEND
+31 ;;END
+32 ;
