Routine: YS199PST

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$REPLACE^XLFSTR (BMES,MES)^XPDUTL
Mental Health	2	($$INCLUDE,INSTALLQ)^YTXCHG FMUPD^YTXCHGU
VA FileMan	2	UPDATE^DIE CLEAN^DILF
Toolkit	1	(EN,ENVAL)^XPAR

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
CATS4CAT	; Add categories for new CAT's
SETCAT(TEST,CATNM)	; add category to TEST if not already there
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
UPDURL	; Update GUI TOOLS URL for MHA Web
ENTRIES	; New MHA instruments^Exchange Entry Date

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIERR"	SETCAT+9
^TMP($J	UPDURL+2!, UPDURL+3, UPDURL+7, UPDURL+9, UPDURL+10, UPDURL+11, UPDURL+18!
^XTMP("YS199-TOOLS"	UPDURL+6, UPDURL+7
^YTT(601.71 - [#601.71]	UPDTST+2, SETCAT+2, SETCAT+4
^YTT(601.97 - [#601.97]	SETCAT+3

Name	Line Occurrences
CATS4CAT	POST+11
SETCAT	CATS4CAT+1, CATS4CAT+2, CATS4CAT+3, CATS4CAT+4
UPDTST	POST+2, POST+3, POST+4, POST+5, POST+6, POST+7, POST+8, POST+9, POST+10
UPDURL	POST+12

Name	Field # of Occurrence
ARRAY	XCHGLST~
ARRAY(	XCHGLST+6, XCHGLST+7
CAT	SETCAT+1~, SETCAT+3*, SETCAT+4
CATNM	SETCAT~, SETCAT+3, SETCAT+7, SETCAT+9
CMD	UPDURL+1~, UPDURL+13, UPDURL+14, UPDURL+15, UPDURL+16
DIERR	SETCAT+6~, SETCAT+9
DT	UPDURL+6
ENT	UPDURL+1~, UPDURL+9*, UPDURL+10, UPDURL+11, UPDURL+16, UPDURL+17
ERR	UPDURL+1~, UPDURL+5, UPDURL+17
I	XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
IEN	UPDTST+1~, UPDTST+2*, UPDTST+4
INST	UPDURL+1~, UPDURL+10*, UPDURL+11, UPDURL+17
LIST	UPDURL+1~, UPDURL+3*, UPDURL+5
NAME	UPDTST~, UPDTST+2
NEWVAL	UPDURL+1~, UPDURL+15*, UPDURL+17
PARM	UPDURL+1~, UPDURL+4*, UPDURL+5, UPDURL+17
REC	UPDTST+1~, UPDTST+4
REC(18	UPDTST+3*
SPEC	UPDURL+1~, UPDURL+14
SPEC("/home/?"	UPDURL+8*
SPEC("/home?"	UPDURL+8*
TEST	SETCAT~, SETCAT+2*, SETCAT+4, SETCAT+7
TITL	UPDURL+1~, UPDURL+13*, UPDURL+15
U	XCHGLST+6, XCHGLST+7, UPDURL+6
VAL	UPDURL+1~, UPDURL+11*, UPDURL+12, UPDURL+13
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