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 |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTSCORE

Package: Mental Health

Routine: YTSCORE


Information

YTSCORE ;SLC/KCM - Scoring for complex instruments ;Jan 18, 2024@12:05:44

Source Information

Source file <YTSCORE.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  (FILE,UPDATE)^DIE  CLEAN^DILF  $$GET1^DIQ  
Mental Health 3 SCORSAVE^YTQAPI11  SCALEG^YTQAPI3  SUMKEY^YTSCOREX  

Caller Graph

Caller Graph Total: 69

Package Total Caller Graph
Mental Health 69 YTQ GET RESULTS  YTQAPI11  YTQAPI8  YTQRCAT  YTQRCDB  YTSASRS  YTSAUDTC  YTSBAI  
YTSBAMR  YTSBAMRC  YTSBAS24  YTSBBGS  YTSBBHI2  YTSBDI2  YTSBHS  YTSBIPF  
YTSBSS  YTSC19Y  YTSCDR  YTSCIA  YTSCOPD  YTSCOREV  YTSCSDD  YTSEDEQ  
YTSEHS14  YTSEQ5D  YTSFAST  YTSI9CSS  YTSIMRS  YTSISMI  YTSISS2  YTSMCMI4  
YTSMDQ  YTSMIDAS  YTSMIOS2  YTSMIOSB  YTSMOC81  YTSMOC82  YTSMOC83  YTSMOCBL  
YTSMPI2  YTSMPIPN  YTSNEOPI  YTSNPIQ  YTSPEB20  YTSPEB27  YTSPEG  YTSPHQ2  
YTSPOQ  YTSPRM10  YTSPROM2  YTSPSEQ2  YTSPSOCQ  YTSPTSD  YTSQOLI  YTSRAID  
YTSSBAF  YTSSBAFP  YTSSDSQ  YTSSODU  YTSSTMS  YTSVR12  YTSWBS  YTSWBS2  
YTSWHODA  YTSWHOQO  YTSWHYMP  YTSYMRS  ^YTT(601.71  

Entry Points

Name Comments DBIA/ICR reference
DLL ; stub entry point for instruments scored by DLL
DESGNTR(YSQN,DES) ; Create DESIGNTR variable, used for Reports
LOADANSW(YSDATA,YS) ; patch 123, loads answers, builds YSDATA array
SCOREINS(YSDATA,IEN71) ;
; patch 123, scores responses (answers) for a given instrument
; YSDATA contains Answers for instrument
CHKSCRE() ;
LDSCORES(YSDATA,YS) ; new call for patch 123
UPDSCORE(YSDATA,YS) ; files entries in MH RESULTS (601.92)
CHKSCR(YSC,YSG) ; return 1 if there are different values, 0 if values in scoring are the same
ADDAUDIT(YSC,YSG) ; add entry in AUDIT node, update value in existing MH RESULTS record
ADDSCRE ;add score to MH RESULTS
OLDSCRES(YSCALE,YSAD) ; if existing score, build array containing them
SETREV(YSAD,IEN71) ; set revision value in MH ADMINISTRATIONS to value in MH TEST AND SURVEYS
LDTSCOR(TSARR,YSAD) ;
BYKEY(YSDATA) ; use YSDATA to score by key and put into ^TMP($J,"YSCOR")
; expects scales to already be in ^TMP($J,"YSG")

External References

Name Field # of Occurrence
NOW^%DTC ADDAUDIT+3
FILE^DIE ADDAUDIT+15, SETREV+3
UPDATE^DIE ADDAUDIT+7, ADDSCRE+19
CLEAN^DILF ADDAUDIT+9, ADDAUDIT+17, SETREV+5
$$GET1^DIQ LOADANSW+13, SCOREINS+6, SCOREINS+11, CHKSCRE+2, CHKSCRE+3, LDSCORES+7, LDSCORES+13, UPDSCORE+6, ADDAUDIT+5, SETREV+2
SCORSAVE^YTQAPI11 LDSCORES+10
SCALEG^YTQAPI3 SCOREINS+7, LDSCORES+14
SUMKEY^YTSCOREX BYKEY+10

Used in RPC

RPC Name Call Tags
YTQ GET RESULTS LDSCORES

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.71 - [#601.71] GET1^DIQ
^YTT(601.84 - [#601.84] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J SCOREINS+4!, SCOREINS+5*, SCOREINS+8, SCOREINS+9*, SCOREINS+16*, SCOREINS+17, LDSCORES+5!, LDSCORES+6*, LDSCORES+8*, LDSCORES+11*
, LDSCORES+16, LDSCORES+17*, LDSCORES+23*, UPDSCORE+5*, UPDSCORE+10, UPDSCORE+11, ADDAUDIT+8*, ADDAUDIT+16*, ADDSCRE+6*, ADDSCRE+7*
, ADDSCRE+23*, SETREV+4*, BYKEY+3!, BYKEY+6*, BYKEY+11*, BYKEY+13*
^YTT(601.71 - [#601.71] BYKEY+5
^YTT(601.75 - [#601.75] SCOREINS+26
^YTT(601.76 - [#601.76] DESGNTR+4, DESGNTR+6, LOADANSW+17, LOADANSW+19
^YTT(601.84 - [#601.84] LOADANSW+11
^YTT(601.85 - [#601.85] LOADANSW+10, LOADANSW+15, LOADANSW+16, LOADANSW+20, LOADANSW+21, LOADANSW+22, SCOREINS+21, SCOREINS+23, SCOREINS+25, SCOREINS+26
^YTT(601.86 - [#601.86] SCOREINS+5
^YTT(601.91 - [#601.91] SCOREINS+18, SCOREINS+19
^YTT(601.92 - [#601.92] LDSCORES+11, LDSCORES+20, LDSCORES+21, UPDSCORE+8, ADDSCRE+2, ADDSCRE+4, ADDSCRE+8, ADDSCRE+9, ADDSCRE+20, ADDSCRE+22
, OLDSCRES+3, OLDSCRES+4, LDTSCOR+4, LDTSCOR+5, LDTSCOR+6

Label References

Name Line Occurrences
$$CHKSCR UPDSCORE+15
$$CHKSCRE LDSCORES+10
@( SCOREINS+14
ADDAUDIT UPDSCORE+16
ADDSCRE UPDSCORE+17
OLDSCRES UPDSCORE+8
SETREV UPDSCORE+19

Naked Globals

Name Field # of Occurrence
^(2 BYKEY+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADDAUDIT+4, ADDAUDIT+18!
%H ADDAUDIT+18!
%I ADDAUDIT+18!
ANSWERS BYKEY+2~, BYKEY+10
ANSWERS( BYKEY+9*
AUD ADDAUDIT+1~
AUD(1 ADDAUDIT+4*, ADDAUDIT+5*, ADDAUDIT+6*
AUDIEN ADDAUDIT+1~, ADDAUDIT+2*, ADDAUDIT+4, ADDAUDIT+5, ADDAUDIT+6, ADDAUDIT+14
CID BYKEY+2~, BYKEY+8*, BYKEY+9
CNT LDTSCOR+1~, LDTSCOR+2*
DATA LDTSCOR+1~, LDTSCOR+6*, LDTSCOR+7, LDTSCOR+10
DES DESGNTR~, DESGNTR+2*, DESGNTR+6*
DIERR ADDAUDIT+1~, ADDAUDIT+8, ADDAUDIT+12~, ADDAUDIT+16, ADDSCRE+1~, ADDSCRE+23, SETREV+1~, SETREV+4
DIFF UPDSCORE+3~, UPDSCORE+13*, UPDSCORE+15*, UPDSCORE+16, CHKSCR+2*, CHKSCR+5*, CHKSCR+6
>> DILOCKTM ADDSCRE+4, ADDSCRE+9
FDA ADDAUDIT+12~, ADDSCRE+1~, SETREV+1~
FDA( ADDAUDIT+14*, ADDSCRE+12*, ADDSCRE+13*, ADDSCRE+14*, ADDSCRE+15*, ADDSCRE+16*, ADDSCRE+17*, ADDSCRE+18*, SETREV+2*
FDAIEN ADDSCRE+1~
FDAIEN(1 ADDSCRE+11*
G LOADANSW+6~, LOADANSW+15*, LOADANSW+16*, LOADANSW+20, LOADANSW+21, LOADANSW+22, SCOREINS+3~, SCOREINS+19*, SCOREINS+20, LDSCORES+3~
, LDSCORES+21*, LDSCORES+22, LDSCORES+23
G1 LOADANSW+6~, LOADANSW+16*, LOADANSW+21*, LOADANSW+22
I SCOREINS+3~, SCOREINS+16*, SCOREINS+17, CHKSCR+1~, CHKSCR+5*, ADDAUDIT+6*, ADDAUDIT+12~, ADDAUDIT+14*, BYKEY+2~, BYKEY+7*
, BYKEY+8, BYKEY+12*, BYKEY+13
IEN71 LOADANSW+7~, SCOREINS~, SCOREINS+5, SCOREINS+6, SCOREINS+11, CHKSCRE+2, LDSCORES+3~, LDSCORES+7*, UPDSCORE+3~, UPDSCORE+6*
, UPDSCORE+19, SETREV~, SETREV+2
IEN92 OLDSCRES+1~, OLDSCRES+2*, OLDSCRES+3*, OLDSCRES+4, LDTSCOR+1~, LDTSCOR+2*, LDTSCOR+5*, LDTSCOR+6
J BYKEY+2~, BYKEY+7*, BYKEY+9*, BYKEY+11*, BYKEY+13*
N LOADANSW+6~, LOADANSW+14*, LOADANSW+20*, LOADANSW+22*, SCOREINS+3~, SCOREINS+9*, SCOREINS+16*, LDSCORES+3~, LDSCORES+17*, LDSCORES+22*
, LDSCORES+23
OLDSC CHKSCR+1~, CHKSCR+4*, CHKSCR+5
QID BYKEY+2~, BYKEY+8*, BYKEY+9
RAW LDTSCOR+1~, LDTSCOR+7*, LDTSCOR+8*, LDTSCOR+10
REVSCR71 CHKSCRE+1~, CHKSCRE+2*, CHKSCRE+4
REVSCR84 CHKSCRE+1~, CHKSCRE+3*, CHKSCRE+4
SCALE LDSCORES+3~, LDSCORES+22*, LDSCORES+23
SCORES BYKEY+2~, BYKEY+10
SCORES( BYKEY+12, BYKEY+13
STR ADDSCRE+1~, ADDSCRE+10*, ADDSCRE+15, ADDSCRE+16, ADDSCRE+17, ADDSCRE+18, OLDSCRES+1~, OLDSCRES+4*, OLDSCRES+5
STR76 DESGNTR+1~, DESGNTR+4*, DESGNTR+5, DESGNTR+6
T1 LDTSCOR+1~, LDTSCOR+7*, LDTSCOR+9*, LDTSCOR+10
T2 LDTSCOR+1~, LDTSCOR+7*, LDTSCOR+9*, LDTSCOR+10
T3 LDTSCOR+1~, LDTSCOR+7*, LDTSCOR+9*, LDTSCOR+10
TEST BYKEY+2~, BYKEY+4*, BYKEY+5*, BYKEY+6, BYKEY+10
TSARR LDTSCOR~
TSARR( LDTSCOR+10*
TSARR("NOADM" LDTSCOR+3*, LDTSCOR+4*
U DESGNTR+6, LOADANSW+11, LOADANSW+13, LOADANSW+19, LOADANSW+20, LOADANSW+22, SCOREINS+16, SCOREINS+17, SCOREINS+20, SCOREINS+26
, LDSCORES+22, LDSCORES+23, CHKSCR+4, CHKSCR+5, ADDAUDIT+2, ADDAUDIT+6, ADDAUDIT+14, ADDSCRE+2, ADDSCRE+15, ADDSCRE+16
, ADDSCRE+17, ADDSCRE+18, OLDSCRES+5, LDTSCOR+7, LDTSCOR+10, BYKEY+4, BYKEY+8
X ADDAUDIT+18!
YS LOADANSW~, SCOREINS+7, LDSCORES~, LDSCORES+10, LDSCORES+14, UPDSCORE~, BYKEY+2~
YS("AD" LOADANSW+8, LDSCORES+4, UPDSCORE+4
YS("CODE" SCOREINS+6*, LDSCORES+13*, BYKEY+4*
YSAD LOADANSW+8*, LOADANSW+9, LOADANSW+10, LOADANSW+11, LOADANSW+13, LOADANSW+15, LOADANSW+16, SCOREINS+21, CHKSCRE+3, LDSCORES+3~
, LDSCORES+4*, LDSCORES+6, LDSCORES+7, LDSCORES+11, LDSCORES+13, LDSCORES+20, UPDSCORE+3~, UPDSCORE+4*, UPDSCORE+5, UPDSCORE+6
, UPDSCORE+8, UPDSCORE+19, ADDAUDIT+5, ADDSCRE+13, OLDSCRES~, OLDSCRES+3, SETREV~, SETREV+2, LDTSCOR~, LDTSCOR+3
, LDTSCOR+4, LDTSCOR+5
YSAI SCOREINS+3~, SCOREINS+21*, SCOREINS+22, SCOREINS+23, SCOREINS+25, SCOREINS+26
YSAN SCOREINS+3~, SCOREINS+24*, SCOREINS+25*, SCOREINS+26*, SCOREINS+27
YSC UPDSCORE+3~, UPDSCORE+12*, UPDSCORE+14, UPDSCORE+15, UPDSCORE+16, CHKSCR~, CHKSCR+4, ADDAUDIT~, ADDAUDIT+2, ADDAUDIT+6
, ADDAUDIT+14
YSCALE LDSCORES+3~, LDSCORES+19*, LDSCORES+20*, LDSCORES+21, UPDSCORE+3~, UPDSCORE+8, OLDSCRES~
YSCALE( UPDSCORE+14, CHKSCR+4, ADDAUDIT+2, ADDAUDIT+6, ADDAUDIT+14, OLDSCRES+5*
YSCALEI SCOREINS+3~, SCOREINS+17*, SCOREINS+18
YSCODEN LDSCORES+3~
YSCOR CHKSCR+1~, CHKSCR+3*, CHKSCR+5
YSDATA LOADANSW~, SCOREINS~, SCOREINS+7, SCOREINS+8*, LDSCORES~, LDSCORES+5*, LDSCORES+10, LDSCORES+14, LDSCORES+16*, UPDSCORE~
, BYKEY~
YSDATA( LOADANSW+20*, LOADANSW+22*, BYKEY+7, BYKEY+8
YSDATA(1 LOADANSW+9*, LOADANSW+10*, LOADANSW+12*
YSDATA(2 LOADANSW+9*, LOADANSW+10*, LOADANSW+13*, BYKEY+4
YSEQ LOADANSW+6~, LOADANSW+18*, LOADANSW+19*, LOADANSW+20, LOADANSW+22
YSG UPDSCORE+3~, UPDSCORE+11*, UPDSCORE+12, UPDSCORE+15, UPDSCORE+16, CHKSCR~, CHKSCR+3, ADDAUDIT~, ADDAUDIT+13, ADDSCRE+10
, ADDSCRE+14
YSGANS ADDAUDIT+12~, ADDAUDIT+13*, ADDAUDIT+14
YSICON LOADANSW+6~, LOADANSW+17*, LOADANSW+19
YSKEYI SCOREINS+3~, SCOREINS+18*, SCOREINS+19
YSQN DESGNTR~, DESGNTR+3, DESGNTR+4, LOADANSW+6~, LOADANSW+14*, LOADANSW+15*, LOADANSW+16, LOADANSW+17, LOADANSW+20, LOADANSW+22
, SCOREINS+3~, SCOREINS+20*, SCOREINS+21
YSRAW SCOREINS+3~, SCOREINS+16*, SCOREINS+27*
YSRFND ADDSCRE+1~, ADDSCRE+2*, ADDSCRE+8, ADDSCRE+21*
YSRNEW ADDSCRE+1~, ADDSCRE+2*, ADDSCRE+3*, ADDSCRE+8*, ADDSCRE+9, ADDSCRE+11, ADDSCRE+12, ADDSCRE+20
YSRTN SCOREINS+3~, SCOREINS+11*, SCOREINS+12, SCOREINS+13*, SCOREINS+14
YSTARG SCOREINS+3~, SCOREINS+20*, SCOREINS+27
YSTSTN LOADANSW+6~, LOADANSW+11*, LOADANSW+17
YSVAL SCOREINS+3~, SCOREINS+20*, SCOREINS+27
Z UPDSCORE+3~, UPDSCORE+10*, UPDSCORE+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All