YTSBAMCC ;SLC/PIJ/KCM - Score BAM-C-CPT-SUD ; 01/08/2016
Source file <YTSBAMCC.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 |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$LT | VERIFY+4, VERIFY+7, VERIFY+9, VERIFY+11, VERIFY+13, VERIFY+15, VERIFY+17, VERIFY+19 |
| $$NV | VERIFY+2, VERIFY+3, VERIFY+5, VERIFY+6, VERIFY+8, VERIFY+10, VERIFY+12, VERIFY+14, VERIFY+16, VERIFY+18 |
| ALLSUB | VERIFY+20 |
| DATA1 | DLLSTR+8 |
| MSG | VERIFY+4, VERIFY+7, VERIFY+9, VERIFY+11, VERIFY+13, VERIFY+15, VERIFY+17, VERIFY+19 |
| NVMSG | VERIFY+2, VERIFY+3, VERIFY+5, VERIFY+6, VERIFY+8, VERIFY+10, VERIFY+12, VERIFY+14, VERIFY+16, VERIFY+18 |
| SCORESV | DLLSTR+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALCO | DATA1+8*, SCORESV+8, DLLSTR+4~ |
| ANS | DATA1+1~, DATA1+7*, DATA1+8, DATA1+9, DATA1+10 |
| ARGS | VERIFY~ |
| ARGS( | LT+3, LT+4, NV+3, ALLSUB+4 |
| ARGS("q9096" | ALLSUB+5 |
| DATA | DATA1+5*, DATA1+6, DATA1+7, DLLSTR+4~ |
| DRUG | DATA1+10*, SCORESV+10, DLLSTR+4~ |
| HALCO | DATA1+9*, SCORESV+9, DLLSTR+4~ |
| ID | NV~, NV+3, ALLSUB+2~, ALLSUB+4* |
| ID1 | LT~, LT+3 |
| ID2 | LT~, LT+4 |
| MSGCNT | VERIFY+1~*, VERIFY+21, MSG+6*, NVMSG+5*, ALLSUB+9* |
| NODE | DATA1+4*, DATA1+5, DLLSTR+4~ |
| Q1 | MSG~, MSG+3, NVMSG~, NVMSG+3 |
| Q2 | MSG~, MSG+5 |
| REL | MSG~, MSG+4 |
| RESULTS | VERIFY~ |
| RESULTS("count" | VERIFY+21* |
| RESULTS("messages" | MSG+6*, NVMSG+5*, ALLSUB+9* |
| SUM | ALLSUB+2~, ALLSUB+3*, ALLSUB+4*, ALLSUB+5 |
| U | DATA1+2, DATA1+6, DATA1+7 |
| VAL | NV+2~, NV+3* |
| VAL1 | LT+2~, LT+3*, LT+5 |
| VAL2 | LT+2~, LT+4*, LT+5 |
| X | MSG+2~, MSG+3*, MSG+4*, MSG+5*, MSG+6, NVMSG+2~, NVMSG+3*, NVMSG+4*, NVMSG+5, ALLSUB+2~ , ALLSUB+6*, ALLSUB+7*, ALLSUB+8*, ALLSUB+9 |
| YS | DLLSTR~ |
| YS("CODE" | DATA1+3 |
| YSDATA | DLLSTR~ |
| YSDATA( | DATA1+4, DATA1+5 |
| YSDATA(2 | DATA1+2 |
| YSINSNAM | DATA1+2*, DATA1+3*, SCORESV+4, DLLSTR+4~ |
| YSQN | DATA1+6*, DATA1+8, DATA1+9, DATA1+10, DLLSTR+4~ |
| YSTRNG | DLLSTR~, DLLSTR+6 |
