YTSVR12 ;SLC/LLH - Score VR12 ; 01/08/2016
Source file <YTSVR12.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETSC(DES,LEG) | ;
|
|
SETKEY(DES) | ;
|
|
SUMKEY(KEY) | ;
|
|
MCALC(SC,KEYSUM,ROU,MCS,PCS) | ;
|
|
GETROU(KEYSUM,ROU) | ; get routine to look up values to use in calculations
|
|
DATA1 | ;
|
|
SCORESV | ;
|
|
BLDLKU | ;
|
|
DLLSTR(YSDATA,YS,YSTRNG) | ;
; YSTRNG = 1 Score Instrument ; YSTRNG = 2 get Report Answers and Text |
|
MCSKEY | ;
|
|
PCSKEY | ;
|
FileNo | Call Tags |
---|---|
^YTT(601.75 - [#601.75] | GET1^DIQ |
^YTT(601.87 - [#601.87] | GET1^DIQ |