Routine: AMHLEPOV

Package	Total	Call Graph
Mental Health Social Services	5	^AMHDMHPL PAUSE^AMHLEA ($$ASKPCC,CALLDIE)^AMHLEIN HPOV1^AMHLESM ^AMHPROB
VA Fileman	5	DD^%DT $$GET^DDSVAL ^DIC FILE^DICN ^DIR
IHS VA Utilities	2	^XBFMK EN^XBNEW
DRG Grouper	1	$$CODEN^ICDCODE

Package	Total	Caller Graph
Mental Health Social Services	3	AMHLEA AMHLEGP1 AMHLEIC

Entry Points

Name	Comments	DBIA/ICR reference
PCCPROB	;add to PCC Problem List?
EN	;EP add to mhss problem list - screen man call
EN1	; ENTRY POINT FOR ^XBNEW
POV	;
CHK	;
EP2	;EP
START	;EP
EN2	;EP add to pcc problem list - screen man call
EN3	;
XIT	;
BHPROB	;add to BH Problem List?
FILE	;
ADDPCC	;
EP	;EP - ask for POV and file each
ADDBH	;

External References

Name	Field # of Occurrence
DD^%DT	ADDPCC+18
^AMHDMHPL	ADDBH+1
PAUSE^AMHLEA	FILE+9, ADDBH+9, ADDBH+13
$$ASKPCC^AMHLEIN	PCCPROB+1, EN3+3
CALLDIE^AMHLEIN	FILE+6, FILE+8, ADDBH+12, ADDBH+14, ADDPCC+19
HPOV1^AMHLESM	POV+1
^AMHPROB	ADDPCC+2
$$GET^DDSVAL	EN3+7
^DIC	POV+5, ADDPCC+13
FILE^DICN	FILE+2, ADDBH+8
^DIR	CHK+3, BHPROB+3, ADDBH+2, PCCPROB+5, ADDPCC+3
$$CODEN^ICDCODE	ADDPCC+10
^XBFMK	POV+6, FILE+1, FILE+3, FILE+5, FILE+9, ADDBH+9, ADDPCC+13
EN^XBNEW	START+1, EP2+2, EN+1, EN2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO RECORD DEFINED!!" Line Location: EP+1
Function Call: WRITE	Prompt: !!,"NO RECORD!!" Line Location: EP+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"At least ONE POV is REQUIRED!!" Line Location: CHK+2
Function Call: WRITE	Prompt: @IOF,!!?15,"***** PURPOSE OF VISIT *****",! Line Location: POV+2
Function Call: WRITE	Prompt: ! Line Location: POV+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health POV failed!! Notify Site Manager." Line Location: FILE+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"DIE failed when updating POV" Line Location: FILE+9
Function Call: WRITE	Prompt: ! Line Location: BHPROB+3
Function Call: WRITE	Prompt: !,"Add this problem - ",$P(^AMHPROB(AMHPOVP,0),U)," - ",$P(^AMHPROB(AMHPOVP,0),U,2) Line Location: ADDBH+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health PROBLEM ADD failed!! Notify Site Manager." Line Location: ADDBH+9
Function Call: WRITE	Prompt: !!,$C(7),"Adding a BH Problem FAILED!" Line Location: ADDBH+13
Function Call: WRITE	Prompt: !!,"Updating NOTES failed." Line Location: ADDBH+15
Function Call: WRITE	Prompt: ! Line Location: PCCPROB+6
Function Call: WRITE	Prompt: !,"Add problem - ",$P(^AMHPROB(AMHPOVP,0),U)," - ",$P(^AMHPROB(AMHPOVP,0),U,2) Line Location: ADDPCC+3
Function Call: WRITE	Prompt: !!,"ERROR WHILE ATTEMPTING TO UPDATE PCC PROBLEM LIST" Line Location: ADDPCC+13
Function Call: WRITE	Prompt: !,"This is the narrative that the rest of the Medical community will see on the PCC",!,"Problem List on the PCC Health Summary. You may change it now if desired.",! Line Location: ADDPCC+16
Function Call: WRITE	Prompt: ! Line Location: ADDPCC+20
Function Call: WRITE	Prompt: !!,"ERROR WHILE ATTEMPTING TO UPDATE PCC PROBLEM LIST!!" Line Location: ADDPCC+21
Function Call: WRITE	Prompt: !!,"PARAMETER SET TO NO PCC PROBLEM LIST UPDATING",! Line Location: EN3+3
Function Call: WRITE	Prompt: !!,"THIS PROBLEM CODE CANNOT BE ADDED TO A PCC PROBLEM LIST!!",!! Line Location: EN3+5
Function Call: WRITE	Prompt: !!,"THIS PROBLEM CODE CANNOT BE ADDED TO A PCC PROBLEM LIST!!",!! Line Location: EN3+6
Routine Call	DIC Line Location: POV+5 ADDPCC+13
Routine Call	DIR Line Location: CHK+3 BHPROB+3 ADDBH+2 PCCPROB+5 ADDPCC+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPROB - [#9000011]	Classic Fileman Calls
^AMHREC - [#9002011]	GET^DDSVAL
^AMHRPRO - [#9002011.01]	Classic Fileman Calls
^AMHPPROB - [#9002011.51]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPROB("AA"	ADDBH+5
^AMHPROB - [#9002012.2]	FILE+8, ADDBH+2, PCCPROB+3, PCCPROB+4, ADDPCC+3, ADDPCC+8, ADDPCC+17, EN3+5, EN3+6
^AMHREC - [#9002011]	EP+2, BHPROB+2
^AMHRPRO - [#9002011.01]	FILE+4, FILE+7, FILE+10
^AMHRPRO("AD"	CHK+1, POV+4
^AUPNPROB("AA"	ADDPCC+6
^AUTNPOV - [#9999999.27]	FILE+11, ADDPCC+17
^DD(9999999.27	FILE+8

Label References

Name	Line Occurrences
ADDBH	EN1+3
ADDPCC	EN3+8
BHPROB	FILE+13
CHK	EP+5
EP	CHK+4
PCCPROB	FILE+14
POV	EP+4
XIT	EP+1, EP+2, EP+6, FILE+3, FILE+9, ADDBH+9, ADDPCC+13, EN1+4

Naked Globals

Name	Field # of Occurrence
^(0	PCCPROB+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHDATE	POV+3, EN1+2, EN3+2
>> AMHDET	POV+2, ADDPCC+17
AMHDT	POV+3, ADDPCC+18, XIT+2!, EN1+2, EN3+2*
>> AMHGROUP	POV+4, FILE+13, FILE+14
AMHLEPT	XIT+2!
>> AMHLOC	ADDBH+12, ADDPCC+1, ADDPCC+6, ADDPCC+18, EN3+7
AMHLOOK	XIT+2!
AMHNARR	FILE+11, ADDBH+12, ADDPCC+17, ADDPCC+18, XIT+2!
AMHNUM	ADDPCC+7*, ADDPCC+18, XIT+2!
AMHNUMB	ADDPCC+22!
>> AMHPAT	FILE+6, BHPROB+1, ADDBH+5, ADDBH+12, PCCPROB+2, ADDPCC+6, ADDPCC+18, EN3+4
>> AMHPIEN	ADDBH+10*, ADDBH+12, ADDBH+14
AMHPOV	EP+4, POV+7, XIT+2!
AMHPOVP	POV+7*, FILE+2, ADDBH+2, ADDBH+7, PCCPROB+3, PCCPROB+4, ADDPCC+3, XIT+2!, EN3+5, EN3+6
AMHPOVR	FILE+4, FILE+7, FILE+8, FILE+10*, FILE+11, ADDPCC+8, ADDPCC+17, XIT+2!
>> AMHR	EP+1, EP+2, CHK+1, POV+4, FILE+6, BHPROB+2, EN3+7
AMHRPRO	FILE+4*, FILE+6, FILE+7, FILE+8, FILE+10, XIT+2!
AMHTX	ADDBH+5, ADDBH+6, ADDBH+12, XIT+2!
AMHTY	ADDBH+5*, ADDBH+6!, XIT+2!
>> AMHVTYPE	FILE+12
>> APCDOVRR	EP2+1, EP+3, ADDBH+11, ADDPCC+15
D0	FILE+2!, ADDBH+7!, ADDBH+8!
DA	FILE+2!, FILE+6, FILE+8, ADDBH+7!, ADDBH+12, ADDBH+14, ADDPCC+18*, ADDPCC+19!
DD	FILE+2!, ADDBH+7!, ADDBH+8!
DIADD	FILE+2!, ADDBH+7, ADDBH+8!, ADDPCC+13*!, XIT+1!
DIC	POV+4, FILE+2!, ADDBH+7!, ADDBH+8!, ADDPCC+13!
DIC("A"	POV+4*
DIC("DR"	FILE+2, ADDBH+7
DIC("S"	POV+4*
DIC(0	POV+4, FILE+2, ADDBH+7, ADDPCC+13
DIE	FILE+2!, FILE+6, FILE+8, ADDBH+8!, ADDBH+12, ADDBH+14, ADDPCC+18*, ADDPCC+19!
DIE("NO^"	FILE+6, FILE+8, ADDBH+12*
DINUM	FILE+2!, ADDBH+7!
DIR	CHK+3!, BHPROB+3!, ADDBH+2!, PCCPROB+5!, ADDPCC+3!
DIR("?"	BHPROB+3, PCCPROB+5
DIR("A"	CHK+3, BHPROB+3, ADDBH+2, PCCPROB+5, ADDPCC+3*
DIR("B"	CHK+3, BHPROB+3, ADDBH+2, PCCPROB+5, ADDPCC+3*
DIR(0	CHK+3, BHPROB+3, ADDBH+2, PCCPROB+5, ADDPCC+3*
>> DIRUT	CHK+3, BHPROB+3, BHPROB+4, ADDBH+2, ADDBH+3, PCCPROB+5, PCCPROB+7, ADDPCC+3*, ADDPCC+4
DIU	ADDPCC+19!
DIV	ADDPCC+19!
DIW	ADDPCC+19!
DLAYGO	FILE+2!, ADDBH+7, ADDBH+8!, ADDPCC+13*!, XIT+1!
DO	FILE+2!, ADDBH+7!, ADDBH+8!
DR	FILE+2!, FILE+6, FILE+8, ADDBH+7!, ADDBH+8!, ADDBH+12, ADDBH+14, ADDPCC+18*, ADDPCC+19!
>> DUOUT	CHK+3, BHPROB+3, ADDBH+2, PCCPROB+5, ADDPCC+3
DUZ(2	ADDBH+12, PCCPROB+1, ADDPCC+1, EN3+3
IOF	POV+2, EN1+1, EN3+1
U	POV+7, FILE+8, FILE+11, BHPROB+2, ADDBH+2, PCCPROB+3, PCCPROB+4, ADDPCC+3, ADDPCC+8, ADDPCC+17 , EN3+5, EN3+6
X	FILE+2!, FILE+8, ADDBH+7, ADDBH+8!, ADDPCC+6, ADDPCC+7, ADDPCC+8, ADDPCC+9, ADDPCC+10, ADDPCC+11 , ADDPCC+12, ADDPCC+13*, ADDPCC+22!
Y	CHK+4, POV+6, POV+7, FILE+3, FILE+4, FILE+9, BHPROB+5, ADDBH+4, ADDBH+9, ADDBH+10 , ADDBH+13, ADDBH+15, PCCPROB+8, ADDPCC+5, ADDPCC+6, ADDPCC+13, ADDPCC+18, ADDPCC+21, ADDPCC+22!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEPOV

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: