Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: YS234PST

Package: Mental Health

Routine: YS234PST


Information

YS234PST ;BAL/KTL - Patch 234 Post-init ; 06/05/2023

Source Information

Source file <YS234PST.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 $$FMADD^XLFDT  $$REPLACE^XLFSTR  (BMES,MES)^XPDUTL  
Mental Health 3 ($$INCLUDE,INSTALLQ)^YTXCHG  FMSAVE^YTXCHGI  (FMADD,FMUPD,LOG)^YTXCHGU  
VA FileMan 3 UPDATE^DIE  ^DIK  CLEAN^DILF  
Text Integration Utility 1 $$DDEFIEN^TIUFLF7  
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
RENAME(OLD,NEW) ; Rename Instrument
UPDTST(NAME) ; Update Date Edited
SETNAT(NAME,NAT) ; SET NATIONAL FLAG
INACT(OLD,NEW) ; INACTIVATE test left in Development - Change test name *AND* set OPERATIONAL to NO
DROPTST(NAME) ; Change OPERATIONAL to dropped
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
CHGCAT(OLD,NEW) ; change category name
ADDNOTE(NAME) ; Add default note for this instrument
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

External References

Name Field # of Occurrence
UPDATE^DIE SETCAT+8
^DIK DELCAT+7
CLEAN^DILF SETCAT+10
$$DDEFIEN^TIUFLF7 ADDNOTE+5, ADDNOTE+6, ADDNOTE+7
$$FMADD^XLFDT UPDURL+7
$$REPLACE^XLFSTR UPDURL+16
EN^XPAR UPDURL+19
ENVAL^XPAR UPDURL+6
BMES^XPDUTL UPDURL+18
MES^XPDUTL SETCAT+9
$$INCLUDE^YTXCHG SCREEN+5
INSTALLQ^YTXCHG POST+6
FMSAVE^YTXCHGI ADDNOTE+14
FMADD^YTXCHGU NEWCAT+4
FMUPD^YTXCHGU RENAME+3, UPDTST+4, SETNAT+5, INACT+7, INACT+13, DROPTST+5, CHGCAT+4
LOG^YTXCHGU ADDNOTE+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIERR" SETCAT+9
^TMP($J UPDURL+3!, UPDURL+4, UPDURL+8, UPDURL+11, UPDURL+12, UPDURL+13, UPDURL+20!
^XTMP("YS234-TOOLS" UPDURL+7*, UPDURL+8*
^YTT(601 - [#601] INACT+9
^YTT(601.71 - [#601.71] RENAME+1, UPDTST+2, SETNAT+2, INACT+2, DROPTST+2, SETCAT+2, SETCAT+4, DELCAT+2, DELCAT+4, ADDNOTE+2
, ADDNOTE+3
^YTT(601.97 - [#601.97] NEWCAT+1, SETCAT+3, DELCAT+3, CHGCAT+2

Label References

Name Line Occurrences
ADDNOTE POST+21
CHGCAT POST+4, POST+5
DROPTST POST+23, POST+24
INACT POST+2
RENAME POST+3
SETCAT POST+7, POST+9, POST+10, POST+11, POST+12, POST+13, POST+14, POST+15, POST+16, POST+17
, POST+18, POST+19
SETNAT POST+22
UPDURL POST+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
CMD UPDURL+2~, UPDURL+15*, UPDURL+16*, UPDURL+17, UPDURL+18
CSLT ADDNOTE+1~, ADDNOTE+6*, ADDNOTE+7*, ADDNOTE+9*, ADDNOTE+13
DA DELCAT+1~, DELCAT+4*
DA(1 DELCAT+5*
DIERR SETCAT+6~, SETCAT+9
DIK DELCAT+1~, DELCAT+6*
DT UPDURL+7
ENT UPDURL+2~, UPDURL+11*, UPDURL+12, UPDURL+13, UPDURL+18, UPDURL+19
ERR UPDURL+2~, UPDURL+6, UPDURL+19
I XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
IEN RENAME+1*, RENAME+3, UPDTST+1~, UPDTST+2*, UPDTST+4, SETNAT+1~, SETNAT+2*, SETNAT+5, INACT+1~, INACT+2*
, INACT+3, INACT+7, INACT+8!, INACT+9*, INACT+10, INACT+13, DROPTST+1~, DROPTST+2*, DROPTST+5, CHGCAT+1~
, CHGCAT+2*, CHGCAT+4, ADDNOTE+1~, ADDNOTE+2*, ADDNOTE+3, ADDNOTE+14
INST UPDURL+2~, UPDURL+12*, UPDURL+13, UPDURL+19
LIST UPDURL+2~, UPDURL+4*, UPDURL+6
NAME UPDTST~, UPDTST+2, SETNAT~, SETNAT+2, DROPTST~, DROPTST+2, ADDNOTE~, ADDNOTE+2
NAT SETNAT~, SETNAT+3*, SETNAT+4
NEW POST+1~, POST+2*, RENAME~, RENAME+2, INACT~, INACT+4, INACT+11, CHGCAT~, CHGCAT+3
NEWVAL UPDURL+2~, UPDURL+17*, UPDURL+19
NOTE ADDNOTE+1~, ADDNOTE+5*, ADDNOTE+8*, ADDNOTE+12
OLD POST+1~, POST+2*, RENAME~, RENAME+1, INACT~, INACT+2, INACT+9, CHGCAT~, CHGCAT+2
PARM UPDURL+2~, UPDURL+5*, UPDURL+6, UPDURL+19
REC RENAME+3, UPDTST+1~, UPDTST+4, SETNAT+1~, SETNAT+5, INACT+1~, INACT+7, INACT+8!, INACT+13, DROPTST+1~
, DROPTST+5, NEWCAT+2~, NEWCAT+4, CHGCAT+1~, CHGCAT+4, ADDNOTE+1~, ADDNOTE+14
REC( RENAME+2*, INACT+4*, INACT+11*, NEWCAT+3*, CHGCAT+3*
REC(10 INACT+5*, DROPTST+3*
REC(18 UPDTST+3*, INACT+6*, DROPTST+4*
REC(19 SETNAT+4*
REC(28 ADDNOTE+11*
REC(29 ADDNOTE+12*
REC(30 ADDNOTE+13*
REC(32 INACT+12*
SPEC UPDURL+2~, UPDURL+16
SPEC("/home/?" UPDURL+9*
SPEC("/home/a/?" UPDURL+10*
SPEC("/home?" UPDURL+9*
TEST SETCAT~, SETCAT+2*, SETCAT+4, SETCAT+7, DELCAT~, DELCAT+2*, DELCAT+4, DELCAT+5, DELCAT+6
TITL UPDURL+2~, UPDURL+15*, UPDURL+17
U ADDNOTE+3, XCHGLST+6, XCHGLST+7, UPDURL+7
VAL UPDURL+2~, UPDURL+13*, UPDURL+14, UPDURL+15
X XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
>> Y SCREEN+5
YTFDA SETCAT+6~
YTFDA( SETCAT+7*
YTIEN SETCAT+6~

Marked Items

Name Field # of Occurrence
$T(EDTDATE+1 UPDTST+3, INACT+6, DROPTST+4
$T(ENTRIES+I XCHGLST+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All