Routine: YS121PST

Package	Total	Call Graph
Mental Health	2	INSTALLQ^YTXCHG (FMADD,FMDEL,FMUPD,NEWDATE)^YTXCHGU
Clinical Reminders	1	(DELEXE,SMEXINS)^PXRMEXSI
Kernel	1	BMES^XPDUTL
VA FileMan	1	IXALL^DIK

Entry Points

Name	Comments	DBIA/ICR reference
EXPDATE	; export date used to update 601.71:18
PRE	; pre-init
POST	; post-init
CHGNM(OLD,NEW)	; Change test name
COMPANS	; add "computed answer" questions
FIXSMEQ	; fix choice to avoid "conflict" error with existing CSM entry
REQLIC	; change instruments to require license
DROPTST(NAME)	; Change OPERATIONAL to dropped
CLRFLD(FILE,FLD,IEN)	;
BAK2DEV(NAME)	; Set instrument back to 'under development'
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/Updated MHA instruments ^ Exchange Entry Date
EXARRAY(MODE,ARRAY)	;Called by Reminder Exchange to fix PCL-5
MODDATE	; Set new dates for tests listed so the GUI will reload the definition ; This is best done in the account where the build is created so that the ; original and destination accounts match.
TESTS	; exported tests (renamed, added,updated, and retired)

Name	Field # of Occurrence
IXALL^DIK	PRE+4
DELEXE^PXRMEXSI	PRE+13
SMEXINS^PXRMEXSI	POST+26
BMES^XPDUTL	PRE+1, EXARRAY+8
INSTALLQ^YTXCHG	POST+17
FMADD^YTXCHGU	COMPANS+9
FMDEL^YTXCHGU	POST+15
FMUPD^YTXCHGU	CHGNM+6, FIXSMEQ+4, REQLIC+5, DROPTST+5, CLRFLD+3, BAK2DEV+6
NEWDATE^YTXCHGU	MODDATE+5

FileNo	Call Tags
^YTT(601.751 - [#601.751]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	COMPANS+1!, COMPANS+5*, COMPANS+7, COMPANS+10!
^XTMP("YTXIDX"	POST+16!
^YTT(601.71 - [#601.71]	POST+22, CHGNM+2, REQLIC+3, DROPTST+2, BAK2DEV+2
^YTT(601.72 - [#601.72]	COMPANS+4
^YTT(601.75 - [#601.75]	FIXSMEQ+2
^YTT(601.751 - [#601.751]	PRE+3!

Name	Line Occurrences
BAK2DEV	POST+6, POST+7, POST+8, POST+9, POST+10
CHGNM	PRE+7, PRE+8, PRE+9, POST+2, POST+3, POST+4, POST+5
CLRFLD	POST+23
COMPANS	POST+11
DROPTST	POST+19, POST+20
FIXSMEQ	POST+12
REQLIC	POST+13

Name	Field # of Occurrence
ARRAY	XCHGLST~, EXARRAY~
ARRAY(	XCHGLST+6, XCHGLST+7, EXARRAY+5, EXARRAY+6, EXARRAY+7*
DIK	PRE+2~, PRE+4*
FILE	CLRFLD~, CLRFLD+3
FLD	CLRFLD~, CLRFLD+2
I	XCHGLST+4~, XCHGLST+5, XCHGLST+6, XCHGLST+7, MODDATE+3~, MODDATE+5
IEN	CHGNM+1~, CHGNM+2, CHGNM+3, CHGNM+6, COMPANS+2~, COMPANS+3, COMPANS+4, COMPANS+5, COMPANS+6, COMPANS+7 , COMPANS+9, REQLIC+1~, REQLIC+3, REQLIC+5, DROPTST+1~, DROPTST+2, DROPTST+5, CLRFLD~, CLRFLD+3, BAK2DEV+1~ , BAK2DEV+2*, BAK2DEV+6
LN	EXARRAY+2~, EXARRAY+4, EXARRAY+5, EXARRAY+6, EXARRAY+7, EXARRAY+8
MODE	EXARRAY~, EXARRAY+6, EXARRAY+7, EXARRAY+8
NAME	DROPTST~, DROPTST+2, BAK2DEV~, BAK2DEV+2
NEW	CHGNM~, CHGNM+4
NEWDT	MODDATE+3~, MODDATE+4*, MODDATE+5
NM	POST+19, POST+20, REQLIC+1~, REQLIC+2*, REQLIC+3
OLD	CHGNM~, CHGNM+2
REC	CHGNM+1~, CHGNM+6, COMPANS+2~, COMPANS+9, FIXSMEQ+1~, FIXSMEQ+4, REQLIC+1~, REQLIC+5, DROPTST+1~, DROPTST+5 , CLRFLD+1~, CLRFLD+3, BAK2DEV+1~, BAK2DEV+6
REC(	CHGNM+4, COMPANS+6, CLRFLD+2, BAK2DEV+4
REC(1	COMPANS+7*
REC(10	DROPTST+3, BAK2DEV+3
REC(11	REQLIC+4*
REC(18	CHGNM+5, DROPTST+4, BAK2DEV+5*
REC(20	REQLIC+4*
REC(3	COMPANS+8, FIXSMEQ+3
TST	POST+22~*, POST+23
U	XCHGLST+6, XCHGLST+7
X	XCHGLST+4~, XCHGLST+5, XCHGLST+6, XCHGLST+7, MODDATE+3~, MODDATE+5
YTXLOG	POST+1~