Routine: AMHLEFPP

Package	Total	Call Graph
VA Fileman	3	DD^%DT $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
Mental Health Social Services	2	DEMO^AMHLEFP1 ($$PPNAME,$$SSN)^AMHUTIL
DRG Grouper	1	$$CPT^ICPTCOD
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP - CALLED FROM LAST VISIT DISPLAY
TMP	;treated med problems
PRTTXT	; GENERALIZED TEXT PRINTER
SUB
COMMENT	;
POV	;
DEMO	;EP demographics
GETFRAG
MEDS	;
COMM	;
FF	;EP
TIME
PROC	;
INPT	;
PRTTXT2

External References

Name	Field # of Occurrence
DD^%DT	PRINT1+8, TIME
DEMO^AMHLEFP1	DEMO+1
$$PPNAME^AMHUTIL	PRINT1+9, SUB+5
$$SSN^AMHUTIL	FF+4
$$GET1^DIQ	POV+5
^DIR	FF+1
$$CPT^ICPTCOD	PROC+5
$$VAL^XBDIQ1	INPT+3
$$EXTSET^XBFUNC	TIME+1, TIME+3
$$FMTE^XLFDT	FF+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: PRINT1+3
Function Call: WRITE	Prompt: !?15,"PCC BEHAVIORAL HEALTH ENCOUNTER RECORD" Line Location: PRINT1+4
Function Call: WRITE	Prompt: !?18,"* Computer Generated Encounter Record *" Line Location: PRINT1+5
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","*") Line Location: PRINT1+6
Function Call: WRITE	Prompt: !!?3,"Date: " Line Location: PRINT1+8
Function Call: WRITE	Prompt: Y Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?31,"Primary Provider: ",$$PPNAME^AMHUTIL(AMHR) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !?35,$P(^VA(200,$P(^AMHRPROV(AMHX,0),U),0),U) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !?3,"Arrival Time: " Line Location: TIME+0
Function Call: WRITE	Prompt: $P(Y,"@",2) Line Location: TIME+0
Function Call: WRITE	Prompt: $P(Y,"@",2) Line Location: TIME+0
Function Call: WRITE	Prompt: !?3,"Program: ",$$EXTSET^XBFUNC(9002011,.02,$P(AMHR0,U,2)) Line Location: TIME+1
Function Call: WRITE	Prompt: !?3,"Clinic: " Line Location: TIME+2
Function Call: WRITE	Prompt: $P(^DIC(40.7,$P(AMHR0,U,25),0),U) Line Location: TIME+2
Function Call: WRITE	Prompt: !?3,"Appointment Type: ",$$EXTSET^XBFUNC(9002011,.11,$P(AMHR0,U,11)) Line Location: TIME+3
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: TIME+4
Function Call: WRITE	Prompt: !?53,"Number",?64,"Activity/Service" Line Location: COMM+2
Function Call: WRITE	Prompt: !?3,"Community: " Line Location: COMM+3
Function Call: WRITE	Prompt: $E($P(^AUTTCOM($P(AMHR0,U,5),0),U),1,15) Condition for execution: $P(AMHR0,U,5) Line Location: COMM+3
Function Call: WRITE	Prompt: ?32,"Activity: " Line Location: COMM+4
Function Call: WRITE	Prompt: $P(^AMHTACT($P(AMHR0,U,6),0),U),"-",$P(^AMHTACT($P(AMHR0,U,6),0),U,8) Line Location: COMM+4
Function Call: WRITE	Prompt: ?53,"Served: ",$P(AMHR0,U,9),?64,"Time: ",$P(AMHR0,U,12) Line Location: COMM+5
Function Call: WRITE	Prompt: !?32,"Type of Contact: " Line Location: COMM+6
Function Call: WRITE	Prompt: $P(^AMHTSET($P(AMHR0,U,7),0),U) Line Location: COMM+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: COMM+7
Function Call: WRITE	Prompt: !?3,"CHIEF COMPLAINT: " Line Location: COMM+9
Function Call: WRITE	Prompt: !?3,"Chief Complaint/Presenting Problem Suppressed for Confidentiality",! Line Location: COMM+10
Function Call: WRITE	Prompt: !?3,"SUBJECTIVE/OBJECTIVE: ",! Line Location: SUB+0
Function Call: WRITE	Prompt: ?3,"Mental Health or Social Services Contact",!?3,"See ",$$PPNAME^AMHUTIL(AMHR)," for details.",! Line Location: SUB+5
Function Call: WRITE	Prompt: ?14,$P(^AMHTAXIV(I,0),U)_" - "_$P(^AMHTAXIV(I,0),U,2),! Line Location: SUB+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: SUB+13
Function Call: WRITE	Prompt: !?3,"BH POV CODE PURPOSE OF VISIT (POV)",!?3,"OR DSM DIAGNOSIS [PRIMARY ON FIRST LINE]" Line Location: SUB+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: SUB+15
Function Call: WRITE	Prompt: ! Line Location: POV+9
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: POV+10
Function Call: WRITE	Prompt: !?3,"TREATED MEDICAL PROBLEMS:" Line Location: TMP+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: TMP+6
Function Call: WRITE	Prompt: !?3,"MEDICATIONS PRESCRIBED:" Line Location: MEDS+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: MEDS+6
Function Call: WRITE	Prompt: !?3,"PROCEDURES (CPT):" Line Location: PROC+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: COMMENT+1
Function Call: WRITE	Prompt: !?3,"COMMENT:",! Line Location: COMMENT+3
Function Call: WRITE	Prompt: ! Line Location: COMMENT+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: COMMENT+11
Function Call: WRITE	Prompt: ?AMHTICL Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: AMHTF,! Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: ! Line Location: FF+1
Function Call: WRITE	Prompt: !!,$TR($J(" ",79)," ","*"),!,$P(^DPT($P(AMHR0,U,8),0),U),?32,"HRN: " Line Location: FF+2
Routine Call	DIR Line Location: FF+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHRPRO - [#9002011.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	POV+3, POV+4
^AMHREC - [#9002011]	PRINT1+1, COMM+9, SUB+1, SUB+3, SUB+7, SUB+10, MEDS+2, MEDS+4, PROC+5, COMMENT+9
^AMHRPRO - [#9002011.01]	POV+3, POV+4
^AMHRPRO("AD"	POV+1
^AMHRPROC - [#9002011.04]	PROC+5
^AMHRPROC("AD"	PROC+2
^AMHRPROV - [#9002011.02]	PRINT1+10
^AMHRPROV("AD"	PRINT1+10
^AMHRTMDP - [#9002011.03]	TMP+4
^AMHRTMDP("AD"	TMP+2
^AMHSITE - [#9002013]	COMMENT+4, COMMENT+6
^AMHTACT - [#9002012]	COMM+4
^AMHTAXIV - [#9002012.9]	SUB+10
^AMHTSET - [#9002012.1]	COMM+6
^AUPNPAT - [#9000001]	FF+3
^AUTNPOV - [#9999999.27]	TMP+4
^AUTTCOM - [#9999999.05]	COMM+3
^DIC(40.7 - [#40.7]	TIME+2
^DPT - [#2]	FF+2, FF+4
^VA(200 - [#200]	PRINT1+10

Label References

Name	Line Occurrences
FF	PRINT1+7, PRINT1+11, COMM+1, COMM+8, SUB+2, SUB+6, SUB+8, POV+2, POV+9, POV+10 , INPT+2, TMP+3, MEDS+3, PROC+3, COMMENT+2
GETFRAG	PRTTXT2
PRINT1	AMHLEFPP+5, AMHLEFPP+6, AMHLEFPP+7
PRTTXT	COMM+9, POV+4, POV+5, COMMENT+10
PRTTXT2	PRTTXT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+6, COMMENT+7, COMMENT+8
AMEFT	AMHLEFPP+7!
>> AMHC	POV+1, POV+6, POV+9, TMP+2, PROC+2
AMHEFT	AMHLEFPP+5!, AMHLEFPP+6!, AMHLEFPP+7*, COMM+9, COMM+10, SUB+1, SUB+5, POV+4, COMMENT+4, COMMENT+5 , COMMENT+6
>> AMHHRN	FF+3*, FF+4
>> AMHQUIT	AMHLEFPP+5, AMHLEFPP+6, AMHLEFPP+7, PRINT1+2, PRINT1+7, PRINT1+10, PRINT1+11, COMM+1, COMM+8, SUB+1 , SUB+2, SUB+6, SUB+7, SUB+8, POV+1, POV+2, POV+8, POV+9, POV+10, INPT+1 , INPT+2, TMP+2, TMP+3, MEDS+2, MEDS+3, PROC+2, PROC+3, COMMENT+2, FF+1
>> AMHR	PRINT1+1, PRINT1+9, PRINT1+10, COMM+9, SUB+1, SUB+3, SUB+5, SUB+7, SUB+10, POV+1 , INPT+3, TMP+2, MEDS+2, MEDS+4, PROC+2, PROC+5, COMMENT+9
>> AMHR0	PRINT1+1*, PRINT1+8, TIME, TIME+1, TIME+2, TIME+3, COMM+3, COMM+4, COMM+5, COMM+6 , SUB+7, SUB+11, INPT+1, INPT+3, FF+2, FF+3, FF+4
AMHTC	PRTTXT+3!, GETFRAG+1*, GETFRAG+2
AMHTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
AMHTDOO	PRTTXT+3!
AMHTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
>> AMHTICL	COMM+9, POV+4, POV+5, COMMENT+9, PRTTXT+1, PRTTXT2*
AMHTILN	PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
>> AMHTNRQ	COMM+9, POV+4, POV+5, COMMENT+9, COMMENT+10, PRTTXT+2*
>> AMHTQ	PRTTXT+2*
AMHTTXT	COMM+9, POV+4, POV+5, COMMENT+9, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2*
>> AMHX	PRINT1+10, SUB+1, SUB+3, POV+1, POV+3, POV+4, POV+5, TMP+2, TMP+4, MEDS+2* , MEDS+4, PROC+2*, PROC+5
DIR	FF+1!
DIR(0	FF+1*
>> DTOUT	FF+1
DUZ(2	COMMENT+4, COMMENT+6, FF+3
>> I	SUB+10, POV+9
IO	FF+1
IO(0	FF+1
IOF	PRINT1+2, FF+5
IOSL	PRINT1+7, PRINT1+11, COMM+1, COMM+8, SUB+2, SUB+6, SUB+8, POV+2, POV+9, POV+10 , INPT+2, TMP+3, MEDS+3, PROC+3, COMMENT+2
IOST	PRINT1+2, FF+1, FF+2
U	PRINT1+8, PRINT1+10, TIME, TIME+1, TIME+2, TIME+3, COMM+3, COMM+4, COMM+5, COMM+6 , SUB+7, SUB+10, SUB+11, POV+3, POV+4, INPT+1, INPT+3, TMP+4, PROC+5, COMMENT+4 , COMMENT+6, FF+2, FF+3, FF+4
>> Y	PRINT1+8, TIME, SUB+10*, FF+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEFPP

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: