Routine: BDPNODP

Package	Total	Call Graph
Patient Care Component Reports	5	(DONE,XTMP)^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL DEL^APCLVL ADD^APCLVL01 ^APCLVL4
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	3	DD^%DT ^DIC ^DIR
Kernel	2	($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
IHS Designated Provider	1	ALLDP^BDPAPI
IHS Patient	1	($$AGE,$$COMMRES,$$DOB,$$HRN,KILL)^AUPNPAT

Package

Total

Call Graph

Patient Care Component Reports

(DONE,XTMP)^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL DEL^APCLVL ADD^APCLVL01 ^APCLVL4

IHS VA Utilities

^XBDBQUE ^XBFMK EN^XBVK

VA Fileman

DD^%DT ^DIC ^DIR

Kernel

($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR

IHS Designated Provider

ALLDP^BDPAPI

IHS Patient

($$AGE,$$COMMRES,$$DOB,$$HRN,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
A
CONT	;
DEMO	;
HEAD
CAT	;which category
SINGLE	;
DONE
PRINT	;
MULT	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PGEN	;
SCREENS	;
INFORM	;
ST1	;
SORT	;
C
PAUSE	;
ZIS	;
H	;
N	;
DFN	;
XIT	;
LVST	;ENTRY POINT from [BDP PRIM PROV LISTING print template
HEAD1	;
ST	;
STP	;
PROC	;

External References

Name	Field # of Occurrence
DD^%DT	LVST+7
DONE^APCLOSUT	DONE
XTMP^APCLOSUT	PROC+2
$$DEMO^APCLUTL	PROC+6, STP+2
DEMOCHK^APCLUTL	DEMO+1
DEL^APCLVL	CONT+1, CONT+3
ADD^APCLVL01	CONT+1
^APCLVL4	CONT+3
$$AGE^AUPNPAT	A
$$COMMRES^AUPNPAT	C, DFN+3
$$DOB^AUPNPAT	DFN+3
$$HRN^AUPNPAT	H+1, DFN+3
KILL^AUPNPAT	XIT+3
ALLDP^BDPAPI	PROC+11, STP+6
^DIC	ST1+3
^DIR	ST+5, PGEN+6, CAT+4, SORT+3, DEMO+3, PAUSE+1, HEAD+1
^XBDBQUE	DEMO+8, BROWSE+2
^XBFMK	XIT+4
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEAD1+3
$$NOW^XLFDT	HEAD1+3
$$UP^XLFSTR	DFN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will generate a list of patients who do not have a designated" Line Location: INFORM+1
Function Call: WRITE	Prompt: !,"provider assigned. The user will be able to run this report on a selected" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"set of patients or on a search template of patients. The user will also" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"be able to select which designated provider category to report on. For" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"example you can run this report for all females over 18 with no designated" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"Women's Health Case Manager or run the report for all patients living in" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"a particular community with no designated primary care provider." Line Location: INFORM+7
Function Call: WRITE	Prompt: !! Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"Please note that you will get a chance later to further refine the set" Line Location: ST+1
Function Call: WRITE	Prompt: !,"of patients to include in this report.",! Line Location: ST+2
Function Call: WRITE	Prompt: ! Line Location: ST1+2
Function Call: WRITE	Prompt: !!,"You will now be able to select criteria for which patients to " Line Location: PGEN+2
Function Call: WRITE	Prompt: !,"include in the report. If you are running this report on a search" Line Location: PGEN+3
Function Call: WRITE	Prompt: !,"template of patients and do not want additional criteria applied" Line Location: PGEN+4
Function Call: WRITE	Prompt: !,"you can bypass the criteria selection." Line Location: PGEN+5
Function Call: WRITE	Prompt: !!,"Enter the designated provider category for which you would like a list" Line Location: CAT+1
Function Call: WRITE	Prompt: !,"of patients who do not have a provider assigned.",! Line Location: CAT+2
Function Call: WRITE	Prompt: !! Line Location: DEMO+7
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+3
Function Call: WRITE	Prompt: $E($P(^DPT(DFN,0),U),1,20),?24,$$UP^XLFSTR($$DOB^AUPNPAT(DFN,"E")),?40,$$HRN^AUPNPAT(DFN,DUZ(2)),?50,$E($$COMMRES^AUPNPAT(DFN,"E"),1,15),?66,BDPDT,! Line Location: DFN+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?30,$$FMTE^XLFDT($$NOW^XLFDT),?70,"PAGE "_BDPPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR("PATIENTS WITH NO "_BDPCATN_" DESIGNATED PROVIDER",80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR("SEARCH TEMPLATE USED: "_$P(^DIBT(BDPSEAT,0),U,1),80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !?50,"CURRENT",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: "NAME",?24,"DOB",?40,"HRN",?50,"COMMUNITY",?66,"LAST VISIT",!,BDP80D,! Line Location: HEAD1+8
Routine Call	DIC Line Location: ST1+3
Routine Call	DIR Line Location: ST+5 PGEN+6 CAT+4 SORT+3 DEMO+3 PAUSE+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	CONT+3!, SCREENS+2, SINGLE+4, MULT+4
^APCLVSTS - [#9001003.7]	SCREENS+3, SINGLE+2, MULT+2
^AUPNPAT - [#9000001]	PROC+5
^AUPNVSIT - [#9000010]	LVST+6
^AUPNVSIT("AA"	LVST+3, LVST+5
^BDPTCAT - [#90360.3]	STP+6
^DIBT(	STP+1, HEAD1+6
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	N+1, DFN+3
^VA(200 - [#200]	HEAD1+3
^XTMP("BDPNODP"	PROC+15, STP+10, PRINT+3, PRINT+5, PRINT+6, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HEAD1+5, HEAD1+6
@(	PROC+14, STP+9
BROWSE	DEMO+6
CAT	PGEN+9, SORT+4
DFN	PRINT+6
DONE	PRINT+3
HEAD	PRINT+3, PRINT+4, DFN+1
HEAD1	HEAD
LVST	DFN+2
MULT	SCREENS+4
PGEN	ST+7
SCREENS	PROC+7, STP+3
SINGLE	SCREENS+3
SORT	DEMO+2
ST	ST1+4, PGEN+7, CONT+1, CONT+3, CAT+5
STP	PROC+4
XIT	ST+6, DEMO+4, DEMO+6, DEMO+9

Name	Field # of Occurrence
^(1	SINGLE+2, MULT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLCNTL	CONT+3*!
>> APCLCTYP	CONT+2*
APCLFOUN	MULT+1!, MULT+4, MULT+5, MULT+6
>> APCLI	SCREENS+2*, SCREENS+3, SINGLE+2, SINGLE+4, MULT+2, MULT+4
>> APCLPTVS	CONT+2*
>> APCLQUIT	CONT+3
>> APCLRPT	CONT+3, SCREENS+2, SINGLE+4, MULT+4
APCLSPEC	SINGLE+1!, SINGLE+4, SINGLE+5, MULT+1!, MULT+4, MULT+5
>> APCLTCW	CONT+2*
>> APCLTYPE	CONT+2*
>> APCLX	SINGLE+1, MULT+1
B	XIT+2!
>> BDP80D	PRINT+1*, HEAD1+8
>> BDPAST	LVST+1, LVST+3, LVST+4*, LVST+5
>> BDPBROW	DEMO+5*
>> BDPBT	PROC+1*
BDPBTH	PROC+1*, PROC+15, STP+10, PRINT+3, PRINT+5, PRINT+6, DONE+1!
>> BDPCAT	CAT+6*, STP+6
>> BDPCATN	CAT+7*, PROC+11, HEAD1+5
>> BDPDEMO	DEMO+1, DEMO+2, PROC+6, STP+2
>> BDPDT	DFN+3, LVST+7*
BDPJOB	PROC+1*, PROC+15, STP+10, PRINT+3, PRINT+5, PRINT+6, DONE+1!
>> BDPNCAN	CONT+1*
>> BDPPG	PRINT+2, HEAD, HEAD1+1, HEAD1+2, HEAD1+3
>> BDPPROV	PRINT+5*, PRINT+6
>> BDPQ	PRINT+5, PRINT+6, DFN+1, HEAD+1*
BDPQUIT	CONT+1!, PAUSE+2*
>> BDPSC	PGEN+1, PGEN+8, PGEN+9, PROC+7, STP+3
>> BDPSEAT	ST+3, ST1+1, ST1+5*, PROC+4, STP+1, HEAD1+6
BDPSKIP	PROC+8, SCREENS+1!, SCREENS+2, SINGLE+3, SINGLE+4, SINGLE+5, MULT+1!, MULT+3, MULT+6*
>> BDPSORT	SORT+1, SORT+5, PROC+14, STP+9
>> BDPSRTV	PROC+13, PROC+15, STP+8, STP+10, N+1, H+1, C, A
>> BDPTOT	PROC+1*
>> BDPVDFN	LVST+2, LVST+5, LVST+6
DA	ST+5!, ST1+3!, PGEN+6!, CAT+4!, SORT+3!, DEMO+3!, PAUSE+1!
>> DFN	PROC+1, PROC+5, PROC+6, PROC+11, PROC+15, STP+1, STP+2, STP+6, STP+10, N+1 , H+1, C, A, PRINT+6, DFN+3, LVST+3, LVST+5
DIC	ST1+2*, ST1+3!
DIC("A"	ST1+2*
DIC("S"	ST1+2*
DIC(0	ST1+2*
DICR	ST1+3!
DIR	ST+5!, PGEN+6!, CAT+4!, SORT+3!, DEMO+3!, PAUSE+1!, HEAD+1!
DIR("A"	ST+4, PGEN+6, CAT+3, SORT+3, DEMO+3, PAUSE+1
DIR("B"	ST+4, PGEN+6, SORT+3, DEMO+3
DIR(0	ST+4, PGEN+6, CAT+3, SORT+2, DEMO+3, PAUSE+1, HEAD+1*
>> DIRUT	ST+6, PGEN+7, CAT+5, SORT+4, DEMO+4, PAUSE+2
DR	ST1+3!
DT	A
>> DTOUT	HEAD+1
DUZ	HEAD1+3
DUZ(2	H+1, DFN+3, HEAD1+4
IO	HEAD+1
IO(0	HEAD+1
IOF	PAUSE+3, HEAD1+1
IOM	CTR+1
IOSL	DFN+1
IOST	HEAD+1
L	XIT+2!
M	XIT+2!
R	PROC+10!, PROC+11, PROC+12, STP+5!, STP+6, STP+7
S	XIT+2!
T	XIT+2!
U	CAT+7, STP+6, SCREENS+3, N+1, DFN+3, HEAD1+3, HEAD1+4, HEAD1+6, LVST+6
X	XIT+2!, SINGLE+1!, SINGLE+3, SINGLE+4, SINGLE+5, MULT+1!, MULT+5, CTR~, CTR+1
X(	MULT+4
X(""	MULT+3
X1	XIT+2!
X2	XIT+2!
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+7, BROWSE+2
>> XBRC	DEMO+7, BROWSE+2
>> XBRP	DEMO+7, BROWSE+1
>> XBRX	DEMO+7, BROWSE+2
Y	ST+7, ST1+4, ST1+5, PGEN+8, CAT+6, CAT+7, SORT+5, DEMO+5, DEMO+6, XIT+2! , MULT+4, HEAD+1, LVST+6, LVST+7, CTR~, CTR+1
Z	XIT+2!

Customize PDF page

Package: IHS Designated Provider

Routine: BDPNODP

Information

Source Information