Routine: APCLD99

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ^XBFMK ^XBGSAVE EN^XBVK
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$LOW^XLFSTR
Patient Care Component Reports	2	TAXCHK^APCLD999 DEMOCHK^APCLUTL
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT

Package	Total	Caller Graph
Diabetes Registry	1	BDMVRL3
Patient Care Component Reports	1	APCLD990

Entry Points

Name	Comments	DBIA/ICR reference
RAND	;random sample or not
BEGIN	;EP - called from option
P1	;
ZIS	;
FLAT	;
CC	;current community
DEMO	;
PCP	;
C	;get register, status, random or not
XIT1	;
P	;
S	; Get patient name or cohort
GETDATES	;
XIT	;
TIME	;PEP - CALLED FROM BDM Get fiscal year or time frame
C1	;
WRITEF	;EP write flat file
TYPE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
IF	;PEP - called from BDM PEP - called from BDM indivdual or epi

External References

Name	Field # of Occurrence
TAXCHK^APCLD999	BEGIN+1
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	XIT+2
^DIC	BEGIN+6, P1+1, S+3, PCP+6, CC+5, C+3
^DIR	TYPE+4, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3, RAND+7, TIME+4, FLAT+2 , FLAT+12
^XBDBQUE	DEMO+5
^XBFMK	XIT+2
^XBGSAVE	WRITEF+10
EN^XBVK	XIT+1
$$FMADD^XLFDT	TIME+9
$$FMTE^XLFDT	TIME+8, TIME+10
$$LOW^XLFSTR	FLAT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$$CTR("ASSESSMENT OF DIABETES CARE, 1999") Line Location: BEGIN+3
Function Call: WRITE	Prompt: !!,$$CTR("PCC DIABETES AUDIT") Line Location: BEGIN+4
Function Call: WRITE	Prompt: !! Line Location: BEGIN+5
Function Call: WRITE	Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data." Line Location: BEGIN+7
Function Call: WRITE	Prompt: !,"No patients selected" Line Location: P1+2
Function Call: WRITE	Prompt: !,"No template selected." Line Location: S+4
Function Call: WRITE	Prompt: !!,"There are ",APCLCNT," patients in the ",$P(^DIBT(+Y,0),U)," template/cohort.",! Line Location: S+6
Function Call: WRITE	Prompt: !,"You have selected a register or template/cohort of patients. ",!,"You can run the audit just for the subset of patients in the cohort or register",!,"who live in a particular community or have a particular primary care provider.",! Line Location: PCP+2
Function Call: WRITE	Prompt: !!,C," patients will be used in the audit.",! Line Location: PCP+11
Function Call: WRITE	Prompt: ! Line Location: CC+2
Function Call: WRITE	Prompt: !!,C," patients will be used in the audit.",! Line Location: CC+10
Function Call: WRITE	Prompt: !,"No register selected." Line Location: C+4
Function Call: WRITE	Prompt: !,"No patients with that status in that register!" Line Location: C1+5
Function Call: WRITE	Prompt: !!,"There are ",APCLCNT," patients in the ",$P(^ACM(41.1,APCLCMS,0),U)," register with a status of ",APCLSTAT,".",!! Line Location: C1+6
Function Call: WRITE	Prompt: !!,"There are ",APCLCNT," patients selected so far to be used in the audit.",! Line Location: RAND+2
Function Call: WRITE	Prompt: !!,"Enter the date of the audit. This date will be considered the ending",!,"date of the audit period. For most data items all data for the period one",!,"year prior to this date will be reviewed.",! Line Location: TIME+3
Function Call: WRITE	Prompt: !!,"Future dates not allowed.",! Line Location: TIME+6
Function Call: WRITE	Prompt: !!,"Invalid format, must be letters and numbers",! Line Location: FLAT+4
Function Call: WRITE	Prompt: !!,"I am going to create a file called ",APCLFILE," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",! Line Location: FLAT+6
Function Call: WRITE	Prompt: "Actually, the file will be placed in the same directory that the data export" Line Location: FLAT+7
Function Call: WRITE	Prompt: !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"******** ",APCLFILE," ********",! Line Location: FLAT+8
Function Call: WRITE	Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",! Line Location: FLAT+9
Function Call: WRITE	Prompt: !,"The records that are generated and placed in file ",APCLFILE Line Location: FLAT+10
Function Call: WRITE	Prompt: !,"are in a format readable by EPI INFO. For a definition of the format",!,"please see your user manual.",! Line Location: FLAT+11
Routine Call	DIC Line Location: BEGIN+6 P1+1 S+3 PCP+6 CC+5 C+3
Routine Call	DIR Line Location: TYPE+4 IF+2 PCP+3 CC+2 C+8 C+12 RAND+3 RAND+7 TIME+4 FLAT+2 FLAT+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	C1+2, C1+3, C1+4
^ACM(41.1 - [#9002241.1]	C1+6
^APCLRECD(10	WRITEF+4
^AUPNPAT - [#9000001]	PCP+9, CC+8
^AUTTCOM - [#9999999.05]	CC+7
^AUTTSITE(1	FLAT+6
^DD(9000001	PCP+6
^DIBT(	S+5, S+6
^TMP("APCLEPI"	WRITEF+2, WRITEF+6
^TMP($J	TYPE+2!, P+1!, S+1!, S+5, PCP+9!, PCP+10, CC+8!, CC+9, C+1!, C1+2! , C1+3, C1+4, C1+5, RAND+1, RAND+5, RAND+6!, RAND+10!, RAND+11!, XIT+3!, WRITEF+1! , WRITEF+4, WRITEF+6*, WRITEF+12!, WRITEF+14!
^VA(200 - [#200]	WRITEF+8
^XTMP("APCLDM99"	TYPE+2!, P+1!, P1+2, P1+4, S+1!, C+1!, RAND+5, RAND+10*, XIT1+1!, WRITEF+15!

Label References

Name	Line Occurrences
$$CTR	BEGIN+3, BEGIN+4
@(	TYPE+7
C	C+9, C+13, C1+5, RAND+4
C1	C+10
CC	S+9, CC+6, C1+9
FLAT	IF+5, FLAT+4
GETDATES	TYPE+5
IF	DEMO+2
P1	P1+5
PCP	S+7, PCP+7, C1+7
RAND	S+11, C1+11
TIME	GETDATES+1, TIME+6
TYPE	TYPE+8, IF+3
XIT	GETDATES+1, DEMO+6
XIT1	GETDATES+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLADAT	TIME+2, TIME+7, TIME+8, TIME+9
>> APCLBDAT	TIME+9*, TIME+10
APCLBTH	BEGIN+9*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+1! , WRITEF+15!
>> APCLCMS	C+2, C+5, C1+2, C1+6
>> APCLCNT	S+5, S+6, C1+2, C1+3, C1+4, C1+6, RAND+1*, RAND+2, RAND+7, RAND+10
>> APCLCOM	CC+7*, CC+8
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDMRG	BEGIN+7, BEGIN+8
>> APCLFILE	FLAT+1, FLAT+5, FLAT+6, FLAT+8, FLAT+10, WRITEF+8
APCLJOB	BEGIN+9*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+1! , WRITEF+15!
>> APCLPCP	PCP+8*, PCP+9
>> APCLPD	S+5*
>> APCLPREP	IF+4*, IF+5, DEMO+3, DEMO+4
>> APCLRBD	TIME+2, TIME+10
>> APCLRED	TIME+2, TIME+8
>> APCLSTAT	C+7, C+14, C1+3, C1+4, C1+6
>> APCLSTP	GETDATES+1, TYPE+1, TYPE+7, TYPE+8, IF+1, IF+5, P+1, P1+2, S+1, S+4 , S+8, S+10, PCP+1, PCP+4, CC+1, CC+3, C+2, C+4, C1+5, C1+8 , C1+10, RAND+9, TIME+1, TIME+5, FLAT+3, FLAT+13, FLAT+14*
>> APCLTYPE	TYPE+3, TYPE+6, TYPE+7
>> C	PCP+10, PCP+11, CC+9, CC+10, RAND+5, RAND+10
DA	TYPE+4!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4!, FLAT+2!, FLAT+12!
DIC	BEGIN+6, P1+1!, S+2!, S+3!, PCP+6!, CC+5!, C+3
DIC("A"	BEGIN+6, S+2, C+3*
DIC("S"	S+2*
DIC(0	BEGIN+6, P1+1, S+3, PCP+6, CC+5, C+3
DIR	TYPE+4!, IF+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4!, FLAT+2! , FLAT+12!
DIR("A"	TYPE+4, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3, RAND+7, TIME+4, FLAT+2 , FLAT+12*
DIR("B"	TYPE+4, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3, FLAT+12
DIR(0	TYPE+4, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3, RAND+7, TIME+4, FLAT+2 , FLAT+12*
>> DIRUT	TYPE+5, IF+2*, IF+3, PCP+4, CC+3, C+9, C+13, RAND+4, RAND+9, TIME+5 , FLAT+3, FLAT+13
DT	TIME+6
>> DUOUT	IF+2
DUZ	WRITEF+8
>> I	RAND+10*
IOF	BEGIN+2
IOM	CTR+1
>> N	RAND+10, WRITEF+4, WRITEF+6*
>> P	PCP+9, CC+8
U	S+6, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4, C1+6, FLAT+6, WRITEF+8
X	PCP+9, PCP+10, CC+8, CC+9, C1+2, C1+3, C1+4, RAND+1, RAND+5, RAND+10 , CTR~, CTR+1, FLAT+4, WRITEF+4, WRITEF+6
>> XBE	WRITEF+9*
XBF	WRITEF+9*, WRITEF+13!
XBFLT	WRITEF+9*, WRITEF+13!
XBFN	WRITEF+8*, WRITEF+13!
XBGL	WRITEF+7*, WRITEF+13!
XBMED	WRITEF+8*, WRITEF+13!
>> XBNS	DEMO+3, DEMO+4
XBQ	WRITEF+9*, WRITEF+13!
>> XBRC	DEMO+3, DEMO+4
>> XBRP	DEMO+3, DEMO+4
>> XBRX	DEMO+3, DEMO+4
XBTLE	WRITEF+8*, WRITEF+13!
Y	BEGIN+7, BEGIN+8, TYPE+6, IF+4, P1+2, P1+3, P1+4, S+4, S+5, S+6 , PCP+5, PCP+7, PCP+8, CC+4, CC+6, CC+7, C+4, C+5, C+10, C+14 , RAND+5, RAND+6, RAND+10, TIME+6, TIME+7, CTR~, CTR+1, FLAT+5, FLAT+14

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLD99

Information

Source Information

Call Graph

Call Graph Total: 11

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: