TIULMED1 ; SLC/JM - Active/Recent Med Objects Routine ;03/23/17 10:53
Source file <TIULMED1.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 |
---|---|---|
Text Integration Utility | 2 | TIULMED TIULMED3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD(TXT) | ; Saves TXT in TARGET
|
|
ADDLNUM(TXT) | ; Add text with Line Number added to front of string
|
|
ADDL(TXT) | ; Add with ADDLNUM on FIRST
|
|
ADDMED(XMODE) | ; if XMODE creates XSTR, if not add med to TARGET
|
|
FDT(PNUM) | ;Returns formatted date from piece number
|
|
ADDDATE(LINENUM,TXT,PNUM) | ;Add date to TARGET
|
|
XSUMS(STR,NOADD) | ; XSUMs a string
|
|
WRAP | ; Wraps DATA to the output
|
|
STRIP(X) | ; Removes Leading and Trialing Spaces
|
|
ADDP(PNUM) | ; Adds or XSUMs a piece of NODE
|
|
ADDM(SUB,FORCE) | ; Adds or XSUMs Multiple
|
|
FLUSH | ; Flush the DATA buffer
|
|
PL(PNUM) | ;Retuns length of peice
|
|
ML(SUB) | ;Returns true if multiple exists and contains data
|
|
ADDTITLE | ;Adds a title line indicating which meds are in the list
; ALLMEDS 0 - Specifies Inpatient Meds if patient is an ; Inpatient, or Outpatient Meds if patient ; is an Outpatient ; 1 - Specifies both Inpatient, Outpatient, & Clinic ; 2 or "I" - Specifies Inpatient only ; 3 or "O" - Specifies Outpatient only ; 4 or "C" - Specifies Clinic only |
|
WARNING | ;Inserts warning about CLASSORT if needed
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("PS" | ADDM+5, ADDM+6, ADDM+9, ADDM+10, ML+3, ML+4 |
Name | Line Occurrences |
---|---|
$$FDT | ADDDATE+3 |
$$ML | ADDMED+28, ADDMED+35 |
$$PL | ADDMED+11, ADDMED+12, ADDMED+20, ADDMED+23, ADDDATE+1 |
$$STRIP | ADDMED+24, ADDMED+26, ADDMED+29, ADDMED+36, WRAP+16, WRAP+20, ADDP+8, ADDM+10 |
ADD | ADDLNUM+2, ADDLNUM+3, ADDL+4, ADDMED+62, ADDDATE+2, WRAP+24, ADDTITLE+34, ADDTITLE+35, ADDTITLE+38, ADDTITLE+39 , WARNING+3, WARNING+4, WARNING+7, WARNING+8 |
ADDDATE | ADDMED+56, ADDMED+64, ADDMED+65, ADDMED+67 |
ADDL | WRAP+19, FLUSH+3 |
ADDLNUM | ADDL+2 |
ADDM | ADDMED+13, ADDMED+14, ADDMED+16, ADDMED+30, ADDMED+31, ADDMED+34, ADDMED+37, ADDMED+41 |
ADDP | ADDMED+6, ADDMED+11, ADDMED+12, ADDMED+22, ADDMED+25, ADDMED+38, ADDMED+53 |
FLUSH | ADDMED+9, ADDMED+15, ADDMED+33, ADDMED+39, ADDMED+42, ADDMED+51, ADDM+8 |
WRAP | ADDMED+27, ADDP+9, ADDM+11, FLUSH+2 |
XSUMS | ADDP+2, ADDP+3, ADDM+4, ADDM+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ACTVONLY | ADDTITLE+9, ADDTITLE+11, ADDTITLE+12 |
ALL | ADDTITLE+8~, ADDTITLE+13*, ADDTITLE+14, ADDTITLE+15*, ADDTITLE+16*, ADDTITLE+19, ADDTITLE+20, ADDTITLE+21, ADDTITLE+22, ADDTITLE+23 , ADDTITLE+24 |
>> ALLMEDS | ADDTITLE+13 |
>> CLASSORT | WARNING+1 |
>> COUNT | ADDLNUM+2 |
DATA | ADDMED+1~, ADDMED+5*, ADDMED+9*, ADDMED+10*, ADDMED+21*, ADDMED+24*, ADDMED+26*, ADDMED+29*, ADDMED+36*, WRAP+11 , WRAP+14, WRAP+16, WRAP+20*, WRAP+23, WRAP+25, WRAP+26*, ADDP+8*, ADDM+10*, FLUSH+1, FLUSH+3* |
DATA1 | WRAP+2~, WRAP+16*, WRAP+18, WRAP+19 |
>> DETAILED | ADDMED+9, ADDMED+15, ADDMED+19, ADDMED+29, ADDMED+33, ADDMED+39, ADDMED+55, WRAP+10, ADDM+8 |
DONE | WRAP+2~, WRAP+3*, WRAP+4, WRAP+12*, WRAP+22* |
FIRST | ADDL+1, ADDL+3*, ADDMED+1~, ADDMED+2*, WRAP+7 |
FORCE | ADDM~, ADDM+8 |
>> HEADER | ADD+3, ADDLNUM+2, WRAP+9 |
I | ADDMED+44~, ADDMED+45*, ADDMED+58~, ADDMED+59*, ADDMED+60*, ADDMED+61*, ADDMED+62, ADDMED+63 |
IDX | XSUMS+1~, XSUMS+4*, WRAP+2~, WRAP+13*, WRAP+14*, WRAP+15*, WRAP+16, WRAP+20, ADDM+1~, ADDM+2* , ADDM+5*, ADDM+6, ADDM+9*, ADDM+10, ML+1~, ML+2*, ML+3*, ML+4 |
>> INDEX | ADDM+5, ADDM+6, ADDM+9, ADDM+10, ML+3, ML+4 |
>> ISINP | ADDTITLE+15 |
LEN | XSUMS+1~, XSUMS+2*, XSUMS+4, WRAP+2~, WRAP+11*, WRAP+12, WRAP+13 |
LINENUM | ADDDATE~, ADDDATE+2, ADDDATE+3 |
>> LLEN | WRAP+18, WRAP+25 |
MAX | WRAP+2~, WRAP+5*, WRAP+7*, WRAP+8*, WRAP+9*, WRAP+10*, WRAP+12, WRAP+13, WRAP+14, WRAP+15 |
>> MEDTYPE | ADDMED+56, ADDMED+57 |
ML | ML+1~, ML+2*, ML+3, ML+4*, ML+5 |
MSG | ADDTITLE+8~, ADDTITLE+9*, ADDTITLE+10*, ADDTITLE+11*, ADDTITLE+12*, ADDTITLE+17*, ADDTITLE+19*, ADDTITLE+20*, ADDTITLE+21*, ADDTITLE+22* , ADDTITLE+23*, ADDTITLE+24*, ADDTITLE+29*, ADDTITLE+33, ADDTITLE+34, ADDTITLE+37*, ADDTITLE+38, WARNING+2~, WARNING+5*, WARNING+6* , WARNING+7 |
>> NEXTLINE | ADD+1*, ADD+4, ADDMED+5, ADDMED+45, ADDMED+59, ADDMED+62, ADDDATE+2, WRAP+24 |
NOADD | XSUMS~, XSUMS+3 |
>> NODE | ADDMED+63, FDT+2, ADDP+3, ADDP+6, PL+1 |
>> OUTPTYPE | ADDMED+56, ADDMED+57 |
PNUM | FDT~, FDT+2, ADDDATE~, ADDDATE+1, ADDDATE+3, ADDP~, ADDP+2, ADDP+3, ADDP+6, ADDP+7 , PL~, PL+1 |
>> SPACE60 | ADDMED+63, ADDDATE+3, WRAP+18, WRAP+25 |
STR | XSUMS~, XSUMS+2, XSUMS+3, XSUMS+4 |
SUB | ADDM~, ADDM+4, ADDM+5, ADDM+6, ADDM+9, ADDM+10, ML~, ML+3, ML+4 |
SUP | ADDTITLE+8~ |
SUPFX | ADDTITLE+8~, ADDTITLE+30*, ADDTITLE+31*, ADDTITLE+32*, ADDTITLE+35, ADDTITLE+37 |
>> SUPPLIES | ADDTITLE+30 |
>> TAB | ADD+2, ADD+3, ADDLNUM+1*, ADDLNUM+4* |
>> TARGET | ADD+4, ADDMED+45, ADDMED+60, ADDMED+63, ADDDATE+3, WRAP+18, WRAP+25 |
TOPLINE | ADDMED+1~, ADDMED+5*, ADDMED+45, ADDMED+56, ADDMED+59, ADDMED+60, ADDMED+61, ADDMED+64, ADDMED+65, ADDMED+67 , WRAP+18, WRAP+24, WRAP+25 |
TXT | ADD~, ADD+2*, ADD+3*, ADD+4, ADDLNUM~, ADDLNUM+2, ADDLNUM+3, ADDL~, ADDL+2, ADDL+4 , ADDDATE~, ADDDATE+3 |
>> TYPE | ADDMED+7, ADDMED+18, ADDMED+32 |
U | ADDMED+45, ADDMED+63, FDT+2, ADDP+3, ADDP+6, PL+1 |
>> UNKNOWNS | WARNING+6, WARNING+8 |
VALUE | ADDP+5~, ADDP+6*, ADDP+7*, ADDP+8 |
WSTATUS | ADDMED+1~, ADDMED+5*, ADDMED+52*, ADDMED+54*, WRAP+5, WRAP+12, WRAP+17, WRAP+21, WRAP+22* |
X | FDT+1~, FDT+3*, FDT+4, STRIP~, STRIP+1*, STRIP+2*, STRIP+3 |
XCOUNT | ADDMED+1~, ADDMED+3*, ADDMED+49, XSUMS+4* |
XMODE | ADDMED~, ADDMED+3, ADDMED+8, ADDMED+19, ADDMED+29, ADDMED+36, ADDMED+43, ADDMED+47, WRAP+1, ADDP+1 , ADDM+3, FLUSH+1 |
>> XSTR | ADDMED+3*, ADDMED+48*, ADDMED+49*, XSUMS+3* |
XSUM | ADDMED+1~, ADDMED+3*, ADDMED+49, XSUMS+4* |
Y | FDT+1~, FDT+2*, FDT+3 |