Routine: YS218PST

Package	Total	Call Graph
Mental Health	4	QTASK^YTSCOREV ($$INCLUDE,INSTALLQ)^YTXCHG ADDNOTE^YTXCHGI (FMADD,FMUPD)^YTXCHGU
VA FileMan	3	UPDATE^DIE ^DIK CLEAN^DILF
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
CATREV	; update the scoring revision for all CATs (no scales for CAD)
NEWREV(NM,REV)	; Update scoring revision for test & queue re-score
UPDREV(TEST,REV)	; Update scoring revision in TEST
SETSEO(TEST,VALUE)	; Set staff-entry only field to VALUE
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.71 - [#601.71]	UPDTST+2, SETCAT+2, SETCAT+4, DELCAT+2, DELCAT+4, CATREV+2, NEWREV+1, UPDREV+2, SETSEO+1
^YTT(601.97 - [#601.97]	NEWCAT+1, SETCAT+3, DELCAT+3

Name	Line Occurrences
CATREV	POST+11
NEWREV	CATREV+2
SETCAT	POST+2, POST+3, POST+4, POST+5, POST+6, POST+7, POST+8, POST+9
SETSEO	POST+12, POST+13, POST+14, POST+15
UPDREV	NEWREV+2

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
NAME	UPDTST~, UPDTST+2
NM	CATREV+1~, CATREV+2*, NEWREV~, NEWREV+1, NEWREV+3
REC	UPDTST+1~, UPDTST+4, NEWCAT+2~, NEWCAT+4, UPDREV+1~, UPDREV+4, SETSEO+2~, SETSEO+3
REC(	NEWCAT+3*
REC(18	UPDTST+3*
REC(93	UPDREV+3*
REC(94	SETSEO+2*
REV	NEWREV~, NEWREV+2, NEWREV+4, UPDREV~, UPDREV+2, UPDREV+3
TEST	SETCAT~, SETCAT+2, SETCAT+4, SETCAT+7, DELCAT~, DELCAT+2, DELCAT+4, DELCAT+5, DELCAT+6, NEWREV+1~* , NEWREV+2, NEWREV+4, UPDREV~, UPDREV+2, UPDREV+4, SETSEO~, SETSEO+1*, SETSEO+3
U	UPDREV+2, XCHGLST+6, XCHGLST+7
VALUE	SETSEO~, SETSEO+2
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
$T(ENTRIES+I	XCHGLST+5