Routine: APCSSLAB

Package	Total	Call Graph
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK ^XBGSAVE EN^XBVK
VA Fileman	5	DD^%DT C^%DTC ^DIC $$GET1^DIQ ^DIR
Patient Care Component Reports	4	$$DSCHDATE^APCLSIL2 ^APCLSIL3 ($$DEMO,DEMO)^APCLUTL PAUSE^APCLVL01
Kernel	3	($$DEL,$$LIST)^%ZISH ($$FMADD,$$FMTE,$$FMTHL7)^XLFDT ($$CJ,$$UP)^XLFSTR
IHS Patient	2	($$AGE,$$HRN)^AUPNPAT $$UIDV^AUPNVSIT
Patient Care Component Surveillance	1	ILI^APCSHLO
Taxonomy	1	$$ICD^ATXCHK

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
DATES	;set date range to T-91 to T-1
DEMO	;
PURGE	;
LABTYPE	;
EOP	;EP - End of page.
BLDPV1(V)	;
BLDOBXLB(V)	;
CPT	;
D	;taxonomy or selected
INDLAB	;
UID(APCSA)	;Given DFN return unique patient record id.
CTR(X,Y)	;EP - Center X in a field Y wide.
BLDPR1(V)	;
INFORM	;inform user
LABTAX	;
HL7(FN,AV)	;export this visit - MARK - this is where you will generate the HL7 message
DATE(D)	;EP
A	;
BLDPID(F,V)	;
B	;
ZIS	;called xbdbque to see if they want to queue or not
JDATE(D)	;EP - get date
ED	;get ending date
WRITE	; use XBGSAVE to save the temp global (APCSDATA) to a delimited ; file that is exported to the IE system
START	;
EP	;EP - called from option to create search template using ILI logic
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BLDZID(F,V)	;
BLDDG1(V)	;
USR()	;EP - Return name of current user from ^VA(200.
LAB	;does this visit have A or B or either?
LOINC(A,B)	;EP
CONTINUE	;
EXIT	;clean up and exit
BLDOBXTP(V)	;
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
$$DEL^%ZISH	PURGE+13
$$LIST^%ZISH	PURGE+9
$$DSCHDATE^APCLSIL2	BLDPV1+8
^APCLSIL3	EP+1
$$DEMO^APCLUTL	PROC+12
DEMO^APCLUTL	DEMO+1
PAUSE^APCLVL01	PROC+26
ILI^APCSHLO	PROC+22
$$ICD^ATXCHK	CPT+4, CPT+5
$$AGE^AUPNPAT	BLDZID+2
$$HRN^AUPNPAT	BLDPID+3
$$UIDV^AUPNVSIT	BLDPV1+6
^DIC	LABTAX+1, INDLAB+1
$$GET1^DIQ	BLDPV1+4, BLDDG1+4, BLDPR1+4, BLDOBXLB+5, BLDOBXLB+6, UID+4
^DIR	BD+1, ED+1, LABTYPE+3, CONTINUE+2, D+3, EOP+5
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	BLDOBXTP+5
^XBFMK	EXIT+2
^XBGSAVE	WRITE+9
EN^XBVK	EXIT+1
$$FMADD^XLFDT	PURGE+7
$$FMTE^XLFDT	ED+6, JDATE+3
$$FMTHL7^XLFDT	BLDPID+5, BLDPV1+7, BLDPV1+8
$$CJ^XLFSTR	INFORM+2
$$UP^XLFSTR	JDATE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("EPI PROGRAM HL7 LAB EXPORT",80) Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This option is used to create a file of HL7 messages. These messages will" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"be sent to the IHS EPI program. A message will be sent for every visit" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"on which a certain lab test was done. The user will define the date range" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"of visits to export." Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"This HL7 export file will be automatically ftp'ed to the EPI program.",!! Line Location: INFORM+7
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"The date range for this export is: ",$$FMTE^XLFDT(APCSBD)," to ",$$FMTE^XLFDT(APCSED),".",! Line Location: ED+6
Function Call: WRITE	Prompt: !! Line Location: CONTINUE+1
Function Call: WRITE	Prompt: !!,"The SURVEILLANCE RAPID FLU TESTS lab taxonomy is missing. Cannot continue." Line Location: A+2
Function Call: WRITE	Prompt: !!,"The SURVEILLANCE RAPID FLU CPT taxonomy is missing. Cannot continue." Line Location: A+3
Function Call: WRITE	Prompt: !!,"The SURVEILLANCE RAPID FLU LOINC taxonomy is missing. Cannot continue." Line Location: A+5
Function Call: WRITE	Prompt: !!,"The SURVEILLANCE RAPID FLU TESTS site populated LAB taxonomy has no entries." Line Location: A+6
Function Call: WRITE	Prompt: !!,"The BGP CHLAMYDIA TESTS TAX lab taxonomy is missing. Cannot continue." Line Location: B+2
Function Call: WRITE	Prompt: !!,"The CHLAMYDIA CPT taxonomy is missing. Cannot continue." Line Location: B+3
Function Call: WRITE	Prompt: !!,"The BGP CHLAMYDIA LOINC CODES taxonomy is missing. Cannot continue." Line Location: B+5
Function Call: WRITE	Prompt: !!,"The BGP CHLAMYDIA TESTS TAX site populated LAB taxonomy has no entries." Line Location: B+6
Function Call: WRITE	Prompt: !!,"no lab tests selected." Line Location: D+8
Function Call: WRITE	Prompt: !!,"The following labs and values will be exported:" Line Location: D+9
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,X,0),U,1) Line Location: D+10
Function Call: WRITE	Prompt: ! Line Location: D+11
Routine Call	DIC Line Location: LABTAX+1 INDLAB+1
Routine Call	DIR Line Location: BD+1 ED+1 LABTYPE+3 CONTINUE+2 D+3 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVLAB - [#9000010.09]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	GET1^DIQ
^ATXLAB - [#9002228]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCSDATA($J	PROC+2!, BLDPID+6, BLDZID+3, BLDPV1+9, BLDDG1+6, BLDPR1+6, BLDOBXTP+9, BLDOBXLB+8*, WRITE+16!
^ATXAX - [#9002226]	LOINC+3, LOINC+5
^ATXAX("B"	A+3, A+4, B+3, B+4
^ATXLAB - [#9002228]	A+6, B+6, LABTAX+3, LAB+5, LAB+11
^ATXLAB("B"	A+1, B+1
^AUPNPAT - [#9000001]	UID+2
^AUPNVCPT - [#9000010.18]	CPT+2, CPT+3
^AUPNVCPT("AD"	CPT+1, BLDPR1+3
^AUPNVLAB - [#9000010.09]	LAB+2, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13, LAB+17, BLDOBXLB+3, BLDOBXLB+4
^AUPNVLAB("AD"	LAB+1
^AUPNVMSR - [#9000010.01]	BLDOBXTP+4, BLDOBXTP+6
^AUPNVMSR("AD"	BLDOBXTP+3
^AUPNVPOV("AD"	BLDDG1+3
^AUPNVSIT - [#9000010]	PROC+6, PROC+7, PROC+8, BLDPID+2, BLDPV1+2, BLDPV1+3, BLDPV1+6, BLDPV1+7
^AUPNVSIT("B"	PROC+4, PROC+5
^AUTTLOC - [#9999999.06]	BLDPV1+5, WRITE+5, PURGE+6
^AUTTSITE(1	WRITE+5, UID+4, PURGE+3, PURGE+6
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+10, PROC+11, BLDPID+4, BLDPID+5
^LAB(60 - [#60]	LABTAX+3, D+10
^LAB(95.3 - [#95.3]	LOINC+2, LOINC+4
^VA(200 - [#200]	USR+1
^XTV(8989.3 - [#8989.3]	PURGE+4

Label References

Name	Line Occurrences
$$DATE	WRITE+6, PURGE+8
$$LOINC	LAB+8, LAB+14
A	LABTYPE+7
B	LABTYPE+8
BD	ED+2
BLDDG1	HL7+8
BLDOBXLB	HL7+12
BLDOBXTP	HL7+11
BLDPID	HL7+5
BLDPR1	HL7+9
BLDPV1	HL7+7
BLDZID	HL7+6
CPT	PROC+18
D	LABTYPE+9
DATES	LABTYPE+4
EXIT	START+4, BD+2, CONTINUE+3, DEMO+5
HL7	PROC+16, PROC+19
INDLAB	INDLAB+4, D+7
LAB	PROC+15
LABTAX	D+6
LABTYPE	LABTYPE+7, LABTYPE+8, LABTYPE+9, DEMO+2

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOINC+1~, LOINC+2, LOINC+3, LOINC+4, LOINC+5
A	LOINC~, LOINC+2, LOINC+4, JDATE+2~, JDATE+3*, JDATE+4
AGE	BLDZID+1~, BLDZID+2*, BLDZID+3
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLQ	LABTYPE+6, LABTYPE+7, LABTYPE+8, LABTYPE+9, A+2, A+3, A+5, A+6, B+2, B+3* , B+5, B+6, D+4, D+8
APCSA	UID~, UID+1, UID+2, UID+4
>> APCSACTT	A+3*, CPT+4
>> APCSALBT	A+1*, A+2, A+6, LAB+5
>> APCSALOT	A+4*, A+5, LAB+6, LAB+8
>> APCSASU	WRITE+5, WRITE+6, PURGE+6, PURGE+9
>> APCSBCTT	B+3*, CPT+5
>> APCSBD	BD+3*, ED+1, ED+4, ED+6
>> APCSBLBT	B+1*, B+2, B+6, LAB+11
>> APCSBLOT	B+4*, B+5, LAB+12, LAB+14
APCSDIR	PURGE+2!, PURGE+3, PURGE+4, PURGE+5, PURGE+9, PURGE+13
>> APCSDT	PURGE+7, PURGE+8, PURGE+13
>> APCSED	DATES+1, ED+3, ED+6, PROC+4
APCSFILE	PURGE+2!, PURGE+9
APCSFILE(	PURGE+11, PURGE+12, PURGE+13
APCSFILE(""	PURGE+10
>> APCSFLST	PURGE+9*
>> APCSGOT	PROC+14, PROC+16, PROC+17, PROC+19, LAB+5, LAB+9, LAB+11, LAB+15, LAB+18, CPT+1 , CPT+4, CPT+5*
APCSLAB	PROC+17!
APCSLAB(	LAB+5, LAB+9, LAB+11, LAB+15, LAB+18*, BLDOBXLB+2
APCSLABS	D+1!, D+2, D+5, D+6, D+7, D+8!
APCSLABS(	LABTAX+3, INDLAB+3, D+10, LAB+17
APCSLABS(0	D+8
APCSLABT	PROC+14!
>> APCSLTYP	LABTYPE+1, LABTYPE+5, LABTYPE+7, LABTYPE+8, LABTYPE+9, LAB+4, LAB+10, LAB+16, CPT+4, CPT+5
>> APCSM	PURGE+13*
>> APCSOBXC	HL7+10, BLDOBXTP+8, BLDOBXTP+9, BLDOBXLB+7*, BLDOBXLB+8
>> APCSSD	DATES+1, ED+4, PROC+4*, PROC+5
>> APCSV	PROC+5*, PROC+6, PROC+7, PROC+8, PROC+16, PROC+19, LAB+1, CPT+1
>> APCSVTOT	PROC+3, PROC+22, PROC+23, HL7+4
>> APCSX	PURGE+11*, PURGE+12, PURGE+13
ASUFAC	BLDPV1+1~, BLDPV1+5*, BLDPV1+9
AV	HL7~, HL7+5, HL7+6, HL7+7, HL7+8, HL7+9, HL7+11, HL7+12, HL7+13
B	LOINC~, LOINC+3, LOINC+5
BDA	BLDDG1+1~, BLDDG1+3, BLDDG1+4, BLDPR1+1~, BLDPR1+3, BLDPR1+4, BLDOBXTP+1~, BLDOBXTP+3, BLDOBXTP+4, BLDOBXTP+5 , BLDOBXTP+6, BLDOBXLB+1~, BLDOBXLB+2, BLDOBXLB+3, BLDOBXLB+4, BLDOBXLB+5, BLDOBXLB+6
CC	BLDPV1+1~, BLDPV1+4*, BLDPV1+9
CLN	BLDPV1+1~, BLDPV1+3*, BLDPV1+4
CNT	BLDDG1+1~, BLDDG1+2, BLDDG1+5, BLDDG1+6, BLDPR1+1~, BLDPR1+2, BLDPR1+5, BLDPR1+6
CPT	BLDPR1+1~, BLDPR1+4*, BLDPR1+6
D	DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4, PURGE+12*, PURGE+13
DA	LABTYPE+3!, CONTINUE+2!, D+3!
DDT	BLDPV1+1~, BLDPV1+8*, BLDPV1+9
>> DFN	PROC+8*, PROC+9, PROC+10, PROC+11, PROC+12, PROC+16, PROC+19
DFOUT	EOP+4!
>> DIC	LABTAX+1, INDLAB+1
>> DIC(0	LABTAX+1, INDLAB+1
DIR	BD+1!, ED+1!, LABTYPE+3!, CONTINUE+2!, D+3!, EOP+3~
DIR("A"	BD+1, ED+1, LABTYPE+2, CONTINUE+2, D+3*
DIR("B"	CONTINUE+2, D+3
DIR(0	BD+1, ED+1, LABTYPE+2, CONTINUE+2, D+3, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, LABTYPE+4, D+4, EOP+4!
DLOUT	EOP+4!
DOB	BLDPID+1~, BLDPID+5*, BLDPID+6
DT	WRITE+6, PURGE+7
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, EOP+4!
DUZ	USR+1
DUZ(2	BLDPID+3, LOC+1
DX	BLDDG1+1~, BLDDG1+4*, BLDDG1+6
F	BLDPID~, BLDPID+3, BLDPID+4, BLDPID+5, BLDZID~, BLDZID+2
FN	HL7~, HL7+5, HL7+6
HRN	BLDPID+1~, BLDPID+3*, BLDPID+6
IO("S"	EOP+2
IOF	INFORM+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
>> J	LAB+7, LAB+8, LAB+13, LAB+14
>> L	LABTAX+3*
LAB	BLDOBXLB+1~, BLDOBXLB+5*, BLDOBXLB+8
LABI	BLDOBXLB+1~, BLDOBXLB+3*
LOC	BLDPID+1~, BLDPID+2, BLDPID+3, BLDPV1+1~, BLDPV1+2, BLDPV1+5
LOINC	BLDOBXLB+1~, BLDOBXLB+6*, BLDOBXLB+8
>> N	PURGE+13*
RES	BLDOBXLB+1~, BLDOBXLB+4*, BLDOBXLB+8
SEX	BLDPID+1~, BLDPID+4*, BLDPID+6
TEMP	BLDOBXTP+1~, BLDOBXTP+2, BLDOBXTP+7, BLDOBXTP+9
TMP	BLDOBXTP+1~, BLDOBXTP+6*, BLDOBXTP+7
U	LABTAX+3, D+10, PROC+7, PROC+8, PROC+11, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13 , LAB+17, CPT+3, BLDPID+2, BLDPID+4, BLDPID+5, BLDPID+6, BLDPV1+2, BLDPV1+3, BLDPV1+5, BLDPV1+6 , BLDPV1+7, BLDPV1+9, BLDOBXTP+4, BLDOBXTP+6, BLDOBXTP+9, BLDOBXLB+3, BLDOBXLB+4, BLDOBXLB+8, LOINC+2, LOINC+4 , WRITE+5, UID+4, USR+1, LOC+1, PURGE+6
UVIEN	BLDPV1+1~, BLDPV1+6*, BLDPV1+9
V	BLDPID~, BLDPID+2, BLDPID+6, BLDZID~, BLDZID+3, BLDPV1~, BLDPV1+2, BLDPV1+3, BLDPV1+6, BLDPV1+7 , BLDPV1+8, BLDPV1+9, BLDDG1~, BLDDG1+3, BLDDG1+6, BLDPR1~, BLDPR1+3, BLDPR1+6, BLDOBXTP~, BLDOBXTP+3 , BLDOBXTP+9, BLDOBXLB~, BLDOBXLB+8
VDT	BLDPV1+1~, BLDPV1+7*, BLDPV1+9
X	ED+4, LABTAX+3, D+10, LAB+1, LAB+2, LAB+3, LAB+5, LAB+7, LAB+9, LAB+11 , LAB+13, LAB+15, LAB+17, LAB+18, CPT+1, CPT+2, CPT+3, CTR~, CTR+1
>> X1	ED+4*
>> X2	ED+4*
>> XBE	WRITE+3*
>> XBF	WRITE+3*
>> XBFLG	WRITE+11
>> XBFLG(1	WRITE+12, WRITE+13, WRITE+15
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*
>> XBNS	DEMO+3*
XBQ	WRITE+2~, WRITE+3*
XBQTO	WRITE+2~
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
>> XBS1	WRITE+7*
XBUF	WRITE+2~
Y	BD+3, ED+1, ED+3, LABTYPE+5, CONTINUE+3, LABTAX+2, LABTAX+3, INDLAB+2, INDLAB+3, D+5 , CPT+3, CPT+4, CPT+5, CTR~, CTR+1
>> ZTQUEUED	PROC+1, PROC+24, HL7+13, WRITE+12, WRITE+13, WRITE+14, WRITE+15, EOP+2, PURGE+1

Customize PDF page

Package: Patient Care Component Surveillance

Routine: APCSSLAB

Information

Source Information

Call Graph

Call Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: