Routine: APCDALGQ

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

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HEAD
PROC1	;
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
ED	;get ending date
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	ED+1, ED+4, PRINT+2
C^%DTC	ED+4
HOME^%ZIS	START+2
$$START1^APCLDF	LASTVD+3
$$DOB^AUPNPAT	PRINT+8
$$DOD^AUPNPAT	PROC1+1
$$HRN^AUPNPAT	PRINT+8
^DIR	BD+2, ED+1, HEAD+1
$$ICDDX^ICDEX	PROC1+10
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PRINT+12
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	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 ENTERED ONTO THE *****",! Line Location: START+4
Function Call: WRITE	Prompt: " ***** PCC PROBLEM LIST IN A SPECIFIED TIME PERIOD *****" Line Location: START+5
Function Call: WRITE	Prompt: !!,"This report will produce a list of patients who have had allergies entered" Line Location: START+6
Function Call: WRITE	Prompt: !,"onto their problem list in a specified date range. If you are using" Line Location: START+7
Function Call: WRITE	Prompt: !,"this list to populate the Allergy Tracking module you should" Line Location: START+8
Function Call: WRITE	Prompt: !,"first run the Option 'List all patients with Allergies on their" Line Location: START+9
Function Call: WRITE	Prompt: !,"problem list'. You would use that report to enter the allergies" Line Location: START+10
Function Call: WRITE	Prompt: !,"into the Allergy tracking module. When you have finished that list" Line Location: START+11
Function Call: WRITE	Prompt: !,"you can use this list to pick up any allergies entered onto the problem" Line Location: START+12
Function Call: WRITE	Prompt: !,"list after you have ran and processed that list.",! Line Location: START+13
Function Call: WRITE	Prompt: ! Line Location: START+14
Function Call: WRITE	Prompt: !,"Please enter the date range for which allergies have been entered",!,"onto the problem list.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+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 ED+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+4, PROC1+2
^AUPNPROB - [#9000011]	PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+12, PROC1+30
^AUPNPROB("AC"	PROC1+4
^AUPNVPRV("AD"	LASTVD+9
^AUPNVSIT - [#9000010]	LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11
^AUPNVSIT("AC"	LASTVD+1
^AUTNPOV - [#9999999.27]	PROC1+30
^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("APCDALGQ"	PROC1+4*, PRINT+4, PRINT+6, PRINT+11, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5
BD	ED+2
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+4*, ED+1, ED+4, PROC1+5, PRINT+2
>> APCDBDD	ED+4, PRINT+2, HEAD1+5
>> APCDBT	PROC+1*
APCDBTH	PROC+1*, PROC1+4, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDED	ED+3*, ED+4, PROC1+6, PRINT+2
>> APCDEDD	ED+4, PRINT+2, HEAD1+5
>> APCDET	PROC+3*
>> APCDICD	PROC1+10*, PROC1+11, PROC1+14, PROC1+15, PROC1+16, PROC1+17, PROC1+18, PROC1+19, PROC1+20, PROC1+21 , PROC1+22, PROC1+23, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28
APCDJOB	PROC+1*, PROC1+4, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDP	PROC1+8, PROC1+9, PROC1+10, PRINT+11, PRINT+12
>> APCDPG	PRINT+3, HEAD, HEAD1+1, HEAD1+2
>> APCDQ	PRINT+6, PRINT+7, PRINT+11, HEAD+1*
>> APCDSD	ED+4*
>> APCDSNKA	PROC1+13, PROC1+30
>> APCDTOT	PROC+1*
>> APCDX	PROC1+4*, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+12, PROC1+30
>> B	LASTVD+3*
BDATE	LASTVD~, LASTVD+3
>> DFN	PROC+4, PROC1+1, PROC1+2, PROC1+4, PRINT+6, PRINT+8, PRINT+11
DIR	BD+2!, ED+1!, HEAD+1!
DIR("A"	BD+2, ED+1
DIR(0	BD+2, ED+1, HEAD+1*
>> DIRUT	BD+2, BD+3, ED+1, ED+2
DT	XTMP+2
>> DTOUT	HEAD+1
>> DUOUT	BD+2, ED+1
DUZ	USR+1, HEAD1+2
DUZ(2	PROC1+2, PRINT+8, LOC+1, HEAD1+3
>> E	LASTVD+3*
EDATE	LASTVD~, LASTVD+3
>> G	PROC1+4, PROC1+14, PROC1+15, PROC1+16, PROC1+17, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PROC1+22 , PROC1+23, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28, PROC1+30, 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+30*
P	LASTVD~, LASTVD+1, LASTVD+3
T	XTMP~, XTMP+2
U	XTMP+2, PROC1+2, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+10, PROC1+12, PROC1+30, 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	ED+4, LASTVD+5, CTR~, CTR+1, HEAD1+4, HEAD1+5*
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+4, ED+1, ED+3, ED+4, PRINT+2*, CTR~, CTR+1, HEAD+1

Customize PDF page

Package: Patient Care Component

Routine: APCDALGQ

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: