Routine: APCLSMU2

Package	Total	Call Graph
VA Fileman	6	^%DT NOW^%DTC ^DIC ^DIK $$GET1^DIQ ^DIR
Health Level Seven	3	$$HLDATE^HLFNC ($$ADDMSG,$$ADDSEG,$$NEWBATCH,$$NEWMSG,SET)^HLOAPI $$SENDONE^HLOAPI1
Patient Care Component Reports	3	$$ICDDX^APCLSILU LOG^APCLSMUN ($$PRIMPOV,$$PRIMPROV)^APCLV
IHS Patient	1	($$AGE,$$HRN,KILL)^AUPNPAT
IHS VA Utilities	1	^XBGSAVE
Kernel	1	$$FMTHL7^XLFDT
Patient Care Component	1	^APCDVLK

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLSMUN

Entry Points

Name	Comments	DBIA/ICR reference
EXPTYP()	;-- get the export type
LOOKDSC(TYPE,TAB,DSC,ECH)	;-- find a reverse value based on description
ERR	;
HL7	;-- generate the HL7 file
OBXAGE(P,V,CNT)	;-- setup the visit OBX
POVS(V)	;-- count the POVs
WRITE2	; use XBGSAVE to save the temp global (APCLDATA) to a delimited
LOOKTABM(TYPE,TAB,VAL,ECH)	;-- find the value and description in the HL7 tables
ECOD(EDXI,EDXT)	;-- populate the DG1 segment with Ecodes
DATET(D)	;EP
LOOKTAB(TYPE,TAB,VAL,ECH)	;-- find the value and description in the HL7 tables
REST2(M,MP)	;-- write out the remainder of the segments to the global
MSG(HLST,HLPM,EVN,VST,PAT)	;EP - create the message based on the event type and visit
OBXUNIT(P,V,CNT)	;-- setup units
SETGL2(D)	;-- set the temp global
PV1(EV,V,P)	;-- setup the JVN PV1 segment
GETVISIT	;EP - this entry point called by the BVP package (View patient record)
SETHL(MTYPE,EVNTTYPE)	;-- setup HLO variables
FIXZIP(DFN,ZIP)	;EP
WRITE(E,P,VD)	; use XBGSAVE to save the temp global (APCLDATA) to a delimited ; file that is exported to the IE system
DG1P(EV,V,FL)	;-- set the repeating DG1
OBXCC(V,CNT)	;-- setup the chief complaint OBX
FNDPPOV(VS)	;--find ien of primary pov
DG1S(EV,V)	;-- set the secondary DXs
GL2(IN)	;-- write out batch
SETGL(D)	;-- set the temp global
EVN(EVNTTYPE)	;Create the EVN segment
GETPAT	;EP GET- PATIENT
FNDH(VDT,EDT,P)	;-- find the next H visit within 48 hours
PID(P)	;EP
HLD(FDT)	;-- convert to HL7 date
EOJ	; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
OBXLOC(V,CNT)	;-- setup the location OBX
LZERO(V,L)	;EP - left zero fill
MSH(MS,EV)	;EP
OPT	;EP - option to export via date range or patient
GL(IN,EV,PT,VDD)	;-- write out the batch to a global for saving in APCLSLAB
REST(M)	;-- write out the remainder of the segments to the global
PATEXP	;-- ask the patient and visit date
DATEXP	;-- ask the date range
DATE(D)	;EP
PV2(V,PT)	;-- setup the PV2 segment
SET(ARY,V,F,C,S,R)	;EP
BATCH(HLPARM)	;-- start the message batch here

External References

Name	Field # of Occurrence
^%DT	DATEXP+3, DATEXP+7, HLD+4
NOW^%DTC	MSH+2, EVN+2
^APCDVLK	GETVISIT+3
$$ICDDX^APCLSILU	PV2+23, OBXCC+20, DG1P+12, DG1S+13, ECOD+6
LOG^APCLSMUN	HL7+21
$$PRIMPOV^APCLV	DG1P+9, DG1P+10, DG1P+19
$$PRIMPROV^APCLV	PV1+2
$$AGE^AUPNPAT	OBXAGE+3
$$HRN^AUPNPAT	PID+4, WRITE+6
KILL^AUPNPAT	EOJ+4
^DIC	GETPAT+4
^DIK	GL2+18, GL2+19
$$GET1^DIQ	MSG+3, MSG+30, PID+5, PID+7, PID+10, PID+11, PID+12, PID+13, PID+14, PID+16 , PID+17, PID+20, PID+21, PID+22, PID+25, PID+26, PV1+3, PV1+4, PV1+17, PV1+20 , PV1+25, PV1+28, PV2+18, PV2+19, PV2+21, OBXLOC+3, OBXCC+10, OBXCC+13, OBXCC+14, OBXCC+17 , OBXCC+20, DG1P+28, DG1P+29, DG1P+30, DG1S+11, DG1S+18, DG1S+31, DG1S+32, DG1S+33, ECOD+4 , ECOD+9, FIXZIP+2
^DIR	EXPTYP+3
$$HLDATE^HLFNC	MSH+3, EVN+3
$$ADDMSG^HLOAPI	MSG+10
$$ADDSEG^HLOAPI	MSH+19, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19, OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26 , DG1S+30, ECOD+17
$$NEWBATCH^HLOAPI	BATCH+3
$$NEWMSG^HLOAPI	SETHL+7
SET^HLOAPI	SET+1
$$SENDONE^HLOAPI1	MSG+57
^XBGSAVE	WRITE2+12, WRITE+9
$$FMTHL7^XLFDT	PID+7, PID+27, PV1+28, HLD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: PATEXP+2
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: PATEXP+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Routine Call	DIC Line Location: GETPAT+4
Routine Call	DIR Line Location: EXPTYP+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(10 - [#10]	GET1^DIQ
^DIC(10.2 - [#10.2]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^HLA - [#777]	Classic Fileman Calls
^HLB - [#778]	Classic Fileman Calls
^ICD9 - [#80]	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVINP - [#9000010.02]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVER - [#9000010.29]	GET1^DIQ
^AUPNVNT - [#9000010.34]	GET1^DIQ
^AMERVSIT - [#9009080]	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ
^AUTTCTY - [#9999999.23]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMERVSIT("AD"	HL7+12, PV1+18
^APCLDATA($J	WRITE+15!
^APCLILIC(1	WRITE2+4
^APCLTMP($J	GL2+1!, SETGL2+2, WRITE2+19!, GL+1!, SETGL+2, WRITE+14!
^AUPNVER("AD"	HL7+13, PV1+23
^AUPNVINP("AD"	PV2+16
^AUPNVNT - [#9000010.34]	OBXCC+11, OBXCC+12
^AUPNVNT("AD"	OBXCC+9
^AUPNVPOV - [#9000010.07]	FNDPPOV+4, DG1S+9
^AUPNVPOV("AD"	FNDPPOV+3, DG1S+5, POVS+3
^AUPNVSIT - [#9000010]	HL7+8, DATEXP+12, MSG+30, OBXLOC+2
^AUPNVSIT("AAH"	FNDH+2, FNDH+3
^AUPNVSIT("B"	DATEXP+10, DATEXP+11
^AUTTLOC - [#9999999.06]	WRITE2+7, WRITE+5
^AUTTSITE(1	PID+5, PV1+4, WRITE2+7, WRITE+5
^DGPM - [#405]	PV2+20
^DGPM("AVST"	PV2+14
^DIC(5 - [#5]	PID+15
^DPT - [#2]	MSG+32, PID+3, PID+6, PID+8, PID+9, PID+23, PID+24, OBXUNIT+1
^HLA - [#777]	REST2+3, REST2+4, REST+3, REST+4
^HLB - [#778]	GL2+4, GL2+5, GL2+6, GL2+7, GL2+10, GL2+12, GL2+13, GL2+14, GL+4
^ICD9("AB"	PV2+20, OBXCC+16
^XTMP("APCLMUSS"	HL7+2, HL7+5, HL7+6

Label References

Name	Line Occurrences
$$DATE	WRITE2+9
$$DATET	WRITE+6
$$EXPTYP	OPT+2
$$LOOKTABM	OBXLOC+9
$$LZERO	PV1+5
$$POVS	DG1S+3
BATCH	HL7+1
DATEXP	OPT+5
DG1P	DG1S+4
DG1S	MSG+25, MSG+45
ECOD	MSG+26, MSG+46, DG1P+31, DG1P+32, DG1P+33, DG1S+34, DG1S+35, DG1S+36
EOJ	PATEXP+2, PATEXP+4, DATEXP+4, DATEXP+8
EVN	MSG+19
GETPAT	PATEXP+1
GETVISIT	PATEXP+3
GL2	HL7+22
MSG	PATEXP+5, HL7+10, HL7+14, HL7+20, DATEXP+13
OBXAGE	MSG+39
OBXCC	MSG+41
OBXLOC	MSG+28
OBXUNIT	MSG+36
PATEXP	OPT+4
PID	MSG+20
PV1	MSG+21
PV2	MSG+22
REST	GL+5
REST2	GL2+17
SET	MSH+4, MSH+5, MSH+6, MSH+7, MSH+8, MSH+9, MSH+10, MSH+11, MSH+12, MSH+13 , MSH+14, MSH+15, MSH+16, MSH+17, MSH+18, EVN+4, EVN+5, EVN+6, EVN+7, EVN+8 , EVN+9, PID+28, PID+29, PID+30, PID+31, PID+32, PID+34, PID+35, PID+36, PID+37 , PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+44, PID+47, PID+48, PV1+6 , PV1+7, PV1+8, PV1+9, PV1+10, PV1+11, PV1+12, PV1+13, PV1+27, PV1+28, PV2+28 , PV2+29, PV2+30, PV2+32, OBXLOC+10, OBXLOC+11, OBXLOC+12, OBXLOC+13, OBXLOC+14, OBXLOC+15, OBXLOC+16 , OBXLOC+17, OBXLOC+18, OBXUNIT+3, OBXUNIT+4, OBXUNIT+5, OBXUNIT+6, OBXUNIT+7, OBXUNIT+8, OBXUNIT+9, OBXUNIT+10 , OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXAGE+13, OBXAGE+14 , OBXCC+24, OBXCC+25, OBXCC+26, OBXCC+27, OBXCC+29, OBXCC+30, OBXCC+31, OBXCC+32, OBXCC+33, OBXCC+34 , DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25, DG1S+23, DG1S+24, DG1S+26, DG1S+27 , DG1S+28, DG1S+29, ECOD+11, ECOD+12, ECOD+13, ECOD+14, ECOD+15, ECOD+16
SETGL	REST2+6, REST+9
SETGL2	GL2+9, GL2+16
WRITE	GL+6
WRITE2	GL2+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MSH+1~, MSH+3, EVN+1~, EVN+3, LZERO+1~, LZERO+2*, EOJ+2!
%DT	DATEXP+2, DATEXP+6, HLD+3*, EOJ+2!
%DT("A"	DATEXP+2, DATEXP+6
%X	EOJ+2!
%Y	EOJ+2!
ADD	PID+2~, PID+11*, PID+37
ADD2	PID+2~, PID+12*, PID+38
>> ADMT	PV2+14*, PV2+15, PV2+20, PV2+21
AGE	OBXAGE+2~, OBXAGE+3*, OBXAGE+4, OBXAGE+10
APCDCAT	EOJ+3!
APCDCLN	EOJ+3!
APCDDATE	EOJ+3!
APCDLOC	EOJ+3!
APCDLOOK	GETVISIT+1*, GETVISIT+4!, EOJ+3!
APCDPAT	PATEXP+2, PATEXP+5, GETPAT+3, GETPAT+6, EOJ+3!
APCDTYPE	EOJ+3!
APCDVLK	GETVISIT+2!
APCDVSIT	PATEXP+4, PATEXP+5, GETVISIT+1*, EOJ+3!
>> APCLASU	WRITE2+7, WRITE2+9, WRITE+5
APCLCNT	GL2+3, SETGL2+1, SETGL2+2, WRITE2+19!, GL+3, SETGL+1, SETGL+2, WRITE+14!
>> APCLDA	HL7+2*, HL7+5, HL7+6, HL7+8, HL7+10, HL7+12, HL7+13, HL7+14, HL7+20, HL7+21
>> APCLDBID	MSH+6, PV1+9
>> APCLDFN	WRITE2+9, WRITE+6
APCLFN	WRITE2+1~, WRITE+2~
APCLINP	HL7+3~, HL7+6*, HL7+20, PV2+12
>> APCLLOG	HL7+21
>> APCLPAT	HL7+8*, HL7+9, HL7+10, HL7+14, HL7+20
APCLRST	HL7+3~, HL7+5*, HL7+7, HL7+21
>> APCLSEVN	HL7+7*, HL7+10
>> APCLVCNT	HL7+4*
>> APPARMS	MSG+57
>> APPARMS("ACCE	PT ACK RESPONSE" , MSG+51, PT ACK TYPE" , MSG+49
>> APPARMS("APP	ACK RESPONSE" , MSG+50, ACK TYPE" , MSG+52
>> APPARMS("QUEUE"	MSG+53*
>> APPARMS("RECE	IVING APPLICATION" , MSG+48*
>> APPARMS("SEND	ING APPLICATION" , MSG+47*
ARY	MSH+4, MSH+5, MSH+6, MSH+7, MSH+8, MSH+9, MSH+10, MSH+11, MSH+12, MSH+13 , MSH+14, MSH+15, MSH+16, MSH+17, MSH+18, MSH+19, EVN+4, EVN+5, EVN+6, EVN+7 , EVN+8, EVN+9, EVN+10, PID+28, PID+29, PID+30, PID+31, PID+32, PID+34, PID+35 , PID+36, PID+37, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+44, PID+47 , PID+48, PID+49, PV1+6, PV1+7, PV1+8, PV1+9, PV1+10, PV1+11, PV1+12, PV1+13 , PV1+27, PV1+28, PV1+29, PV2+28, PV2+29, PV2+30, PV2+32, PV2+33, OBXLOC+10, OBXLOC+11 , OBXLOC+12, OBXLOC+13, OBXLOC+14, OBXLOC+15, OBXLOC+16, OBXLOC+17, OBXLOC+18, OBXLOC+19, OBXUNIT+3, OBXUNIT+4 , OBXUNIT+5, OBXUNIT+6, OBXUNIT+7, OBXUNIT+8, OBXUNIT+9, OBXUNIT+10, OBXUNIT+11, OBXAGE+5, OBXAGE+6, OBXAGE+7 , OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXAGE+13, OBXAGE+14, OBXAGE+15, OBXCC+24, OBXCC+25 , OBXCC+26, OBXCC+27, OBXCC+29, OBXCC+30, OBXCC+31, OBXCC+32, OBXCC+33, OBXCC+34, OBXCC+35, DG1P+20 , DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25, DG1P+26, DG1S+23, DG1S+24, DG1S+26, DG1S+27 , DG1S+28, DG1S+29, DG1S+30, ECOD+11, ECOD+12, ECOD+13, ECOD+14, ECOD+15, ECOD+16, ECOD+17 , SET~, SET+1
>> AUPNLK("INAC"	GETPAT+2*, EOJ+1!
BDA	GL2+2~, GL2+10*, GL2+12, GL2+13, GL2+14, GL+2~
BDO	GL2+2~, GL2+13*, GL2+14, GL+2~
BDT	DATEXP+1~, DATEXP+5*, DATEXP+10
BT	GL2+2~, GL2+8*, GL2+9, GL+2~
BT1	GL2+2~, GL2+5*, GL2+8, GL+2~
BT2	GL2+2~, GL2+6*, GL2+8, GL+2~
BT3	GL2+2~, GL2+7*, GL2+8, GL+2~
C	SET~, SET+1, EOJ+2!
CC	OBXCC+1~, OBXCC+17*
CCE	OBXCC+1~, OBXCC+7~, OBXCC+8, OBXCC+12, OBXCC+13, OBXCC+14, OBXCC+15, OBXCC+16, OBXCC+33
CCI	OBXCC+1~, OBXCC+16*, OBXCC+17, OBXCC+19, OBXCC+20, OBXCC+28
CD	OBXLOC+1~, OBXLOC+4, OBXLOC+6, OBXLOC+7*, OBXLOC+8, OBXLOC+9, OBXLOC+15
CDA	OBXCC+7~, OBXCC+9*, OBXCC+10, OBXCC+11, OBXCC+12
CITY	PID+2~, PID+13*, PID+39
CL	OBXLOC+1~, OBXLOC+2*, OBXLOC+3
CLC	OBXLOC+1~, OBXLOC+3*, OBXLOC+6, OBXLOC+7
CN	POVS+1~, POVS+2, POVS+4, POVS+5
CNT	OBXLOC~, OBXLOC+11, OBXUNIT~, OBXUNIT+4, OBXAGE~, OBXAGE+6, OBXCC~, OBXCC+25
CNTR	DG1S+1~, DG1S+2, DG1S+3, DG1S+4
CNTY	PID+2~, PID+17, PID+18, PID+22, PID+42
COR	PID+19~, PID+20*, PID+21
CTY	PID+19~, PID+21*, PID+22
D	HLD+2~, HLD+5*, HLD+6, SETGL2~, SETGL2+2, SETGL~, SETGL+2, DATE~, DATE+1, DATET~ , DATET+1
>> DA	GL2+18, GL2+19
DADA	DATEXP+1~, DATEXP+10*, DATEXP+11
DATA	REST2+1~, REST2+4, REST2+5, REST2+6, REST+1~, REST+4, REST+5, REST+6, REST+7, REST+8 , REST+9
DDSP	PV1+15~, PV1+16, PV1+17, PV1+21, PV1+26, PV1+27
DED	PV1+15~, PV1+20, PV1+21, PV1+25, PV1+26
DESC	LOOKTABM+1~, LOOKTABM+6, LOOKTABM+7, LOOKTAB+1~, LOOKTAB+6, LOOKTAB+7
DFN	FIXZIP~, FIXZIP+2
>> DGCNT	MSG+4, MSG+24
DIC	GETPAT+4*!
DIC("A"	GETPAT+4*
DIC(0	GETPAT+4*
DIEN	DATEXP+1~, DATEXP+11, DATEXP+12, DATEXP+13, DG1P+4~, DG1P+9, DG1P+27, DG1P+28, DG1P+29, DG1P+30
>> DIK	GL2+18, GL2+19
>> DIR("A"	EXPTYP+2*
>> DIR(0	EXPTYP+1*
>> DIRUT	EXPTYP+4
DIYS	EOJ+2!
DOB	PID+2~, PID+7*
DOD	PID+2~, PID+26, PID+27, PID+47, PID+48
DSC	OBXLOC+1~, OBXLOC+9*, OBXLOC+16, LOOKDSC~, LOOKDSC+4
DT	OBXAGE+3, WRITE2+9
DUZ(2	PID+4, WRITE+6
DX	PV2+19, PV2+21, PV2+23, PV2+24, PV2+27, PV2+29, DG1P+4~, DG1P+10, DG1P+12, DG1P+14 , DG1P+17, DG1P+18, DG1P+22, DG1S+1~, DG1S+11, DG1S+13, DG1S+15*, DG1S+22, DG1S+26
DXCNT	DG1S+1~, DG1S+2, DG1S+7, DG1S+24, ECOD+2, ECOD+3, ECOD+12
DXDA	DG1S+1~, DG1S+5, DG1S+9, DG1S+31, DG1S+32, DG1S+33, POVS+1~, POVS+3
DXE	PV2+25, PV2+30, DG1P+4~, DG1P+19, DG1P+23, DG1S+1~, DG1S+18*, DG1S+27
DXI	PV2+18, PV2+20, DG1S+1~, DG1S+9*, DG1S+11, DG1S+18
DXT	DG1P+4~, DG1P+5, DG1P+6, DG1P+7, DG1P+25, DG1P+31, DG1P+32, DG1P+33, DG1S+1~, DG1S+19 , DG1S+20, DG1S+21, DG1S+29, DG1S+34, DG1S+35, DG1S+36
E	WRITE~, WRITE+6
EC	OBXCC+1~, OBXCC+22*, OBXCC+29
ECE	OBXCC+1~, OBXCC+23*, OBXCC+30
ECH	LOOKTABM~, LOOKTABM+7, LOOKTAB~, LOOKTAB+7, LOOKDSC~, LOOKDSC+7
ECI	OBXCC+1~
ECOD1	DG1P+4~, DG1P+28, DG1P+31, DG1S+1~, DG1S+31, DG1S+34
ECOD2	DG1P+4~, DG1P+29, DG1P+32, DG1S+1~, DG1S+32, DG1S+35
ECOD3	DG1P+4~, DG1P+30, DG1P+33, DG1S+1~, DG1S+33, DG1S+36
EDA	PID+2~, PID+23*, PID+24
EDT	DATEXP+1~, DATEXP+9*, DATEXP+10, FNDH~, FNDH+4
EDX	ECOD+1~, ECOD+4, ECOD+6, ECOD+8, ECOD+10, ECOD+13
EDXE	ECOD+1~, ECOD+9*, ECOD+14
EDXI	ECOD~, ECOD+4, ECOD+9
EDXT	ECOD~, ECOD+5*, ECOD+16
ER	HL7+11~, HL7+12, HL7+13, HL7+14
>> ERR	BATCH+4, MSG+10, MSG+57, MSG+58, SETHL+7, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19 , OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26, DG1S+30, ECOD+17
>> ERROR	BATCH+3
ETH	PID+2~, PID+25*, PID+43, PID+44
ETHI	PID+2~, PID+24*, PID+25
EV	MSH~, MSH+10, MSH+11, PV1~, PV1+8, PV1+14, DG1P~, DG1P+1, DG1P+2, DG1P+6 , DG1P+7, DG1S~, DG1S+4, DG1S+20, DG1S+21, GL~, GL+6
EVN	MSG~, MSG+8, MSG+19, MSG+21, MSG+22, MSG+23, MSG+25, MSG+30, MSG+42, MSG+44 , MSG+45
EVNTTYPE	SETHL~, SETHL+5, EVN~, EVN+5
F	SET~, SET+1
FDT	HLD~, HLD+1, HLD+4
FL	DG1P~, DG1P+1, DG1P+5
FLD	MSG+5~, SETHL+2~, MSH+1~, EVN+1~
GBL	LOOKTABM+1~, LOOKTABM+2, LOOKTABM+3, LOOKTABM+4, LOOKTABM+6, LOOKTAB+1~, LOOKTAB+2, LOOKTAB+3, LOOKTAB+4, LOOKTAB+6 , LOOKDSC+1~, LOOKDSC+2, LOOKDSC+3, LOOKDSC+4, LOOKDSC+6
HL1	MSG+5~, SETHL+2~
HL1("ECH"	MSG+14, SETHL+11
HL1("FS"	MSG+15, SETHL+12
HL1("Q"	MSG+16, SETHL+13, PID+1
HL1("VER"	MSG+17, SETHL+14
>> HLECH	MSG+13, MSG+14, SETHL+10, SETHL+11, OBXLOC+9, OBXLOC+16
>> HLFS	MSG+12, MSG+15, SETHL+9, SETHL+12, REST+8
>> HLMSTATE	HL7+10, HL7+14, HL7+20, BATCH+3
>> HLMSTATE("IEN"	HL7+22
HLODAT	GL2+2~, GL+2~
>> HLOMSH	GL2+14*, GL2+15
HLPARM	HL7+1, HL7+10, HL7+14, HL7+20, BATCH~, BATCH+3
HLPARM("COUNTRY"	BATCH+1*
HLPARM("VERSION"	BATCH+2*
HLPM	MSG~, MSG+10, SETHL+7
HLPM("ENCODIN	G CHARACTERS" , MSG+13, SETHL+10
HLPM("EVENT"	MSG+8, SETHL+5
HLPM("FIELD S	EPARATOR" , MSG+12, SETHL+9
HLPM("MESSAGE	TYPE" , MSG+7, SETHL+4
HLPM("VERSION"	MSG+9, MSG+17, SETHL+6, SETHL+14
>> HLQ	PID+1*
HLST	MSG~, MSG+10, MSG+57, SETHL+7, MSH+19, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19 , OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26, DG1S+30, ECOD+17
HRCN	MSG+5~, SETHL+2~
HVST	PV2+11~, PV2+12*, PV2+13, PV2+14, PV2+16
I	PATEXP+5, DATEXP+13, LZERO+1~, LZERO+2*
ICDATA	PV2+22~, PV2+23, PV2+24, PV2+25, PV2+26, OBXCC+7~, OBXCC+20, OBXCC+21, OBXCC+22, OBXCC+23 , DG1P+11~, DG1P+12, DG1P+13, DG1P+19, DG1S+12~, DG1S+13, DG1S+14, DG1S+18, ECOD+1~, ECOD+6* , ECOD+7, ECOD+9
ICDT	PV2+22~, PV2+26, PV2+32, OBXCC+7~, OBXCC+21, OBXCC+31, DG1P+11~, DG1P+13, DG1P+19, DG1P+24 , DG1S+12~, DG1S+14, DG1S+18, DG1S+28, ECOD+1~, ECOD+7*, ECOD+9, ECOD+15
IENI	LOOKTABM+1~, LOOKTABM+4, LOOKTABM+5, LOOKTABM+6, LOOKTAB+1~, LOOKTAB+4, LOOKTAB+5, LOOKTAB+6, LOOKDSC+1~, LOOKDSC+4* , LOOKDSC+5, LOOKDSC+6
IN	GL2~, GL2+4, GL2+5, GL2+6, GL2+7, GL2+10, GL2+12, GL2+13, GL2+14, GL2+18 , GL~, GL+4
L	LZERO~, LZERO+2
LEN	DG1S+1~
LN	MSG+5~, MSG+6, SETHL+2~, SETHL+3, OBXCC+1~
LOC	PV1+1~, PV1+4*, PV1+5
LP	MSG+5~, SETHL+2~
M	REST2~, REST2+3, REST2+4, REST~, REST+3, REST+4
MCNT	REST2+1~, REST2+2, REST+1~, REST+2
MDA	REST2+1~, REST2+3, REST2+4, REST+1~, REST+3, REST+4
MP	REST2~, REST2+3, REST2+4
MS	MSH~, MSH+9, MSH+11
MSG	GL2+2~, GL2+4, GL2+17, GL2+19, GL+2~, GL+4, GL+5
MSGP	GL2+2~, GL2+12*, GL2+17, GL+2~
MSH	MSH+1~, MSH+19, GL2+2~, GL2+11, GL2+15*, GL2+16, GL+2~
MTYPE	SETHL~, SETHL+4
NPI	PV1+1~, PV1+3*, PV1+10
NTYP	PID+2~, PID+3*, PID+32
OBXCNT	MSG+4, MSG+27, MSG+28, MSG+34, MSG+36, MSG+38, MSG+39, MSG+40*, MSG+41, MSG+60!
P	PID~, PID+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+9, PID+11, PID+12 , PID+13, PID+14, PID+16, PID+17, PID+20, PID+23, PID+24, PID+26, PV1~, PV1+17 , FNDH~, FNDH+2, FNDH+3, OBXUNIT~, OBXUNIT+1, OBXAGE~, OBXAGE+3, WRITE~, WRITE+6
PAT	DATEXP+1~, DATEXP+12*, DATEXP+13, MSG~, MSG+20, MSG+21, MSG+22, MSG+32, MSG+36, MSG+39
PDA	FNDPPOV+1~, FNDPPOV+3*, FNDPPOV+4
PRV	PV1+1~, PV1+2*, PV1+3
PT	PV2~, PV2+14, GL~, GL+6
PV	FNDPPOV+1~, FNDPPOV+2, FNDPPOV+4, FNDPPOV+5
R	SET~, SET+1
RACE	PID+2~, PID+10*, PID+35, PID+36
RACEI	PID+2~, PID+8, PID+9, PID+10
REC	PID+2~, PID+4*
S	SET~, SET+1
SEX	PID+2~, PID+6*, PID+34
STATE	PID+2~, PID+15*, PID+40
STI	PID+2~, PID+14*, PID+15
TAB	LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC~, LOOKDSC+4, LOOKDSC+7
TDA	OBXCC+7~, OBXCC+11*, OBXCC+12
TST	WRITE2+2~, WRITE2+3, WRITE2+4, WRITE2+9
TYPE	OPT+1~, OPT+2*, OPT+3, OPT+4, OPT+5, LOOKTABM~, LOOKTABM+3, LOOKTABM+7, LOOKTAB~, LOOKTAB+3 , LOOKTAB+7, LOOKDSC~, LOOKDSC+3, LOOKDSC+7
U	HL7+5, HL7+6, HL7+8, DATEXP+12, MSG+30, MSG+32, PID+3, PID+5, PID+6, PID+8 , PID+15, PID+24, PV1+4, PV2+20, PV2+24, PV2+25, PV2+26, OBXLOC+2, OBXUNIT+1, OBXCC+21 , OBXCC+22, OBXCC+23, DG1P+13, DG1P+19, FNDPPOV+4, DG1S+9, DG1S+14, DG1S+18, ECOD+7, ECOD+9 , LOOKTABM+6, LOOKTAB+6, LOOKDSC+6, GL2+4, GL2+12, WRITE2+4, WRITE2+7, GL+4, WRITE+5
UID	PID+2~, PID+5*, PID+30
UNIT	OBXAGE+2~, OBXAGE+4*, OBXAGE+12
UNITFLG	MSG+1~, MSG+29, MSG+35, MSG+37
UVID	PV1+1~, PV1+5*, PV1+12
V	PV1~, PV1+2, PV1+5, PV1+18, PV1+23, PV1+28, PV2~, PV2+2, OBXLOC~, OBXLOC+2 , OBXUNIT~, OBXAGE~, OBXCC~, OBXCC+9, OBXCC+13, OBXCC+14, DG1P~, DG1P+9, DG1P+10, DG1P+19 , DG1S~, DG1S+3, DG1S+4, DG1S+5, POVS~, POVS+3, LZERO~, LZERO+2*, LZERO+3, SET~ , SET+1
VAL	MSH+1~, EVN+1~, LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC+1~, LOOKDSC+6* , LOOKDSC+7
VD	WRITE~, WRITE+6
VDA	FNDH+1~, FNDH+2*, FNDH+3, FNDH+4
VDATE	MSG+1~, MSG+3*, PV2+23, OBXCC+20, DG1P+12, DG1S+13, ECOD+6
VDD	GL~, GL+6
VDT	FNDH~, FNDH+2
VER	PV1+15~, PV1+18, PV1+19, PV1+20, PV1+22, PV1+23, PV1+24, PV1+25
>> VIEN	FNDH+3*, FNDH+4
VIN	FNDH+1~, FNDH+4*, FNDH+5
>> VINP	PV2+16*, PV2+17, PV2+18, PV2+19
VPOVI	OBXCC+1~
VS	FNDPPOV~, FNDPPOV+3
VST	MSG~, MSG+2, MSG+3, MSG+21, MSG+22, MSG+25, MSG+26, MSG+28, MSG+30, MSG+36 , MSG+39, MSG+41, MSG+45, MSG+46
>> WHO	MSG+57
>> WHO("FACILITY	LINK NAME" , MSG+55*
>> WHO("RECEIVIN	G APPLICATION" , MSG+54*
>> WHOTO("RECEIV	ING APPLICATION" , MSG+56*
X	MSG+5~, SETHL+2~, MSH+1~, MSH+3, MSH+8, EVN+1~, EVN+3, EVN+6, EVN+10, PID+49 , PV1+29, PV2+33, OBXLOC+19, OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26, DG1S+30, ECOD+17, HLD+4 , EOJ+2!
>> XBE	WRITE2+5, WRITE+3
>> XBF	WRITE2+5, WRITE+3
>> XBFLG	WRITE2+14, WRITE+11
>> XBFLG(1	WRITE2+15, WRITE2+16, WRITE2+18, WRITE+12, WRITE+13
XBFLT	WRITE2+1~, WRITE2+5, WRITE+2~, WRITE+3
XBFN	WRITE2+1~, WRITE2+9, WRITE+2~, WRITE+6
XBGL	WRITE2+1~, WRITE2+5, WRITE+2~, WRITE+3
XBMED	WRITE2+1~, WRITE2+5, WRITE+2~, WRITE+3
XBNAR	WRITE2+1~, WRITE2+6, WRITE+2~, WRITE+4
XBQ	WRITE2+1~, WRITE2+5, WRITE+2~, WRITE+3
XBQTO	WRITE2+1~, WRITE+2~
>> XBS1	WRITE2+10, WRITE+7
XBUF	WRITE2+1~, WRITE+2~
Y	EXPTYP+5, DATEXP+4, DATEXP+5, DATEXP+8, DATEXP+9, GETPAT+5, GETPAT+6, HLD+5, EOJ+2!
>> Z	LZERO+2*
ZIP	PID+2~, PID+16*, PID+41, FIXZIP~, FIXZIP+1
>> ZTQUEUED	WRITE2+15, WRITE2+16, WRITE2+17, WRITE2+18, WRITE+12, WRITE+13

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSMU2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: