YTQRRPT ;SLC/LLH - Report Builder ; 08/13/2018
Source file <YTQRRPT.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 | 4 | YSBDD1 YTQRQAD2 YTQRQAD3 YTQRRPC |
Name | Comments | DBIA/ICR reference |
---|---|---|
BLDRPT(RESULTS,ADMIN,MAXWIDTH) | ;
|
|
LOADTLT(TLT,RPT) | ; Load template for RPT into .TLT split by "|" chars
; resulting TLT array uses $C(10) to represent line breaks |
|
RMVDOTS(X) | ; Return X with the initial line feed / dots removed
|
|
WRAPTLT(TLT,MAX) | ; Wrap lines in TLT that are >WIDTH by adding $C(10)
|
|
FIXP(RSTR,RESULTS) | ;
|
|
GETDATA | ;
|
|
ADMINFO(ADATA,ADMIN) | ;
|
|
PATINFO(PDATA,DFN) | ;
|
|
SWAPIT | ;
|
|
SWAP | ;
|
|
SWAPANS | ;
|
|
FMTANS(ANS) | ; return answer string with $C(10))_" " for "|" chars
|
|
SETSCL | ;
|
|
WRAP(TX,MAX) | ; If length of TX > MAX, wrap by adding $C(10)
|
|
ADDOUT(S) | ; add string to out array (expects OUT)
|
|
VARYAUDC(TLT,ADMIN) | ; modify .TLT for AUDC based on patient sex
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | ADMINFO+3, ADMINFO+10 |
DEM^VADPT | PATINFO+7 |
KVA^VADPT | PATINFO+16 |
$$FMTE^XLFDT | ADMINFO+8 |
$$NAMEFMT^XLFNAME | ADMINFO+9, PATINFO+6 |
$$LOW^XLFSTR | PATINFO+9 |
$$REPLACE^XLFSTR | GETDATA+2, FMTANS+2 |
$$SENTENCE^XLFSTR | PATINFO+15 |
$$TITLE^XLFSTR | ADMINFO+10 |
ALLANS^YTQAPI2 | BLDRPT+22 |
GETSCORE^YTQAPI8 | BLDRPT+20 |
LEGACY^YTQAPI8 | BLDRPT+7 |
SETERROR^YTQRUTL | BLDRPT+2, BLDRPT+12, BLDRPT+13, BLDRPT+25 |
FileNo | Call Tags |
---|---|
^YTT(601.84 - [#601.84] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | VARYAUDC+3 |
^TMP("YSDATA" | BLDRPT+9, BLDRPT+10 |
^TMP($J | BLDRPT+16!, SETSCL+2, SETSCL+3, SETSCL+4 |
^YTT(601.71 - [#601.71] | BLDRPT+4, BLDRPT+15, BLDRPT+26 |
^YTT(601.72 - [#601.72] | SWAPANS+20 |
^YTT(601.75 - [#601.75] | SWAPANS+20 |
^YTT(601.84 - [#601.84] | BLDRPT+2, BLDRPT+3, BLDRPT+15, ADMINFO+2, ADMINFO+7, ADMINFO+8, VARYAUDC+2, VARYAUDC+4 |
^YTT(601.93 - [#601.93] | BLDRPT+12, BLDRPT+13, BLDRPT+26, LOADTLT+4, LOADTLT+5 |
Name | Field # of Occurrence |
---|---|
^( | BLDRPT+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADATA | BLDRPT+1~, BLDRPT+17, ADMINFO~ |
ADATA("DATE" | ADMINFO+8* |
ADATA("DFN" | BLDRPT+18, ADMINFO+7* |
ADATA("LOC" | ADMINFO+10* |
ADATA("ORDERED" | ADMINFO+9* |
ADMIN | BLDRPT~, BLDRPT+2, BLDRPT+3, BLDRPT+6, BLDRPT+14, BLDRPT+15, BLDRPT+17, BLDRPT+26, ADMINFO~, ADMINFO+2 , ADMINFO+3, ADMINFO+7, ADMINFO+8, ADMINFO+10, VARYAUDC~, VARYAUDC+2, VARYAUDC+4 |
ANS | BLDRPT+1~, SWAPANS+1~, SWAPANS+6*, SWAPANS+8*, SWAPANS+10, SWAPANS+12, SWAPANS+14, SWAPANS+15, SWAPANS+18, SWAPANS+20 , SWAPANS+22, SWAPANS+24, SWAPANS+26, FMTANS~, FMTANS+2 |
ANSID | SWAPANS+1~, SWAPANS+7*, SWAPANS+10, SWAPANS+12, SWAPANS+14, SWAPANS+16, SWAPANS+17, SWAPANS+18, SWAPANS+20, SWAPANS+22 , SWAPANS+24, SWAPANS+26 |
CLIN | ADMINFO+1~, ADMINFO+3*, ADMINFO+6 |
DATA | ADMINFO+1~, ADMINFO+2* |
DFN | PATINFO~, PATINFO+2, PATINFO+5, VARYAUDC+1~, VARYAUDC+2*, VARYAUDC+3 |
DOB | PATINFO+1~, PATINFO+9*, PATINFO+10 |
DONE | VARYAUDC+1~, VARYAUDC+6*, VARYAUDC+9* |
END | LOADTLT+2~, LOADTLT+8*, LOADTLT+9, LOADTLT+11, LOADTLT+12, FIXP+1~, FIXP+4*, FIXP+5, FIXP+7, FIXP+9 |
ENSRC | VARYAUDC+1~, VARYAUDC+4* |
FRAG | LOADTLT+2~, LOADTLT+3*, LOADTLT+11, LOADTLT+12*, LOADTLT+14*, LOADTLT+16, FIXP+1~, FIXP+2*, FIXP+7, FIXP+9* , FIXP+11* |
FVC | RMVDOTS+1~*, RMVDOTS+3*, RMVDOTS+4 |
I | BLDRPT+5~, BLDRPT+9*, BLDRPT+10*, RMVDOTS+1~*, RMVDOTS+2, RMVDOTS+3, RMVDOTS+4*, RMVDOTS+5, WRAPTLT+1~, WRAPTLT+2* , WRAP+1~, WRAP+3*, WRAP+11*, VARYAUDC+1~, VARYAUDC+6*, VARYAUDC+7, VARYAUDC+8, VARYAUDC+9 |
INST | BLDRPT+1~, BLDRPT+3*, BLDRPT+4, BLDRPT+12, BLDRPT+13 |
J | BLDRPT+5~, BLDRPT+10*, WRAP+1~, WRAP+6*, WRAP+7, WRAP+8 |
LF | LOADTLT+2~, LOADTLT+3*, LOADTLT+11, LOADTLT+16, FIXP+1~, FIXP+2*, FIXP+4, WRAP+1~, WRAP+2*, WRAP+3 , WRAP+11 |
LN | LOADTLT+2~, LOADTLT+3*, LOADTLT+10*, LOADTLT+11, LOADTLT+16*, FIXP+1~, FIXP+2*, FIXP+6*, FIXP+7, FIXP+8 |
LP | BLDRPT+1~, LOADTLT+2~, LOADTLT+4*, LOADTLT+5, LOADTLT+6, LOADTLT+7*, FIXP+1~, FIXP+3*, FIXP+4, FIXP+7 , FIXP+11, GETDATA+1~, GETDATA+2*, SWAPIT+1~, SWAPIT+2*, SWAPANS+1~, SWAPANS+5*, SWAPANS+6, SETSCL+1~, SETSCL+3* , SETSCL+4 |
MAX | WRAPTLT~, WRAPTLT+2, SWAPANS+1~, SWAPANS+3*, SWAPANS+30, SWAPANS+32, WRAP~, WRAP+4, WRAP+8 |
MAXWIDTH | BLDRPT~, BLDRPT+28, SWAPANS+3 |
MYNAME | ADMINFO+1~, ADMINFO+9, PATINFO+1~, PATINFO+6 |
MYNAME("FIELD" | ADMINFO+5*, PATINFO+4* |
MYNAME("FILE" | ADMINFO+4*, PATINFO+3* |
MYNAME("IENS" | ADMINFO+6*, PATINFO+5* |
OUT | WRAP+1~, ADDOUT+1* |
OUT( | WRAP+11, ADDOUT+1* |
PDATA | BLDRPT+1~, BLDRPT+18, PATINFO~ |
PDATA("AGE" | PATINFO+11* |
PDATA("DOB" | PATINFO+10* |
PDATA("GENDER" | PATINFO+13*, PATINFO+15* |
PDATA("NM" | PATINFO+6* |
PDATA("SSN" | PATINFO+8* |
QSTN | SWAPANS+1~, SWAPANS+4*, SWAPANS+6*, SWAPANS+7, SWAPANS+10, SWAPANS+20 |
RESULTS | BLDRPT~, BLDRPT+30, FIXP~ |
RESULTS( | BLDRPT+10*, FIXP+7*, FIXP+8* |
RPT | BLDRPT+1~, BLDRPT+13*, BLDRPT+24, BLDRPT+25, BLDRPT+26, LOADTLT~, LOADTLT+4, LOADTLT+5 |
RSTR | BLDRPT+1~, BLDRPT+24, BLDRPT+25, BLDRPT+26, BLDRPT+28, BLDRPT+30, FIXP~ |
RSTR( | FIXP+3, FIXP+4, FIXP+7, FIXP+11, GETDATA+2* |
S | ADDOUT~, ADDOUT+1 |
SCL | BLDRPT+1~ |
SEQ | SWAPANS+1~, SWAPANS+6*, SWAPANS+12 |
START | LOADTLT+2~, LOADTLT+8*, LOADTLT+11, LOADTLT+12*, LOADTLT+14, LOADTLT+15*, FIXP+1~, FIXP+4*, FIXP+7, FIXP+9* , FIXP+11, FIXP+12* |
STR | SWAPANS+1~, SETSCL+1~, SETSCL+4*, SETSCL+5 |
SWAP | BLDRPT+1~, GETDATA+2 |
SWAP( | SWAPIT+2*, SWAPANS+10*, SWAPANS+12*, SWAPANS+14*, SWAPANS+16*, SWAPANS+17*, SWAPANS+18*, SWAPANS+20*, SWAPANS+22*, SWAPANS+24* , SWAPANS+26*, SWAPANS+29, SWAPANS+30, SWAPANS+32* |
SWAP("<*Answer_" | SWAPANS+4* |
SWAP("<-" | SETSCL+5* |
SWAP("<.DLL_String.>" | SWAPIT+3* |
SWITCH | FMTANS+1~, FMTANS+2 |
SWITCH("|" | FMTANS+1* |
TLT | LOADTLT~, WRAPTLT~, VARYAUDC~ |
TLT( | LOADTLT+11*, LOADTLT+16*, WRAPTLT+2*, VARYAUDC+6, VARYAUDC+7, VARYAUDC+8, VARYAUDC+9* |
TSTNM | BLDRPT+1~, BLDRPT+15*, SWAPANS+10, SWAPANS+16 |
TX | WRAP~, WRAP+3 |
TXT | SWAPIT+1~, SWAPIT+2* |
U | BLDRPT+3, BLDRPT+4, BLDRPT+15, BLDRPT+26, ADMINFO+7, ADMINFO+8, PATINFO+9, PATINFO+11, PATINFO+12, PATINFO+13 , PATINFO+15, SWAPANS+6, SWAPANS+20, SETSCL+5, VARYAUDC+2, VARYAUDC+3, VARYAUDC+4 |
>> VA("BID" | PATINFO+8 |
>> VADM(14 | PATINFO+12, PATINFO+13 |
>> VADM(3 | PATINFO+9 |
>> VADM(4 | PATINFO+11 |
>> VADM(5 | PATINFO+15 |
X | LOADTLT+2~, LOADTLT+5*, LOADTLT+6*, LOADTLT+7*, LOADTLT+8, LOADTLT+11, LOADTLT+14, RMVDOTS~, RMVDOTS+2, RMVDOTS+4 , RMVDOTS+5, SWAPANS+1~, SWAPANS+29*, SWAPANS+30, SWAPANS+31, SWAPANS+32, WRAP+1~, WRAP+3*, WRAP+4, WRAP+6 , WRAP+7, WRAP+8, WRAP+11*, WRAP+12 |
X1 | VARYAUDC+1~, VARYAUDC+8*, VARYAUDC+9 |
X2 | VARYAUDC+1~, VARYAUDC+8*, VARYAUDC+9 |
Y | WRAP+1~, WRAP+5*, WRAP+7, WRAP+8*, WRAP+9*, WRAP+10 |
YNEW | WRAP+1~, WRAP+7*, WRAP+8, WRAP+9 |
YS | BLDRPT+1~, BLDRPT+7, BLDRPT+20, BLDRPT+22 |
YS("AD" | BLDRPT+6*, BLDRPT+14* |
YSDATA | BLDRPT+1~, BLDRPT+7, BLDRPT+20, BLDRPT+22, SWAPANS+2 |
YSDATA( | SWAPANS+5, SWAPANS+6 |
YSDATA(1 | SWAPANS+2 |
Name | Field # of Occurrence |
---|---|
$T(SWAP+LP | SWAPIT+2 |