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: YS249PST

Package: Mental Health

Routine: YS249PST


Information

YS249PST ;BAL/KTL - Patch 249 Post-init ;May 10, 2024@13:55:37

Source Information

Source file <YS249PST.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,$$S)^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$REPLACE^XLFSTR  (BMES,MES)^XPDUTL  
Mental Health 3 QTASK^YTSCOREV  ($$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
SETCAT(TEST,CATNM) ; add category to TEST if not already there
DROPTST(NAME) ; Change OPERATIONAL to dropped
BOMCREV ; Change old BOMC MH Answers (due to changes in Choices) and rescore for revision 2
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
ANSREVQUE(YSINS,YSARR,YSDTH,YSREV) ; Queue task to correct BOMC Answers and rescore
ANSREV ; correct BOMC Answers and rescore
; ZEXCEPT: YSARR,YSINS,YSREV,ZTQUEUED,ZTSTOP
CHK85(YSINS,YSAD,YSARR) ; See if any answers for this admin need to be changed

External References

Name Field # of Occurrence
^%ZTLOAD ANSREVQUE+14
$$S^%ZTLOAD ANSREV+12
UPDATE^DIE SETCAT+8
CLEAN^DILF SETCAT+10
$$FMADD^XLFDT UPDURL+7, ANSREVQUE+17
$$NOW^XLFDT ANSREV+5, ANSREV+17
$$REPLACE^XLFSTR UPDURL+16
EN^XPAR UPDURL+19
ENVAL^XPAR UPDURL+6
BMES^XPDUTL UPDURL+18, ANSREVQUE+5, ANSREVQUE+15, ANSREVQUE+16
MES^XPDUTL SETCAT+9
QTASK^YTSCOREV ANSREV+20
$$INCLUDE^YTXCHG SCREEN+5
INSTALLQ^YTXCHG POST+1
FMUPD^YTXCHGU DROPTST+6, DROPTST+11, CHK85+14

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("YS249-TOOLS" UPDURL+7*, UPDURL+8*
^XTMP("YTS-ANSREV" ANSREVQUE+17*, ANSREV+5*, ANSREV+6, ANSREV+13*, ANSREV+17*, CHK85+12*
^YTT(601 - [#601] DROPTST+8
^YTT(601.71 - [#601.71] SETCAT+2, SETCAT+4, DROPTST+2, BOMCREV+6
^YTT(601.84 - [#601.84] ANSREV+7, ANSREV+9, ANSREV+13
^YTT(601.85 - [#601.85] CHK85+5, CHK85+7
^YTT(601.97 - [#601.97] SETCAT+3

Label References

Name Line Occurrences
ANSREVQUE BOMCREV+7
BOMCREV POST+22
CHK85 ANSREV+15
DROPTST POST+9, POST+10, POST+11, POST+12, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18
, POST+19, POST+20, POST+21
SETCAT POST+2, POST+3, POST+4, POST+5, POST+6, POST+7, POST+8
UPDURL POST+23

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
CATNM SETCAT~, SETCAT+3, SETCAT+7, SETCAT+9
CMD UPDURL+2~, UPDURL+15*, UPDURL+16*, UPDURL+17, UPDURL+18
DIERR SETCAT+6~, SETCAT+9
DT UPDURL+7, ANSREVQUE+17
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 DROPTST+1~, DROPTST+2*, DROPTST+3, DROPTST+6, DROPTST+7!, DROPTST+8*, DROPTST+9, DROPTST+11
INST UPDURL+2~, UPDURL+12*, UPDURL+13, UPDURL+19
LIST UPDURL+2~, UPDURL+4*, UPDURL+6
NAME DROPTST~, DROPTST+2, DROPTST+8
NEWVAL UPDURL+2~, UPDURL+17*, UPDURL+19
PARM UPDURL+2~, UPDURL+5*, UPDURL+6, UPDURL+19
REC DROPTST+1~, DROPTST+6, DROPTST+7!, DROPTST+11
REC(10 DROPTST+4*
REC(18 DROPTST+5*
REC(32 DROPTST+10*
SPEC UPDURL+2~, UPDURL+16
SPEC("/home/?" UPDURL+9*
SPEC("/home/p224/?" UPDURL+10*
SPEC("/home?" UPDURL+9*
TEST SETCAT~, SETCAT+2*, SETCAT+4, SETCAT+7
TITL UPDURL+2~, UPDURL+15*, UPDURL+17
U UPDURL+7, XCHGLST+6, XCHGLST+7, ANSREVQUE+17, CHK85+7, CHK85+12
VAL UPDURL+2~, UPDURL+13*, UPDURL+14, UPDURL+15
X XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7
>> Y SCREEN+5
YSAD ANSREV+2~, ANSREV+8*, ANSREV+9*, ANSREV+12, ANSREV+15, CHK85~, CHK85+5
YSADDT ANSREV+2~, ANSREV+6*, ANSREV+7*, ANSREV+9, ANSREV+13
YSANS CHK85+1~, CHK85+5*, CHK85+6, CHK85+7, CHK85+12, CHK85+14
YSARR BOMCREV+1~, BOMCREV+7, ANSREVQUE~, ANSREVQUE+4, ANSREV+15, CHK85~
YSARR( CHK85+4, CHK85+9
YSARR(4173 BOMCREV+4*
YSARR(4175 BOMCREV+5*
YSBOMC BOMCREV+1~, BOMCREV+6*, BOMCREV+7
YSCNT ANSREV+2~, ANSREV+4*, ANSREV+10*, ANSREV+12
YSDTH ANSREVQUE~, ANSREVQUE+6*, ANSREVQUE+10
YSINS ANSREVQUE~, ANSREVQUE+3, ANSREV+5, ANSREV+6, ANSREV+7, ANSREV+9, ANSREV+13, ANSREV+15, ANSREV+17, ANSREV+20
, CHK85~, CHK85+12
YSNEWCH CHK85+1~, CHK85+9*, CHK85+10, CHK85+12, CHK85+13
YSOLDCH CHK85+1~, CHK85+7*, CHK85+8, CHK85+9, CHK85+12
YSQID CHK85+1~, CHK85+3*, CHK85+4*, CHK85+5, CHK85+9
YSREC CHK85+1~, CHK85+14
YSREC(4 CHK85+13*
YSREV ANSREVQUE~, ANSREVQUE+13, ANSREV+20
YTFDA SETCAT+6~
YTFDA( SETCAT+7*
YTIEN SETCAT+6~
ZTDESC ANSREVQUE+1~, ANSREVQUE+9*
ZTDTH ANSREVQUE+1~, ANSREVQUE+10*
ZTIO ANSREVQUE+1~, ANSREVQUE+7*
>> ZTQUEUED ANSREV+12
ZTRTN ANSREVQUE+1~, ANSREVQUE+8*
ZTSAVE ANSREVQUE+1~
ZTSAVE("YSARR(" ANSREVQUE+12*
ZTSAVE("YSINS" ANSREVQUE+11*
ZTSAVE("YSREV" ANSREVQUE+13*
ZTSK ANSREVQUE+1~, ANSREVQUE+15, ANSREVQUE+16
>> ZTSTOP ANSREV+7, ANSREV+9, ANSREV+12*

Marked Items

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