Routine: APCDAPRB

Package	Total	Call Graph
Patient Care Component	7	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 DEDT^APCDEA2 ENDE^APCDPL ^APCDPLK ^APCDPROB
VA Fileman	7	EN^DDIOL ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 (,EN)^XBNEW
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
DRG Grouper	1	$$ICDDX^ICDEX
IHS Changes To Scheduling	1	^BSDAPI4
IHS Patient	1	^AUPNPAT
Patient Care Component Reports	1	($$PRIMPROV,$$VD)^APCLV
Registration	1	TERM^VALM0

Package

Total

Call Graph

Patient Care Component

^APCDALV ^APCDALVR GETVISIT^APCDAPI4 DEDT^APCDEA2 ENDE^APCDPL ^APCDPLK ^APCDPROB

VA Fileman

EN^DDIOL ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR

IHS VA Utilities

$$VAL^XBDIQ1 (,EN)^XBNEW

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

DRG Grouper

$$ICDDX^ICDEX

IHS Changes To Scheduling

^BSDAPI4

IHS Patient

^AUPNPAT

Patient Care Component Reports

($$PRIMPROV,$$VD)^APCLV

Registration

TERM^VALM0

Package	Total	Caller Graph
Mental Health Social Services	3	AMHAPRB AMHGSBPL AMHPCCL1
Patient Care Component	3	APCDAPOV APCDPL1 APCDPL2

Package

Total

Caller Graph

Mental Health Social Services

AMHAPRB AMHGSBPL AMHPCCL1

Patient Care Component

APCDAPOV APCDPL1 APCDPL2

Entry Points

Name	Comments	DBIA/ICR reference
ANYACTP(P,EDATE)	;EP - does this patient have any active problems?
PL1	;EP
PLR1	;
QUAL2
QUAL1	;EP
CPSA	;EP - CALLED FROM INPUT TEMPLATE APCD CPS TO UPDATE PROBLEM STATUS
EVSIT	;EP - get/create event visit
CPS	;EP - CALLED FROM INPUT TEMPLATE APCD CPS TO UPDATE PROBLEM STATUS
NO1	;EP
PLU(APCDPIEN,APCDV,APCDP,APCDD,APCDPRV,RETVAL)	;PEP - called to update Problem list update fields
NO	;EP add a note to a problem
PL	;EP
PLUV	;have a visit so create a v updated/reviewed for provider APCDPRV if one does
FM12	;
NUM	;
PLUDE1P	;GET PROVIDER
FM13	;
MNN	;EP
BSD	;
PO	;EP
RPO	;EP
APO	;EP
START	;EP
XIT
FMD	;
FME	;
FMA	;
NON	;EP called from APCD NO (ADD) template
RNO	;EP
QUAL	;EP add a note to a problem
MPO	;EP
QUALP	;EP - called from input templates
PLUDE1	;EP - called from xbnew
IPO	;EP
CPSA1	;EP
NOX	;
PLUDE	;EP - called from data entry input templates
PLR(APCDTDA)	;EP - called from nap template to create PLR entry
PDSP	;EP
NOP	;EP called from APCD PO (ADD) template
CPS1	;EP

External References

Name	Field # of Occurrence
^APCDALV	EVSIT+12
^APCDALVR	PLUV+22, PLR1+11
GETVISIT^APCDAPI4	BSD+12
DEDT^APCDEA2	BSD+16, EVSIT+14
ENDE^APCDPL	PL1+2
^APCDPLK	NO+5, QUAL+5
^APCDPROB	NO+1, QUAL+1
$$PRIMPROV^APCLV	PLUDE1P+7
$$VD^APCLV	PLUDE1+3
^AUPNPAT	PL+3
^BSDAPI4	EVSIT+1
EN^DDIOL	QUAL2+2, FM12+1, FME+1, FMD+1
^DIC	START+1, NUM+3, NUM+8
FILE^DICN	FMA+5
^DIE	PO+1, MPO+1, RPO+1, IPO+1, APO+1, MNN+1, RNO+1, PDSP+1, NUM+10, NUM+11 , FME+10, CPS1+8, CPSA1+9
^DIK	FMD+8
$$GET1^DIQ	QUAL2+5
^DIR	NO+2, NO1+7, QUAL+2, FM12+4, FME+3, FMD+3, FMA+1, PLUDE1+4, PLUDE1P+7, CPS1+3 , CPS1+5, CPSA1+4, CPSA1+5
$$ICDDX^ICDEX	NO1+3
TERM^VALM0	PL1+1
$$VAL^XBDIQ1	CPS1+3
^XBNEW	NON+1, NOP+3, QUALP+3
EN^XBNEW	PL+7, PLUDE+11, PLR+1, CPS+3, CPSA+3
$$FMTE^XLFDT	NO1+6, PLUDE1+3
$$REPEAT^XLFSTR	QUAL2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),"Not a valid problem number.",! Line Location: NO+6
Function Call: WRITE	Prompt: !!,"Problem Number: ",APCDPR,?40,"Diagnosis: ",$P($$ICDDX^ICDEX($P(^AUPNPROB(APCDPROB,0),U)),U,2) Line Location: NO1+3
Function Call: WRITE	Prompt: !?5,$P(^DIC(4,$P(^AUPNPROB(APCDPROB,11,L,0),U),0),U) Line Location: NO1+5
Function Call: WRITE	Prompt: !?10,"Note#",$P(^AUPNPROB(APCDPROB,11,L,11,X,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?28,$P(^AUPNPROB(APCDPROB,11,L,11,X,0),U,3) Line Location: NO1+6
Function Call: WRITE	Prompt: ! Line Location: NO1+7
Function Call: WRITE	Prompt: $C(7),$C(7),"ERROR UPDATING NOTE LOCATION MULTIPLE" Line Location: NUM+4
Function Call: WRITE	Prompt: !!,"Adding ",$P(^DIC(4,APCDLOC,0),U)," Note #",X Line Location: NUM+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ERROR when updating note number multiple",! Line Location: NUM+9
Function Call: WRITE	Prompt: ?10 Line Location: NUM+10
Function Call: WRITE	Prompt: !! Line Location: NUM+10
Function Call: WRITE	Prompt: $C(7),$C(7),"Not a valid problem number.",! Line Location: QUAL+6
Function Call: WRITE	Prompt: !!?3,"Severity:" Line Location: QUAL2+0
Function Call: WRITE	Prompt: " None recorded" Line Location: QUAL2+1
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLUDE1+5
Function Call: WRITE	Prompt: !!,"Future Dates now allowed.",! Line Location: PLUDE1+6
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLUDE1P+8
Function Call: WRITE	Prompt: !!,"error: ",$P(APCDRET,U,2) Line Location: PLUDE1P+11
Function Call: WRITE	Prompt: "^ not allowed" Line Location: CPSA1+6
Function Call: WRITE	Prompt: " Required" Line Location: CPSA1+7
Routine Call	DIE Line Location: PO+1 MPO+1 RPO+1 IPO+1 APO+1 MNN+1 RNO+1 PDSP+1 NUM+10 NUM+11 FME+10 CPS1+8 CPSA1+9
Routine Call	DIC Line Location: START+1 NUM+3 NUM+8
Routine Call	DIR Line Location: NO+2 NO1+7 QUAL+2 FM12+4 FME+3 FMD+3 FMA+1 PLUDE1+4 PLUDE1P+7 CPS1+3 CPS1+5 CPSA1+4 CPSA1+5

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls
9000011.13	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	BSD+6, EVSIT+10
^AUPNPAT - [#9000001]	PLU+20
^AUPNPROB - [#9000011]	NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+5, QUAL2+1, QUAL2+3, FME+6 , FME+7, FMD+5, FMD+6, ANYACTP+6, ANYACTP+7, ANYACTP+8, ANYACTP+9
^AUPNPROB("AC"	ANYACTP+5
^AUPNVRUP - [#9000010.54]	PLUV+8, PLUV+9, PLUV+10, PLR1+5, PLR1+6, PLR1+9, PLR1+10
^AUPNVRUP("AD"	PLUV+6
^AUTTCRA("C"	PLUV+3, PLR1+4
^DD(9000011	START+1, NUM+3
^DD(9000011.11	NUM+8
^DIC(4 - [#4]	NO1+5, NUM+7
^VA(200 - [#200]	FME+7, FMD+6, PLUDE1P+7

Label References

Name	Line Occurrences
@(	FM12+8
BSD	EVSIT+2
CPSA1	CPSA1+6, CPSA1+7
EVSIT	PLU+29
FM12	QUAL2+1
FM13	FM12+5, FM12+6
NO	NO+6, QUAL+6
NO1	NUM+14
NOX	NO+3, NO1+8, NO1+9, NUM+4, NUM+9, QUAL+3
PLU	PLUDE1P+10
PLUDE	NUM+13
PLUDE1	PLUDE1+5, PLUDE1+6
PLUDE1P	PLUDE1P+8
PLUV	PLU+27, EVSIT+3, EVSIT+16
QUAL2	FM12+9
XIT	START+2, START+3, START+4

Name	Field # of Occurrence
^(0	NO1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NUM+10, NUM+11
APCDADDP	NOP+1~, NOP+2, NUM+13, QUALP+1~, QUALP+2
APCDADFN	CPS+1~, CPS+2, CPS+4!, CPS1+3, CPS1+7, CPSA+1~, CPSA+2, CPSA+4!, CPSA1+8
APCDALVR	PLUV+15~, PLUV+24!, BSD+10!, EVSIT+5!, EVSIT+15!, PLR1+3~, PLR1+13!
APCDALVR("APCDAFLG"	PLUV+23, PLR1+12
APCDALVR("APCDATMP"	PLUV+18, PLR1+7
APCDALVR("APCDAUTO"	EVSIT+6*
APCDALVR("APCDCAT"	EVSIT+8*
APCDALVR("APCDDATE"	EVSIT+11*
APCDALVR("APCDLOC"	EVSIT+9*
APCDALVR("APCDPAT"	PLUV+16, EVSIT+7, PLR1+5*
APCDALVR("APCDTCDT"	PLUV+20, PLR1+9
APCDALVR("APCDTCLA"	PLUV+19, PLR1+8
APCDALVR("APCDTEPR"	PLUV+21, PLR1+10
APCDALVR("APCDTYPE"	EVSIT+10*
APCDALVR("APCDVSIT"	PLUV+17, EVSIT+13, EVSIT+14, PLR1+6
APCDBSDV	BSD+1~, BSD+11!, BSD+12
APCDBSDV(	BSD+16
APCDBSDV(0	BSD+13, BSD+15
>> APCDC	QUAL2+1, QUAL2+3, QUAL2+4*, QUAL2+5, FM12+3, FME+3, FMD+3
APCDCM	QUAL2+3!
APCDCM(	QUAL2+4*, FME+6, FME+7, FME+8, FMD+5, FMD+6, FMD+8
APCDD	PLUDE+9, PLUDE1+3, PLUDE1+7, PLUDE1P+10, PLU~, PLU+21*, PLU+22, PLUV+20, BSD+4, EVSIT+11
>> APCDDATE	PL+1*, PL+4, NUM+10, NUM+11, PLUDE+9
>> APCDDONE	FM12+6*
APCDIN	BSD+2!, BSD+12
APCDIN("PAT"	BSD+3*
APCDIN("SITE"	BSD+5*
APCDIN("SRV C	AT" , BSD+7*
APCDIN("TIME	RANGE" , BSD+8*
APCDIN("USR"	BSD+9*
APCDIN("VISIT	DATE" , BSD+4, TYPE" , BSD+6
>> APCDLOC	PL+2*, PL+4, NUM+2, NUM+3, NUM+7
>> APCDLOOK	START+3, START+4, START+5*
APCDNIEN	NUM+2, NUM+3, NUM+4, NUM+5, NUM+8, NOX+1!
APCDNUM	NUM+6*, NUM+8, NOX+1!
APCDP	PLUDE+5, PLUDE+6, PLUDE1P+10, PLU~, PLU+18*, PLU+19, PLU+20, PLUV+16, BSD+3, EVSIT+7
>> APCDPAT	PL+3, PO+1, MPO+1, RPO+1, IPO+1, APO+1, MNN+1, RNO+1, PDSP+1, PLUDE+5
>> APCDPDFN	NO1+1, QUAL1+1
APCDPERR	NO+6!, QUAL+6!
APCDPIEN	PLU~, PLU+16*
>> APCDPLD	PL+4*
>> APCDPLL	PL+4*
>> APCDPLV	PL+5, PL+6
>> APCDPR	NO+4, NO1+3, QUAL+4
>> APCDPRBI	PLUDE+4*, PLUDE1P+10
APCDPROB	NO1+1, NO1+2, NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+5, NUM+8 , NUM+11, NUM+12, NOX+1!, QUAL1+1, QUAL1+2, QUAL2+1, QUAL2+3, QUAL2+5, FME+6, FME+7 , FME+8, FME+9, FMD+5, FMD+6, FMD+8, FMA+4
APCDPRV	PLUDE1P+9, PLUDE1P+10, PLU~, PLU+23, PLU+24, PLUV+10, PLUV+21
>> APCDRET	PLUDE1P+10, PLUDE1P+11
APCDTDA	PLR~, PLR1+5, PLR1+6, PLR1+9, PLR1+10
>> APCDTERR	START+4*
>> APCDTNQP	START+5*
>> APCDTPRD	PLUDE+3*, PLUDE1P+7
>> APCDTSKI	START+3*
APCDV	PLUDE+7, PLUDE+8, PLUDE1+3, PLUDE1P+7, PLUDE1P+10, PLU~, PLU+17, PLU+27, PLUV+6, PLUV+17 , BSD+15, BSD+16, EVSIT+13*
APCDVAL	PLUV+2~, PLUV+3, PLUV+4, PLUV+8, PLUV+19, PLR1+3~, PLR1+4, PLR1+8
APCDVD	PLUV+2~
APCDVRI	PLUV+2~, PLUV+5, PLUV+6, PLUV+11, PLUV+13
APCDVSIT	PL+5, PLUDE+7, EVSIT+4!, EVSIT+14
APCDX	PLUV+2~, PLUV+6*, PLUV+8, PLUV+9, PLUV+10, PLUV+11
D	XIT!
DA	PO+1!, MPO+1!, RPO+1!, IPO+1!, APO+1!, MNN+1!, RNO+1!, PDSP+1!, NO+2!, NO1+7! , NUM+3!, NUM+8!, NUM+10!, NUM+11!, NUM+12, NOX+1!, PLUDE+4, QUAL+2!, FM12+4!, FME+3! , FME+5!, FME+8, FMD+3!, FMD+7!, FMD+8!, FMA+1!, PLUDE1+4!, PLUDE1P+7!, CPS+2, CPS1+3! , CPS1+5!, CPS1+7, CPS1+9!, CPSA+2, CPSA1+4!, CPSA1+5!, CPSA1+8*, CPSA1+10!
DA(1	NUM+3, NUM+8, FME+8, FMD+8, FMA+4*
DA(2	NUM+8*
DD	XIT!, NOX+1!
>> DFN	PL+3*, PLUDE+6
DIC	START+1!, NUM+3!, NUM+8!, NUM+10!, NOX+1!, FME+5!, FMD+7!, FMA+4
DIC("A"	START+1*
DIC("DR"	FMA+4*
DIC("P"	NUM+3, NUM+8
DIC(0	START+1, NUM+3, NUM+8, FMA+4
DIE	PO+1!, MPO+1!, RPO+1!, IPO+1!, APO+1!, MNN+1!, RNO+1!, PDSP+1!, NUM+10!, NUM+11! , FME+9, FME+11!, CPS1+7, CPS1+9!, CPSA1+8*, CPSA1+10!
DIK	FMD+8*!
DIPGM	XIT!
DIR	NO+2!, NO1+7!, QUAL+2!, FM12+2!, FM12+4!, FME+2!, FME+3!, FMD+2!, FMD+3!, FMA+1! , PLUDE1+4!, PLUDE1P+7!, CPS1+3!, CPS1+5!, CPSA1+4!, CPSA1+5!
DIR("?"	PLUDE1+3, CPS1+4, CPSA1+3*
DIR("A"	NO+2, NO1+7, QUAL+2, FM12+4, FME+3, FMD+3, FMA+1, PLUDE1+2, PLUDE1P+1, PLUDE1P+2 , PLUDE1P+3, PLUDE1P+4, PLUDE1P+5, PLUDE1P+6, CPS1+3, CPSA1+4
DIR("B"	NO1+7, FM12+4, PLUDE1+3, PLUDE1P+7, CPS1+3, CPSA1+4
DIR(0	NO+2, NO1+7, QUAL+2, FM12+3, FME+3, FMD+3, FMA+1, PLUDE1+2, PLUDE1P+1, CPS1+2 , CPSA1+2*
DIRUT	NO+2!, NO+3, NO1+8, QUAL+2!, QUAL+3, FM12+5, FME+4, FMD+4, FMA+2, PLUDE1+5 , PLUDE1P+8, CPS1+6, CPSA1+6
DO	XIT!
DR	PO+1!, MPO+1!, RPO+1!, IPO+1!, APO+1!, MNN+1!, RNO+1!, PDSP+1!, NUM+3!, NUM+8! , NUM+10!, NUM+11!, FME+5!, FME+8, FMD+7!, CPS1+7, CPS1+9!, CPSA1+8*, CPSA1+10!
DT	PL+1, NUM+10, NUM+11, PLUDE1+3, PLUDE1+6
DUZ	NUM+11, FME+6, FMD+5, FMA+4, BSD+9
DUZ(2	PL+2, BSD+5, BSD+6, EVSIT+9, EVSIT+10
EDATE	ANYACTP~, ANYACTP+2*, ANYACTP+9
L	NO1+5*, NO1+6, NOX+1!
P	ANYACTP~, ANYACTP+1, ANYACTP+5
RETVAL	PLU~, PLU+19, PLU+20, PLU+22, PLU+24, PLU+25, PLUV+4, PLUV+13, PLUV+23, BSD+14* , PLR1+12*
>> T	BSD+13*, BSD+14
U	NO1+3, NO1+5, NO1+6, NUM+3, NUM+7, NUM+8, FME+6, FME+7, FMD+5, FMD+6 , PLUDE1P+7, PLUDE1P+11, PLUV+8, PLUV+9, PLUV+10, BSD+6, BSD+13, EVSIT+10, ANYACTP+7, ANYACTP+8 , ANYACTP+9, PLR1+5, PLR1+6, PLR1+9, PLR1+10
>> V	BSD+15*, BSD+16
X	START+3, START+5, XIT!, NO1+6, NUM+3!, NUM+5, NUM+6, NUM+7, NUM+8, NOX+1! , QUAL2+3, QUAL2+4, QUAL2+5, ANYACTP+3~, ANYACTP+5, ANYACTP+6, ANYACTP+7, ANYACTP+8, ANYACTP+9
Y	START+2, START+3, START+4, START+5, XIT!, PL+3!, NO+4, NO1+9, NUM+3!, NUM+5! , NUM+9, NUM+10!, NUM+11!, NOX+1!, QUAL+4, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6 , FME+7, FME+8, FMD+5, FMD+6, FMD+8, FMA+3, PLUDE1+6, PLUDE1+7, PLUDE1P+9, ANYACTP+3~ , CPS1+7, CPSA1+7, CPSA1+8
Z	ANYACTP+3~, ANYACTP+4, ANYACTP+5, ANYACTP+10, ANYACTP+12

Customize PDF page

Package: Patient Care Component

Routine: APCDAPRB

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items