YTSBAMRC ;SLC/PIJ/KCM - Score BAM-R-CSG-SUD ; 01/08/2016
Source file <YTSBAMRC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DATA1 | ; display scores for administration
|
|
SCORE | ;
|
|
SCORADJ(SCOR) | ;
|
|
SCORESV | ;
|
|
DLLSTR(YSDATA,YS,YSTRNG) | ;
; YSTRNG = 1 Score Instrument ; YSTRNG = 2 get Report Answers and Text |
|
VERIFY(ARGS,RESULTS) | ; Add inconsistency messages based on set of answers in ARGS
|
|
LT(ID1,ID2) | ; returns 1 if ID1 is less than ID2
; expects ARGS from VERIFY |
|
GT(ID1,ID2) | ; returns 1 if ID1 is more than ID2
; expects ARGS from VERIFY |
|
MSG(REL,Q1,Q2) | ; Add text of message to RESULTS
; expects MSGCNT, RESULTS from VERIFY |
FileNo | Call Tags |
---|---|
^YTT(601.87 - [#601.87] | GET1^DIQ |