YTSBAMC ;SLC/PIJ - Score BAMC ; 01/08/2016
Source file <YTSBAMC.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DATA1 | ; display scores for administration
 | 
|
| 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  | 
|
| NV(ID) | ; returns 1 if ID had no value (has been skipped)
 ; expects ARGS from VERIFY  | 
|
| MSG(REL,Q1,Q2) | ; Add text of message to RESULTS
 ; expects MSGCNT, RESULTS from VERIFY  | 
|
| NVMSG(Q1) | ; Add message for no value present
 ; expects MSGCNT, RESULTS from VERIFY  | 
|
| ALLSUB | ; compare total of all substances with any substance number
 ; expects ARGS, RESULT from VERIFY  | 
| FileNo | Call Tags | 
|---|---|
| ^YTT(601.87 - [#601.87] | GET1^DIQ |