Routine: APCDALGR

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Kernel	2	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	DD^%DT ^DIR
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT
Patient Care Component Reports	1	$$START1^APCLDF

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HEAD
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
PROC1	;
USR()	;EP - Return name of current user from ^VA(200.
START	;
CTR(X,Y)	;EP - Center X in a field Y wide.
GETDATES	;
XIT	;
HEAD1	;
XTMP(N,T)	;EP
PRINT	;
DONE	;
PROC	;EP - entry point for processing
LASTVD(P,BDATE,EDATE)	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2
HOME^%ZIS	START+2
$$START1^APCLDF	LASTVD+3
$$DOB^AUPNPAT	PRINT+8
$$HRN^AUPNPAT	PRINT+8
^DIR	BD+2, HEAD+1
$$ICDDX^ICDEX	PROC1+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PRINT+12
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	BD+6, XTMP+2
$$FMTE^XLFDT	LASTVD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+3
Function Call: WRITE	Prompt: "***** LIST OF PATIENTS WITH ALLERGIES ON PROBLEM LIST *****",! Line Location: START+4
Function Call: WRITE	Prompt: "This report will produce a list of patients who have an allergy or NKA",! Line Location: START+5
Function Call: WRITE	Prompt: "entered on the PCC Problem List.",!,"The pharmacy staff can use this list to add these allergies " Line Location: START+6
Function Call: WRITE	Prompt: !,"into the Allergy Tracking module. When you have finished processing this list" Line Location: START+7
Function Call: WRITE	Prompt: !,"you can then run the Option 'List Patients w/Allergies entered in a Date Range'" Line Location: START+8
Function Call: WRITE	Prompt: !,"to pick up any allergies entered onto the Problem list after you" Line Location: START+9
Function Call: WRITE	Prompt: !,"ran this report. Deceased patients and patients with inactive charts" Line Location: START+10
Function Call: WRITE	Prompt: !,"are not included on this list." Line Location: START+11
Function Call: WRITE	Prompt: !!,"This list can be very long at sites with many patients and whose" Line Location: START+12
Function Call: WRITE	Prompt: !,"providers have been maintaining up to date problem lists." Line Location: START+13
Function Call: WRITE	Prompt: !,"In order to make the list more manageable at those sites you will be" Line Location: START+14
Function Call: WRITE	Prompt: !,"able to limit the list to just those patients seen in the past N years.",!! Line Location: START+15
Function Call: WRITE	Prompt: !,"The report should list all patients seen in the past N years.",!,"Enter the number of years." Line Location: BD+1
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?72,"Page ",APCDPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: "PATIENT NAME",?31,"CHART #",?45,"DOB",!,APCD80D Line Location: HEAD1+6
Routine Call	%ZIS Line Location: START+2
Routine Call	DIR Line Location: BD+2 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+4
^AUPNPROB - [#9000011]	PROC1+3, PROC1+7, PROC1+8, PROC1+26
^AUPNPROB("AC"	PROC1+2
^AUPNVPRV("AD"	LASTVD+9
^AUPNVSIT - [#9000010]	LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11
^AUPNVSIT("AC"	LASTVD+1
^AUTNPOV - [#9999999.27]	PROC1+26
^DIC(4 - [#4]	LOC+1, HEAD1+3
^DPT - [#2]	PRINT+8
^TMP($J	LASTVD+2!, LASTVD+4, LASTVD+5
^VA(200 - [#200]	USR+1, HEAD1+2
^XTMP(	XTMP+2*
^XTMP("APCDALGR"	PROC1+2*, PRINT+4, PRINT+6, PRINT+11, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5
$$LASTVD	PROC1+1
DONE	PRINT+4
HEAD	PRINT+4, PRINT+5, PRINT+7
HEAD1	HEAD
PROC1	PROC+4
XIT	START+1, BD+3
XTMP	PROC+2

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LASTVD+3*
>> APCD80D	PRINT+1*, HEAD1+6
>> APCDBD	BD+6*, PROC1+1, PRINT+2
>> APCDBDD	PRINT+2*, HEAD1+5
>> APCDBT	PROC+1*
APCDBTH	PROC+1*, PROC1+2, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDED	BD+5*, PROC1+1, PRINT+2
>> APCDEDD	PRINT+2*, HEAD1+5
>> APCDET	PROC+3*
>> APCDICD	PROC1+5*, PROC1+6, PROC1+10, PROC1+11, PROC1+12, PROC1+13, PROC1+14, PROC1+15, PROC1+16, PROC1+17 , PROC1+18, PROC1+19, PROC1+20, PROC1+21, PROC1+22, PROC1+23, PROC1+24
APCDJOB	PROC+1*, PROC1+2, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDP	PROC1+3, PROC1+4, PROC1+5, PRINT+11, PRINT+12
>> APCDPG	PRINT+3, HEAD, HEAD1+1, HEAD1+2
>> APCDQ	PRINT+6, PRINT+7, PRINT+11, HEAD+1*
>> APCDSNKA	PROC1+9, PROC1+26
>> APCDTOT	PROC+1*
>> APCDX	PROC1+2*, PROC1+3, PROC1+7, PROC1+8, PROC1+26
>> APCDYR	BD+4*
>> B	LASTVD+3*
BDATE	LASTVD~, LASTVD+3
DA	BD+2!
>> DFN	PROC+4, PROC1+1, PROC1+2, PRINT+6, PRINT+8, PRINT+11
DIR	BD+2!, HEAD+1!
DIR("A"	BD+2*
DIR("B"	BD+2*
DIR(0	BD+2, HEAD+1
>> DIRUT	BD+3
DT	BD+5, BD+6, XTMP+2
>> DTOUT	HEAD+1
DUZ	USR+1, HEAD1+2
DUZ(2	PRINT+8, LOC+1, HEAD1+3
>> E	LASTVD+3*
EDATE	LASTVD~, LASTVD+3
>> G	PROC1+2, PROC1+10, PROC1+11, PROC1+12, PROC1+13, PROC1+14, PROC1+15, PROC1+16, PROC1+17, PROC1+18 , PROC1+19, PROC1+20, PROC1+21, PROC1+22, PROC1+23, PROC1+24, PROC1+26, LASTVD+5, LASTVD+12*, LASTVD+14
IO	HEAD+1
IO(0	HEAD+1
IOF	START+2, START+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT+7
IOST	HEAD+1
N	XTMP~, XTMP+1, XTMP+2, PROC1+26*
P	LASTVD~, LASTVD+1, LASTVD+3
T	XTMP~, XTMP+2
U	XTMP+2, PROC1+3, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+26, LASTVD+5, LASTVD+7, LASTVD+8 , LASTVD+10, LASTVD+11, PRINT+8, USR+1, LOC+1, HEAD1+2, HEAD1+3
>> V	LASTVD+5*, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, LASTVD+10, LASTVD+11
X	LASTVD+5, CTR~, CTR+1, HEAD1+4, HEAD1+5*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+4, BD+6, PRINT+2*, CTR~, CTR+1, HEAD+1

Customize PDF page

Package: Patient Care Component

Routine: APCDALGR

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: