Routine: APCLCH2

Name	Comments	DBIA/ICR reference
BD	;
PAUSE	;
SET	;EP - ENTRY POINT
ZIS	;
T	;taxonomy - call qman interface
INFORM	;tell user what is going on
ED	;
SET1	;
SU
START	;
S	;all communities within APCLSU su
GETDATES	;
COMM	;
O	;one community
DEMO	;
ASK	; Get community name or cohort
XIT	;
CHECK	;check each community entry for existence of facility identification
CHECK1	;

Name	Field # of Occurrence
C^%DTC	ED+5
XTMP^APCLOSUT	START+3
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	XIT+4
^DIC	SU+1, O+1, ASK+10
^DIR	BD+1, ED+1, COMM+3, PAUSE+1
^XBDBQUE	DEMO+4
^XBFMK	XIT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SU+1
Function Call: WRITE	Prompt: !!,"Enter the time frame of interest.",! Line Location: BD+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"Checking community table for required items..." Line Location: CHECK+2
Function Call: WRITE	Prompt: !,"ALL are okay.",!!,"Be sure to utilize a printer with 132 margin print capability.",! Line Location: CHECK+12
Function Call: WRITE	Prompt: !!,"Since some of the community entries are missing data, I cannot continue.",!,"See your site manager about fixing the community entries.",!,"You may now select other communities or exit the report.",! Line Location: CHECK1+1
Function Call: WRITE	Prompt: !! Line Location: DEMO+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"No communities selected!!",! Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Okay - exiting....try again later" Line Location: ASK+6
Function Call: WRITE	Prompt: !!?5,"DIAGNOSES BY A COMMUNITY'S LOCAL, SECONDARY AND TERTIARY FACILITIES" Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will present a tally of all diagnoses for patients in a community",!,"or communities you select. The report will tally the diagnoses for" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"the community's local, secondary and tertiary facilities. Each community's",!,"report will be 2 pages long, 1 page for outpatient diagnoses and 1 for ",!,"inpatient diagnoses.",!! Line Location: INFORM+5
Routine Call	DIC Line Location: SU+1 O+1 ASK+10
Routine Call	DIR Line Location: BD+1 ED+1 COMM+3 PAUSE+1

FileNo	Call Tags
^AUTTCOM - [#9999999.05]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ASK+13
^AUTTCOM - [#9999999.05]	CHECK+4, CHECK+5, CHECK+6, CHECK+10, S+1
^AUTTCOM("B"	ASK+13
^AUTTLOC - [#9999999.06]	SU
^AUTTSU - [#9999999.22]	SU, COMM+2
^XTMP("APCLCH2"	START+2!, COMM+1!, CHECK+3, O+3, S+1, T+1!, ASK+2, ASK+3, ASK+4, ASK+6! , ASK+12, ASK+13, SET+1, SET+2, SET1+2*

Name	Line Occurrences
@(	COMM+6
ASK	ASK+11, ASK+15
COMM	COMM+7, CHECK1+1, DEMO+2
ED	ED+3
GETDATES	SU+3, SU+4, COMM+4
INFORM	START+4
PAUSE	CHECK+9
SET1	SET+3, SET+4, SET+5, SET+6
XIT	SU+2, BD+2, ED+2, DEMO+5
ZIS	CHECK+12

Name	Field # of Occurrence
^(	SET1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET1+2*
APCL1	XIT+1!, SET+3, SET+4, SET+5, SET+6, SET1+2
APCL2	XIT+1!, SET1+1*, SET1+2
APCL3	XIT+1!, SET+3, SET+4, SET+5, SET+6, SET1+1
APCLBD	BD+3*, ED+3, ED+5, XIT+1!
APCLBDO	XIT+1!
APCLBT	XIT+1!
APCLBTH	START+1*, START+2, COMM+1, CHECK+3, XIT+1!, O+3, S+1, T+1, ASK+2, ASK+3 , ASK+4, ASK+6, ASK+12, ASK+13, SET+1, SET+2, SET1+2
APCLC	XIT+1!, SET+1*, SET+2, SET1+2
APCLCOM	XIT+1!
APCLCOMI	XIT+1!
APCLCOMM	ASK+1!, ASK+7*, ASK+9, ASK+10, ASK+12, ASK+14!
APCLCOMT	COMM+1, COMM+5, COMM+6, XIT+1!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDFN	XIT+1!
APCLDX	XIT+2!
APCLED	ED+4*, XIT+1!
APCLEDO	XIT+2!
APCLER	XIT+1!
APCLET	XIT+2!
APCLF	XIT+2!, SET+2*, SET1+2
APCLI	XIT+2!
APCLJOB	START+1*, START+2, COMM+1, CHECK+3, XIT+2!, O+3, S+1, T+1, ASK+2, ASK+3 , ASK+4, ASK+6, ASK+12, ASK+13, SET+1, SET+2, SET1+2
APCLLFAC	XIT+2!
APCLLOC	XIT+1!
APCLP	XIT+2!
APCLPG	XIT+2!
APCLQUIT	COMM+1!, COMM+7, CHECK+1!, CHECK+3, CHECK+9, PAUSE+2, XIT+1!, O+2, ASK+4, ASK+6
APCLSD	ED+5*, XIT+1!
APCLSFAC	XIT+2!
APCLSU	SU+3, SU+5, COMM+2, XIT+2!, S+1
APCLSUF	SU+3, SU+5, XIT+2!
APCLTFAC	XIT+2!
APCLTYPE	XIT+1!
APCLV	XIT+2!
APCLVCNT	XIT+2!
APCLVLOC	XIT+2!
APCLX	CHECK+3*, CHECK+4, CHECK+5, CHECK+6, CHECK+10, XIT+1!
APCLY	XIT+1!
B	SU*, SU+3, XIT+3!
>> C	CHECK+3, CHECK+8, CHECK+12
DA	ED+1!, COMM+3!, PAUSE+1!
DIC	SU+1!, O+1!, ASK+10*!
DIC("A"	SU, O+1
DIC("S"	ASK+9*
DIC(0	SU+1, O+1, ASK+10*
DIR	BD+1!, ED+1!, COMM+2!, COMM+3!, PAUSE+1!
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, COMM+3, PAUSE+1
DIR("B"	COMM+3*
DIR(0	BD+1, ED+1, COMM+2, PAUSE+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, COMM+4, PAUSE+2
DTIME	ASK+2, ASK+3
>> DUOUT	BD+1, ED+1
DUZ(2	SU
IOF	PAUSE+3, INFORM+2
IOSL	CHECK+9
L	CHECK+4*, CHECK+7, XIT+3!
M	XIT+3!
S	SU, CHECK+4, CHECK+5*, CHECK+7, XIT+3!
T	CHECK+4, CHECK+6, CHECK+7, XIT+3!
U	SU, COMM+2, CHECK+4, CHECK+5, CHECK+6, CHECK+10, S+1, ASK+13
X	SU+2, SU+3, ED+5, XIT+3!, S+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6 , ASK+7, ASK+8, ASK+13, SET1+2
X1	ED+5*, XIT+3!
X2	ED+5*, XIT+3!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	SU+4, SU+5, BD+3, ED+3, ED+4, COMM+5, XIT+3!, O+2, O+3, ASK+11 , ASK+12, ASK+13
Z	XIT+3!, ASK+13*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCH2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: