- 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 Feb 18, 2025@23:25:59 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 ;