YTSBAMCC ;SLC/PIJ/KCM - Score BAM-C-CPT-SUD ; 01/08/2016
Source file <YTSBAMCC.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 |
