Routine: YS217PST

Package	Total	Call Graph
VA FileMan	3	UPDATE^DIE ^DIK CLEAN^DILF
Mental Health	2	($$INCLUDE,INSTALLQ)^YTXCHG (FMADD,FMUPD)^YTXCHGU
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EDTDATE	; date used to update 601.71:18
PRE	; nothing necessary
POST	; post-init
UPDTST(NAME)	; Update Date Edited
NEWCAT(CATNM)	; add new category
SETCAT(TEST,CATNM)	; add category to TEST if not already there
DELCAT(TEST,CATNM)	; remove category from test if it is there
FIXCESD	; fix the missing scoring scale for CESD
CHGNM(OLD,NEW)	; Change test name
SCREEN	; line to put in DATA SCREEN of KIDS build ; $$INCLUDE^YTXCHG(Y,"TAG","RTN") calls TAG^RTN to get an array of ; instrument exchange entries to include in the build. It sets Y ; to true if the entry should be included. ;
XCHGLST(ARRAY)	; return array of instrument exchange entries ; ARRAY(cnt,1)=instrument exchange entry name ; ARRAY(cnt,2)=instrument exchange entry creation date
ENTRIES	; New MHA instruments ^ Exchange Entry Date

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIERR"	SETCAT+9
^YTT(601 - [#601]	CHGNM+8
^YTT(601.71 - [#601.71]	UPDTST+2, SETCAT+2, SETCAT+4, DELCAT+2, DELCAT+4, CHGNM+2
^YTT(601.87 - [#601.87]	FIXCESD+1
^YTT(601.97 - [#601.97]	NEWCAT+1, SETCAT+3, DELCAT+3

Name	Line Occurrences
CHGNM	POST+2
DELCAT	POST+8
FIXCESD	POST+4
NEWCAT	POST+5
SETCAT	POST+6, POST+7, POST+9, POST+10, POST+11, POST+12, POST+13

Name	Field # of Occurrence
ARRAY	XCHGLST~
ARRAY(	XCHGLST+6, XCHGLST+7
CAT	SETCAT+1~, SETCAT+3, SETCAT+4, DELCAT+1~, DELCAT+3, DELCAT+4
CATNM	NEWCAT~, NEWCAT+1, NEWCAT+3, SETCAT~, SETCAT+3, SETCAT+7, SETCAT+9, DELCAT~, DELCAT+3
DA	DELCAT+1~, DELCAT+4*
DA(1	DELCAT+5*
DIERR	SETCAT+6~, SETCAT+9
DIK	DELCAT+1~, DELCAT+6*
I	XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
IEN	UPDTST+1~, UPDTST+2, UPDTST+4, FIXCESD+2~, FIXCESD+3, FIXCESD+4, FIXCESD+9, CHGNM+1~, CHGNM+2, CHGNM+3 , CHGNM+6, CHGNM+7!, CHGNM+8, CHGNM+9, CHGNM+11
NAME	UPDTST~, UPDTST+2
NEW	POST+1~, POST+2*, CHGNM~, CHGNM+4, CHGNM+10
OLD	POST+1~, POST+2*, CHGNM~, CHGNM+2, CHGNM+8
REC	UPDTST+1~, UPDTST+4, NEWCAT+2~, NEWCAT+4, FIXCESD+2~, FIXCESD+9, CHGNM+1~, CHGNM+6, CHGNM+7!, CHGNM+11
REC(	NEWCAT+3, FIXCESD+4, CHGNM+4, CHGNM+10
REC(1	FIXCESD+5*
REC(18	UPDTST+3, CHGNM+5
REC(2	FIXCESD+6*
REC(3	FIXCESD+7*
REC(4	FIXCESD+8*
TEST	SETCAT~, SETCAT+2, SETCAT+4, SETCAT+7, DELCAT~, DELCAT+2, DELCAT+4, DELCAT+5, DELCAT+6
U	XCHGLST+6, XCHGLST+7
X	XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
>> Y	SCREEN+5
YTFDA	SETCAT+6~
YTFDA(	SETCAT+7*
YTIEN	SETCAT+6~

Name	Field # of Occurrence
$T(EDTDATE+1	UPDTST+3, CHGNM+5
$T(ENTRIES+I	XCHGLST+5