Routine: BYIMSEGS

Package	Total	Call Graph
IHS Immunizations Interface	4	$$DUZ^BYIMIMM ($$ETH,$$HRN,$$HX1,$$HX2,$$RACE,$$VFC)^BYIMIMM3 PATH^BYIMIMM6 (PD1,RXR)^BYIMSEG1
IHS Generic Interface System	3	$$MESSID^INHD ($$COMP,$$ESC,$$PN,$$REP,$$SUBCOMP)^INHUT $$TIMEIO^INHUT10
IHS Patient Registration	1	$$GETMCR^AGUTL
Patient Care Component Reports	1	$$PRIMPROV^APCLV
VA Fileman	1	(D,NOW)^%DTC

Package	Total	Caller Graph
IHS Generic Interface System	11	IS00011 IS00011A IS00011B IS00011C IS00011D IS00011E IS00012 IS00024 IS00024A IS00030 IS00030A
IHS Immunizations Interface	1	BYIMSEG1

Entry Points

Name	Comments	DBIA/ICR reference
ORC17	;setup for ORC17 variable - location
ORC10	;entered by
ORC12	;ordering provider
FHS3	;
PID	;EP;
MSHEND
QPD	;setup variables for QPD segment
PID11	;PID-11 ADDRESS
PID10	;PID-10 RACE
PID13	;PID-13 PHONE HOME
PID14	;PID-14 PHONE BUSINESS
RXA	;EP;
QRD1	;
RXR	;EP;
RCPEND
PV119	;PV1-19
PID3	;PID-3 HRN
PID5	;PID-5 NAME
PID7	;PID-7 DOB
PID6	;PID-6 MMN
RXA15	;immunization lot number
RXA17	;immunization manufacturer
RXA16	;immunization lot number
RXA11	;location of encounter
RXA10	;encounter provider
QRD7	;
QRD9	;
QRD8	;information to build a who string (QRD-8)
RXA2	;admin subid
PD1END
ORCEND
PV19	;PV1-09
QRD10	;
PV17	;PV1-07
QRD12	;
PV11	;PV1-01
PV13	;PV1-03 PAT LOC
PV12	;PV1-02
PIDEND
PV120	;PV1-20 VFC
VSET(INDA)	;SET VISIT VARIABLES
NK12
NK13
NK11	;subid
NK17	;CONTACT
NK14	;NOK ADDRESS
NK15	;PHONE NUMBER
PID22	;PID-22 ETHNICITY
PID24	;PID-24 BIRTH ORDER
QRD3	;
QRD2	;
QRDEND
QRD4	;
PD1	;EP;
TITLE(P)	;GET PROVIDER'S TITLE/PROVIDER CLASS
PV1	;EP;FOR PV1 SEGMENT CONTENT
PV144	;PV1-44 VISIT DATE
RCP	;setup variables for RCP segment
RXA20	;action code
RXA21	;action code
RXA22	;action code
RXAEND
RXA4	;date/time entered
NPI(PRV)	;
ORC	;EP; - for ORC components
MSH8	;
MSH9	;
NK1END
MSH3	;
MSH4	;
MSH5	;
MSH6	;
MSH7	;
RXA5	;admin code
NK1	; generate the NK1 segment
RXA7	;quantity definition
RXA6	;dose
RXA3	;admin date/time
MSH	;EP;entry point
QPDEND
RXA9	;admin history
FHS	;EP;
QRD	;EP; setup the variables for the QRD segment
PID19	;PID-19 SSN
PROV(P)	;RETURN PROVIDER COMPONENT INFO
PV1END
ORC5	;
ORC2	;
ORC3	;
ORC1	;
MSH12	;
MSH10	;
MSH11	;
FHSEND

Name	Field # of Occurrence
D^%DTC	RXA5+17
NOW^%DTC	MSH+2, MSH7+1, QRD1+1
$$GETMCR^AGUTL	PID3+17
$$PRIMPROV^APCLV	PV17+2, PV19+2
$$DUZ^BYIMIMM	MSH4+3, ORC2+3, ORC17+5, RXA11+4, RXA11+5, FHS3+2, FHS3+3
$$ETH^BYIMIMM3	PID22+1
$$HRN^BYIMIMM3	PID3+2, ORC3+4, QRD4+1, QRD8+5
$$HX1^BYIMIMM3	RXA9+1
$$HX2^BYIMIMM3	RXA9+1
$$RACE^BYIMIMM3	PID10+1
$$VFC^BYIMIMM3	PV120+1
PATH^BYIMIMM6	MSH+1
PD1^BYIMSEG1	PD1+1
RXR^BYIMSEG1	RXR+1
$$MESSID^INHD	MSH10+2
$$COMP^INHUT	MSH+4
$$ESC^INHUT	MSH+4
$$PN^INHUT	QRD8+4
$$REP^INHUT	MSH+4
$$SUBCOMP^INHUT	MSH+4
$$TIMEIO^INHUT10	MSH7+2, ORC3+4, RXA3+1, RXA4+1, RXA22+4, QRD1+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	PID3+12
^AUPNMCD("B"	PID3+11
^AUPNPAT - [#9000001]	PID13+14, NK13+1
^AUPNVIMM - [#9000010.11]	ORC3+2, ORC3+4, ORC12+6, RXA+1, RXA5+2, RXA10+5, VSET+1, VSET+2
^AUPNVPRV - [#9000010.06]	ORC12+8, RXA10+7
^AUPNVPRV("AD"	ORC12+7, RXA10+6
^AUPNVSIT - [#9000010]	PV144+3, ORC3+2, VSET+7, VSET+8
^AUTTIMAN - [#9999999.04]	RXA17+7
^AUTTIML - [#9999999.41]	RXA15+5, RXA15+6, RXA16+4, RXA16+5, RXA17+5
^AUTTIMM - [#9999999.14]	RXA5+2, VSET+3, VSET+5
^AUTTLOC - [#9999999.06]	ORC2+3, ORC17+5
^BYIMCDC - [#90480.7]	NK13+2
^BYIMEXP("D"	RXA21+3
^BYIMPARA - [#90480]	RXA11+4, RXA11+5, FHS3+2
^BYIMREL - [#90480.6]	NK13+2
^DIC(4 - [#4]	MSH4+3, ORC17+5, RXA11+5, FHS3+3
^DIC(5 - [#5]	PID11+3, NK14+2
^DIC(7 - [#7]	TITLE+5
^DPT - [#2]	PID5+2, PID6+2, PID7+1, PID11+1, PID13+3, PID14+3, PID19+1, NK12+1, NK14+1, NK15+2 , RXA5+16, QRD8+3
^ICPT - [#81]	RXA5+19
^INTHL7M - [#4011]	MSH+5, MSH+6, MSH+7, MSH+8, MSH+10, MSH+11, MSH+12, MSH+13, MSH+14
^INTHU - [#4001]	MSH10+1
^VA(200 - [#200]	NPI+1, TITLE+3, PROV+3

Name	Line Occurrences
$$NPI	PROV+6
$$PROV	PV17+4, PV19+4, ORC10+6, ORC12+10, RXA10+9
$$TITLE	PROV+5
FHS3	FHS+1
MSH	FHS+2
MSH10	MSH+22
MSH11	MSH+23
MSH12	MSH+24
MSH3	MSH+15
MSH4	MSH+16
MSH5	MSH+17
MSH6	MSH+18
MSH7	MSH+19
MSH8	MSH+20
MSH9	MSH+21
NK11	NK1+1
NK12	NK1+2
NK13	NK1+3
NK14	NK1+4
NK15	NK1+5
NK17	NK1+6
ORC1	ORC+2
ORC10	ORC+6
ORC12	ORC+7
ORC17	ORC+8
ORC2	ORC+3
ORC3	ORC+4
ORC5	ORC+5
PID10	PID+5
PID11	PID+6
PID13	PID+7
PID14	PID+8
PID19	PID+9
PID22	PID+10
PID24	PID+11
PID3	PID+1
PID5	PID+2
PID6	PID+3
PID7	PID+4
PV11	PV1+2
PV119	PV1+7
PV12	PV1+3
PV120	PV1+8
PV13	PV1+4
PV144	PV1+9
PV17	PV1+5
PV19	PV1+6
QRD1	QRD+4
QRD10	QRD+11
QRD12	QRD+12
QRD2	QRD+5
QRD3	QRD+6
QRD4	QRD+7
QRD7	QRD+8
QRD8	QRD+9
QRD9	QRD+10
RXA10	RXA+10
RXA11	RXA+11
RXA15	RXA+12
RXA16	RXA+13
RXA17	RXA+14
RXA2	RXA+3
RXA20	RXA+15
RXA21	RXA+16
RXA22	RXA+17
RXA3	RXA+4
RXA4	RXA+5
RXA5	RXA+6
RXA6	RXA+7
RXA7	RXA+8
RXA9	RXA+9
VSET	ORC+1, RXA+2

Name	Field # of Occurrence
^(0	RXA11+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MSH+3, MSH7+2, QRD1+2
>> BHLMIEN	MSH+5, MSH+6, MSH+7, MSH+8, MSH+10, MSH+11, MSH+12, MSH+13, MSH+14
>> BYIM("MSH3.1"	MSH3+1
>> BYIM("MSH3.2"	MSH3+3
>> BYIM("MSH3.3"	MSH3+3
>> BYIM("MSH4.1"	MSH4+2
>> BYIM("MSH4.2"	MSH4+4
>> BYIM("MSH4.3"	MSH4+4
>> BYIM("MSH5.1"	MSH5+1
>> BYIM("MSH5.2"	MSH5+2
>> BYIM("MSH5.3"	MSH5+2
>> BYIM("MSH6"	MSH6+1
BYIMASU	QRD+1~
>> BYIMATYP	PID11+3
BYIMDA	QRD+1~, QRD+2*, QRD+3, QRD4+1, QRD8+3, QRD8+5
>> BYIMDVOL	RXA6+7
>> BYIMMSH8	MSH8+1
BYIMNM	QRD+1~
BYIMRN	QRD+1~
>> BYIMVER	MSH+9, MSH12+1, PID13+8, PID13+11, PID14+7, PID14+10, NK15+6, NK15+9
CPT	RXA5+7~, RXA5+8, RXA5+18, RXA5+19
CPT2	RXA5+7~, RXA5+9*, RXA5+14, RXA5+18
>> CS	MSH3+3, MSH4+4, MSH5+2, MSH9+1, PID3+13, PID3+18, PID5+6, PID6+7, PID11+3, PID13+9 , PID13+12, PID14+8, PID14+11, PID19+2, NK12+8, NK13+5, NK14+2, NK15+7, NK15+10, PV119+2 , ORC2+3, ORC3+4, ORC17+5, RXA5+5, RXA5+19, RXA9+1, RXA11+8, RXA17+8, QRD8+6, QRD9+1 , QRD10+1, PROV+9
DT	PID3+17
FN	NK12~, NK12+3, NK12+7, NK12+8
ICPT	RXA5+7~
>> INA("ACA"	MSH+7*
>> INA("APA"	MSH+8*
>> INA("ENC"	MSH+4*
>> INA("ET"	MSH+6*, MSH9+1
>> INA("EVDT"	MSH+3*
>> INA("FSH3"	FHS3+4*
>> INA("MSH10"	MSH10+1, MSH10+2
>> INA("MSH11"	MSH11+1*
>> INA("MSH12"	MSH12+1*
>> INA("MSH3"	MSH3+4*
>> INA("MSH4"	MSH4+5*
>> INA("MSH5"	MSH5+3*
>> INA("MSH6"	MSH6+1*
>> INA("MSH7"	MSH7+2*
>> INA("MSH8"	MSH8+1*
>> INA("MSH9"	MSH9+1*
>> INA("MT"	MSH+5*, MSH9+1
>> INA("NK11"	NK11+1, NK11+2
>> INA("NK12"	NK12+8, NK12+9
>> INA("NK13"	NK13+5, NK13+6
>> INA("NK14"	NK14+3, NK14+4
>> INA("NK15"	NK15+1, NK15+5, NK15+7, NK15+8, NK15+10, NK15+11
>> INA("NK17"	NK17+1, NK17+2
>> INA("ORC1"	ORC1+1*
>> INA("ORC10"	ORC10+2, ORC10+7
>> INA("ORC12"	ORC12+2, ORC12+11
>> INA("ORC17"	ORC17+5*
>> INA("ORC2"	ORC2+3*
>> INA("ORC3"	ORC3+4, ORC3+6
>> INA("ORC5"	ORC5+1*
>> INA("PID10"	PID10+1, PID10+2
>> INA("PID11"	PID11+3, PID11+5
>> INA("PID13"	PID13+1, PID13+2, PID13+6, PID13+9, PID13+10, PID13+12, PID13+13, PID13+17, PID13+18*
>> INA("PID14"	PID14+1, PID14+2, PID14+6, PID14+8, PID14+9, PID14+11, PID14+12*
>> INA("PID22"	PID22+1, PID22+2
>> INA("PID24"	PID24+1, PID24+2
>> INA("PID3"	PID3+20, PID3+21
>> INA("PID5"	PID5+6, PID5+7
>> INA("PID6"	PID6+7, PID6+8
>> INA("PID7"	PID7+1, PID7+2
>> INA("PRID"	MSH+10*
>> INA("PV11"	PV11+1*
>> INA("PV119"	PV119+2*
>> INA("PV12"	PV12+1*
>> INA("PV120"	PV120+1*
>> INA("PV13"	PV13+1*
>> INA("PV144"	PV144+2, PV144+5
>> INA("PV17"	PV17+1, PV17+5
>> INA("PV19"	PV19+1, PV19+5
>> INA("QNM"	QRD+2
>> INA("QRD1"	QRD1+2*, QRD4+1
>> INA("QRD10"	QRD10+1*
>> INA("QRD12"	QRD12+1*
>> INA("QRD2"	QRD2+1*
>> INA("QRD3"	QRD3+1*
>> INA("QRD4"	QRD4+1*
>> INA("QRD7"	QRD7+1*
>> INA("QRD8"	QRD8+6*
>> INA("QRD9"	QRD9+1*
>> INA("RAP"	MSH+13*
>> INA("RF"	MSH+14*
>> INA("RXA10"	RXA10+2, RXA10+10
>> INA("RXA11"	RXA11+1, RXA11+8
>> INA("RXA15"	RXA15+1, RXA15+5, RXA15+6*
>> INA("RXA16"	RXA16+1, RXA16+5
>> INA("RXA17"	RXA17+1, RXA17+8
>> INA("RXA2"	RXA2+1*
>> INA("RXA20"	RXA20+1*
>> INA("RXA21"	RXA21+2, RXA21+3
>> INA("RXA22"	RXA22+4*
>> INA("RXA3"	RXA3+1*
>> INA("RXA4"	RXA4+1*
>> INA("RXA5"	RXA5+5, RXA5+19
>> INA("RXA6"	RXA6+9, RXA7+2, RXA9+2
>> INA("RXA7"	RXA7+1, RXA7+2
>> INA("RXA9"	RXA9+1*, RXA9+2
>> INA("SAP"	MSH+11*
>> INA("SF"	MSH+12*
>> INA("VER"	MSH+9*
INDA	PID3+2, PID3+11, PID3+17, PID5+2, PID6+2, PID7+1, PID10+1, PID11+1, PID13+3, PID13+14 , PID14+3, PID19+1, PID22+1, NK12+1, NK13+1, NK14+1, NK15+2, PV17+2, PV19+2, PV119+2 , PV120+1, PV144+3, ORC+1, ORC1+1, ORC2+3, ORC3+2, ORC3+4, ORC3+6, ORC5+1, ORC10+2 , ORC10+7, ORC12+2, ORC12+6, ORC12+11, ORC17+5, RXA+1, RXA+2, RXA2+1, RXA3+1, RXA4+1 , RXA5+2, RXA5+5, RXA5+19, RXA6+9, RXA7+1, RXA7+2, RXA9+1, RXA9+2, RXA10+2, RXA10+5 , RXA10+10, RXA11+1, RXA11+8, RXA15+1, RXA15+5, RXA15+6, RXA16+1, RXA16+5, RXA17+1, RXA17+8 , RXA20+1, RXA21+2, RXA21+3, RXA22+4, VSET~, VSET+1, VSET+2
LN	NK12~, NK12+2, NK12+6, NK12+8
MN	NK12~, NK12+4*, NK12+8
>> NPI	NPI+1, NPI+2, PROV+6, PROV+9
P	PV17+2, PV17+3, PV17+4, PV19+2, PV19+3, PV19+4, ORC10+1~, ORC10+3, ORC10+4, ORC10+5 , ORC10+6, ORC12+1~, ORC12+3, ORC12+4, ORC12+5, ORC12+7, ORC12+8, ORC12+9, ORC12+10, RXA10+3* , RXA10+4, RXA10+6, RXA10+7, RXA10+8, RXA10+9, TITLE~, TITLE+1, TITLE+3, PROV~, PROV+3 , PROV+5, PROV+6
PRV	NPI~, NPI+1
>> T	VSET+9*
>> TITLE	PROV+5*, PROV+9
U	MSH+5, MSH+6, MSH+7, MSH+8, MSH+10, MSH+11, MSH+12, MSH+13, MSH+14, MSH4+3 , MSH10+1, PID3+12, PID5+2, PID6+2, PID7+1, PID11+3, PID13+3, PID13+14, PID14+3, PID19+1 , NK12+1, NK13+1, NK13+2, NK13+3, NK14+1, NK14+2, NK15+2, ORC2+3, ORC3+2, ORC3+4 , ORC3+6, ORC10+3, ORC10+4, ORC12+3, ORC12+4, ORC12+6, ORC17+5, RXA3+1, RXA4+1, RXA5+3 , RXA5+5, RXA5+8, RXA5+9, RXA5+15, RXA5+16, RXA5+19, RXA6+2, RXA6+6, RXA10+3, RXA10+5 , RXA11+3, RXA11+4, RXA11+5, RXA11+6, RXA15+3, RXA15+5, RXA15+6, RXA16+3, RXA16+4, RXA16+5 , RXA17+3, RXA17+5, RXA17+8, RXA22+1, RXA22+2, RXA22+3, QRD4+1, QRD8+3, QRD8+6, FHS3+2 , FHS3+3, VSET+7, VSET+8, VSET+9, NPI+1, TITLE+3, TITLE+5, PROV+3
>> UIF	MSH10+1
>> V0	ORC10+4, RXA3+1, RXA4+1, RXA5+15, RXA11+3, RXA22+3, VSET+7*, VSET+9
>> V21	RXA11+6, VSET+8*
X	MSH3+1, MSH3+2, MSH3+3, MSH3+4, MSH4+1~, MSH4+2, MSH4+3, MSH4+4, MSH4+5, MSH5+1* , MSH5+2, MSH5+3, PID3+1~, PID3+2, PID3+13, PID3+18, PID3+20, PID3+21, PID5+1~, PID5+2* , PID5+3, PID5+4, PID5+5, PID5+6, PID6+1~, PID6+2, PID6+3, PID6+4, PID6+5, PID6+7 , PID11+1, PID11+3, PID13+3, PID13+4, PID13+5, PID13+6, PID13+7, PID13+9, PID13+12, PID13+14 , PID13+15, PID13+16, PID13+17, PID14+3, PID14+4, PID14+5, PID14+6, PID14+8, PID14+11, PID19+2* , NK12~, NK12+1, NK12+2, NK12+3, NK12+4, NK13~, NK13+1, NK13+2, NK13+3, NK13+4 , NK13+5, NK14+1, NK14+2, NK14+3, NK14+4, NK15+2, NK15+3, NK15+4, NK15+5, NK15+7 , NK15+10, PV17+4, PV17+5, PV19+4, PV19+5, PV144+1~, PV144+3, PV144+4, PV144+5, ORC3+1~ , ORC3+2, ORC3+4, ORC10+1~, ORC10+6, ORC10+7, ORC12+1~, ORC12+10, ORC12+11, RXA5+1~, RXA5+2 , RXA5+3, RXA5+4, RXA5+5, RXA5+18, RXA6+1~, RXA6+2, RXA6+3, RXA6+6, RXA6+7, RXA6+9 , RXA10+1~, RXA10+9, RXA10+10, RXA11+2~, RXA11+4, RXA11+5, RXA11+6, RXA11+8, RXA15+2~, RXA15+3* , RXA15+4, RXA15+5, RXA15+6, RXA16+2~, RXA16+3, RXA16+4, RXA16+5, RXA17+2~, RXA17+3, RXA17+4 , RXA17+5, RXA17+6, RXA17+7, RXA17+8, RXA22+1, RXA22+2, RXA22+3, RXA22+4, QRD8+2~, QRD8+3 , QRD8+4, QRD8+6, FHS3+1~, FHS3+2, FHS3+3, FHS3+4, TITLE+2~, TITLE+3, TITLE+4, TITLE+5* , TITLE+6, PROV+2~, PROV+3, PROV+4, PROV+7, PROV+8, PROV+9, PROV+10
>> X0	RXA5+16, RXA6+2, RXA15+3, RXA16+3, RXA17+3, VSET+1*, VSET+3, VSET+5, VSET+7, VSET+8
X1	RXA5+7~, RXA5+15*
>> X12	ORC10+3, ORC12+3, ORC12+4, RXA10+3, RXA22+1, RXA22+2, VSET+2*
X2	RXA5+7~, RXA5+16*
Y	PID3+1~, PID3+10, PID3+12, PID3+13, PID3+16, PID3+17, PID3+18, PID5+1~, PID5+3, PID5+6 , PID6+1~, PID6+3, PID6+7, PID19+1, PID19+2, NK13+2, NK13+3, NK13+4, NK13+5, PV144+1~ , ORC10+1~, ORC12+1~, ORC12+6, ORC12+7, RXA10+1~, RXA10+5, RXA10+6, RXA11+2~, RXA15+2~, RXA16+2~ , RXA17+2~, QRD8+2~, QRD8+5, QRD8+6, TITLE+2~, PROV+2~, PROV+7, PROV+9
Z	PID3+1~, PID3+11, PID3+12, PID5+1~, PID5+4, PID5+6, PID6+1~, PID6+4, PID6+7, PV144+1~ , ORC10+1~, ORC12+1~, RXA10+1~, RXA11+2~, RXA11+3, RXA11+4, RXA11+5, RXA15+2~, RXA16+2~, RXA17+2~ , QRD8+2~, TITLE+2~, PROV+2~, PROV+8*, PROV+9
>> Z0	RXA5+3, RXA5+5, RXA5+8, RXA6+6, VSET+3*
>> Z1	RXA5+2, RXA5+9, VSET+5

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMSEGS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: