Routine: AMHAPRB

Information

AMHAPRB ; IHS/CMI/LAB - PROMPT FOR PROBLEM ;

Source Information

Source file <AMHAPRB.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
Patient Care Component	2	PLU^APCDAPRB (NAPADD,PLRADD)^APCDPL1
IHS VA Utilities	1	EN^XBNEW
Kernel	1	$$FMTE^XLFDT
Mental Health Social Services	1	$$PRIMPROV^AMHUTIL

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Mental Health Social Services	6	AMHBPL1 AMHBPL2 AMHBPL3 AMHGSBPL AMHPL1 AMHPL2

Entry Points

Name	Comments	DBIA/ICR reference
ANYACTP(P,EDATE)	;EP - does this patient have any active problems?
PLUDE(AMHPRBI,AMHP,AMHV,AMHD,AMHTPRD)	;EP - called from data entry input templates
PLUDE1	;EP - called from xbnew
PLU(AMHPIEN,AMHV,AMHP,AMHD,AMHPRV,RETVAL)	;PEP - called to update Problem list update fields
PLRPCC(AMHREC,AMHD,AMHPROV)	;EP
NAPPCC(AMHREC,AMHD,AMHPROV)	;EP
PLUV	;have a visit so create a v updated/reviewed for provider AMHPRV if one does
PLUDE1P	;GET PROVIDER
PLUPCC(AMHREC,AMHPIEN,AMHP)	;EP

External References

Name	Field # of Occurrence
$$PRIMPROV^AMHUTIL	PLUDE1P+7
PLU^APCDAPRB	PLUPCC+10
NAPADD^APCDPL1	NAPPCC+10
PLRADD^APCDPL1	PLRPCC+10
FILE^DICN	PLUV+16
^DIE	PLUPCC+6, PLRPCC+6, NAPPCC+6
^DIR	PLUDE1+5, PLUDE1P+7
EN^XBNEW	PLUDE+2
$$FMTE^XLFDT	PLUDE1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLUDE1+6
Function Call: WRITE	Prompt: !!,"Future Dates now allowed.",! Line Location: PLUDE1+7
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLUDE1P+8
Function Call: WRITE	Prompt: !!,"error: ",$P(AMHRET,U,2) Line Location: PLUDE1P+11
Routine Call	DIE Line Location: PLUPCC+6 PLRPCC+6 NAPPCC+6
Routine Call	DIR Line Location: PLUDE1+5 PLUDE1P+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRRUP - [#9002011.14]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPROB - [#9002011.51]	ANYACTP+6, ANYACTP+7, ANYACTP+8
^AMHPPROB("AC"	ANYACTP+5
^AMHREC - [#9002011]	PLUDE1+2, PLUPCC+2, PLUPCC+4, PLUPCC+6, PLUPCC+10, PLRPCC+2, PLRPCC+4, PLRPCC+6, PLRPCC+10, NAPPCC+2 , NAPPCC+4, NAPPCC+6, NAPPCC+10
^AMHRRUP - [#9002011.14]	PLUV+8, PLUV+9, PLUV+10
^AMHRRUP("AD"	PLUV+6
^AUPNPAT - [#9000001]	PLU+20
^AUTTCRA("C"	PLUV+3

Label References

Name	Line Occurrences
PLU	PLUDE1P+10
PLUDE1	PLUDE1+6, PLUDE1+7
PLUDE1P	PLUDE1P+8
PLUV	PLU+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHD	PLUDE~, PLUDE1+2, PLUDE1+8, PLUDE1P+10, PLU~, PLU+21*, PLU+22, PLUV+15, PLRPCC~, NAPPCC~
AMHP	PLUDE~, PLUDE1P+10, PLU~, PLU+18*, PLU+19, PLU+20, PLUV+15, PLUPCC~, PLUPCC+6, PLUPCC+10
AMHPIEN	PLU~, PLU+16*, PLUPCC~, PLUPCC+10
AMHPRBI	PLUDE~, PLUDE1P+10
AMHPROV	PLRPCC~, PLRPCC+6, PLRPCC+10, NAPPCC~, NAPPCC+6, NAPPCC+10
AMHPRV	PLUDE1P+9, PLUDE1P+10, PLU~, PLU+23, PLU+24, PLUV+10, PLUV+15
AMHREC	PLUPCC~, PLUPCC+1, PLUPCC+2, PLUPCC+4, PLUPCC+6, PLUPCC+10, PLRPCC~, PLRPCC+1, PLRPCC+2, PLRPCC+4 , PLRPCC+6, PLRPCC+10, NAPPCC~, NAPPCC+1, NAPPCC+2, NAPPCC+4, NAPPCC+6, NAPPCC+10
>> AMHRET	PLUDE1P+10, PLUDE1P+11
AMHTPRD	PLUDE~
AMHV	PLUDE~, PLUDE1+2, PLUDE1P+7, PLUDE1P+10, PLU~, PLU+17, PLU+27, PLUV+6, PLUV+15, PLUPCC+3~ , PLUPCC+4, PLUPCC+7, PLUPCC+10, PLRPCC+3~, PLRPCC+4, PLRPCC+7, PLRPCC+10, NAPPCC+3~, NAPPCC+4, NAPPCC+7 , NAPPCC+10
AMHVAL	PLUV+2~, PLUV+3, PLUV+4, PLUV+8, PLUV+15, PLUPCC+9~, PLUPCC+10, PLRPCC+9~, PLRPCC+10, NAPPCC+9~ , NAPPCC+10
AMHVD	PLUV+2~
AMHVRI	PLUV+2~, PLUV+5, PLUV+6, PLUV+11, PLUV+13
AMHX	PLUV+2~, PLUV+6*, PLUV+8, PLUV+9, PLUV+10, PLUV+11
DA	PLUDE1+5!, PLUDE1P+7!, PLUV+17!, PLUPCC+3~, PLUPCC+6!, PLRPCC+3~, PLRPCC+6!, NAPPCC+3~, NAPPCC+6*!
DIADD	PLUV+15*, PLUV+17!
DIC	PLUV+15*, PLUV+17!
DIC("DR"	PLUV+15*
DIC(0	PLUV+15*
DIE	PLUPCC+3~, PLUPCC+6!, PLRPCC+3~, PLRPCC+6!, NAPPCC+3~, NAPPCC+6*!
DIR	PLUDE1+5!, PLUDE1P+7!
DIR("?"	PLUDE1+4*
DIR("A"	PLUDE1+3, PLUDE1P+1, PLUDE1P+2, PLUDE1P+3, PLUDE1P+4, PLUDE1P+5, PLUDE1P+6*
DIR("B"	PLUDE1+4, PLUDE1P+7
DIR(0	PLUDE1+3, PLUDE1P+1
>> DIRUT	PLUDE1+6, PLUDE1P+8
DLAYGO	PLUV+15*, PLUV+17!
DR	PLUPCC+3~, PLUPCC+6!, PLRPCC+3~, PLRPCC+6!, NAPPCC+3~, NAPPCC+6*!
DT	PLUDE1+4, PLUDE1+7
DUZ	PLUPCC+10, PLRPCC+10, NAPPCC+10
EDATE	ANYACTP~, ANYACTP+2*, ANYACTP+8
P	ANYACTP~, ANYACTP+1, ANYACTP+5
RETVAL	PLU~, PLU+19, PLU+20, PLU+22, PLU+24, PLU+25, PLUV+4, PLUV+13*
U	PLUDE1+2, PLUDE1P+11, PLUV+8, PLUV+9, PLUV+10, ANYACTP+7, ANYACTP+8, PLUPCC+4, PLUPCC+6, PLUPCC+10 , PLRPCC+4, PLRPCC+6, PLRPCC+10, NAPPCC+4, NAPPCC+6, NAPPCC+10
X	PLUV+15, ANYACTP+3~, ANYACTP+5, ANYACTP+6, ANYACTP+7, ANYACTP+8
Y	PLUDE1+7, PLUDE1+8, PLUDE1P+9, ANYACTP+3~
Z	ANYACTP+3~, ANYACTP+4, ANYACTP+5, ANYACTP+9, ANYACTP+11

Customize PDF page

Package: Mental Health Social Services

Routine: AMHAPRB

Call Graph Total: 8

Caller Graph Total: 6