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

Package: Mental Health

Routine: YS141PST


Information

YS141PST ;BAH/QSB - Patch 141 Post-Init ; 1/27/2020

Source Information

Source file <YS141PST.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Mental Health 4 (QMOCA,SETMOCA)^YS141MCA  SETCATS^YS141PS0  ($$INCLUDE,INSTALLQ)^YTXCHG  (FMDEL,FMUPD)^YTXCHGU  
Kernel 1 $$NOW^XLFDT  
Toolkit 1 ($$GET,EN)^XPAR  

Entry Points

Name Comments DBIA/ICR reference
EDTDATE ; date used to update 601.71:18
POST ; Post-init for YS*5.01*141
SCREEN ; sample 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.
;
DROPTST(NAME) ; Change OPERATIONAL to dropped
SETAUDC ; Set date AUDC scoring changed
SETSWEM ; Update key fields in SWEMWBS
SETQOLI ; Update scoring revision in QOLI
FIXNEO3 ; Remove the stub rule for NEO-PI-3
XCHGLST(ARRAY) ; return array of instrument exchange entries
; ARRAY(cnt,1)=instrument exchange entry name
; ARRAY(cnt,2)=instrument exchange entry creation date
LPSTAFF ; Loop through instruments to set staff entry only
UPDSTAFF(NAME,VALUE) ; Update STAFF ENTRY ONLY field
STAFF ;Staff Entry Only Instruments
ENTRIES ; New MHA instruments ^ Exchange Entry Date

External References

Name Field # of Occurrence
$$NOW^XLFDT SETAUDC+2
$$GET^XPAR POST+9, SETAUDC+1
EN^XPAR SETAUDC+2
QMOCA^YS141MCA POST+9
SETMOCA^YS141MCA POST+8
SETCATS^YS141PS0 POST+10
$$INCLUDE^YTXCHG SCREEN+5
INSTALLQ^YTXCHG POST+1
FMDEL^YTXCHGU FIXNEO3+4, FIXNEO3+6
FMUPD^YTXCHGU DROPTST+5, SETSWEM+7, SETQOLI+5, FIXNEO3+8, UPDSTAFF+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTT(601.71 - [#601.71] DROPTST+2, SETSWEM+2, SETQOLI+2, FIXNEO3+2, UPDSTAFF+2
^YTT(601.82 - [#601.82] FIXNEO3+6
^YTT(601.83 - [#601.83] FIXNEO3+4

Label References

Name Line Occurrences
DROPTST POST+3
FIXNEO3 POST+7
LPSTAFF POST+2
SETAUDC POST+4
SETQOLI POST+6
SETSWEM POST+5
UPDSTAFF LPSTAFF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY XCHGLST~
ARRAY( XCHGLST+6*, XCHGLST+7*
I XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7, LPSTAFF+1~, LPSTAFF+2*
IEN DROPTST+1~, DROPTST+2*, DROPTST+5, SETSWEM+1~, SETSWEM+2*, SETSWEM+7, SETQOLI+1~, SETQOLI+2*, SETQOLI+5, UPDSTAFF+1~
, UPDSTAFF+2*, UPDSTAFF+5
NAME DROPTST~, DROPTST+2, UPDSTAFF~, UPDSTAFF+2
REC DROPTST+1~, DROPTST+5, SETSWEM+1~, SETSWEM+7, SETQOLI+1~, SETQOLI+5, FIXNEO3+1~, FIXNEO3+8, UPDSTAFF+1~, UPDSTAFF+5
REC(10 DROPTST+3*
REC(18 DROPTST+4*, SETSWEM+6*, SETQOLI+4*, FIXNEO3+7*, UPDSTAFF+4*
REC(26 SETSWEM+4*
REC(28 SETSWEM+5*
REC(9 SETSWEM+3*
REC(93 SETQOLI+3*
REC(94 UPDSTAFF+3*
TEST FIXNEO3+1~, FIXNEO3+2*, FIXNEO3+4, FIXNEO3+8
U FIXNEO3+4, FIXNEO3+6, XCHGLST+6, XCHGLST+7, LPSTAFF+2
VALUE UPDSTAFF~, UPDSTAFF+3
X XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7, LPSTAFF+1~, LPSTAFF+2*
>> Y SCREEN+5

Marked Items

Name Field # of Occurrence
$T(EDTDATE+1 DROPTST+4, SETSWEM+6, SETQOLI+4, FIXNEO3+7, UPDSTAFF+4
$T(ENTRIES+I XCHGLST+5
$T(STAFF+I LPSTAFF+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All