Routine: APCLCR1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Kernel	2	$$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR
Patient Care Component Reports	2	(DONE,XTMP)^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
LOC	;
ERR
DEMO	;
DISC	;
DONE	;
PRINT	;EP - called from xbdbque
V1	;
COVPAGE	;
INFORM	;
HEAD
END	;
ZIS	;
ED	;
O	;
START	;
CLINIC	;
XIT	;
T	;taxonomy - call qman interface
V	; Run by visit date
PROC1	;
HEAD1	;
S	;all communities within APCLSU su
GETDATES	;
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
DD^%DT	BD+4
C^%DTC	ED+5
PEP^AMQQGTX0	CLINIC+2, DISC+2, T+3
DONE^APCLOSUT	DONE+1
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	PROC1+3
DEMOCHK^APCLUTL	DEMO+1
^DIC	CLINIC+1, DISC+1, O+1, S+1, T+2
^DIR	BD+2, ED+1, LOC+3, HEAD+1
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	S+1
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMTE^XLFDT	COVPAGE+3, HEAD1+2, HEAD1+4
$$CJ^XLFSTR	COVPAGE+2, COVPAGE+3, HEAD1+3, HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8
$$REPEAT^XLFSTR	HEAD1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+1
Function Call: WRITE	Prompt: !! 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: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: DISC+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,"This report will list a count of all visits to clinics that" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"are within a taxonony of clinics you identify. The report" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"will be a tally of all primary and secondary providers" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"on those visits. Only those provider disciplines that are" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"within the discipline taxonomy you select will be talled." Line Location: INFORM+6
Function Call: WRITE	Prompt: !!,"No visits to report.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"Total PCC Primary Provider Workload Count:",?45,$J($G(APCLPSCT("P")),7) Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Total PCC Secondary Provider Workload Count:",?45,$J($G(APCLPSCT("S")),7) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"Total PCC Provider Workload Count:",?45,$J(($G(APCLPSCT("P"))+$G(APCLPSCT("S"))),7) Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,"Total Number of Visits: ",?45,$J(APCLVCNT,7) Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDERS",?35,"# OF VISITS",! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,"SECONDARY PROVIDERS",?35,"# OF VISITS",! Line Location: PRINT+20
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Tally of Selected Primary and Secondary Providers for selected Clinic Visits",80),! Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Visit Dates: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED),80),! Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !!,"Locations: ALL" Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !!,"Locations:" Line Location: COVPAGE+5
Function Call: WRITE	Prompt: @IOF,!,"Cover page (con't)",!! Condition for execution: $Y>(IOSL-2) Line Location: COVPAGE+6
Function Call: WRITE	Prompt: !?10,$P(^DIC(4,X,0),U) Line Location: COVPAGE+6
Function Call: WRITE	Prompt: !!,"Clinics: ALL" Line Location: COVPAGE+7
Function Call: WRITE	Prompt: !!,"Clinics:" Line Location: COVPAGE+8
Function Call: WRITE	Prompt: @IOF,!,"Cover page (con't)",!! Condition for execution: $Y>(IOSL-2) Line Location: COVPAGE+9
Function Call: WRITE	Prompt: !?10,$P(^DIC(40.7,X,0),U) Line Location: COVPAGE+9
Function Call: WRITE	Prompt: !!,"Disciplines: ALL" Line Location: COVPAGE+10
Function Call: WRITE	Prompt: !!,"Disciplines:" Line Location: COVPAGE+11
Function Call: WRITE	Prompt: @IOF,!,"Cover page (con't)",!! Condition for execution: $Y>(IOSL-2) Line Location: COVPAGE+12
Function Call: WRITE	Prompt: !?10,$P(^DIC(7,X,0),U) Line Location: COVPAGE+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: $$CJ^XLFSTR("TALLY OF SELECTED PRIMARY AND SECONDARY PROVIDERS FOR SELECTED CLINIC VISITS",80),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Visit Dates: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED),80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CJ^XLFSTR("FOR: ALL Locations",80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CJ^XLFSTR("FOR: "_$P(^DIC(4,$O(APCLLOC(0)),0),U),80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("FOR: "_$P(^AUTTSU(APCLSU,0),U)_" Service Unit",80),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: $$CJ^XLFSTR("FOR: A taxonomy or selected set of locations",80),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",80),! Line Location: HEAD1+9
Function Call: WRITE	Prompt: ! Line Location: O+1
Function Call: WRITE	Prompt: !!,"Gathering up all the facilities..." Line Location: S+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: T+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ALL locations is NOT an option with this report",! Line Location: T+5
Routine Call	DIC Line Location: CLINIC+1 DISC+1 O+1 S+1 T+2
Routine Call	DIR Line Location: BD+2 ED+1 LOC+3 HEAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	PROC1+11, PROC1+16
^AUPNVPRV("AD"	PROC1+10
^AUPNVSIT - [#9000010]	V1+2
^AUPNVSIT("B"	V+1, V1+2
^AUTTLOC - [#9999999.06]	PRINT+17, PRINT+28, S+5
^AUTTSU - [#9999999.22]	HEAD1+7
^DIC(4 - [#4]	COVPAGE+6, HEAD1+6
^DIC(40.7 - [#40.7]	COVPAGE+9
^DIC(7 - [#7]	COVPAGE+12
^VA(200 - [#200]	PROC1+13, PROC1+18, PROC1+19
^XTMP("APCLCR1"	PROC+2!, PROC1+18, PROC1+19, PROC1+20, PROC1+21*, PRINT+4, PRINT+10, PRINT+11, PRINT+13, PRINT+15 , PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2!

Label References

Name	Line Occurrences
@(	LOC+7
CLINIC	LOC+6, DISC+3
COVPAGE	PRINT+1
DISC	DEMO+2
DONE	PRINT+4
ED	ED+3
GETDATES	LOC+4, CLINIC+3
HEAD	PRINT+3, PRINT+12, PRINT+16, PRINT+23, PRINT+27
HEAD1	HEAD
INFORM	START+4
LOC	LOC+8
PROC1	V1+2
T	T+5
V1	V+1
XIT	START+2, BD+3, ED+2, CLINIC+1, DISC+1, DEMO+5

Naked Globals

Name	Field # of Occurrence
^(0	V1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLBD	BD+4*, ED+3, ED+5, COVPAGE+3, HEAD1+4
>> APCLBDD	BD+4*
>> APCLBT	PROC+1*
>> APCLBTH	START+3*, PROC+2, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PRINT+4, PRINT+10, PRINT+11, PRINT+13 , PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2
>> APCLCLIN	PROC1+6*, PROC1+7, PROC1+8
APCLCLNT	CLINIC+3, CLINIC+4!, COVPAGE+7, COVPAGE+8
APCLCLNT(	PROC1+8, COVPAGE+9
APCLCLNT("*"	CLINIC+4
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+3
APCLDISP	DISC+3, DISC+4!, PROC1+15, COVPAGE+10, COVPAGE+11
APCLDISP(	PROC1+15, COVPAGE+12
APCLDISP("*"	DISC+4
>> APCLED	ED+4*, V+1, COVPAGE+3, HEAD1+4
>> APCLET	END+1*
>> APCLJOB	START+3*, PROC+2, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PRINT+4, PRINT+10, PRINT+11, PRINT+13 , PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2
APCLLOC	LOC+1!, LOC+6!, PROC1+5, COVPAGE+4, COVPAGE+5, HEAD1+5, T+1!, T+4, T+5!
APCLLOC(	PROC1+5, COVPAGE+6, O+2, S+5, T+6*
APCLLOC("*"	T+5
APCLLOC(0	HEAD1+6
APCLLOCT	LOC+1!, LOC+5*, LOC+6, LOC+7, PRINT+14, PRINT+25, HEAD1+6, HEAD1+7, HEAD1+8
>> APCLLOE	PROC1+2*, PROC1+19
>> APCLODAT	V+1*, V1+2
>> APCLPG	PRINT+2, HEAD, HEAD1+1, HEAD1+2
APCLPSCT	PROC+4!
APCLPSCT(	PROC1+17*
APCLPSCT("P"	PRINT+5, PRINT+7
APCLPSCT("S"	PRINT+6, PRINT+7
APCLQ	LOC+1!, LOC+8, O+1, S+2, T+2, T+4
APCLQUIT	PRINT+2!, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PRINT+16, PRINT+21, PRINT+22, PRINT+23, PRINT+26 , PRINT+27, HEAD+1*
>> APCLSD	ED+5*, V+1
APCLSITE	START+1!
>> APCLSU	HEAD1+7, S+3*
>> APCLVCNT	PROC+4, PROC1+21, PRINT+8
>> APCLVDFN	V1+2*, PROC1+10, PROC1+20, PROC1+21
>> APCLVREC	V1+2*, PROC1+2, PROC1+3, PROC1+6
>> APCLX	PROC1+10, PROC1+11, PROC1+16, PRINT+10, PRINT+11, PRINT+13, PRINT+15, PRINT+17, PRINT+21*, PRINT+22 , PRINT+24, PRINT+26, PRINT+28
>> APCLY	PRINT+11, PRINT+13, PRINT+15, PRINT+17, PRINT+22, PRINT+24, PRINT+26, PRINT+28
>> APCLZ	PRINT+15, PRINT+17, PRINT+26, PRINT+28
>> D	PROC1+13*, PROC1+14, PROC1+15
DA	LOC+3!, CLINIC+1!, DISC+1!, O+1!, T+2!
DIC	CLINIC+1!, DISC+1!, O+1!, S+1!, T+2*!
DIC("A"	O+1, S+1
DIC("B"	S+1*
DIC("S"	CLINIC+1, DISC+1, T+2*
DIC(0	CLINIC+1, DISC+1, O+1, S+1, T+2*
DIR	BD+2!, ED+1!, LOC+3!, HEAD+1!
DIR("?"	BD+2*
DIR("A"	BD+2, ED+1, LOC+2, LOC+3
DIR("B"	LOC+2, LOC+3
DIR(0	BD+2, ED+1, LOC+2, HEAD+1
>> DIRUT	BD+2, BD+3, ED+1, ED+2, LOC+4
DT	HEAD1+2
>> DTOUT	HEAD+1
>> DUOUT	BD+2, ED+1
DUZ(2	START+1, S+1
IO	HEAD+1
IO(0	HEAD+1
IOF	INFORM+1, COVPAGE+1, COVPAGE+6, COVPAGE+9, COVPAGE+12, HEAD1+1
IOSL	PRINT+12, PRINT+16, PRINT+23, PRINT+27, COVPAGE+6, COVPAGE+9, COVPAGE+12
IOST	HEAD+1
>> L	PROC1+2*, PROC1+4, PROC1+5
>> P	PROC1+16*, PROC1+17, PROC1+18, PROC1+19
U	V1+2, PROC1+2, PROC1+3, PROC1+6, PROC1+11, PROC1+13, PROC1+16, PROC1+18, PROC1+19, PRINT+17 , PRINT+28, COVPAGE+6, COVPAGE+9, COVPAGE+12, HEAD1+6, HEAD1+7, S+5
>> X	ED+5, CLINIC+1, DISC+1, COVPAGE+6, COVPAGE+9, COVPAGE+12, S+5, T+2, T+6
>> X1	ED+5*
>> X2	ED+5*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
>> Y	BD+4, ED+3, ED+4, LOC+5, CLINIC+1, CLINIC+2, DISC+1, DISC+2, PROC1+11*, PROC1+12 , PROC1+13, PROC1+18, PROC1+19, HEAD+1, O+1, O+2, S+2, S+3, S+5, T+2 , T+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCR1

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: