Routine: YTCHECK

Information

YTCHECK ;SLC/TGA-CHECK PSYCH TEST/INTERVIEW DATA BASE ; 7/10/89 11:21 ;03/11/94 12:13

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
Mental Health	2	^YSLRP DT^YTAUDIT
VA FileMan	1	YN^DICN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Mental Health	1	YSMCHK

Entry Points

Name	Comments	DBIA/ICR reference
S	;
1	;
2	;
ENP	;
CK	;
CK1	;
MMPIRCK(L,L1)	; If MMPIR and EXP=566 and GOT=1132... OK ; This code "compensates" for MMPR longs (MMPIs) entered before ; YS517. These entries still have 1132 (2 x 566) responses...
D	;
T	;
P	;
P1
INC	;
DEL	;
END	;
KIL	;
HD	;

External References

Name	Field # of Occurrence
^%ZIS	2+3
^%ZISC	END+2
^%ZTLOAD	2+3
KILL^%ZTLOAD	END+1
YN^DICN	2+1
^YSLRP	2+2
DT^YTAUDIT	HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?22,"Check Psych Test/Interview Data Base" Line Location: S+1
Function Call: WRITE	Prompt: !!,"You may use this option for individual patients or all patients." Line Location: S+2
Function Call: WRITE	Prompt: !,"If you use it for individual patients, you may elect to delete any unknown" Line Location: S+3
Function Call: WRITE	Prompt: !,"tests/interviews and any tests/interviews with erroneous response sets." Line Location: S+4
Function Call: WRITE	Prompt: !,"If you use it for all patients, you may elect to print a list of errors or" Line Location: S+5
Function Call: WRITE	Prompt: !,"automatically delete all unknown patients, unknown instruments, and all" Line Location: S+6
Function Call: WRITE	Prompt: !,"instruments with erroneous response sets." Line Location: S+7
Function Call: WRITE	Prompt: !!,"THIS OPTION SHOULD NOT BE RUN WHILE TESTS/INTERVIEWS ARE UNDERWAY!",$C(7) Line Location: S+8
Function Call: READ	Variable: A Timeout: DTIME Line Location: 1+1
Function Call: WRITE	Prompt: !,"Type 'I' to check an individial patient's data or 'A' to check all patients." Line Location: 1+2
Function Call: READ	Formatting: !! Prompt: "(L)ist or (D)elete errors: " Variable: A Timeout: DTIME Line Location: 1+4
Function Call: READ	Prompt: !! Variable: "Shall I list discontinued session(s)" S %=0 D YN^DICN G Timeout: "^"[%Y Line Location: 2+1
Function Call: WRITE	Prompt: !?4,"Answer 'YES' or 'NO'." Line Location: 2+1
Function Call: WRITE	Prompt: ! Line Location: CK+10
Function Call: WRITE	Prompt: YSNM Condition for execution: YSN Line Location: CK+10
Function Call: WRITE	Prompt: ?31,"Response set length error on " Line Location: CK+11
Function Call: WRITE	Prompt: X,!?31,"expected ",L," got ",L1 Line Location: CK+15
Function Call: WRITE	Prompt: " - DELETED" Line Location: CK+17
Function Call: WRITE	Prompt: " - DELETED" Line Location: D+1
Function Call: WRITE	Prompt: !,"Unknown patient found" Line Location: P+1
Function Call: WRITE	Prompt: " - DELETED" Line Location: P+1
Function Call: WRITE	Prompt: !,"No data on this patient." Line Location: P1+0
Function Call: WRITE	Prompt: ! Line Location: INC+1
Function Call: WRITE	Prompt: YSNM Condition for execution: YSN Line Location: INC+1
Function Call: WRITE	Prompt: ?31,"Incomplete Session(s) found" Line Location: INC+1
Function Call: READ	Variable: A Timeout: DTIME Line Location: DEL+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!,"Test/Interview Database Report on " Line Location: HD+1
Function Call: WRITE	Prompt: !! Line Location: HD+1
Routine Call	%ZIS Line Location: 2+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ENP+2, P+1
^YTD(601.2 - [#601.2]	ENP+1, CK+4, CK+5, CK+8, CK+17!, MMPIRCK+5, D+1!, D+2, D+3, D+4! , T+1, T+2, T+3!, T+4!, P+1!, P1, P1+1, END+1*
^YTD(601.4 - [#601.4]	ENP+2, P1, INC+1
^YTT(601 - [#601]	CK+2, CK+11, D+1

Label References

Name	Line Occurrences
$$MMPIRCK	CK+9
1	1+2
2	1+3, 2+1
CK	D+2
CK1	CK+2
D	T+1
DEL	CK+16, D+1, DEL+1
END	2+2, ENP+3
HD	ENP+1, CK+10, D+1, P+1, INC+1
INC	2+2, ENP+2
KIL	1+1, 1+4, 2+1, 2+2, 2+3
P	ENP+1
P1	2+2
S	1+4
T	2+2, ENP+1

Naked Globals

Name	Field # of Occurrence
^(	CK+5, D+3, T+1, P1+1*
^(0	ENP+2, CK+3, T+4, P+1, END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	2+1*, 2+2, KIL+1!
%Y	2+1, KIL+1!
%ZIS	2+3*, KIL+1!
A	1+1, 1+2, 1+3, 1+4, 1+5, DEL+1*, DEL+2, KIL+1!
C	CK1+1*, D+3, KIL+1!
D	CK+5, CK+17, CK1+1, MMPIRCK+5, D+2*, KIL+1!
D(0	CK1+1, D+1, D+3, T+1
DT	HD+1
DTIME	1+1, 1+4, DEL+1
H	T+1*, T+2, KIL+1!
I	CK+4, CK+5, T+3*, KIL+1!
IO	ENP+1
IO("Q"	2+3, KIL+1!
IOF	S+1, HD+1
IOSL	CK+10, D+1, P+1, INC+1
IOST	CK+10, D+1, P+1, INC+1
L	CK+3*, CK+9, CK+15, MMPIRCK~, MMPIRCK+8, KIL+1!
L1	CK+3, CK+5, CK+9, CK+15, MMPIRCK~, MMPIRCK+8, KIL+1!
P	2+2, ENP+1, ENP+2*, CK+4, CK+5, CK+8, CK+17, MMPIRCK+5, D+1, D+2 , D+3, D+4, T+1, T+2, T+3, T+4, P+1, P1, P1+1, INC+1 , KIL+1!
P(0	ENP+1, T+2, END+1
P1	ENP+1, T+2, END+1, KIL+1!
>> POP	2+3
T	CK+2, CK+5, CK+11, CK+17, MMPIRCK+5, D+1, D+2, D+3, D+4, T+1* , KIL+1!
T(0	T+1*, T+2, T+3, T+4
U	ENP+2, CK+3, CK+11, T+4, P+1, END+1
X	CK+11, CK+15, D+1, T+4*, DEL+1, KIL+1!
Y	KIL+1!, HD+1*
YSAGE	KIL+1!
YSD	1+3, 1+5, CK+17, D+1, P+1, DEL+1, DEL+2, KIL+1!
YSDFN	2+2, P+1, P1, KIL+1!
YSDOB	KIL+1!
>> YSE	1+3, CK+10, D+1, P+1, END+2
YSL	2+2*, ENP+2, KIL+1!
YSN	1+3*, 2+2, CK+10, CK+16, D+1, T+2, T+4, P1, INC+1, END+1 , END+2, KIL+1!
YSNM	ENP+2, CK+10, D+1, P+1, INC+1, KIL+1!
YSSEX	KIL+1!
YSSSN	KIL+1!
>> YSTOUT	1+1, 1+4, DEL+1*
>> YSUOUT	1+1, 1+4, DEL+1*
>> ZTDESC	2+3*
>> ZTRTN	2+3*
>> ZTSAVE("YS*"	2+3*
ZTSK	KIL+1!

Customize PDF page

Package: Mental Health