Routine: YTQRCDB4

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$NAMEFMT^XLFNAME ($$LOW,$$REPLACE,$$SENTENCE,$$TITLE)^XLFSTR
Mental Health	1	SETERROR^YTQRUTL
Registration	1	(DEM,KVA)^VADPT
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Mental Health	1	YTQRCDB3

Name	Comments	DBIA/ICR reference
BLDHDR(RESULTS,ADMIN,MAXWIDTH)	; Build header with patient information for Patient Entry
LOADTLT(TLT)	; Load template for RPT into .TLT split by "\|" chars ; resulting TLT array uses $C(10) to represent line breaks
HDR	;Standard report header
RMVDOTS(X)	; Return X with the initial line feed / dots removed
WRAPTLT(TLT,MAX)	; Wrap lines in TLT that are >WIDTH by adding $C(10)
FIXP(RSTR,RESULTS)	;
GETDATA	;
ADMINFO(ADATA,ADMIN)	;
PATINFO(PDATA,DFN)	;
SWAPIT	;
SWAP	;
SWAPANS	;
FMTANS(ANS)	; return answer string with $C(10))_" " for "\|" chars
SETSCL	;
WRAP(TX,MAX)	; If length of TX > MAX, wrap by adding $C(10)
ADDOUT(S)	; add string to out array (expects OUT)

Name	Field # of Occurrence
$$GET1^DIQ	ADMINFO+3, ADMINFO+10
DEM^VADPT	PATINFO+7
KVA^VADPT	PATINFO+16
$$FMTE^XLFDT	ADMINFO+8
$$NAMEFMT^XLFNAME	ADMINFO+9, PATINFO+6
$$LOW^XLFSTR	PATINFO+9
$$REPLACE^XLFSTR	GETDATA+2, FMTANS+2
$$SENTENCE^XLFSTR	PATINFO+15
$$TITLE^XLFSTR	ADMINFO+10
SETERROR^YTQRUTL	BLDHDR+9

FileNo	Call Tags
^YTT(601.84 - [#601.84]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	BLDHDR+3!, SETSCL+2, SETSCL+3, SETSCL+4
^YTT(601.72 - [#601.72]	SWAPANS+20
^YTT(601.75 - [#601.75]	SWAPANS+20
^YTT(601.84 - [#601.84]	ADMINFO+2, ADMINFO+7, ADMINFO+8

Name	Line Occurrences
$$FMTANS	SWAPANS+8
$$RMVDOTS	LOADTLT+8
$$WRAP	WRAPTLT+2, SWAPANS+32
ADDOUT	WRAP+4, WRAP+8, WRAP+10
ADMINFO	BLDHDR+4
FIXP	BLDHDR+14
GETDATA	BLDHDR+11
LOADTLT	BLDHDR+8
PATINFO	BLDHDR+5
SWAPANS	BLDHDR+7
SWAPIT	BLDHDR+6
WRAPTLT	BLDHDR+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATA	BLDHDR+1~, BLDHDR+4, ADMINFO~
ADATA("DATE"	ADMINFO+8*
ADATA("DFN"	BLDHDR+5, ADMINFO+7*
ADATA("LOC"	ADMINFO+10*
ADATA("ORDERED"	ADMINFO+9*
ADMIN	BLDHDR~, BLDHDR+2, BLDHDR+4, ADMINFO~, ADMINFO+2, ADMINFO+3, ADMINFO+7, ADMINFO+8, ADMINFO+10
ANS	BLDHDR+1~, SWAPANS+1~, SWAPANS+6, SWAPANS+8, SWAPANS+10, SWAPANS+12, SWAPANS+14, SWAPANS+15, SWAPANS+18, SWAPANS+20 , SWAPANS+22, SWAPANS+24, SWAPANS+26, FMTANS~, FMTANS+2
ANSID	SWAPANS+1~, SWAPANS+7*, SWAPANS+10, SWAPANS+12, SWAPANS+14, SWAPANS+16, SWAPANS+17, SWAPANS+18, SWAPANS+20, SWAPANS+22 , SWAPANS+24, SWAPANS+26
ARRAY	LOADTLT+2~
ARRAY(	LOADTLT+5*, LOADTLT+6, LOADTLT+7
CLIN	ADMINFO+1~, ADMINFO+3*, ADMINFO+6
DATA	ADMINFO+1~, ADMINFO+2*
DFN	PATINFO~, PATINFO+2, PATINFO+5
DOB	PATINFO+1~, PATINFO+9*, PATINFO+10
END	LOADTLT+2~, LOADTLT+10, LOADTLT+11, LOADTLT+13, LOADTLT+14, FIXP+1~, FIXP+4, FIXP+5, FIXP+7, FIXP+9
FRAG	LOADTLT+2~, LOADTLT+3, LOADTLT+13, LOADTLT+14, LOADTLT+16, LOADTLT+18, FIXP+1~, FIXP+2, FIXP+7, FIXP+9* , FIXP+11*
FVC	RMVDOTS+1~, RMVDOTS+3, RMVDOTS+4
I	BLDHDR+1~, LOADTLT+2~, LOADTLT+4, LOADTLT+5, RMVDOTS+1~, RMVDOTS+2, RMVDOTS+3, RMVDOTS+4, RMVDOTS+5, WRAPTLT+1~ , WRAPTLT+2, WRAP+1~, WRAP+3, WRAP+11
INST	BLDHDR+1~
J	WRAP+1~, WRAP+6*, WRAP+7, WRAP+8
LF	LOADTLT+2~, LOADTLT+3, LOADTLT+13, LOADTLT+18, FIXP+1~, FIXP+2, FIXP+4, WRAP+1~, WRAP+2*, WRAP+3 , WRAP+11
LN	LOADTLT+2~, LOADTLT+3, LOADTLT+12, LOADTLT+13, LOADTLT+18, FIXP+1~, FIXP+2, FIXP+6*, FIXP+7, FIXP+8
LP	BLDHDR+1~, LOADTLT+2~, LOADTLT+6, LOADTLT+7, LOADTLT+8, LOADTLT+9, FIXP+1~, FIXP+3, FIXP+4, FIXP+7 , FIXP+11, GETDATA+1~, GETDATA+2, SWAPIT+1~, SWAPIT+2, SWAPANS+1~, SWAPANS+5, SWAPANS+6, SETSCL+1~, SETSCL+3* , SETSCL+4
MAX	WRAPTLT~, WRAPTLT+2, SWAPANS+1~, SWAPANS+3*, SWAPANS+30, SWAPANS+32, WRAP~, WRAP+4, WRAP+8
MAXWIDTH	BLDHDR~, BLDHDR+12, SWAPANS+3
MYNAME	ADMINFO+1~, ADMINFO+9, PATINFO+1~, PATINFO+6
MYNAME("FIELD"	ADMINFO+5, PATINFO+4
MYNAME("FILE"	ADMINFO+4, PATINFO+3
MYNAME("IENS"	ADMINFO+6, PATINFO+5
OUT	WRAP+1~, ADDOUT+1*
OUT(	WRAP+11, ADDOUT+1*
PDATA	BLDHDR+1~, BLDHDR+5, PATINFO~
PDATA("AGE"	PATINFO+11*
PDATA("DOB"	PATINFO+10*
PDATA("GENDER"	PATINFO+13, PATINFO+15
PDATA("NM"	PATINFO+6*
PDATA("SSN"	PATINFO+8*
QSTN	SWAPANS+1~, SWAPANS+4, SWAPANS+6, SWAPANS+7, SWAPANS+10, SWAPANS+20
RESULTS	BLDHDR~, BLDHDR+14, FIXP~
RESULTS(	FIXP+7, FIXP+8
RPT	BLDHDR+1~, BLDHDR+9
RSTR	BLDHDR+1~, BLDHDR+8, BLDHDR+9, BLDHDR+12, BLDHDR+14, FIXP~
RSTR(	FIXP+3, FIXP+4, FIXP+7, FIXP+11, GETDATA+2*
S	ADDOUT~, ADDOUT+1
SCL	BLDHDR+1~
SEQ	SWAPANS+1~, SWAPANS+6*, SWAPANS+12
START	LOADTLT+2~, LOADTLT+10, LOADTLT+13, LOADTLT+14, LOADTLT+16, LOADTLT+17, FIXP+1~, FIXP+4, FIXP+7, FIXP+9* , FIXP+11, FIXP+12*
STR	SWAPANS+1~, SETSCL+1~, SETSCL+4*, SETSCL+5
SWAP	BLDHDR+1~, GETDATA+2
SWAP(	SWAPIT+2, SWAPANS+10, SWAPANS+12, SWAPANS+14, SWAPANS+16, SWAPANS+17, SWAPANS+18, SWAPANS+20, SWAPANS+22, SWAPANS+24 , SWAPANS+26, SWAPANS+29, SWAPANS+30, SWAPANS+32
SWAP("<*Answer_"	SWAPANS+4*
SWAP("<-"	SETSCL+5*
SWAP("<.DLL_String.>"	SWAPIT+3*
SWITCH	FMTANS+1~, FMTANS+2
SWITCH("\|"	FMTANS+1*
TLT	LOADTLT~, WRAPTLT~
TLT(	LOADTLT+13, LOADTLT+18, WRAPTLT+2*
TSTNM	BLDHDR+1~, SWAPANS+10, SWAPANS+16
TX	WRAP~, WRAP+3
TXT	SWAPIT+1~, SWAPIT+2*
U	ADMINFO+7, ADMINFO+8, PATINFO+9, PATINFO+11, PATINFO+12, PATINFO+13, PATINFO+15, SWAPANS+6, SWAPANS+20, SETSCL+5
VA	PATINFO+1~
VA("BID"	PATINFO+8
VADM	PATINFO+1~
VADM(14	PATINFO+12, PATINFO+13
VADM(3	PATINFO+9
VADM(4	PATINFO+11
VADM(5	PATINFO+15
X	LOADTLT+2~, LOADTLT+4, LOADTLT+5, LOADTLT+7, LOADTLT+8, LOADTLT+9, LOADTLT+10, LOADTLT+13, LOADTLT+16, RMVDOTS~ , RMVDOTS+2, RMVDOTS+4, RMVDOTS+5, SWAPANS+1~, SWAPANS+29, SWAPANS+30, SWAPANS+31, SWAPANS+32, WRAP+1~, WRAP+3 , WRAP+4, WRAP+6, WRAP+7, WRAP+8, WRAP+11*, WRAP+12
Y	WRAP+1~, WRAP+5, WRAP+7, WRAP+8, WRAP+9*, WRAP+10
YNEW	WRAP+1~, WRAP+7*, WRAP+8, WRAP+9
YS	BLDHDR+1~
YS("AD"	BLDHDR+2*
YSDATA	BLDHDR+1~, SWAPANS+2
YSDATA(	SWAPANS+5, SWAPANS+6
YSDATA(1	SWAPANS+2

Customize PDF page

Package: Mental Health

Routine: YTQRCDB4

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(HDR+I	LOADTLT+4
$T(SWAP+LP	SWAPIT+2