Routine: APCLT1

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Patient Care Component Reports	3	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL $$PRIMPROV^APCLV
IHS VA Utilities	1	^XBDBQUE
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIC ^DIR

Patient Care Component Reports

XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL $$PRIMPROV^APCLV

IHS VA Utilities

^XBDBQUE

Kernel

($$FMDIFF,$$FMTE)^XLFDT

PCC Medical Query

PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SET
END	;
ZIS	;
APWI	;ask appt or walk ins ;IHS/TUCSON/LAB - added this subroutine patch 1 05/01/97
ED	;get ending date
CLINIC1	;
V	; Run by visit date
PROC1	;
V1	;
CLINIC	;
GETDATES	;
EXIT	;
DEMO	;
CALC	;calculate # mins waiting, use appt or arr, whichever is later
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+6
C^%DTC	ED+5
PEP^AMQQGTX0	CLINIC1+2
XTMP^APCLOSUT	PROC+4
$$DEMO^APCLUTL	PROC1+2
DEMOCHK^APCLUTL	DEMO+1
$$PRIMPROV^APCLV	PROC1+4
^DIC	CLINIC1+1
^DIR	BD+1, ED+1, CLINIC+2, APWI+2
^XBDBQUE	DEMO+4
$$FMDIFF^XLFDT	CALC+2, SET+6
$$FMTE^XLFDT	CALC+5, CALC+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"*** WAITING TIMES BY CLINIC AND PROVIDER ***",!! Line Location: APCLT1+7
Function Call: WRITE	Prompt: !,"This report will display minimum, maximum and mean waiting times by provider,",!,"and clinic. In order to have any data for this report, you must be entering",!,"the time the primary provider saw the patient.",!! Line Location: APCLT1+8
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: CLINIC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+1
Routine Call	DIC Line Location: CLINIC1+1
Routine Call	DIR Line Location: BD+1 ED+1 CLINIC+2 APWI+2

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	PROC1+12
^AUPNVPRV("AD"	PROC1+3, PROC1+12
^AUPNVSIT - [#9000010]	V1+1
^AUPNVSIT("B"	V+1, V1+1
^DPT - [#2]	CALC+5, CALC+7
^XTMP("APCLT1"	PROC+3!, V+2, V+3, V+4, PROC1+13, PROC1+14, CALC+5, CALC+7, CALC+9, CALC+10 , SET, SET+1, SET+2, SET+3, SET+4, SET+5*, SET+7, SET+8, SET+9, SET+10 , SET+11, SET+12

Name	Line Occurrences
APWI	CLINIC+4, DEMO+2
BD	ED+2, ED+3, CLINIC+3
CLINIC	CLINIC1+3, APWI+3
EXIT	APCLT1+9, BD+2, CLINIC1+1, DEMO+5
PROC1	V1+1
V1	V+1

Name	Field # of Occurrence
^(	PROC1+13, PROC1+14, CALC+9, CALC+10, SET, SET+1, SET+2, SET+3, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+12
^(0	V1+1, PROC1+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDT	EXIT+1!
APCLAPPT	EXIT+1!, PROC1+10*, PROC1+16, CALC+1, SET+6
APCLAPWI	APWI+1, APWI+4, EXIT+1!, PROC1+9, PROC1+16
APCLBD	BD+3*, ED+1, ED+5, ED+6, EXIT+1!
APCLBDD	ED+6*, EXIT+1!
>> APCLBT	PROC+2*
APCLBTH	EXIT+1!, PROC+2*, PROC+3, V+2, V+3, V+4, PROC1+13, PROC1+14, CALC+5, CALC+7 , CALC+9, CALC+10, SET, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+12
APCLCI	EXIT+1!, PROC1+11*, PROC1+17, CALC+1, SET+6
>> APCLCLN	PROC1+6*, PROC1+7, PROC1+13, PROC1+14, CALC+9, CALC+10, SET, SET+1, SET+2, SET+3 , SET+4, SET+5, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12
APCLCLNT	CLINIC+1!, CLINIC1+3, CLINIC1+4!, EXIT+1!, PROC1+7
APCLCLNT(	PROC1+7
APCLCLNT("*"	CLINIC1+4
APCLCN	EXIT+1!
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+2
APCLED	ED+4*, ED+6, EXIT+1!, V+1
APCLEDD	ED+6*, EXIT+1!
>> APCLET	END+1*
APCLJOB	EXIT+2!, PROC+2*, PROC+3, V+2, V+3, V+4, PROC1+13, PROC1+14, CALC+5, CALC+7 , CALC+9, CALC+10, SET, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+12
APCLLENG	EXIT+2!
APCLLOCT	EXIT+2!
APCLODAT	EXIT+2!, V+1*, V1+1
APCLPG	EXIT+2!
APCLPP	EXIT+2!, PROC1+4*, PROC1+5, PROC1+12, PROC1+13, CALC+9, SET, SET+2, SET+4, SET+7 , SET+9, SET+11
APCLPPS	EXIT+2!, PROC1+12*, PROC1+18, PROC1+19, CALC+2, CALC+5, CALC+7
APCLQUIT	EXIT+2!
APCLSD	ED+5*, EXIT+1!, EXIT+2!, V+1
APCLSEC	EXIT+2!, CALC+2*, CALC+5, CALC+7, SET, SET+1, SET+2, SET+3, SET+4, SET+5 , SET+11, SET+12
APCLTOT	EXIT+2!
APCLTOTV	EXIT+2!, PROC+1*
APCLVIEN	EXIT+2!, V1+1*, PROC1+3, PROC1+4, PROC1+12, CALC+5, CALC+7
APCLVREC	EXIT+2!, V1+1*, PROC1+1, PROC1+2, PROC1+6, PROC1+9, PROC1+10, PROC1+11, CALC+5, CALC+7
APCLVT	EXIT+1!
APCLX	EXIT+2!, CALC+1*, CALC+2
>> C	V+2*, V+3, V+4
DA	CLINIC1+1!, APWI+2!
DIC	CLINIC1+1*!
DIC("S"	CLINIC1+1*
DIC(0	CLINIC1+1*
DIR	BD+1!, ED+1!, CLINIC+2!, APWI+2!
DIR("A"	BD+1, ED+1, CLINIC+2, APWI+2
DIR("B"	APWI+2*
DIR(0	BD+1, ED+1, CLINIC+2, APWI+2
>> DIRUT	BD+1, BD+2, ED+1, ED+3, CLINIC+2*, CLINIC+3, APWI+3
>> DUOUT	BD+1, ED+1, CLINIC+2
>> P	V+3*, V+4
>> S	V+4*
U	V1+1, PROC1+1, PROC1+2, PROC1+6, PROC1+9, PROC1+10, PROC1+11, PROC1+12, PROC1+13, PROC1+14 , CALC+5, CALC+7, CALC+9, CALC+10, SET, SET+1, SET+2, SET+3, SET+4, SET+5 , SET+7, SET+8, SET+9, SET+10, SET+11, SET+12
>> X	ED+5, CLINIC1+1, V+4, PROC1+12, SET+6, SET+7, SET+8, SET+9, SET+10
>> X1	ED+5*
>> X2	ED+5*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
>> Y	BD+3, ED+1, ED+2, ED+4, ED+6, CLINIC+4, CLINIC1+1, CLINIC1+2, APWI+4

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLT1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: