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 |  Local Variables  | All
Print Page as PDF
Routine: YTSCORE

Package: Mental Health

Routine: YTSCORE


Information

YTSCORE ;SLC/KCM - Scoring for complex instruments ; 9/15/2015

Source Information

Source file <YTSCORE.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
Mental Health 51 YTQ GET RESULTS  YTQAPI11  YTQAPI8  YTQRCAT  YTSAUDTC  YTSBAI  YTSBAMR  YTSBAS24  
YTSBBHI2  YTSBDI2  YTSBHS  YTSBIPF  YTSBSS  YTSCDR  YTSCIA  YTSCOPD  
YTSCOREV  YTSCSDD  YTSEDEQ  YTSEHS14  YTSFAST  YTSI9CSS  YTSIMRS  YTSISMI  
YTSISS2  YTSMCMI4  YTSMIDAS  YTSMINIC  YTSMIOSB  YTSMPI2  YTSMPIPN  YTSNEOPI  
YTSPEB20  YTSPEB27  YTSPHQ2  YTSPOQ  YTSPRM10  YTSPROM2  YTSPSOCQ  YTSPTSD  
YTSQOLI  YTSRAID  YTSSBAF  YTSSBAFP  YTSSTMS  YTSVR12  YTSWBS  YTSWHODA  
YTSWHOQO  YTSWHYMP  ^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) ;

External References

Name Field # of Occurrence
NOW^%DTC ADDAUDIT+3
FILE^DIE ADDAUDIT+15, SETREV+3
UPDATE^DIE ADDAUDIT+7, ADDSCRE+15
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

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+18*, SETREV+4*
^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+5, ADDSCRE+16, 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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADDAUDIT+4, ADDAUDIT+18!
%H ADDAUDIT+18!
%I ADDAUDIT+18!
AUD ADDAUDIT+1~
AUD(1 ADDAUDIT+4*, ADDAUDIT+5*, ADDAUDIT+6*
AUDIEN ADDAUDIT+1~, ADDAUDIT+2*, ADDAUDIT+4, ADDAUDIT+5, ADDAUDIT+6, ADDAUDIT+14
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+18, SETREV+1~, SETREV+4
DIFF UPDSCORE+3~, UPDSCORE+13*, UPDSCORE+15*, UPDSCORE+16, CHKSCR+2*, CHKSCR+5*, CHKSCR+6
>> DILOCKTM ADDSCRE+5
FDA ADDAUDIT+12~, ADDSCRE+1~, SETREV+1~
FDA( ADDAUDIT+14*, ADDSCRE+8*, ADDSCRE+9*, ADDSCRE+10*, ADDSCRE+11*, ADDSCRE+12*, ADDSCRE+13*, ADDSCRE+14*, SETREV+2*
FDAIEN ADDSCRE+1~
FDAIEN(1 ADDSCRE+7*
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*
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
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
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
STR ADDSCRE+1~, ADDSCRE+6*, ADDSCRE+11, ADDSCRE+12, ADDSCRE+13, ADDSCRE+14, 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
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+11, ADDSCRE+12
, ADDSCRE+13, ADDSCRE+14, OLDSCRES+5, LDTSCOR+7, LDTSCOR+10
X ADDAUDIT+18!
YS LOADANSW~, SCOREINS+7, LDSCORES~, LDSCORES+10, LDSCORES+14, UPDSCORE~
YS("AD" LOADANSW+8, LDSCORES+4, UPDSCORE+4
YS("CODE" SCOREINS+6*, LDSCORES+13*
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+9, 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~
YSDATA( LOADANSW+20*, LOADANSW+22*
YSDATA(1 LOADANSW+9*, LOADANSW+10*, LOADANSW+12*
YSDATA(2 LOADANSW+9*, LOADANSW+10*, LOADANSW+13*
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+6
, ADDSCRE+10
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+4, ADDSCRE+17*
YSRNEW ADDSCRE+1~, ADDSCRE+2*, ADDSCRE+3*, ADDSCRE+4*, ADDSCRE+5, ADDSCRE+7, ADDSCRE+8, ADDSCRE+16
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 |  Local Variables  | All