Routine: APCSCERT

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK ^XBGSAVE EN^XBVK
Kernel	3	($$DEL,$$LIST)^%ZISH ($$FMADD,$$FMTE)^XLFDT ($$CJ,$$UP)^XLFSTR
Patient Care Component Reports	3	^APCLSIL3 ($$DEMO,DEMO)^APCLUTL PAUSE^APCLVL01
Patient Care Component Surveillance	1	CERT^APCSHLOC

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.
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.
INFORM	;inform user
LABTAX	;
DATE(D)	;EP
A	;
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).
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
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
^APCLSIL3	EP+1
$$DEMO^APCLUTL	PROC+12
DEMO^APCLUTL	DEMO+1
PAUSE^APCLVL01	PROC+23
CERT^APCSHLOC	PROC+16
^DIC	LABTAX+1, INDLAB+1
$$GET1^DIQ	UID+4
^DIR	BD+1, ED+1, LABTYPE+3, CONTINUE+2, D+3, EOP+5
^XBDBQUE	DEMO+4
^XBFMK	EXIT+2
^XBGSAVE	WRITE+9
EN^XBVK	EXIT+1
$$FMADD^XLFDT	PURGE+7
$$FMTE^XLFDT	ED+6, JDATE+3
$$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 Certification 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
^ATXLAB - [#9002228]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCSDATA($J	PROC+2!, 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
^AUPNVLAB - [#9000010.09]	LAB+2, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13, LAB+17
^AUPNVLAB("AD"	LAB+1
^AUPNVSIT - [#9000010]	PROC+6, PROC+7, PROC+8
^AUPNVSIT("B"	PROC+4, PROC+5
^AUTTLOC - [#9999999.06]	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
^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
D	LABTYPE+9
DATES	LABTYPE+4
EXIT	START+4, BD+2, CONTINUE+3, DEMO+5
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
>> 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*
>> 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*
>> 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, LAB+5, LAB+9, LAB+11, LAB+15, LAB+18
>> APCSLAB	PROC+16
>> APCSLAB(	LAB+5, LAB+9, LAB+11, LAB+15, LAB+18*
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
>> APCSM	PURGE+13*
>> APCSSD	DATES+1, ED+4, PROC+4*, PROC+5
>> APCSV	PROC+5*, PROC+6, PROC+7, PROC+8, LAB+1
>> APCSVTOT	PROC+3, PROC+17, PROC+20
>> APCSX	PURGE+11*, PURGE+12, PURGE+13
B	LOINC~, LOINC+3, LOINC+5
D	DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4, PURGE+12*, PURGE+13
DA	LABTYPE+3!, CONTINUE+2!, D+3!
>> DFN	PROC+8*, PROC+9, PROC+10, PROC+11, PROC+12
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!
DT	WRITE+6, PURGE+7
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
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*
>> N	PURGE+13*
U	LABTAX+3, D+10, PROC+7, PROC+8, PROC+11, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13 , LAB+17, LOINC+2, LOINC+4, WRITE+5, UID+4, USR+1, LOC+1, PURGE+6
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, 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 , CTR~, CTR+1
>> ZTQUEUED	PROC+1, PROC+21, WRITE+12, WRITE+13, WRITE+14, WRITE+15, EOP+2, PURGE+1

Customize PDF page

Package: Patient Care Component Surveillance

Routine: APCSCERT

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: