Routine: APCLPRPM

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	DD^%DT ^DIC ^DIR
Kernel	2	($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
Patient Care Component Reports	2	(DONE,XTMP)^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	($$COMMRES,$$DOB,$$HRN,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
PAUSE	;
PROC1	;
ZIS	;
HEAD1	;
START	;
BROWSE	;
PROV	;
PRINT	;
DFN	;
EOJ	;
DEMO	;
ASK	;
DONE
PROC	;
PROC0	;
LVST	;ENTRY POINT from [APCL PRIM PROV LISTING print template

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report will generate a list of patients for a specific Designated Primary Care" Line Location: APCLPRPM+4
Function Call: WRITE	Prompt: !,"Provider or a list of patients for all Primary Care Providers at this facility." Line Location: APCLPRPM+5
Function Call: WRITE	Prompt: !!!,$C(7),$C(7),"SITE NOT SET IN YOUR USER PROFILE! Please notify your Site Manager!" Line Location: APCLPRPM+6
Function Call: WRITE	Prompt: !! Line Location: DEMO+7
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: START+8
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,APCLDT,! Line Location: DFN+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2) 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: ?5,"DESIGNATED PROVIDER PATIENT LISTING "_$$FMTE^XLFDT($$NOW^XLFDT)_" PAGE "_APCLPG,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?50,"CURRENT",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: "NAME",?24,"DOB",?40,"HRN",?50,"COMMUNITY",?66,"LAST VISIT",!,APCL80D,! Line Location: HEAD1+7
Routine Call	DIC Line Location: PROV+2
Routine Call	DIR Line Location: ASK+2 DEMO+3 PAUSE+1 HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("AK"	PROC+4, PROC0+1
^AUPNVSIT - [#9000010]	LVST+6
^AUPNVSIT("AA"	LVST+3, LVST+5
^DD(9000010.06	PROV+2, PROV+5
^DIC(16 - [#16]	PROV+5
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	DFN+3
^VA(200 - [#200]	PROV+5, HEAD1+3
^XTMP("APCLPRPM"	PROC1+2*, START+3, START+5, START+10, DONE+1!

Name	Field # of Occurrence
>> APCL80D	START+1*, HEAD1+7
>> APCLAST	LVST+1, LVST+3, LVST+4*, LVST+5
>> APCLBROW	DEMO+5*, START+4, START+7, START+8
>> APCLBT	PROC+1*
APCLBTH	PROC+1*, PROC1+2, START+3, START+5, START+10, DONE+1!
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+1
>> APCLDT	DFN+3, LVST+7*
>> APCLET	PROC+5*
APCLJOB	PROC+1*, PROC1+2, START+3, START+5, START+10, DONE+1!
>> APCLPG	START+2, HEAD, HEAD1+1, HEAD1+2, HEAD1+5
>> APCLPROV	ASK+1, PROV+4, PROC+3, PROC+4, PROC0+1, PROC1+2, START+5, START+9, START+10, START+13
>> APCLPRV	PROV+5*
APCLQ	START+5, START+6!, START+7, START+10, START+11, START+12, START+14, DFN+1, HEAD+1*
>> APCLQUIT	PAUSE+2*
>> APCLSUB	START+6, START+13, DFN+4
>> APCLTOT	PROC+1*
>> APCLVDFN	LVST+2, LVST+5, LVST+6
B	EOJ+2!
DA	DEMO+3!, PAUSE+1!
DFN	PROC+1, PROC+6!, PROC0+1, PROC1+1, PROC1+2, START+6, START+10, DFN+3, LVST+3, LVST+5
DIC	PROV+2*!
DIC("A"	PROV+2*
DIC(0	PROV+2*
DIR	ASK+2!, DEMO+3!, PAUSE+1!, HEAD+1!
DIR("A"	ASK+2, DEMO+3, PAUSE+1*
DIR("B"	ASK+2, DEMO+3
DIR(0	ASK+2, DEMO+3, PAUSE+1, HEAD+1
>> DIRUT	ASK+2*, ASK+3, DEMO+4, PAUSE+2
>> DTOUT	HEAD+1
>> DUOUT	ASK+2
DUZ	HEAD1+3
DUZ(2	APCLPRPM+6, DFN+3, HEAD1+4
IO	HEAD+1
IO(0	HEAD+1
IOF	APCLPRPM+3, PAUSE+3, HEAD1+1
IOSL	START+12, DFN+1
IOST	HEAD+1
L	EOJ+2!
M	EOJ+2!
S	EOJ+2!
T	EOJ+2!
U	PROV+2, PROV+5, DFN+3, HEAD1+3, HEAD1+4, LVST+6
X	EOJ+2!
X1	EOJ+2!
X2	EOJ+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	ASK+4, PROV+3, PROV+4, PROV+5, DEMO+5, DEMO+6, EOJ+2!, HEAD+1, LVST+6*, LVST+7
Z	EOJ+2!