Routine: APCLSIHL

Package	Total	Call Graph
Patient Care Component Reports	4	(DG1LAB,OBXLAB,PIDLAB,PR1LAB,PV1LAB,ZIDLAB)^APCLSIH1 SET^APCLSIL4 $$ICDDX^APCLSILU $$VD^APCLV
VA Fileman	4	^%DT NOW^%DTC ^DIK $$GET1^DIQ
Health Level Seven	3	$$HLDATE^HLFNC ($$ADDMSG,$$ADDSEG,$$NEWBATCH,SET)^HLOAPI $$SENDONE^HLOAPI1
Kernel	2	$$FMTHL7^XLFDT SETUP^XQALERT
IHS VA Utilities	1	^XBGSAVE

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLSIL4 APCLSILI

Name	Comments	DBIA/ICR reference
AACK	; EP - Application ACK callback - called when AA, AE or AR is received.
ERR	;
ZHS(TYP)	;-- lets create the ZHS segment
REST(M,MP)	;-- write out the remainder of the segments to the global
WRITE(T)	; use XBGSAVE to save the temp global (APCLDATA) to a delimited
ZAN(R)	;-- setup the ILI ZAN segment
MSA	;EP
HLD(FDT)	;-- convert to HL7 date
ZCV(R)	;-- setup the ILI ZCV segment
EVN(MTYPE,EVNTTYPE)	;Create the EVN segment
ZPCCHK(R)	;-- do we need to create a ZPC
DG1LAB(R)	;EP
ZAV(R,SQ,ZAV2,ZAV3)	;-- setup the ILI ZAV segment
OBXLAB(R)	;
SETGL(D)	;-- set the temp global
ZPC(R)	;-- setup the ZPC segment
ZTS(TYP,LA)	;-- lets create the ZTS segment
PV1(R)	;-- setup the PV1 segment
DATE(D)	;EP
APCLDATA(HLMSTATE,HLPARM,TYP)	;-- loop through ^APCLDATA here and create each message
PR1LAB(R)	;EP
ZIDLAB(R)	;
PV1LAB(R)	;-- setup the PV1 LAB segment
GETLAST()	;-- get the last record
ILI(TYPE)	;EP - lets create the ILI HL7 export here
FIXZIP(DFN,ZIP)	;EP
GL(IN,TYP)	;-- write out batch
ZAE(R,SQ,ZAE2)	;-- setup the ILI ZAE segment
PID(R)	;EP
ZSR(R,SQ,ZSR2)	;-- setup the ILI ZSR segment
PIDLAB(R)	;EP
CACK	; EP - Commit ACK callback - called when CA, CE or CR is received.
BATCH(HLPARM,TYP)	;-- start the message batch here
SETLOG	;EP
NEWMSG(HLST,HLPM,RC,MTYPE,EVNTTYPE,TYP,LDA)	;EP
OBX(R)	;-- setup the ILI OBX segment
OBXMSR(R)	;-- setup the ILI OBX HT/WT segment
SET(ARY,V,F,C,S,R)	;EP
ZLI(R)	;-- setup the ILI ZLI segment
ZAS(R,SQ,ZAS2,ZAS3)	;-- setup the ILI ZAS segment
DG1(R,SQ,DG13)	;-- set the repeating DG1

Name	Field # of Occurrence
^%DT	HLD+4
NOW^%DTC	EVN+2
DG1LAB^APCLSIH1	DG1LAB+1
OBXLAB^APCLSIH1	OBXLAB+1
PIDLAB^APCLSIH1	PIDLAB+1
PR1LAB^APCLSIH1	PR1LAB+1
PV1LAB^APCLSIH1	PV1LAB+1
ZIDLAB^APCLSIH1	ZIDLAB+1
SET^APCLSIL4	SETLOG+1
$$ICDDX^APCLSILU	DG1+2, ZLI+11, ZLI+19, ZLI+28, ZPC+5, ZPC+10, ZPC+15, ZPC+20, ZPC+25, ZSR+2 , ZAN+10
$$VD^APCLV	ZCV+8
^DIK	GL+18, GL+19
$$GET1^DIQ	PV1+9, PV1+10, ZCV+9, FIXZIP+2
$$HLDATE^HLFNC	EVN+3
$$ADDMSG^HLOAPI	NEWMSG+6
$$ADDSEG^HLOAPI	ZHS+21, ZTS+21, EVN+7, PID+9, PV1+18, DG1+8, OBX+6, OBXMSR+12, OBXMSR+22, ZLI+45 , ZPC+28, ZAV+5, ZSR+7, ZAE+4, ZAS+5, ZAN+14, ZCV+18, MSA+6, MSA+12
$$NEWBATCH^HLOAPI	BATCH+3
SET^HLOAPI	SET+1
$$SENDONE^HLOAPI1	NEWMSG+45
^XBGSAVE	WRITE+12
$$FMTHL7^XLFDT	ZHS+12, ZHS+18, ZTS+10, ZAN+6, ZCV+13, HLD+5
SETUP^XQALERT	AACK+10, CACK+9

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^HLA - [#777]	Classic Fileman Calls
^HLB - [#778]	Classic Fileman Calls
^AUTTIMM - [#9999999.14]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APCLDATA($J	GETLAST+2, GETLAST+3, ZTS+5, ZTS+6, ZTS+8, APCLDATA+3, APCLDATA+5, WRITE+21!
^APCLILIC - [#9001003.3]	ZHS+8, ZHS+10, ZHS+11, ZHS+13
^APCLILIC("B"	ZHS+6
^APCLILIC(1	WRITE+8
^APCLTMP($J	GL+1!, SETGL+2*, WRITE+20!
^AUPNVIMM - [#9000010.11]	ZCV+4, ZCV+5, ZCV+7, ZCV+8, ZCV+9
^AUPNVIMM("AC"	ZCV+3
^AUTTLOC - [#9999999.06]	ZHS+5, ZHS+12, WRITE+4
^AUTTSITE(1	ZHS+4, WRITE+4
^DIC(4 - [#4]	ZHS+9
^HLA - [#777]	REST+3, REST+4
^HLB - [#778]	AACK+3, AACK+4, CACK+2, CACK+3, GL+4, GL+5, GL+6, GL+7, GL+10, GL+12 , GL+13, GL+14

Name	Line Occurrences
$$DATE	WRITE+9
$$GETLAST	ILI+3
$$HLD	PID+7, PV1+16, PV1+17, OBXMSR+11, OBXMSR+21, ZLI+3, ZLI+6, ZLI+26, ZLI+39, ZLI+40 , ZLI+44, ZPC+7, ZPC+12, ZPC+17, ZPC+22, ZPC+27, ZAV+3, ZAS+4
$$ZPCCHK	NEWMSG+30
APCLDATA	ILI+4
BATCH	ILI+2
DG1	NEWMSG+20, NEWMSG+21, NEWMSG+22
EVN	NEWMSG+16
GL	ILI+5
NEWMSG	APCLDATA+10
OBXMSR	NEWMSG+23
PID	NEWMSG+18
PV1	NEWMSG+19
REST	GL+17
SET	ZHS+14, ZHS+15, ZHS+16, ZHS+17, ZHS+18, ZHS+19, ZHS+20, ZTS+14, ZTS+15, ZTS+16 , ZTS+17, ZTS+18, ZTS+19, ZTS+20, EVN+4, EVN+5, EVN+6, PID+2, PID+3, PID+4 , PID+5, PID+6, PID+7, PID+8, PV1+2, PV1+3, PV1+4, PV1+5, PV1+11, PV1+12 , PV1+13, PV1+14, PV1+15, PV1+16, PV1+17, DG1+3, DG1+4, DG1+5, DG1+6, DG1+7 , OBX+1, OBX+2, OBX+3, OBX+4, OBX+5, OBXMSR+6, OBXMSR+7, OBXMSR+8, OBXMSR+9, OBXMSR+10 , OBXMSR+11, OBXMSR+16, OBXMSR+17, OBXMSR+18, OBXMSR+19, OBXMSR+20, OBXMSR+21, ZLI+1, ZLI+2, ZLI+3 , ZLI+4, ZLI+5, ZLI+6, ZLI+7, ZLI+8, ZLI+12, ZLI+13, ZLI+14, ZLI+15, ZLI+16 , ZLI+20, ZLI+21, ZLI+23, ZLI+24, ZLI+25, ZLI+26, ZLI+29, ZLI+30, ZLI+31, ZLI+32 , ZLI+33, ZLI+34, ZLI+35, ZLI+36, ZLI+37, ZLI+38, ZLI+39, ZLI+40, ZLI+41, ZLI+42 , ZLI+43, ZLI+44, ZPC+1, ZPC+2, ZPC+3, ZPC+6, ZPC+7, ZPC+8, ZPC+11, ZPC+12 , ZPC+13, ZPC+16, ZPC+17, ZPC+18, ZPC+21, ZPC+22, ZPC+23, ZPC+26, ZPC+27, ZAV+1 , ZAV+2, ZAV+3, ZAV+4, ZSR+3, ZSR+4, ZSR+5, ZSR+6, ZAE+1, ZAE+2, ZAE+3 , ZAS+1, ZAS+2, ZAS+3, ZAS+4, ZAN+7, ZAN+8, ZAN+11, ZAN+12, ZAN+13, ZCV+14 , ZCV+15, ZCV+16, ZCV+17, MSA+2, MSA+3, MSA+4, MSA+5, MSA+11
SETGL	GL+9, GL+16, REST+6
SETLOG	WRITE+19
WRITE	GL+20
ZAN	NEWMSG+29
ZCV	NEWMSG+31
ZHS	NEWMSG+33
ZLI	NEWMSG+24
ZPC	NEWMSG+30
ZSR	NEWMSG+25, NEWMSG+26, NEWMSG+27, NEWMSG+28
ZTS	NEWMSG+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EVN+1~, EVN+3
>> %DT	HLD+3*
AACK	AACK+1~, AACK+4*, AACK+5, AACK+8
>> APCLASU	WRITE+4*, WRITE+9
APCLCNT	APCLDATA+1~, APCLDATA+2, APCLDATA+4, GL+3, SETGL+1, SETGL+2, WRITE+20!
APCLDA	APCLDATA+1~, APCLDATA+3*, APCLDATA+5, APCLDATA+10
>> APCLDFN	WRITE+9*
>> APCLFLF	WRITE+9
>> APCLFLFN	WRITE+9
APCLFN	WRITE+1~
APCLLAST	ILI+1~, ILI+3*, NEWMSG+32
APCLREC	APCLDATA+1~, APCLDATA+5*, APCLDATA+6, APCLDATA+9, APCLDATA+10
APCLREC(	APCLDATA+9*
>> APCLVTOT	ZHS+17
>> APCLZHSD	ZHS+12, ZHS+18
APPARMS	NEWMSG+1~, NEWMSG+45
APPARMS("ACCE	PT ACK RESPONSE" , NEWMSG+39, PT ACK TYPE" , NEWMSG+37
APPARMS("APP	ACK RESPONSE" , NEWMSG+38, ACK TYPE" , NEWMSG+40
APPARMS("QUEUE"	NEWMSG+41*
APPARMS("SEND	ING APPLICATION" , NEWMSG+36*
ARBD	ZCV+1~
ARBD(	ZCV+11, ZCV+12, ZCV+13
ARBD(9999999	ZCV+10*
ARY	ZHS+14, ZHS+15, ZHS+16, ZHS+17, ZHS+18, ZHS+19, ZHS+20, ZHS+21, ZTS+14, ZTS+15 , ZTS+16, ZTS+17, ZTS+18, ZTS+19, ZTS+20, ZTS+21, NEWMSG+1~, EVN+4, EVN+5, EVN+6 , EVN+7, PID+2, PID+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+9, PV1+2 , PV1+3, PV1+4, PV1+5, PV1+11, PV1+12, PV1+13, PV1+14, PV1+15, PV1+16, PV1+17 , PV1+18, DG1+3, DG1+4, DG1+5, DG1+6, DG1+7, DG1+8, OBX+1, OBX+2, OBX+3 , OBX+4, OBX+5, OBX+6, OBXMSR+6, OBXMSR+7, OBXMSR+8, OBXMSR+9, OBXMSR+10, OBXMSR+11, OBXMSR+12 , OBXMSR+16, OBXMSR+17, OBXMSR+18, OBXMSR+19, OBXMSR+20, OBXMSR+21, OBXMSR+22, ZLI+1, ZLI+2, ZLI+3 , ZLI+4, ZLI+5, ZLI+6, ZLI+7, ZLI+8, ZLI+12, ZLI+13, ZLI+14, ZLI+15, ZLI+16 , ZLI+20, ZLI+21, ZLI+23, ZLI+24, ZLI+25, ZLI+26, ZLI+29, ZLI+30, ZLI+31, ZLI+32 , ZLI+33, ZLI+34, ZLI+35, ZLI+36, ZLI+37, ZLI+38, ZLI+39, ZLI+40, ZLI+41, ZLI+42 , ZLI+43, ZLI+44, ZLI+45, ZPC+1, ZPC+2, ZPC+3, ZPC+6, ZPC+7, ZPC+8, ZPC+11 , ZPC+12, ZPC+13, ZPC+16, ZPC+17, ZPC+18, ZPC+21, ZPC+22, ZPC+23, ZPC+26, ZPC+27 , ZPC+28, ZAV+1, ZAV+2, ZAV+3, ZAV+4, ZAV+5, ZSR+3, ZSR+4, ZSR+5, ZSR+6 , ZSR+7, ZAE+1, ZAE+2, ZAE+3, ZAE+4, ZAS+1, ZAS+2, ZAS+3, ZAS+4, ZAS+5 , ZAN+7, ZAN+8, ZAN+11, ZAN+12, ZAN+13, ZAN+14, ZCV+14, ZCV+15, ZCV+16, ZCV+17 , ZCV+18, MSA+2, MSA+3, MSA+4, MSA+5, MSA+6, MSA+11, MSA+12, SET~, SET+1
ASUFAC	ZHS+3~, ZHS+12*, ZHS+20
BDA	GETLAST+1~, GETLAST+2, GETLAST+3, GL+2~, GL+10, GL+12, GL+13, GL+14
BDO	GL+2~, GL+13*, GL+14
BT	GL+2~, GL+8*, GL+9
BT1	GL+2~, GL+5*, GL+8
BT2	GL+2~, GL+6*, GL+8
BT3	GL+2~, GL+7*, GL+8
C	SET~, SET+1
CACK	CACK+1~, CACK+3*, CACK+4, CACK+7
CNT	ZTS+3~, ZTS+4, ZTS+7, ZTS+15, OBXMSR+1~, OBXMSR+2, OBXMSR+5, OBXMSR+7, OBXMSR+15*, OBXMSR+17
D	ZCV+1~, ZCV+11, ZCV+12, ZCV+13, HLD+2~, HLD+5, HLD+6, SETGL~, SETGL+2, DATE~ , DATE+1
>> DA	GL+18, GL+19
DATA	AACK+1~, REST+1~, REST+4*, REST+5, REST+6
DBID	ZHS+3~, ZHS+5*, ZHS+15
DBIDI	ZHS+3~, ZHS+4*, ZHS+5, ZHS+9, ZHS+12
DFN	APCLDATA+6, APCLDATA+7, ZCV+3, FIXZIP~, FIXZIP+2
DG13	DG1~, DG1+2, DG1+6
>> DIK	GL+18, GL+19
DT	WRITE+9
ERR	BATCH+4, ZHS+21, ZTS+21, NEWMSG+1~, NEWMSG+6, NEWMSG+7, NEWMSG+18, NEWMSG+19, NEWMSG+20, NEWMSG+21 , NEWMSG+22, NEWMSG+23, NEWMSG+24, NEWMSG+25, NEWMSG+26, NEWMSG+27, NEWMSG+28, NEWMSG+29, NEWMSG+35, NEWMSG+45 , NEWMSG+46*, EVN+7, PID+9, PV1+18, DG1+8, OBX+6, OBXMSR+12, OBXMSR+22, ZLI+45, ZPC+28 , ZAV+5, ZSR+7, ZAE+4, ZAS+5, ZAN+14, ZCV+18
>> ERROR	BATCH+3
EVNTTYPE	NEWMSG~, NEWMSG+5, NEWMSG+16, EVN~, EVN+5
F	SET~, SET+1
FDT	HLD~, HLD+1, HLD+4
FLD	NEWMSG+2~, EVN+1~
FNM	PV1+1~
HL1	NEWMSG+2~
HL1("ECH"	NEWMSG+10*
HL1("FS"	NEWMSG+11*
HL1("Q"	NEWMSG+12*, PID+1
HL1("VER"	NEWMSG+13*
HLECH	NEWMSG+1~, NEWMSG+9*, NEWMSG+10
HLFS	NEWMSG+1~, NEWMSG+8*, NEWMSG+11
HLMSGIEN	NEWMSG+1~, AACK+2, AACK+3, AACK+4, CACK+2, CACK+3
HLMSTATE	ILI+4, ILI+6!, BATCH+3, APCLDATA~, APCLDATA+10, EVN+7, PID+9
HLMSTATE("IEN"	ILI+5
HLODAT	GL+2~
>> HLOMSH	GL+14*, GL+15
HLPARM	ILI+2, ILI+4, ILI+6!, BATCH~, BATCH+3, APCLDATA~, APCLDATA+10
HLPARM("COUNTRY"	BATCH+1*
HLPARM("VERSION"	BATCH+2*
HLPM	NEWMSG~, NEWMSG+6
HLPM("ENCODIN	G CHARACTERS" , NEWMSG+9
HLPM("EVENT"	NEWMSG+5*
HLPM("FIELD S	EPARATOR" , NEWMSG+8
HLPM("MESSAGE	TYPE" , NEWMSG+4*
HLPM("VERSION"	NEWMSG+13
HLQ	NEWMSG+1~, PID+1*
HLST	ZHS+21, ZTS+21, NEWMSG~, NEWMSG+6, NEWMSG+45, PV1+18, DG1+8, OBX+6, OBXMSR+12, OBXMSR+22 , ZLI+45, ZPC+28, ZAV+5, ZSR+7, ZAE+4, ZAS+5, ZAN+14, ZCV+18, MSA+6, MSA+12
HRCN	NEWMSG+2~
I	APCLDATA+8~, APCLDATA+9, OBXMSR+1~, OBXMSR+3, OBXMSR+4, OBXMSR+9, OBXMSR+10, OBXMSR+11, OBXMSR+13, OBXMSR+14 , OBXMSR+20, ZPCCHK+2, ZAN+1~, ZAN+3*, ZAN+4, ZAN+5, ZAN+6
ICDT	DG1+1~, DG1+2, DG1+7, ZLI+27~, ZLI+28, ZLI+30, ZPC+4~, ZPC+5, ZPC+6, ZSR+1~ , ZSR+2, ZSR+6, ZAN+9~, ZAN+10*, ZAN+12
ICDTA	ZLI+10~, ZLI+11, ZLI+12, ZPC+9~, ZPC+10, ZPC+11
ICDTB	ZLI+18~, ZLI+19, ZLI+21, ZPC+14~, ZPC+15, ZPC+16
ICDTC	ZPC+19~, ZPC+20*, ZPC+21
ICDTD	ZPC+24~, ZPC+25*, ZPC+26
ILII	ZHS+3~, ZHS+6*, ZHS+8, ZHS+10, ZHS+11, ZHS+13
IN	GL~, GL+4, GL+5, GL+6, GL+7, GL+10, GL+12, GL+13, GL+14, GL+18
J	ZCV+1~, ZCV+3, ZCV+4, ZCV+5, ZCV+7, ZCV+8, ZCV+9, ZCV+10, ZCV+12, ZCV+13
LA	ZTS~, ZTS+5
LAST	GETLAST+1~, GETLAST+2, GETLAST+3, GETLAST+4, ZHS+3~, ZHS+11, ZHS+13
LASTDT	ZHS+3~, ZHS+10*, ZHS+11
LDA	NEWMSG~, NEWMSG+32, NEWMSG+34
LN	NEWMSG+2~, NEWMSG+3*
LNM	PV1+1~
LOC	ZHS+3~, ZHS+9*, ZHS+19
LP	NEWMSG+2~
M	REST~, REST+3, REST+4
MCNT	REST+1~, REST+2*
MDA	REST+1~, REST+3*, REST+4
MI	PV1+1~
MP	REST~, REST+3, REST+4
MSA	MSA+1~, MSA+6*
MSG	GL+2~, GL+4*, GL+17, GL+19
MSGID	AACK+1~, AACK+3, AACK+6, AACK+7, CACK+1~, CACK+2, CACK+5, CACK+6
MSGP	GL+2~, GL+12*, GL+17
MSH	MSA+10~, MSA+12, GL+2~, GL+11, GL+15*, GL+16
MTYPE	NEWMSG~, NEWMSG+4, NEWMSG+16, EVN~
NPI	PV1+1~, PV1+9*, PV1+11
PRV	PV1+1~, PV1+10*
PRVI	PV1+1~, PV1+7*, PV1+8, PV1+9, PV1+10
PT	ZHS+3~, ZHS+7, ZHS+8, ZHS+16
R	PID~, PIDLAB~, PIDLAB+1, ZIDLAB~, ZIDLAB+1, PV1~, PV1LAB~, PV1LAB+1, DG1~, DG1LAB~ , DG1LAB+1, PR1LAB~, PR1LAB+1, OBX~, OBXMSR~, OBXLAB~, OBXLAB+1, ZLI~, ZPCCHK~, ZPC~ , ZAV~, ZSR~, ZAE~, ZAS~, ZAN~, ZCV~, SET~, SET+1
R(	OBXMSR+4, OBXMSR+9, OBXMSR+10, OBXMSR+11, OBXMSR+14, OBXMSR+20, ZPCCHK+2, ZAN+4, ZAN+5, ZAN+6
R(1	PID+4
R(107	ZPCCHK+1, ZPC+2
R(11	OBX+5
R(113	ZPC+3, ZPC+5, ZPC+6
R(114	ZPC+7
R(115	ZPC+8, ZPC+10, ZPC+11
R(116	ZPC+12
R(117	ZPC+13, ZPC+15, ZPC+16
R(118	ZPC+17
R(119	ZPC+18, ZPC+20, ZPC+21
R(12	PV1+13
R(120	ZPC+22
R(121	ZPC+23, ZPC+25, ZPC+26
R(122	ZPC+27
R(123	ZLI+39
R(124	ZLI+40
R(132	PV1+15
R(133	ZLI+41
R(134	ZLI+42
R(135	ZLI+43
R(136	ZLI+44
R(138	PV1+7
R(14	ZLI+3
R(15	ZLI+4
R(16	PV1+14
R(17	PV1+17
R(18	ZLI+5
R(19	ZLI+6
R(2	PID+5
R(21	ZLI+7
R(22	ZLI+8, ZLI+9, ZLI+11
R(3	PID+6
R(33	ZLI+13
R(34	ZLI+14
R(35	ZLI+15
R(36	ZLI+16
R(38	OBXMSR+21
R(39	ZLI+17, ZLI+19, ZLI+20, ZLI+22, ZLI+23, ZLI+25
R(4	PID+7
R(40	ZLI+26
R(41	PV1+5
R(43	ZLI+28, ZLI+29, ZLI+30
R(44	ZLI+31
R(5	PID+8
R(59	ZLI+32
R(6	PV1+4
R(60	ZLI+33
R(61	ZLI+34
R(62	ZLI+35
R(63	ZLI+36
R(64	ZLI+37
R(65	ZLI+38
R(7	PV1+16, DG1+2, ZLI+11, ZLI+19, ZLI+28, ZPC+5, ZPC+10, ZPC+15, ZPC+20, ZPC+25 , ZSR+2, ZAN+10
RC	NEWMSG~, NEWMSG+18, NEWMSG+19, NEWMSG+20, NEWMSG+21, NEWMSG+22, NEWMSG+23, NEWMSG+24, NEWMSG+25, NEWMSG+26 , NEWMSG+27, NEWMSG+28, NEWMSG+29, NEWMSG+30
RC(10	NEWMSG+22
RC(45	NEWMSG+25
RC(46	NEWMSG+26
RC(47	NEWMSG+27
RC(48	NEWMSG+28
RC(66	NEWMSG+29
RC(8	NEWMSG+20
RC(9	NEWMSG+21
RCNT1	ZTS+3~, ZTS+11*, ZTS+18
RCNT2	ZTS+3~, ZTS+12*, ZTS+19
RCNT3	ZTS+3~, ZTS+13*, ZTS+20
RDA	ZTS+3~, ZTS+5*, ZTS+6, ZTS+8
RDATA	ZTS+3~, ZTS+8*, ZTS+9, ZTS+10, ZTS+11, ZTS+12, ZTS+13
RDT	ZTS+3~, ZTS+10*, ZTS+16
RLOC	ZTS+3~, ZTS+9*, ZTS+17
S	SET~, SET+1
SQ	DG1~, DG1+4, ZAV~, ZAV+2, ZSR~, ZSR+4, ZAE~, ZAE+2, ZAS~, ZAS+2
T	WRITE~
TOT	ZHS+3~, ZHS+13*
TST	WRITE+6~, WRITE+7, WRITE+8, WRITE+9
TYP	BATCH~, ZHS~, ZHS+2, ZTS~, ZTS+2, APCLDATA~, APCLDATA+9, APCLDATA+10, NEWMSG~, NEWMSG+17 , NEWMSG+33, NEWMSG+34, GL~, GL+20, WRITE+3, WRITE+15, WRITE+16
TYPE	ILI~, ILI+2, ILI+4, ILI+5
U	ZHS+4, ZHS+5, ZHS+8, ZHS+9, ZHS+12, ZHS+13, AACK+3, AACK+5, AACK+8, CACK+2 , CACK+4, CACK+7, DG1+2, OBXMSR+9, OBXMSR+10, OBXMSR+11, OBXMSR+20, ZLI+11, ZLI+19, ZLI+28 , ZPC+5, ZPC+10, ZPC+15, ZPC+20, ZPC+25, ZSR+2, ZAN+10, ZCV+5, ZCV+7, ZCV+8 , ZCV+9, GL+4, GL+12, WRITE+4, WRITE+8
V	SET~, SET+1
VAL	EVN+1~, ZAN+1~, ZAN+5*, ZAN+10, ZAN+11
VALC	ZCV+1~, ZCV+9, ZCV+10, ZCV+13, ZCV+16
VALD	ZAN+1~, ZAN+6, ZAN+13, ZCV+1~, ZCV+6, ZCV+7, ZCV+8, ZCV+10, ZCV+13*, ZCV+17
WHO	NEWMSG+1~, NEWMSG+45
WHO("FACILITY	LINK NAME" , NEWMSG+43*
WHO("RECEIVIN	G APPLICATION" , NEWMSG+42*
>> WHOTO("RECEIV	ING APPLICATION" , NEWMSG+44*
X	ZHS+21, ZTS+21, NEWMSG+2~, EVN+1~, EVN+3, EVN+6, EVN+7, PID+9, PV1+18, DG1+8* , OBX+6, OBXMSR+12, OBXMSR+22, ZLI+45, ZPC+28, ZAV+5, ZSR+7, ZAE+4, ZAS+5, ZAN+14 , ZCV+1~, ZCV+18, HLD+4
>> XBE	WRITE+2*
>> XBF	WRITE+2*
>> XBFLG	WRITE+14
>> XBFLG(1	WRITE+15, WRITE+16, WRITE+18
XBFLT	WRITE+1~, WRITE+2*
XBFN	WRITE+1~, WRITE+9*
XBGL	WRITE+1~, WRITE+2*
XBMED	WRITE+1~, WRITE+2*
XBNAR	WRITE+1~, WRITE+3*
XBQ	WRITE+1~, WRITE+2*
XBQTO	WRITE+1~
>> XBS1	WRITE+10*
XBUF	WRITE+1~
XQA	AACK+1~, CACK+1~
XQA("G.APCS I	LI" , AACK+9, CACK+8
XQAID	AACK+1~, AACK+7, CACK+1~, CACK+6
XQAMSG	AACK+1~, AACK+6, CACK+1~, CACK+5
XQDATA	AACK+1~, AACK+8, CACK+1~, CACK+7
>> Y	HLD+5
ZAE2	ZAE~, ZAE+3
ZANC	ZAN+1~, ZAN+2, ZAN+8, ZAN+15
ZAS2	ZAS~, ZAS+3
ZAS3	ZAS~, ZAS+4
ZAV2	ZAV~, ZAV+3
ZAV3	ZAV~, ZAV+4
ZCVC	ZCV+1~, ZCV+2, ZCV+13, ZCV+15
ZHS	ZHS+1~
ZHS1	ZHS+1~
ZHS2	ZHS+1~
ZHS3	ZHS+1~
ZHS4	ZHS+1~
ZHS5	ZHS+1~
ZHS6	ZHS+1~
ZIP	FIXZIP~, FIXZIP+1
ZSR2	ZSR~, ZSR+2, ZSR+5
>> ZTQUEUED	WRITE+15, WRITE+16, WRITE+17, WRITE+18
ZTS	ZTS+1~
ZTS1	ZTS+1~
ZTS2	ZTS+1~
ZTS3	ZTS+1~
ZTS4	ZTS+1~
ZTS5	ZTS+1~

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSIHL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: