Routine: BYIMRT

Package	Total	Call Graph
IHS Immunizations Interface	5	($$MSG,$$V04,EOJ)^BYIMIMM (SET1,START)^BYIMIMM1 (EXPBULL,LOGD)^BYIMIMM4 (PATH,PAUSE)^BYIMIMM6 REFUSAL^BYIMSEG1
VA Fileman	4	NOW^%DTC ^DIC FILE^DICN ^DIR
IHS Generic Interface System	1	^INHF
Kernel	1	($$LIST,$$OPEN,CLOSE)^%ZISH

Package	Total	Caller Graph
IHS Immunizations Interface	2	BYIMIMM BYIMMU2

Entry Points

Name	Comments	DBIA/ICR reference
VXQ(DFN)	;EP;TO SEND VXQ MESSAGE
RXR(BYIMUIF)	;EP;CLEAN OUT BLANK RXR AND '0' OBX segments
PAT	;
HDR	;QUERY RESPONSE DISPLAY HEADER
RTIN	;EP;CHECK REAL-TIME INBOUND FILES
MID	;DISPLAY MESSAGE RESPONSES
FILE(PATH,FILE,ACT,BYIMUIF,BYIMPAT,BYIMSTP)	;SEND FILE
DELAY
SFILE(BYIMUIF,BYIMPAT,BYIMSTP)	;EP;TO SEND RT FILE VIA HL7 BRIDGE
MSH	;DISPLAY RT MSH SEGMENT
MID1	;
RT	;EP;FOR REAL TIME QUERIES
HDR2	;DISPLAY RELATED MESSAGE
HDR1
DISP(RTLDA)	;DISPLAY RESPONSE FILE
VXU(DFN)	;EP;TO SEND VXU MESSAGE
DVXU(X)	;DISPLAY RT VXU MESSAGE
RTPAT	;DISPLAY PATIENTS FOR RT QUERY
RTDEST	;EP;CHECK DESTINATION GLOBAL FOR RT MESSAGES
PID(X)	;DISPLAY RT PID SEGMENT
RTLOG(FILE,ACT,PATH,DFN,UIF,MID,STAT)	;EP;
P1	;SELECT MULTIPE PATIENTS
UIF(BYIMUIF)	;PROCESS UIF
NEWUIF	;CREATE INTHU ENTRY
RESP	;EP;REVIEW RT RESPONSE FILES
VXQX(BYIMPAT)	;PEP;send query request for patient IEN - BYIMPAT
VXQV01(UIF)	;EP;TO DISPLAY VXQ^V01 QUERY
ALL	;EP;TO SPECIFY NEW ONLY OR ALL IMMUNIZATIONS
START	;
CLEANVXU(BYIMUIF)	;REMOVE INLHDEST REMNANT FOR RT MESSAGES
RT1	;REAL TIME
LOG(UIF,ACT,FILE)	;LOG RT FILE
RTIMP(FILE)	;EP;TO AUTOMATICALLY IMPORT REAL-TIME MESSAGES
RESP1	;REVIEW RESPONSES
F1	;WRTIE OUT EACH LINE
NON	;EP;TO REVIEW NON-IMMUNIZATION IIS RESPONSES
RXA(X)	;DISPLAY RT RXA SEGMENT
SEND	;SEND RT QUERY
RSP	;EP;IMMUNIZATION DATA EXCHANGE

External References

Name	Field # of Occurrence
NOW^%DTC	SFILE+8, NEWUIF+2
$$LIST^%ZISH	RTIN+3
$$OPEN^%ZISH	RTIMP+7, FILE+7
CLOSE^%ZISH	FILE+16
$$MSG^BYIMIMM	VXQX+21
$$V04^BYIMIMM	VXU+4
EOJ^BYIMIMM	VXQX+20
SET1^BYIMIMM1	RTIMP+22
START^BYIMIMM1	START+8
EXPBULL^BYIMIMM4	FILE+9
LOGD^BYIMIMM4	VXU+11
PATH^BYIMIMM6	RT1+1, RTIMP+5, VXQX+5, SFILE+7, RTIN+2
PAUSE^BYIMIMM6	RT1+23, SEND+19, START+6, DISP+9, MID1+7, MID1+8, DVXU+19
REFUSAL^BYIMSEG1	FILE+12
^DIC	P1+6, NON+9
FILE^DICN	RTLOG+15, NEWUIF+6
^DIR	RT1+10, SEND+8, RESP1+10, ALL+7
^INHF	VXQX+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RT1+5
Function Call: WRITE	Prompt: !!?10,"Real-Time Query Options - Version: ",BYIMVER Line Location: RT1+6
Function Call: WRITE	Prompt: !!,"Select patient(s) to send to the State Immunization Registry" Line Location: PAT+3
Function Call: WRITE	Prompt: ! Line Location: P1+5
Function Call: WRITE	Prompt: !!,$S(RT="VXQ":"A 'Query for Vaccination Record ("_BYIMQTX_")'",1:"An 'Unsolicited Vaccine Record Update (VXU)'")," will be sent for:" Line Location: SEND+1
Function Call: WRITE	Prompt: ! Line Location: SEND+7
Function Call: WRITE	Prompt: ! Line Location: RTPAT+2
Function Call: WRITE	Prompt: " " Line Location: DELAY+1
Function Call: WRITE	Prompt: "." Line Location: DELAY+2
Function Call: WRITE	Prompt: @IOF Line Location: RESP1+4
Function Call: WRITE	Prompt: !!?10,"Review Responses from the State IIS" Line Location: RESP1+5
Function Call: WRITE	Prompt: ! Line Location: RESP1+9
Function Call: WRITE	Prompt: @IOF Line Location: START+1
Function Call: WRITE	Prompt: !!?10,"All NEW immunizations for Query Responses from the state" Line Location: START+2
Function Call: WRITE	Prompt: !!?10,"that can be added to RPMS will be listed below." Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: START+4
Function Call: WRITE	Prompt: @IOF Line Location: NON+1
Function Call: WRITE	Prompt: !!?10,"Select Responses by Patient or Date" Line Location: NON+2
Function Call: WRITE	Prompt: ! Line Location: NON+8
Function Call: READ	Timeout: DTIME Variable: BYIMX Line Location: RTIMP+12
Function Call: WRITE	Prompt: X,! Line Location: F1+9
Function Call: WRITE	Prompt: !,FILE," processed..." Line Location: RTIN+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Query for Patient",?26,"Query Date",?38,"Query file" Line Location: HDR1+0
Function Call: WRITE	Prompt: !,"------------------------",?26,"----------",?38,"-------------------------------" Line Location: HDR1+1
Function Call: WRITE	Prompt: !,$P($G(^DPT(+$P(X0,U,4),0)),U) Line Location: HDR1+4
Function Call: WRITE	Prompt: ?26,$E(X1,4,5),"/",$E(X1,6,7),"/",$E(X1,1,3)+1700 Line Location: HDR1+6
Function Call: WRITE	Prompt: ?38,$P(X0,U) Line Location: HDR1+7
Function Call: WRITE	Prompt: !!!,"HL7 Response Message" Line Location: HDR2+1
Function Call: WRITE	Prompt: !,"*******************************************************" Line Location: HDR2+3
Function Call: WRITE	Prompt: ! Line Location: HDR2+4
Function Call: WRITE	Prompt: @IOF Line Location: MID1+7
Function Call: WRITE	Prompt: !!,"Message ID: ",$P(MSH,"\|",10) Line Location: VXQV01+7
Function Call: WRITE	Prompt: !,"Patient HRN: ",+$E($P(QRD,"\|",9),7,12)," Facility: ",$P($G(^DIC(4,+$E($P(QRD,"\|",9),1,6),0)),U) Line Location: VXQV01+8
Function Call: WRITE	Prompt: !,HDR(J) Line Location: DVXU+7
Function Call: WRITE	Prompt: !,HDR(J) Line Location: DVXU+23
Function Call: WRITE	Prompt: !,$TR($P(X,"\|",3),"^"," ")," ",$TR($P(X,"\|",4),"^"," ")," " Line Location: MSH+1
Function Call: WRITE	Prompt: $E(Y,1,4),"-",$E(Y,5,6),"-",$E(Y,7,8)," ",$P(X,"\|",9)," ",$P(X,"\|",11) Line Location: MSH+3
Function Call: WRITE	Prompt: !!,"Which immunizations should be include:" Line Location: ALL+2
Routine Call	DIC Line Location: P1+6 NON+9
Routine Call	DIR Line Location: RT1+10 SEND+8 RESP1+10 ALL+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^BYIMRT - [#90480.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	UIF+17
^AUPNVSIT("AC"	VXU+2
^AUTTLOC("C"	UIF+13
^BYIMPARA - [#90480]	RTIMP+3, RTIMP+4
^BYIMRT - [#90480.2]	RTLOG+19, RTLOG+22, RTLOG+23, RTLOG+24, DISP+3, DISP+4, HDR1+3, HDR2+2, MID1+4, DVXU+3
^BYIMRT("ACT"	RTIN+7, DISP+6, MID+2
^BYIMTMP($J	RTIMP+21, LOG+2*
^DIC(4 - [#4]	VXQV01+8
^DPT - [#2]	RTPAT+5, VXQ+1, VXU+5, VXQX+4, HDR1+4
^INLHDEST(	RTDEST+6, RTDEST+9, RTDEST+12, CLEANVXU+4, CLEANVXU+6, CLEANVXU+8!
^INRHD("B"	RTDEST+2
^INTHU - [#4001]	FILE+15, RTDEST+13, UIF+2, UIF+4, RTLOG+22, VXQV01+3, VXQV01+4, VXQV01+5, RXR+3, RXR+4! , RXR+5!
^INTHU("AT"	VXU+9, VXQX+16
^TMP($J	RT1+26, RT1+28!, PAT+1!, P1+3, P1+9*, SEND+11, SEND+14, SEND+17!, SEND+18!, RTPAT+4 , RESP1+2!

Label References

Name	Line Occurrences
$$VXQX	VXQ+3
ALL	PAT+2
CLEANVXU	VXU+15
DELAY	VXQ+2, VXU+6
DISP	NON+12
DVXU	MID1+5
F1	FILE+15
FILE	SFILE+11
HDR	DISP+1
HDR2	MID1+1
LOG	RTIMP+18
MID	DISP+10
MID1	MID+2
NON	RESP1+15
P1	PAT+4
PAT	RT1+25
PID	DVXU+4
RESP	RT1+14
RESP1	RESP+2
RT1	RT+1
RTIMP	RTIN+8
RTIN	RT1+21, FILE+21
RTLOG	LOG+8, FILE+10, FILE+17
RTPAT	P1+10, SEND+2
RXA	DVXU+5
RXR	VXU+12
SEND	RT1+27
SFILE	VXU+14, VXQX+19, UIF+20
START	RESP1+14
UIF	RTDEST+14
VXQ	SEND+15
VXU	SEND+16

Naked Globals

Name	Field # of Occurrence
^(	FILE+15, RTLOG+22, MID1+4, RXR+3, DVXU+3
^(0	HDR2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SFILE+9, NEWUIF+3
ACT	LOG~, LOG+8, SFILE+10*, SFILE+11, FILE~, FILE+7, RTLOG~, RTLOG+9, RTLOG+14
AD	RXA+1~, RXA+3*, RXA+12
AUTOADD	RTIMP+2~, RTIMP+4*
AUTOIMP	RTIMP+2~, RTIMP+3*
>> BHLDEST	RSP+1*, RSP+3
BYIMALL	VXU+4, ALL+1!, ALL+10*
>> BYIMBDG	FILE+18
>> BYIMDDA	RTDEST+2*, RTDEST+3, RTDEST+6, RTDEST+9, RTDEST+12
BYIMDEST	VXQX+7~, VXQX+12, VXQX+13, RTDEST+1, RTDEST+2
BYIMDT	RTDEST+7~, RTDEST+8, RTDEST+9, RTDEST+12
>> BYIMIN1	F1+4
BYIMJ	RTIMP+9~, RTIMP+11*
BYIMPAT	VXQX~, VXQX+4, VXQX+8, VXQX+9, VXQX+10, VXQX+19, SFILE~, SFILE+4, SFILE+9, SFILE+11 , FILE~, FILE+10, FILE+12, FILE+17
>> BYIMQT	RT1+3, VXQX+6, VXQX+12
BYIMQTX	RT1+2!, RT1+3, SEND+1, VXQX+6, VXQX+18
BYIMQUIT	RT+1, RT+2!, RT1+2!, RT1+12, RT1+14!, RT1+24!, PAT+4, PAT+5!, P1+8, RESP+1! , RESP+2, RESP1+1!, RESP1+11!, RESP1+12, RESP1+15, RESP1+16!, NON+11, RTIMP+1!, DISP+2~, DISP+11! , MID+2, MID+3!, MID1+2~, MID1+4, MID1+5, MID1+7, DVXU+3, DVXU+10, DVXU+12, DVXU+20* , DVXU+21, ALL+9*
BYIMRTIN	RT1+19~, RT1+20, FILE+19~, FILE+20, RTIN+9
BYIMSTP	VXU+13, VXU+14, VXQX+18, VXQX+19, SFILE~, SFILE+5, SFILE+9, SFILE+11, FILE~, UIF+19 , UIF+20
BYIMUIF	VXU+9, VXU+10, VXU+12, VXU+14, VXU+15, VXQX+16, VXQX+17, VXQX+19, SFILE~, SFILE+4 , SFILE+11, FILE~, FILE+10, FILE+12, FILE+15, FILE+17, RTDEST+10~, RTDEST+11, RTDEST+12, RTDEST+13 , RTDEST+14, UIF~, UIF+1, UIF+2, UIF+4, UIF+20, RXR~, RXR+3, RXR+4, RXR+5 , CLEANVXU~, CLEANVXU+1, CLEANVXU+8
>> BYIMVER	RT1+6, SFILE+9, RTDEST+1
BYIMX	RTIMP+9~
BYIMXX	RTIMP+19~, RTIMP+20, RTIMP+21, RTIMP+22
>> CVX	RXA+5*, RXA+6
DA	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DD	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DFN	SEND+13, SEND+14, SEND+15, SEND+16, SEND+17, RTPAT+1~, RTPAT+3, RTPAT+4, RTPAT+5, VXQ~ , VXQ+1, VXQ+3, VXU~, VXU+2, VXU+5, VXU+11, VXU+14, RESP1+3~, LOG+3~, LOG+4* , LOG+8, UIF+6~, UIF+15, UIF+17, UIF+18, UIF+20, RTLOG~, RTLOG+14
DIC	P1+1!, P1+2, P1+7!, NON+3!, NON+4, NON+10!, RTLOG+10!, RTLOG+12, RTLOG+16!, NEWUIF+1! , NEWUIF+4, NEWUIF+7!
DIC("A"	P1+3, NON+6
DIC("DR"	RTLOG+14*
DIC("S"	NON+7*
DIC(0	P1+4, NON+5, RTLOG+13, NEWUIF+5
DIE	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DIK	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DINUM	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DIR	RT1+7!, RT1+11!, SEND+3!, SEND+9!, RESP1+6!, RESP1+11!, RTIMP+2~, RTIN+1~, RTIN+3*, ALL+3! , ALL+8!
DIR(	RTIN+6
DIR("A"	RT1+9, SEND+5, RESP1+8, START+5, ALL+5*
DIR("B"	SEND+6, ALL+6
DIR(0	RT1+8, SEND+4, RESP1+7, ALL+4
DISP	DVXU+1~, DVXU+6
DISP(	DVXU+10, DVXU+12, RXA+12*
DLAYGO	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DO	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DR	P1+1!, P1+7!, NON+3!, NON+10!, RTLOG+10!, RTLOG+16!, NEWUIF+1!, NEWUIF+7!
DUZ(2	RTIMP+3, RTIMP+4
EXP	RXA+1~, RXA+11*, RXA+12
FILE	RTIMP~, RTIMP+7, RTIMP+18, LOG~, LOG+4, LOG+8, FILE~, FILE+7, FILE+9, FILE+10 , RTIN+1~, RTIN+6, RTIN+7, RTIN+8, RTIN+9, RTLOG~, RTLOG+9, RTLOG+11, RTLOG+14, DISP+4 , DISP+6, MID+2
HDR	DVXU+1~
HDR(	DVXU+7, DVXU+23
HDR(1	PID+5*
HDR(2	PID+6*
HDR(3	PID+12*
HDR(4	PID+13*
HDR(5	PID+20*
HDR(6	PID+27*
HRN	UIF+6~, UIF+7, UIF+8, UIF+9, UIF+10, UIF+11, UIF+12*, UIF+14, UIF+17
IMM	RXA+1~, RXA+6*, RXA+12
IN	RTIN+4~, RTIN+5, RTIN+6
INA	VXQX+7~, VXQX+13
INA("QNM"	VXQX+11*
INDA	VXQX+7~, VXQX+8*, VXQX+11, VXQX+13
INDA(2	VXQX+9*
INDA(9000001	VXQX+10*
>> INDEST("RSPK11"	RSP+2*
INH	VXQX+7~
>> INHF	VXU+7*, VXU+8, VXU+9, VXQX+15, VXQX+16, VXQX+21
IO	F1+9
IOF	RT1+5, RESP1+4, START+1, NON+1, HDR+1, MID1+7, DVXU+22
IOSL	MID1+7, DVXU+18
IOST	MID1+7, DVXU+18
>> IPATH	RTIMP+6, RTIMP+7, LOG+8, RTIN+3
>> J	DELAY+2, DVXU+7, DVXU+23*
LOC	UIF+6~, UIF+11*, UIF+13
LOCDA	UIF+6~, UIF+13*, UIF+14, UIF+17
LOT	RXA+1~, RXA+9*, RXA+12
MID	LOG+5, LOG+7, LOG+8, SFILE+6, FILE+10, FILE+17, F1+3, RTLOG~, RTLOG+14, DISP+3*
>> MIDDA	DISP+6, DISP+7, HDR2+2, MID+1, MID+2*, MID1+4, DVXU+3
>> MSH	VXQV01+3*, VXQV01+6, VXQV01+7
>> OPATH	SFILE+11, FILE+17
PATH	FILE~, FILE+7, FILE+9, FILE+10, RTLOG~, RTLOG+14
PRI	RTDEST+4~, RTDEST+5, RTDEST+6, RTDEST+9, RTDEST+12
>> QFILE	SFILE+9*, SFILE+11, FILE+17
>> QRD	VXQV01+4*, VXQV01+8
>> QRF	VXQV01+5*
QUAN	RXA+1~, RXA+7*, RXA+12
>> READ	FILE+15*, F1+1, F1+2
RT	RT1+4~, RT1+13, RT1+14, RT1+15, PAT+2, SEND+1, SEND+15, SEND+16, RESP1+3~, RESP1+13 , RESP1+14
RTLDA	RTLOG+18*, RTLOG+19, RTLOG+22, RTLOG+23, RTLOG+24, DISP~, DISP+3, DISP+4, HDR1+3
STAT	RTLOG~, RTLOG+14
TYPE	RXA+1~, RXA+8*, RXA+12
U	RTPAT+5, VXQ+1, VXU+5, RTIMP+3, RTIMP+4, UIF+9, RTLOG+23, RTLOG+24, DISP+3, DISP+4 , HDR1+4, HDR1+5, HDR1+7, HDR2+2, MID1+7, VXQV01+8, DVXU+14, DVXU+15, DVXU+16, DVXU+17 , DVXU+20, PID+8, RXA+5, RXA+6, RXA+8, RXA+12
UIF	RTIMP+9~, RTIMP+10, RTIMP+18, LOG~, LOG+1, LOG+2, LOG+8, RTLOG~, RTLOG+14, RTLOG+22 , NEWUIF+8, VXQV01~, VXQV01+2, VXQV01+3, VXQV01+4, VXQV01+5
VST	VXU+1~, VXU+2*, VXU+3, VXU+4
X	FILE+11~, FILE+13, F1+1, F1+3, F1+4, F1+5, F1+6, F1+7, F1+8, F1+9 , F1+10, UIF+6~, UIF+16, UIF+17, RTLOG+11, RTLOG+20~, RTLOG+21, RTLOG+22, NEWUIF+3, MID1+4* , MID1+5, MID1+6, MID1+7, RXR+1~, RXR+2, RXR+3, RXR+4, RXR+5, DVXU~, DVXU+3* , DVXU+4, DVXU+5, DVXU+20, MSH+1, MSH+2, MSH+3, PID~, PID+7, PID+9, PID+11 , RXA~, RXA+2, RXA+4, RXA+7, RXA+8, RXA+9, RXA+10, CLEANVXU+2~, CLEANVXU+3, CLEANVXU+4 , CLEANVXU+6, CLEANVXU+8
X0	HDR1+2~, HDR1+3*, HDR1+4, HDR1+5, HDR1+7
>> X1	HDR1+5*, HDR1+6
XX	LOG+3~, LOG+6, FILE+11~, FILE+14, FILE+15, UIF+3~, UIF+4, UIF+5, UIF+8, UIF+9 , UIF+10, DISP+2~, DISP+5, MID1+2~, MID1+3, MID1+4, DVXU+2, DVXU+3, DVXU+8~, DVXU+9 , DVXU+10*, DVXU+12, DVXU+13
Y	RT1+12, RT1+13, P1+8, P1+9, SEND+10, VXQ+3, VXU+4, VXU+7, RESP1+12, RESP1+13 , START+7, NON+11, NON+12, RTIMP+7, RTIMP+8, FILE+7, FILE+8, UIF+6~, RTLOG+17, RTLOG+18 , NEWUIF+8, RXR+1~, RXR+3, RXR+4, RXR+5, MSH+2, MSH+3, PID+1~, PID+2, PID+3 , PID+4, PID+5, PID+7, PID+8, PID+10, PID+11, PID+12, PID+14, PID+15, PID+16 , PID+17, PID+18, PID+19, PID+20, PID+21, PID+22, PID+23, PID+24, PID+25, PID+26* , PID+27, RXA+1~, RXA+2, RXA+3, RXA+4, RXA+5, RXA+6, RXA+10, RXA+11, ALL+9 , ALL+10, CLEANVXU+2~, CLEANVXU+5, CLEANVXU+6*, CLEANVXU+8
YY	DVXU+8~, DVXU+11, DVXU+12, DVXU+13
Z	UIF+6~, RTLOG+22, RTLOG+23, RTLOG+24, DVXU+12, DVXU+14, DVXU+15, DVXU+16, DVXU+17, PID+1~ , PID+9, PID+10, RXA+1~, CLEANVXU+2~, CLEANVXU+7, CLEANVXU+8*
>> ZTQUEUED	SEND+11, VXQ+1, DELAY, VXU+5

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMRT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: