Routine: APCLSMUN

Package	Total	Call Graph
Patient Care Component Reports	5	ALLV^APCLAPIU $$DATE^APCLSILI HL7^APCLSMU2 $$DEMO^APCLUTL ($$CLINIC,$$VDTM)^APCLV
VA Fileman	5	^%DT FILE^DICN ^DIE IXALL^DIK $$GET1^DIQ
Kernel	3	($$DEL,$$LIST)^%ZISH ($$FMADD,$$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
IHS VA Utilities	2	^XBFMK EN^XBVK

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLSMU APCLSMU2

Entry Points

Name	Comments	DBIA/ICR reference
PURGE	;
JDATE(D)	;EP - get date
PROC	;EP - called from xbdbque
UID(APCLA)	;Given DFN return unique patient record id.
START	;
DATEXP	;-- ask the date range
ERV(H)	;is there an ER/UC Ambulatory visit within 2 days
LOG(LOG,VISIT,STAT)	;EP - SET VISIT EXPORT MULTIPLE OF LOG
EXIT	;clean up and exit
PROC1	;
DATE(D)	;EP
GENHL7	;

External References

Name	Field # of Occurrence
^%DT	DATEXP+6, DATEXP+10
$$DEL^%ZISH	PURGE+13
$$LIST^%ZISH	PURGE+9
ALLV^APCLAPIU	ERV+8
$$DATE^APCLSILI	PURGE+8
HL7^APCLSMU2	GENHL7+9
$$DEMO^APCLUTL	PROC+25, PROC1+6
$$CLINIC^APCLV	ERV+13, PROC1+9
$$VDTM^APCLV	ERV+5, ERV+16
FILE^DICN	PROC+3
^DIE	PROC+42
IXALL^DIK	PROC+41
$$GET1^DIQ	START+10, UID+4, DATEXP+4
^XBFMK	EXIT+2
EN^XBVK	START+7, EXIT+1, DATEXP+1
$$FMADD^XLFDT	START+16, START+17, START+20, START+21, START+22, PROC+7, PROC+15, PROC+32, ERV+6, PURGE+7
$$FMTE^XLFDT	JDATE+3
$$NOW^XLFDT	PROC+3
$$UP^XLFSTR	JDATE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,APCLERV," H: ",APCLV Line Location: PROC+29
Routine Call	DIE Line Location: PROC+42

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLMUSS - [#9001003.42]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLILIC(1	START+11
^APCLMUSS - [#9001003.42]	START+14, START+19, LOG+2, LOG+3, LOG+4
^APCLMUSS("C"	PROC+12, PROC+27, PROC+36
^AUPNPAT - [#9000001]	UID+2
^AUPNVSIT - [#9000010]	PROC+10, PROC+11, PROC+18, PROC+19, PROC+20, PROC+21, ERV+4, ERV+12, PROC1+1, PROC1+2 , PROC1+7, PROC1+8
^AUPNVSIT("ADLM"	PROC+8, PROC+9, PROC+16, PROC+17
^AUPNVSIT("AVDEL"	PROC+33, PROC+35
^AUTTLOC - [#9999999.06]	PURGE+6
^AUTTSITE(1	START+8, UID+4, PURGE+3, PURGE+6, DATEXP+2
^DPT - [#2]	PROC+23, PROC+24, PROC1+4, PROC1+5
^XTMP("APCLMUSS"	PROC+28, PROC1+12, GENHL7+8, EXIT+3!
^XTMP("APCMUSS"	PROC+1!
^XTV(8989.3 - [#8989.3]	PURGE+4

Label References

Name	Line Occurrences
$$ERV	PROC+26
EXIT	PROC+44, DATEXP+7, DATEXP+11
GENHL7	PROC+39
PROC	DATEXP+14
PROC1	PROC+13, PROC+38
PURGE	PROC+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATEXP+5, DATEXP+9
>> %DT("A"	DATEXP+5, DATEXP+9
A	JDATE+2~, JDATE+3*, JDATE+4
ADMD	ERV+1~, ERV+5*, ERV+6, ERV+8, ERV+16
>> APCL1ST	START+11*, START+20, START+21
APCLA	UID~, UID+1, UID+2, UID+4
>> APCLASU	PURGE+6*, PURGE+9
>> APCLBD	START+16, START+20, START+21, PROC+3, PROC+7, PROC+15, PROC+32, DATEXP+8
>> APCLCLIN	PROC1+9*, PROC1+10, PROC1+11
APCLDA	GENHL7+5~
>> APCLDBID	START+10, DATEXP+4
APCLDIR	PURGE+2!, PURGE+3, PURGE+4, PURGE+5, PURGE+9, PURGE+13
>> APCLDT	PURGE+7, PURGE+8, PURGE+13
>> APCLED	START+17, START+22, PROC+3, PROC+8, PROC+16, PROC+33, DATEXP+12*
>> APCLERV	PROC+26*, PROC+27, PROC+28
>> APCLEXTY	START+12, PROC+3, DATEXP+13
APCLFILE	PROC+42, GENHL7+7*, PURGE+2!, PURGE+9
APCLFILE(	PURGE+11, PURGE+12, PURGE+13
APCLFILE(""	PURGE+10
>> APCLFLST	PURGE+9*
>> APCLL	START+19*, START+20, START+21
>> APCLLAST	START+12, START+14, START+15, START+19
>> APCLLOG	PROC+5*, PROC+41, PROC+42
>> APCLM	PURGE+13*
APCLPAT	GENHL7+5~
APCLREC	GENHL7+5~
>> APCLRS	PROC+12, PROC+27, PROC+28, PROC+37, PROC1+7, PROC1+8, PROC1+10, PROC1+11*, PROC1+12
APCLSEVN	GENHL7+5~
>> APCLSITE	START+8, START+9, START+10, PROC+3, DATEXP+2, DATEXP+3, DATEXP+4
>> APCLV	PROC+9, PROC+10, PROC+11, PROC+12, PROC+17, PROC+18, PROC+19, PROC+20, PROC+21, PROC+26 , PROC+28, PROC+35*, PROC+36, PROC1+1, PROC1+2, PROC1+7, PROC1+8, PROC1+9, PROC1+12
>> APCLVCNT	PROC+42, GENHL7+7*
>> APCLVD	PROC+7, PROC+8, PROC+9, PROC+15, PROC+16, PROC+17, PROC+32, PROC+33, PROC+35
APCLVL	ERV+1~, ERV+7!
APCLVL(	ERV+10, ERV+11
APCLVL(0	ERV+9
>> APCLX	PURGE+11*, PURGE+12, PURGE+13
BD	ERV+1~, ERV+6*, ERV+8
>> C	ERV+13*, ERV+14
D	ERV+1~, DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4, PURGE+12*, PURGE+13
D0	PROC+3!
DA	PROC+3!, PROC+41, PROC+42!
>> DFN	PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6
DIC	PROC+3*!
DIC("DR"	PROC+3*
DIC(0	PROC+3*
DIE	PROC+42*!
>> DIK	PROC+41*
DO	PROC+3!
>> DR	PROC+42*
DT	START+16, START+17, START+22, PURGE+7
DUZ(2	START+9, DATEXP+3
EVDT	GENHL7+6~
G	ERV+1~, ERV+3, ERV+17, ERV+18
H	ERV~, ERV+4, ERV+5
HVST	GENHL7+6~
IVDT	GENHL7+6~
LOG	LOG~, LOG+1, LOG+2, LOG+3, LOG+4
>> N	PURGE+13*
P	ERV+1~, ERV+4*, ERV+8
STAT	LOG~, LOG+4
T	ERV+1~
U	START+8, START+11, START+14, START+19, PROC+11, PROC+19, PROC+20, PROC+21, PROC+24, PROC+28 , ERV+4, ERV+11, ERV+12, PROC1+2, PROC1+5, PROC1+7, PROC1+8, UID+4, PURGE+6, DATEXP+2
V	ERV+1~, ERV+11*, ERV+12, ERV+13, ERV+16, ERV+17
VISIT	LOG~, LOG+4
X	START+14, PROC+3, ERV+1~, ERV+10*, ERV+11
>> Y	PROC+4, PROC+5, DATEXP+7, DATEXP+8, DATEXP+11, DATEXP+12
>> ZTQUEUED	PURGE+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSMUN

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: