YTSBAMIC ;SLC/KCM - Verify for BAM-IOP-CSG-SUD ; 01/08/2016
Source file <YTSBAMIC.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Mental Health | 1 | YTQRQAD2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
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 |
|
GTI(ID1,ID2) | ; returns 1 if ID1 is more than ID2 (integer question)
; expects ARGS from VERIFY |
|
MSG(REL,Q1,Q2) | ; Add text of message to RESULTS
; expects MSGCNT, RESULTS from VERIFY |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^YTT(601.75 - [#601.75] | LT+4, LT+6 |
Name | Line Occurrences |
---|---|
$$GTI | VERIFY+10 |
$$LT | VERIFY+2, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9 |
MSG | VERIFY+2, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9, VERIFY+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARGS | VERIFY~ |
ARGS( | LT+3, LT+5, GTI+3, GTI+4 |
ID1 | LT~, LT+3, GTI~, GTI+3 |
ID2 | LT~, LT+5, GTI~, GTI+4 |
MSGCNT | VERIFY+1~*, VERIFY+11, MSG+8* |
NOUN | MSG+2~, MSG+3*, MSG+5, MSG+7 |
Q1 | MSG~, MSG+3, MSG+5 |
Q2 | MSG~, MSG+7 |
REL | MSG~, MSG+6 |
RESULTS | VERIFY~ |
RESULTS("count" | VERIFY+11* |
RESULTS("messages" | MSG+8* |
U | LT+4, LT+6 |
VAL1 | LT+2~, LT+3*, LT+4*, LT+7, GTI+2~, GTI+3*, GTI+5 |
VAL2 | LT+2~, LT+5*, LT+6*, LT+7, GTI+2~, GTI+4*, GTI+5 |
X | MSG+2~, MSG+4*, MSG+5*, MSG+6*, MSG+7*, MSG+8 |