Routine: YS254PST

Information

YS254PST ;BAL/KTL - Patch 254 Post-init ; 10/06/2023

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$REPLACE^XLFSTR BMES^XPDUTL
Mental Health	2	$$INCLUDE^YTXCHG FMUPD^YTXCHGU
Toolkit	1	(EN,ENVAL)^XPAR

Name	Comments	DBIA/ICR reference
EDTDATE	; date used to update 601.71:18
PRE	; nothing necessary
POST	; post-init
UPDTST(NAME)	; Update Date Edited
DROPTST(NAME)	; Change OPERATIONAL to dropped
UPDURL	; Update GUI TOOLS URL for MHA Web
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($J	UPDURL+2!, UPDURL+3, UPDURL+7, UPDURL+10, UPDURL+11, UPDURL+12, UPDURL+19!
^XTMP("YS254-TOOLS"	UPDURL+6, UPDURL+7
^YTT(601 - [#601]	DROPTST+8
^YTT(601.71 - [#601.71]	UPDTST+2, DROPTST+2

Name	Field # of Occurrence
ARRAY	XCHGLST~
ARRAY(	XCHGLST+6, XCHGLST+7
CMD	UPDURL+1~, UPDURL+14, UPDURL+15, UPDURL+16, UPDURL+17
DT	UPDURL+6
ENT	UPDURL+1~, UPDURL+10*, UPDURL+11, UPDURL+12, UPDURL+17, UPDURL+18
ERR	UPDURL+1~, UPDURL+5, UPDURL+18
I	XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
IEN	UPDTST+1~, UPDTST+2, UPDTST+5, DROPTST+1~, DROPTST+2, DROPTST+3, DROPTST+6, DROPTST+7!, DROPTST+8*, DROPTST+9 , DROPTST+11
INST	POST+1~, POST+2, POST+3, POST+4, UPDURL+1~, UPDURL+11, UPDURL+12, UPDURL+18
LIST	UPDURL+1~, UPDURL+3*, UPDURL+5
NAME	UPDTST~, UPDTST+2, DROPTST~, DROPTST+2, DROPTST+8
NEWVAL	UPDURL+1~, UPDURL+16*, UPDURL+18
PARM	UPDURL+1~, UPDURL+4*, UPDURL+5, UPDURL+18
REC	UPDTST+1~, UPDTST+5, DROPTST+1~, DROPTST+6, DROPTST+7!, DROPTST+11
REC(10	DROPTST+4*
REC(11	UPDTST+3*
REC(18	UPDTST+4, DROPTST+5
REC(32	DROPTST+10*
SPEC	UPDURL+1~, UPDURL+15
SPEC("/home/?"	UPDURL+8*
SPEC("/home/p250/?"	UPDURL+9*
SPEC("/home?"	UPDURL+8*
TITL	UPDURL+1~, UPDURL+14*, UPDURL+16
U	UPDURL+6, XCHGLST+6, XCHGLST+7
VAL	UPDURL+1~, UPDURL+12*, UPDURL+13, UPDURL+14
X	XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
>> Y	SCREEN+5

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