Routine: YSASCSB

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$LN^XLFMTH
Mental Health	1	EN^YSASCSC
VA FileMan	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
IF(YSASIEN,YSASFLD,YSASFLG)	;pass ien and field - return content
C(X,Y,Z)	;return score/msg - pass data in X, Item # in Y and optional comment in Z.
EM(X)	;Error Message
SM(X)	;Score Message
EN(YSASDA)	;Entry point
QTEP	;Queued Task Entry Point
CSMS	;Composit Score for Medical Status
CSES	;Composit Score for Employment Status
CSA	;Composit Score for Alcohol
CSD	;Composit Score for Drug
FF()	;Form Feed
HDR	;Header

Name	Field # of Occurrence
^%ZIS	EN+3
HOME^%ZIS	EN+11
^%ZISC	QTEP+4
^%ZTLOAD	EN+10
$$GET1^DIQ	IF+4
$$LN^XLFMTH	CSES+13, CSA+19
EN^YSASCSC	QTEP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Fields for Medical Composite Scores" Line Location: CSMS+3
Function Call: WRITE	Prompt: !,"-----------------------------------",! Line Location: CSMS+4
Function Call: WRITE	Prompt: !,$$C(YSASA,"M6") Line Location: CSMS+7
Function Call: WRITE	Prompt: !,$$C(YSASB,"M7") Line Location: CSMS+9
Function Call: WRITE	Prompt: !,$$C(YSASC,"M8") Line Location: CSMS+11
Function Call: WRITE	Prompt: !!,$$EM("Medical") Line Location: CSMS+12
Function Call: WRITE	Prompt: !!,$$SM("Medical"),$J((YSASA/90)+(YSASB/12)+(YSASC/12),6,4) Line Location: CSMS+13
Function Call: WRITE	Prompt: !!!,"Items for Employment Composite Scores" Line Location: CSES+1
Function Call: WRITE	Prompt: !,"-------------------------------------",! Line Location: CSES+2
Function Call: WRITE	Prompt: !,$$C(YSASA,"E4") Line Location: CSES+5
Function Call: WRITE	Prompt: !,$$C(YSASB,"E5") Line Location: CSES+7
Function Call: WRITE	Prompt: !,$$C(YSASC,"E11") Line Location: CSES+9
Function Call: WRITE	Prompt: !,$$C(YSASD,"E12") Line Location: CSES+11
Function Call: WRITE	Prompt: !!,$$EM("Employment") Line Location: CSES+12
Function Call: WRITE	Prompt: !!,$$SM("Employment"),$J(1.000-(YSASA+YSASB+YSASC+YSASD),6,4) Line Location: CSES+15
Function Call: WRITE	Prompt: !!!,"Items for Alcohol Composite Scores" Line Location: CSA+3
Function Call: WRITE	Prompt: !,"----------------------------------",! Line Location: CSA+4
Function Call: WRITE	Prompt: !,$$C(YSASA,"D1") Line Location: CSA+7
Function Call: WRITE	Prompt: !,$$C(YSASB,"D2") Line Location: CSA+9
Function Call: WRITE	Prompt: !,$$C(YSASC,"D26") Line Location: CSA+11
Function Call: WRITE	Prompt: !,$$C(YSASD,"D28") Line Location: CSA+13
Function Call: WRITE	Prompt: !,$$C(YSASE,"D30") Line Location: CSA+15
Function Call: WRITE	Prompt: !,$$C(YSASF,"D23") Line Location: CSA+17
Function Call: WRITE	Prompt: !!,$$EM("Alcohol") Line Location: CSA+18
Function Call: WRITE	Prompt: !!,$$SM("Alcohol"),$J(YSASA+YSASB+YSASC+YSASD+YSASE+YSASF,6,4) Line Location: CSA+22
Function Call: WRITE	Prompt: !!!,"Items for Drug Composite Scores" Line Location: CSD+3
Function Call: WRITE	Prompt: !,"-------------------------------",! Line Location: CSD+4
Function Call: WRITE	Prompt: !,$$C(YSASA,"D3") Line Location: CSD+7
Function Call: WRITE	Prompt: !,$$C(YSASB,"D4") Line Location: CSD+9
Function Call: WRITE	Prompt: !,$$C(YSASC,"D5") Line Location: CSD+11
Function Call: WRITE	Prompt: !,$$C(YSASD,"D6") Line Location: CSD+13
Function Call: WRITE	Prompt: !,$$C(YSASE,"D7") Line Location: CSD+15
Function Call: WRITE	Prompt: !,$$C(YSASF,"D8") Line Location: CSD+17
Function Call: WRITE	Prompt: !,$$C(YSASG,"D9") Line Location: CSD+19
Function Call: WRITE	Prompt: !,$$C(YSASH,"D10") Line Location: CSD+21
Function Call: WRITE	Prompt: !,$$C(YSASI,"D11") Line Location: CSD+23
Function Call: WRITE	Prompt: !,$$C(YSASJ,"D13") Line Location: CSD+25
Function Call: WRITE	Prompt: !,$$C(YSASK,"D27") Line Location: CSD+27
Function Call: WRITE	Prompt: !,$$C(YSASL,"D29") Line Location: CSD+29
Function Call: WRITE	Prompt: !,$$C(YSASM,"D31") Line Location: CSD+31
Function Call: WRITE	Prompt: !!,$$EM("Drug") Line Location: CSD+32
Function Call: WRITE	Prompt: !!,$$SM("Drug"),$J(YSASA+YSASB+YSASC+YSASD+YSASE+YSASF+YSASG+YSASH+YSASI+YSASJ+YSASK+YSASL+YSASM,6,4) Line Location: CSD+37
Function Call: WRITE	Prompt: !!,"<press <cr> to continue>" Line Location: FF+4
Function Call: WRITE	Prompt: !,$$IF(YSASDA,.02)," ASI interview date: ",$$IF(YSASDA,.05) Line Location: HDR+1
Routine Call	%ZIS Line Location: EN+3
Routine Call	%ZIS Line Location: EN+11

FileNo	Call Tags
^YSTX(604 - [#604]	GET1^DIQ

Name	Line Occurrences
$$C	CSMS+7, CSMS+9, CSMS+11, CSES+5, CSES+7, CSES+9, CSES+11, CSA+7, CSA+9, CSA+11 , CSA+13, CSA+15, CSA+17, CSD+7, CSD+9, CSD+11, CSD+13, CSD+15, CSD+17, CSD+19 , CSD+21, CSD+23, CSD+25, CSD+27, CSD+29, CSD+31
$$EM	CSMS+12, CSES+12, CSA+18, CSD+32
$$FF	QTEP+3, CSA+1, CSD+1
$$IF	CSMS+6, CSMS+8, CSMS+10, CSES+4, CSES+6, CSES+8, CSES+10, CSA+6, CSA+8, CSA+10 , CSA+12, CSA+14, CSA+16, CSD+6, CSD+8, CSD+10, CSD+12, CSD+14, CSD+16, CSD+18 , CSD+20, CSD+22, CSD+24, CSD+26, CSD+28, CSD+30, HDR+1
$$SM	CSMS+13, CSES+15, CSA+22, CSD+37
CSA	QTEP+1
CSD	QTEP+1
CSES	QTEP+1
CSMS	QTEP+1
HDR	CSMS+2, CSA+2, CSD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1~, EN+2*
DIERR	IF+3~
DTIME	FF+5
IO	EN+13
IO("Q"	EN+5
IOF	CSMS+1, FF+6
IOST	CSMS+1, CSA+2, CSD+2, FF+1
POP	EN+1~, EN+4
X	C~, C+1, C+2, EM~, EM+1, SM~, SM+1, FF+3~, FF+5*, FF+7
Y	C~, C+1, C+2
YSASA	CSMS+5~, CSMS+6, CSMS+7, CSMS+12, CSMS+13, CSES+3~, CSES+4, CSES+5, CSES+12, CSES+14* , CSES+15, CSA+5~, CSA+6, CSA+7, CSA+18, CSA+20, CSA+22, CSD+5~, CSD+6, CSD+7 , CSD+32, CSD+33, CSD+37
YSASB	CSMS+5~, CSMS+8, CSMS+9, CSMS+12, CSMS+13, CSES+3~, CSES+6, CSES+7, CSES+12, CSES+14* , CSES+15, CSA+5~, CSA+8, CSA+9, CSA+18, CSA+20, CSA+22, CSD+5~, CSD+8, CSD+9 , CSD+32, CSD+33, CSD+37
YSASC	CSMS+5~, CSMS+10, CSMS+11, CSMS+12, CSMS+13, CSES+3~, CSES+8, CSES+9, CSES+12, CSES+14* , CSES+15, CSA+5~, CSA+10, CSA+11, CSA+18, CSA+20, CSA+22, CSD+5~, CSD+10, CSD+11 , CSD+32, CSD+33, CSD+37
YSASD	CSES+3~, CSES+10, CSES+11, CSES+12, CSES+13, CSES+14, CSES+15, CSA+5~, CSA+12, CSA+13 , CSA+18, CSA+20, CSA+22, CSD+5~, CSD+12, CSD+13, CSD+32, CSD+33*, CSD+37
YSASDA	EN~, CSMS+6, CSMS+8, CSMS+10, CSES+4, CSES+6, CSES+8, CSES+10, CSA+6, CSA+8 , CSA+10, CSA+12, CSA+14, CSA+16, CSD+6, CSD+8, CSD+10, CSD+12, CSD+14, CSD+16 , CSD+18, CSD+20, CSD+22, CSD+24, CSD+26, CSD+28, CSD+30, HDR+1
YSASE	CSA+5~, CSA+14, CSA+15, CSA+18, CSA+21, CSA+22, CSD+5~, CSD+14, CSD+15, CSD+32 , CSD+34, CSD+37
YSASF	CSA+5~, CSA+16, CSA+17, CSA+18, CSA+19, CSA+21, CSA+22, CSD+5~, CSD+16, CSD+17 , CSD+32, CSD+34*, CSD+37
YSASFLD	IF~, IF+2, IF+4
YSASFLG	IF~, IF+4
YSASG	CSD+5~, CSD+18, CSD+19, CSD+32, CSD+34, CSD+37
YSASH	CSD+5~, CSD+20, CSD+21, CSD+32, CSD+34, CSD+37
YSASI	CSMS+5~, CSES+3~, CSD+5~, CSD+22, CSD+23, CSD+32, CSD+35, CSD+37
YSASIEN	IF~, IF+1, IF+4
YSASJ	CSD+5~, CSD+24, CSD+25, CSD+32, CSD+35, CSD+37
YSASK	CSD+5~, CSD+26, CSD+27, CSD+32, CSD+35, CSD+37
YSASL	CSD+5~, CSD+28, CSD+29, CSD+32, CSD+35, CSD+37
YSASM	CSD+5~, CSD+30, CSD+31, CSD+32, CSD+36, CSD+37
YSASQUIT	EN+1~, FF+2, FF+7*
Z	C~, C+1, C+2
ZTDESC	EN+6~, EN+8*
ZTRTN	EN+6~, EN+7*
ZTSAVE	EN+6~
ZTSAVE("YSASDA"	EN+9*

Customize PDF page

Package: Mental Health

Routine: YSASCSB

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: