Routine: YIHISTF

Package	Total	Call Graph
VA FileMan	3	DD^%DT ^DIR ^DIWW
Mental Health	1	ENFT^YSFORM

Entry Points

Name	Comments	DBIA/ICR reference
CK	;
CK1	;
L	;
RP	;
R1	;
YSRP1	;
NOST	;
STM	;
WH	;
HDR	;
WAIT	;
END	;
PC	;
PC1	;

External References

Name	Field # of Occurrence
DD^%DT	PC1+2
^DIR	WAIT+3
^DIWW	PC1+3
ENFT^YSFORM	CK1+1, R1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?YSIND,Y1 Line Location: L+2
Function Call: WRITE	Prompt: !?YSIND,$E(Y1,1,YSYI) Line Location: L+3
Function Call: WRITE	Prompt: !?YSIND,Y1 Line Location: L+4
Function Call: WRITE	Prompt: !!?YSIND,$P(A,U,2),! Line Location: R1+3
Function Call: WRITE	Prompt: ! Condition for execution: YSSCK Line Location: R1+8
Function Call: WRITE	Prompt: !?YSIND,$P(A,U,3) Line Location: R1+8
Function Call: WRITE	Prompt: ! Condition for execution: YSSCK=2 Line Location: R1+8
Function Call: WRITE	Prompt: ! Condition for execution: YSSCK Line Location: STM+2
Function Call: WRITE	Prompt: !?YSLCK,YSYCK Line Location: STM+2
Function Call: WRITE	Prompt: ! Condition for execution: YSSCK=2 Line Location: STM+2
Function Call: WRITE	Prompt: !,$P(^YTT(601,YSTEST,0),U)," QUESTION # ",J,! Line Location: WH+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"MEDICAL RECORD" Line Location: HDR+2
Function Call: WRITE	Prompt: ?(80-$L(YSFHDR)/2),YSFHDR Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: !?25,"(Continued from previous page)" Line Location: HDR+4
Function Call: WRITE	Prompt: !?(80-$L(YSXR)\2),YSXR,":" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: WAIT+1
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+3
Function Call: WRITE	Prompt: !!?34,YSXR Line Location: PC+2
Function Call: WRITE	Prompt: !!,Y Line Location: PC1+2
Function Call: WRITE	Prompt: !! Line Location: PC1+3
Function Call: WRITE	Prompt: ! Line Location: PC1+3
Function Call: WRITE	Prompt: !! Condition for execution: P0 Line Location: PC1+3
Function Call: WRITE	Prompt: $P($G(^VA(200,+YSU,0)),U) Line Location: PC1+3
Function Call: WRITE	Prompt: !,"NOT VALID UNLESS SIGNED - NOT TO BE FILED IN MEDICAL RECORD UNLESS SIGNED" Line Location: PC1+4
Routine Call	DIR Line Location: WAIT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^YTD(601.2 - [#601.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	PC1+3
^YTD(601.2 - [#601.2]	R1+4, PC+3
^YTT(601 - [#601]	RP+1, R1+1, R1+2, WH+1

Label References

Name	Line Occurrences
@(	WH+1
CK	L+2, L+3, L+4, R1+3, R1+7, STM+1
CK1	PC+1, PC1+1, PC1+3
END	R1+3, R1+7, YSRP1+3, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
HDR	CK1+1, RP+2
L	L+5, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
NOST	YSRP1+1, YSRP1+2
PC	R1+1
PC1	PC+3
R1	R1+3, R1+5, R1+6, R1+8, YSRP1+1, YSRP1+2, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
STM	YSRP1+3, NOST+1
WAIT	CK1+1
YSRP1	R1+6

Naked Globals

Name	Field # of Occurrence
^(0	PC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	R1+1!, R1+2, R1+3, R1+6, R1+8, YSRP1+1, YSRP1+2, YSRP1+5, YSRP1+6, END+1!
B	R1+1!, R1+2*, END+1!
D	R1+1!, PC+4!
>> DIC	PC1+2*, PC1+3
DIR	WAIT+3!
DIR(0	WAIT+3*
DIRUT	WAIT+2~, WAIT+3
DIW	R1+1!, PC+4!
DIWF	R1+1!, PC+4!, PC1+2*
DIWL	R1+1!, PC+4!, PC1+2*
DIWR	R1+1!, PC+4!, PC1+2*
DIWT	R1+1!, PC+4!
DN	R1+1!, PC+4!
DTOUT	WAIT+2~
DUOUT	WAIT+2~
DW2	R1+1!, PC+4!, PC1+3*
DWI	R1+1!, PC+4!, PC1+2*, PC1+3
I	R1+1!, R1+2, R1+3, R1+4, R1+5, HDR+1, HDR+3*, END+1!, PC+4!
>> I0	WAIT+1*
IOF	HDR+1, WAIT+3
IOSL	WAIT+1, PC+1, PC1+1, PC1+3
IOST	RP+2
J	RP+1, R1+1!, R1+2, WH+1, END+1!
L	RP+1, R1+1!, R1+4, R1+5, END+1!
P0	CK1+1, RP+2*, R1+1, HDR+1, HDR+2, HDR+3, END+1!, PC+1, PC1+1, PC1+3 , PC1+4
P1	L+2, L+3, L+4, RP+2*, END+1!
P3	RP+2*, R1+3, R1+7, STM+1, END+1!
R	R1+1!, R1+5, YSRP1+1, YSRP1+2*, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1, END+1!
>> R1	WH+1
U	RP+1, R1+2, R1+3, R1+6, R1+8, YSRP1+1, YSRP1+2, WH+1, PC1+1, PC1+3
U1	RP+1, R1+1!, R1+4
>> X	PC+3*, PC1+1
>> Y	PC1+2*
Y1	L+1*, L+2, L+3, L+4, END+1!
Y2	L+1*, L+2, L+3, L+4, END+1!
YSCON	CK1+1, RP+1, HDR+4*, END+1!
>> YSDFN	R1+4, PC+3
>> YSED	R1+4, PC+3
>> YSET	R1+4, PC+3
YSFHDR	RP+1*, HDR+3, END+1!
>> YSFORM	RP+1*
YSFTR	RP+1*, END+1!
YSI	R1+1!, PC+3*, PC+4!, PC1+2
YSIND	L+1, L+2, L+3, L+4, R1+1!, R1+2*, R1+3, R1+6, R1+8, YSRP1+3 , NOST+1, END+1!
YSJ	R1+1!, PC+3*, PC+4!
YSLCK	RP+1, R1+1!, R1+3, R1+6, YSRP1+3, NOST+1, STM+2, END+1!
>> YSLFT	CK1+1, L+2, L+3, L+4, RP+1, R1+3, R1+7, YSRP1+3, YSRP1+4, YSRP1+5 , YSRP1+6, NOST+1, STM+1, WAIT+3, PC+1, PC+3, PC1+1, PC1+3
YSSCK	R1+1!, R1+6*, R1+7, R1+8, STM+1, STM+2, END+1!
YSSTEM	R1+1!, R1+6*, YSRP1+1, YSRP1+2, YSRP1+4, YSRP1+5, YSRP1+6, END+1!
>> YSTEST	RP+1, R1+1, R1+2, WH+1
YSU	R1+1!, PC+4!, PC1+1*, PC1+3
YSXR	RP+1, R1+1!, HDR+5, PC+1, PC+2
YSYCK	R1+1!, R1+6*, STM+2, END+1!
YSYI	L+3*, L+4, END+1!
YSYTX	L+1, L+3, L+4, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1, END+1!
YSYX	R1+1!, R1+4*, R1+5, END+1!
>> Z	PC1+3*

Customize PDF page

Package: Mental Health

Routine: YIHISTF

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: