Routine: APCLSMU

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

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	;
WRITE(E,P,VD)	; use XBGSAVE to save the temp global (APCLDATA) to a delimited ; file that is exported to the IE system
OBXAGE(P,V,CNT)	;-- setup the visit OBX
POVS(V)	;-- count the POVs
LOOKTABM(TYPE,TAB,VAL,ECH)	;-- find the value and description in the HL7 tables
DATET(D)	;EP
LOOKTAB(TYPE,TAB,VAL,ECH)	;-- find the value and description in the HL7 tables
HLD(FDT)	;-- convert to HL7 date
OBXUNIT(P,V,CNT)	;-- setup units
PV1(EV,V,P)	;-- setup the JVN PV1 segment
GETVISIT	;EP - this entry point called by the BVP package (View patient record)
MSG(EVN,VST,PAT)	;EP - create the message based on the event type and visit
SETHL(MTYPE,EVNTTYPE)	;-- setup HLO variables
EOJ	; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
DG1P(EV,V,FL)	;-- set the repeating DG1
OBXCC(V,CNT)	;-- setup the chief complaint OBX
DATE(D)	;EP
DG1S(EV,V)	;-- set the secondary DXs
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
OBXLOC(V,CNT)	;-- setup the location OBX
FIXZIP(DFN,ZIP)	;EP
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
PV2(V,PT)	;-- setup the PV2 segment
SET(ARY,V,F,C,S,R)	;EP

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+20, DG1P+11, DG1S+13
DATEXP^APCLSMUN	OPT+5
$$PRIMPOV^APCLV	DG1P+9, DG1P+18
$$AGE^AUPNPAT	OBXAGE+3
$$HRN^AUPNPAT	PID+4, WRITE+6
KILL^AUPNPAT	EOJ+4
^DIC	GETPAT+4
$$GET1^DIQ	MSG+2, MSG+28, PID+6, PID+9, PID+10, PID+11, PID+12, PID+13, PID+15, PID+16 , PID+19, PID+20, PID+21, PID+24, PID+25, PV1+8, PV1+14, PV1+17, PV2+17, PV2+18 , OBXLOC+3, OBXCC+6, OBXCC+9, OBXCC+11, OBXCC+12, DG1S+11, DG1S+18, FIXZIP+2
^DIR	EXPTYP+3
$$HLDATE^HLFNC	MSH+3, EVN+3
$$ADDSEG^HLOAPI	MSH+19, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11, OBXAGE+13, OBXCC+24, DG1P+25 , DG1S+29
$$NEWMSG^HLOAPI	MSG+9, SETHL+7
SET^HLOAPI	SET+1
$$SENDONE^HLOAPI1	MSG+54
^XBGSAVE	WRITE+9
$$FMTHL7^XLFDT	PID+6, PID+26, PV1+17, 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
^DIC(40.7 - [#40.7]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AMERVSIT - [#9009080]	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ
^AUTTCTY - [#9999999.23]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMERVSIT("AD"	PV1+10
^APCLDATA($J	WRITE+15!
^APCLTMP($J	GL+1!, SETGL+2*, WRITE+14!
^AUPNVPOV - [#9000010.07]	DG1S+9
^AUPNVPOV("AD"	DG1S+5, POVS+3
^AUPNVSIT - [#9000010]	DATEXP+12, MSG+28, PV2+5, OBXLOC+2
^AUPNVSIT("AAH"	FNDH+2, FNDH+3
^AUPNVSIT("B"	DATEXP+10, DATEXP+11
^AUTTLOC - [#9999999.06]	WRITE+5
^AUTTSITE(1	WRITE+5
^DGPM - [#405]	PV2+16
^DGPM("AVST"	PV2+10
^DIC(5 - [#5]	PID+14
^DPT - [#2]	MSG+30, PID+3, PID+5, PID+7, PID+8, PID+22, PID+23, OBXUNIT+1
^HLA - [#777]	REST+3, REST+4
^HLB - [#778]	GL+4
^ICD9("AB"	PV2+16, OBXCC+8

Label References

Name	Line Occurrences
$$DATET	WRITE+6
$$EXPTYP	OPT+2
$$FNDH	PV2+7
$$LOOKTABM	OBXLOC+9
$$POVS	DG1S+3
DG1P	DG1S+4
DG1S	MSG+24, MSG+43
EOJ	PATEXP+2, PATEXP+4, DATEXP+4, DATEXP+8
EVN	MSG+18
GETPAT	PATEXP+1
GETVISIT	PATEXP+3
GL	MSG+56
MSG	PATEXP+5, DATEXP+13
MSH	MSG+17
OBXAGE	MSG+37
OBXCC	MSG+39
OBXLOC	MSG+26
OBXUNIT	MSG+34
PATEXP	OPT+4
PID	MSG+19
PV1	MSG+20
PV2	MSG+21
REST	GL+5
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 , PID+27, PID+28, PID+29, PID+30, PID+31, PID+33, PID+34, PID+35, PID+36, PID+37 , PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+45, PID+46, PV1+1, PV1+2 , PV1+3, PV1+4, PV1+16, PV1+17, PV2+23, PV2+24, PV2+25, PV2+27, 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+4, OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8 , OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXCC+13, OBXCC+14, OBXCC+15, OBXCC+16, OBXCC+18, OBXCC+19 , OBXCC+20, OBXCC+21, OBXCC+22, OBXCC+23, DG1P+19, DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24 , DG1S+22, DG1S+23, DG1S+25, DG1S+26, DG1S+27, DG1S+28
SETGL	REST+9
WRITE	GL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MSH+1~, MSH+3, EVN+1~, EVN+3, 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+10*, PID+36
ADD2	PID+2~, PID+11*, PID+37
ADMT	PV2+3~, PV2+10*, PV2+11, PV2+16, PV2+17
AGE	OBXAGE+2~, OBXAGE+3*, OBXAGE+9
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	WRITE+5*
APCLCNT	GL+3, SETGL+1, SETGL+2, WRITE+14!
>> APCLDFN	WRITE+6*
APCLFN	WRITE+2~
>> APPARMS	MSG+54
>> APPARMS("ACCE	PT ACK RESPONSE" , MSG+48, PT ACK TYPE" , MSG+46
>> APPARMS("APP	ACK RESPONSE" , MSG+47, ACK TYPE" , MSG+49
>> APPARMS("QUEUE"	MSG+50*
>> APPARMS("RECE	IVING APPLICATION" , MSG+45*
>> APPARMS("SEND	ING APPLICATION" , MSG+44*
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, PID+27, PID+28, PID+29, PID+30, PID+31, PID+33, PID+34, PID+35 , PID+36, PID+37, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+45, PID+46 , PID+47, PV1+1, PV1+2, PV1+3, PV1+4, PV1+16, PV1+17, PV1+18, PV2+23, PV2+24 , PV2+25, PV2+27, PV2+28, 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+4, OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11 , OBXAGE+12, OBXAGE+13, OBXCC+13, OBXCC+14, OBXCC+15, OBXCC+16, OBXCC+18, OBXCC+19, OBXCC+20, OBXCC+21 , OBXCC+22, OBXCC+23, OBXCC+24, DG1P+19, DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25 , DG1S+22, DG1S+23, DG1S+25, DG1S+26, DG1S+27, DG1S+28, DG1S+29, SET~, SET+1
>> AUPNLK("INAC"	GETPAT+2*, EOJ+1!
BDA	GL+2~
BDO	GL+2~
BDT	DATEXP+1~, DATEXP+5*, DATEXP+10
BT	GL+2~
BT1	GL+2~
BT2	GL+2~
BT3	GL+2~
C	SET~, SET+1, EOJ+2!
CC	OBXCC+1~, OBXCC+9*
CCE	OBXCC+1~, OBXCC+6*, OBXCC+7, OBXCC+8, OBXCC+22
CCI	OBXCC+1~, OBXCC+8*, OBXCC+9, OBXCC+11, OBXCC+12, OBXCC+17
CD	OBXLOC+1~, OBXLOC+4, OBXLOC+6, OBXLOC+7*, OBXLOC+8, OBXLOC+9, OBXLOC+15
CITY	PID+2~, PID+12*, PID+38
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+5, OBXCC~, OBXCC+14
CNTR	DG1S+1~, DG1S+2, DG1S+3, DG1S+4
CNTY	PID+2~, PID+16, PID+17, PID+21, PID+41
COR	PID+18~, PID+19*, PID+20
CTY	PID+18~, PID+20*, PID+21
D	HLD+2~, HLD+5*, HLD+6, SETGL~, SETGL+2, DATE~, DATE+1, DATET~, DATET+1
DADA	DATEXP+1~, DATEXP+10*, DATEXP+11
DATA	REST+1~, REST+4, REST+5, REST+6, REST+7, REST+8*, REST+9
DDSP	PV1+6~, PV1+7, PV1+8, PV1+15*, PV1+16
DED	PV1+12~, PV1+14*, PV1+15
DESC	LOOKTABM+1~, LOOKTABM+6, LOOKTABM+7, LOOKTAB+1~, LOOKTAB+6, LOOKTAB+7
DFN	FIXZIP~, FIXZIP+2
>> DGCNT	MSG+3, MSG+23
DIC	GETPAT+4*!
DIC("A"	GETPAT+4*
DIC(0	GETPAT+4*
DIEN	DATEXP+1~, DATEXP+11*, DATEXP+12, DATEXP+13
>> DIR("A"	EXPTYP+2*
>> DIR(0	EXPTYP+1*
>> DIRUT	EXPTYP+4
DIYS	EOJ+2!
DOB	PID+2~, PID+6*
DOD	PID+2~, PID+25, PID+26, PID+45, PID+46
DSC	OBXLOC+1~, OBXLOC+9*, OBXLOC+16, LOOKDSC~, LOOKDSC+4
DUZ(2	PID+4, WRITE+6
DX	PV2+3~, PV2+17, PV2+20, PV2+22, PV2+24, DG1P+4~, DG1P+9, DG1P+11, DG1P+13, DG1P+16 , DG1P+17, DG1P+21, DG1S+1~, DG1S+11, DG1S+13, DG1S+15*, DG1S+25
DXCNT	DG1S+1~, DG1S+2, DG1S+7, DG1S+23
DXDA	DG1S+1~, DG1S+5, DG1S+9, POVS+1~, POVS+3
DXE	PV2+3~, PV2+18, PV2+25, DG1P+4~, DG1P+18, DG1P+22, DG1S+1~, DG1S+18*, DG1S+26
DXI	PV2+3~, PV2+16, PV2+18, DG1S+1~, DG1S+9, DG1S+11, DG1S+18
DXT	DG1P+4~, DG1P+5, DG1P+6, DG1P+7, DG1P+24, DG1S+1~, DG1S+19, DG1S+20, DG1S+21, DG1S+28
E	WRITE~, WRITE+6
EC	OBXCC+1~, OBXCC+11*, OBXCC+18
ECE	OBXCC+1~, OBXCC+12*, OBXCC+19
ECH	LOOKTABM~, LOOKTABM+7, LOOKTAB~, LOOKTAB+7, LOOKDSC~, LOOKDSC+7
ECI	OBXCC+1~
EDA	PID+2~, PID+22*, PID+23
EDT	DATEXP+1~, DATEXP+9*, DATEXP+10, FNDH~, FNDH+4
>> ERR	MSG+9, MSG+54, MSG+55*, SETHL+7, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11 , OBXAGE+13, OBXCC+24, DG1P+25, DG1S+29
ETH	PID+2~, PID+24*, PID+42, PID+43
ETHI	PID+2~, PID+23*, PID+24
EV	MSH~, MSH+10, MSH+11, PV1~, PV1+5, DG1P~, DG1P+1, DG1P+2, DG1P+6, DG1P+7 , DG1S~, DG1S+4, DG1S+20, DG1S+21, GL~, GL+6
>> EVDT	PV2+6*, PV2+7
EVN	MSG~, MSG+7, MSG+17, MSG+18, MSG+20, MSG+21, MSG+22, MSG+24, MSG+28, MSG+40 , MSG+42, MSG+43, MSG+56, PID+44
EVNTTYPE	SETHL~, SETHL+5, EVN~
F	SET~, SET+1
FDT	HLD~, HLD+1, HLD+4
FL	DG1P~, DG1P+1, DG1P+5
FLD	MSG+4~, 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+4~, SETHL+2~
HL1("ECH"	MSG+13, SETHL+11
HL1("FS"	MSG+14, SETHL+12
HL1("Q"	MSG+15, SETHL+13, PID+1
HL1("VER"	MSG+16, SETHL+14
>> HLECH	MSG+12, MSG+13, SETHL+10, SETHL+11, OBXLOC+9, OBXLOC+16
>> HLFS	MSG+11, MSG+14, SETHL+9, SETHL+12, REST+8
HLODAT	GL+2~
>> HLPM	MSG+9, SETHL+7
>> HLPM("ENCODIN	G CHARACTERS" , MSG+12, SETHL+10
>> HLPM("EVENT"	MSG+7, SETHL+5
>> HLPM("FIELD S	EPARATOR" , MSG+11, SETHL+9
>> HLPM("MESSAGE	TYPE" , MSG+6, SETHL+4
>> HLPM("VERSION"	MSG+8, MSG+16, SETHL+6, SETHL+14
>> HLQ	PID+1*
>> HLST	MSG+9, MSG+54, SETHL+7, MSH+19, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11 , OBXAGE+13, OBXCC+24, DG1P+25, DG1S+29
>> HLST("IEN"	MSG+56
HRCN	MSG+4~, SETHL+2~
HVST	PV2+3~, PV2+7*, PV2+8, PV2+10
>> I	PATEXP+5, DATEXP+13
ICDATA	PV2+19~, PV2+20, PV2+21, DG1P+10~, DG1P+11, DG1P+12, DG1P+18, DG1S+12~, DG1S+13*, DG1S+14 , DG1S+18
ICDT	PV2+19~, PV2+21, PV2+27, DG1P+10~, DG1P+12, DG1P+18, DG1P+23, DG1S+12~, DG1S+14*, DG1S+18 , DG1S+27
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	GL~, GL+4
IVDT	PV2+3~, PV2+5*, PV2+6, PV2+7
LEN	DG1S+1~
LN	MSG+4~, MSG+5, SETHL+2~, SETHL+3, OBXCC+1~
LP	MSG+4~, SETHL+2~
M	REST~, REST+3, REST+4
MCNT	REST+1~, REST+2*
MDA	REST+1~, REST+3*, REST+4
MS	MSH~, MSH+9, MSH+11
MSG	GL+2~, GL+4*, GL+5
MSGP	GL+2~
MSH	MSH+1~, MSH+19*, GL+2~
MTYPE	SETHL~, SETHL+4
NTYP	PID+2~, PID+3*, PID+31
OBXCNT	MSG+3, MSG+25, MSG+26, MSG+32, MSG+34, MSG+36, MSG+37, MSG+38*, MSG+39, MSG+57!
P	PID~, PID+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+10, PID+11, PID+12 , PID+13, PID+15, PID+16, PID+19, PID+22, PID+23, PID+25, PV1~, PV1+8, FNDH~ , FNDH+2, FNDH+3, OBXUNIT~, OBXUNIT+1, OBXAGE~, OBXAGE+3, WRITE~, WRITE+6
PAT	DATEXP+1~, DATEXP+12*, DATEXP+13, MSG~, MSG+19, MSG+20, MSG+21, MSG+30, MSG+34, MSG+37 , MSG+56
PT	PV2~, PV2+7, PV2+10, GL~, GL+6
R	SET~, SET+1
RACE	PID+2~, PID+9*, PID+34, PID+35
RACEI	PID+2~, PID+7, PID+8, PID+9
REC	PID+2~, PID+4*, PID+29
S	SET~, SET+1
SEX	PID+2~, PID+5*, PID+33
STATE	PID+2~, PID+14*, PID+39
STI	PID+2~, PID+13*, PID+14
TAB	LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC~, LOOKDSC+4, LOOKDSC+7
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	DATEXP+12, MSG+28, MSG+30, PID+3, PID+5, PID+7, PID+14, PID+23, PV2+5, PV2+16 , PV2+21, OBXLOC+2, OBXUNIT+1, DG1P+12, DG1P+18, DG1S+9, DG1S+14, DG1S+18, LOOKTABM+6, LOOKTAB+6 , LOOKDSC+6, GL+4, WRITE+5
UNITFLG	MSG+1~, MSG+27, MSG+33, MSG+35
V	PV1~, PV1+3, PV1+10, PV1+17, PV2~, PV2+2, PV2+5, OBXLOC~, OBXLOC+2, OBXUNIT~ , OBXAGE~, OBXCC~, OBXCC+6, DG1P~, DG1P+9, DG1P+18, DG1S~, DG1S+3, DG1S+4, DG1S+5 , POVS~, POVS+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+2*, MSG+56, PV2+20, DG1P+11, DG1S+13
VDD	GL~, GL+6
VDT	FNDH~, FNDH+2
VER	PV1+6~, PV1+10*, PV1+11, PV1+14
>> VIEN	FNDH+3*, FNDH+4
>> VIN	FNDH+4*, FNDH+5
VINP	PV2+3~
VPOVI	OBXCC+1~
VST	MSG~, MSG+2, MSG+20, MSG+21, MSG+24, MSG+26, MSG+28, MSG+34, MSG+37, MSG+39 , MSG+43
>> WHO	MSG+54
>> WHO("FACILITY	LINK NAME" , MSG+52*
>> WHO("RECEIVIN	G APPLICATION" , MSG+51*
>> WHOTO("RECEIV	ING APPLICATION" , MSG+53*
X	MSG+4~, SETHL+2~, MSH+1~, MSH+3, MSH+8, EVN+1~, EVN+3, EVN+5, EVN+9, PID+47 , PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11, OBXAGE+13, OBXCC+24, DG1P+25, DG1S+29, HLD+4*, EOJ+2!
>> XBE	WRITE+3*
>> XBF	WRITE+3*
>> XBFLG	WRITE+11
>> XBFLG(1	WRITE+12, WRITE+13
XBFLT	WRITE+2~, WRITE+3*
XBFN	WRITE+2~, WRITE+6*
XBGL	WRITE+2~, WRITE+3*
XBMED	WRITE+2~, WRITE+3*
XBNAR	WRITE+2~, WRITE+4*
XBQ	WRITE+2~, WRITE+3*
XBQTO	WRITE+2~
>> XBS1	WRITE+7*
XBUF	WRITE+2~
Y	EXPTYP+5, DATEXP+4, DATEXP+5, DATEXP+8, DATEXP+9, GETPAT+5, GETPAT+6, HLD+5, EOJ+2!
ZIP	PID+2~, PID+15*, PID+40, FIXZIP~, FIXZIP+1
>> ZTQUEUED	WRITE+12, WRITE+13

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSMU

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: