©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BTIUMED1 ; SLC/JM - Active/Recent Med Objects Routine ;24-Sep-2013 14:41;DU
Source file <BTIUMED1.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | $$HLPHONE^HLFNC |
| IHS Changes To Pharmacy | 1 | $$PADDR^APSPESG1 |
| IHS Electronic Health Record | 1 | $$XMTDATE^BEHORXRT |
| Order Entry Results Reporting | 1 | $$VALUE^ORCSAVE2 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ML(SUB) | ;Returns true if multiple exists and contains data
|
|
| PL(PNUM) | ;Retuns length of peice
|
|
| ADDMED(XMODE,REC) | ; if XMODE creates XSTR, if not add med to TARGET
|
|
| STRIP(X) | ; Removes Leading and Trialing Spaces
|
|
| RECON | ;Check for reconciliation
|
|
| XSUMS(STR,NOADD) | ; XSUMs a string
|
|
| FDT(PNUM) | ;Returns formatted date from piece number
|
|
| ADDM(SUB,FORCE) | ; Adds or XSUMs Multiple
|
|
| ADD(TXT) | ; Saves TXT in TARGET
|
|
| WARNING | ;Inserts warning about CLASSORT if needed
|
|
| ADDP(PNUM) | ; Adds or XSUMs a piece of NODE
|
|
| FLUSH | ; Flush the DATA buffer
|
|
| WRAP | ; Wraps DATA to the output
|
|
| ADDTITLE(DAYS) | ;Adds a title line indicating which meds are in the list
|
|
| ADDDATE(LINENUM,TXT,PNUM) | ;Add date to TARGET
|
|
| ADDL(TXT) | ; Add with ADDLNUM on FIRST
|
|
| ADDLNUM(TXT) | ; Add text with Line Number added to front of string
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| ^APSPOPHM - [#9009033.9] | GET1^DIQ |
| ^APSPRREQ - [#9009033.91] | GET1^DIQ |
| 90461.632 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BEHOCIR("G" | RECON+9, RECON+10 |
| ^TMP("PS" | ADDM+5, ADDM+6, ADDM+9, ADDM+10, ML+3, ML+4 |
| Name | Line Occurrences |
|---|---|
| $$FDT | ADDDATE+3 |
| $$ML | ADDMED+30, ADDMED+52, ADDMED+56, ADDMED+84 |
| $$PL | ADDMED+13, ADDMED+14, ADDMED+22, ADDMED+25, ADDMED+36, ADDMED+42, ADDMED+47, ADDMED+60, ADDDATE+1 |
| $$STRIP | ADDMED+26, ADDMED+28, ADDMED+31, ADDMED+53, ADDMED+57, ADDMED+85, WRAP+16, WRAP+20, ADDP+8, ADDM+10 |
| ADD | ADDLNUM+2, ADDLNUM+3, ADDL+4, ADDMED+109, ADDDATE+2, WRAP+24, ADDTITLE+20, ADDTITLE+21, ADDTITLE+24, ADDTITLE+25 , WARNING+3, WARNING+4, WARNING+7, WARNING+8 |
| ADDDATE | ADDMED+112, ADDMED+113, ADDMED+114, ADDMED+116 |
| ADDL | WRAP+19, FLUSH+3 |
| ADDLNUM | ADDL+2 |
| ADDM | ADDMED+15, ADDMED+16, ADDMED+18, ADDMED+32, ADDMED+33, ADDMED+54, ADDMED+58, ADDMED+83, ADDMED+86, ADDMED+89 |
| ADDP | ADDMED+7, ADDMED+8, ADDMED+13, ADDMED+14, ADDMED+24, ADDMED+27, ADDMED+38, ADDMED+44, ADDMED+49, ADDMED+87 , ADDMED+100 |
| FLUSH | ADDMED+11, ADDMED+17, ADDMED+34, ADDMED+39, ADDMED+45, ADDMED+50, ADDMED+55, ADDMED+59, ADDMED+64, ADDMED+66 , ADDMED+70, ADDMED+72, ADDMED+79, ADDMED+82, ADDMED+88, ADDMED+90, ADDMED+98, ADDM+8, RECON+15 |
| RECON | ADDMED+19, ADDMED+80 |
| WRAP | ADDMED+29, 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+2, ADDTITLE+4, ADDTITLE+5, ADDTITLE+6 |
| AIEN | RECON+1~, RECON+11*, RECON+12, RECON+13 |
| ALL | ADDTITLE+1~, ADDTITLE+7*, ADDTITLE+8, ADDTITLE+9*, ADDTITLE+10*, ADDTITLE+12, ADDTITLE+13, ADDTITLE+14 |
| >> ALLMEDS | ADDTITLE+7 |
| BY | RECON+1~, RECON+13*, RECON+14 |
| >> CLASSORT | WARNING+1 |
| >> CLININC | ADDMED+41, ADDMED+43 |
| >> COUNT | ADDLNUM+2 |
| DATA | ADDMED+1~, ADDMED+6*, ADDMED+11*, ADDMED+12*, ADDMED+23*, ADDMED+26*, ADDMED+28*, ADDMED+31*, ADDMED+37*, ADDMED+43* , ADDMED+48*, ADDMED+53*, ADDMED+57*, ADDMED+61~, ADDMED+63*, ADDMED+65*, ADDMED+69*, ADDMED+71*, ADDMED+78*, ADDMED+85* , WRAP+11, WRAP+14, WRAP+16, WRAP+20*, WRAP+23, WRAP+25, WRAP+26*, ADDP+8*, ADDM+10*, FLUSH+1 , FLUSH+3*, RECON+14* |
| DATA1 | WRAP+2~, WRAP+16*, WRAP+18, WRAP+19 |
| DAYS | ADDTITLE~, ADDTITLE+5 |
| >> DETAILED | ADDMED+11, ADDMED+17, ADDMED+21, ADDMED+31, ADDMED+82, ADDMED+88, ADDMED+102, WRAP+10, ADDM+8 |
| DONE | WRAP+2~, WRAP+3*, WRAP+4, WRAP+12*, WRAP+22* |
| FIRST | ADDL+1, ADDL+3*, ADDMED+1~, ADDMED+3*, WRAP+7 |
| FORCE | ADDM~, ADDM+8 |
| >> HEADER | ADD+3, ADDLNUM+2, WRAP+9 |
| I | ADDMED+92~, ADDMED+93*, ADDMED+105~, ADDMED+106*, ADDMED+107*, ADDMED+108*, ADDMED+109, ADDMED+110, ADDMED+111 |
| 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 |
| IEN | RECON+1~, RECON+10*, RECON+11 |
| >> INDEX | ADDM+5, ADDM+6, ADDM+9, ADDM+10, ML+3, ML+4 |
| >> ISINP | ADDTITLE+9 |
| 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 |
| MED | RECON+1~ |
| >> MEDTYPE | ADDMED+104 |
| ML | ML+1~, ML+2*, ML+3, ML+4*, ML+5 |
| MSG | ADDTITLE+1~, ADDTITLE+2*, ADDTITLE+3*, ADDTITLE+4*, ADDTITLE+5*, ADDTITLE+6*, ADDTITLE+11*, ADDTITLE+12*, ADDTITLE+13*, ADDTITLE+14* , ADDTITLE+15*, ADDTITLE+19, ADDTITLE+20, ADDTITLE+23*, ADDTITLE+24, WARNING+2~, WARNING+5*, WARNING+6*, WARNING+7 |
| >> NEXTLINE | ADD+1*, ADD+4, ADDMED+6, ADDMED+93, ADDMED+106, ADDMED+109, ADDDATE+2, WRAP+24 |
| NOADD | XSUMS~, XSUMS+3 |
| >> NODE | ADDMED+35, ADDMED+46, ADDMED+62, ADDMED+67, ADDMED+110, ADDMED+111, FDT+2, ADDP+3, ADDP+6, PL+1 , RECON+2, RECON+3, RECON+5 |
| NVAMED | RECON+1~, RECON+5*, RECON+6*, RECON+7 |
| ORD | ADDMED+61~, ADDMED+73*, ADDMED+74, ADDMED+75 |
| >> OUTPTYPE | ADDMED+104 |
| >> PHARM | ADDMED+7, ADDMED+51 |
| PHM | ADDMED+61~, ADDMED+62*, ADDMED+63, ADDMED+65 |
| PNUM | FDT~, FDT+2, ADDDATE~, ADDDATE+1, ADDDATE+3, ADDP~, ADDP+2, ADDP+3, ADDP+6, ADDP+7 , PL~, PL+1 |
| REC | ADDMED~, ADDMED+2*, ADDMED+19, ADDMED+80, RECON+1~, RECON+8*, RECON+9*, RECON+10, RECON+11 |
| RR | ADDMED+61~, ADDMED+75*, ADDMED+76, ADDMED+77 |
| RX | RECON+1~, RECON+2*, RECON+9, RECON+10 |
| RXNO | ADDMED+61~, ADDMED+67*, ADDMED+68, ADDMED+69, ADDMED+71, ADDMED+73 |
| >> SPACE60 | ADDMED+110, ADDMED+111, ADDDATE+3, WRAP+18, WRAP+25 |
| SSNUM | ADDMED+61~, ADDMED+77*, ADDMED+78 |
| 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+1~ |
| SUPFX | ADDTITLE+1~, ADDTITLE+16*, ADDTITLE+17*, ADDTITLE+18*, ADDTITLE+21, ADDTITLE+23 |
| >> SUPPLIES | ADDTITLE+16 |
| >> TAB | ADD+2, ADD+3, ADDLNUM+1*, ADDLNUM+4* |
| >> TARGET | ADD+4, ADDMED+93, ADDMED+107, ADDMED+110, ADDMED+111, ADDDATE+3, WRAP+18, WRAP+25 |
| TOPLINE | ADDMED+1~, ADDMED+6*, ADDMED+93, ADDMED+106, ADDMED+107, ADDMED+108, ADDMED+112, ADDMED+113, ADDMED+114, ADDMED+116 , 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 |
| >> TYP | RECON+3*, RECON+4*, RECON+7*, RECON+9, RECON+10 |
| >> TYPE | ADDMED+9, ADDMED+20, ADDMED+81 |
| U | ADDMED+35, ADDMED+46, ADDMED+62, ADDMED+67, ADDMED+93, ADDMED+110, ADDMED+111, FDT+2, ADDP+3, ADDP+6 , PL+1, RECON+3, RECON+5 |
| >> UNKNOWNS | WARNING+6, WARNING+8 |
| VALUE | ADDP+5~, ADDP+6*, ADDP+7*, ADDP+8 |
| WHEN | RECON+1~, RECON+12*, RECON+14 |
| WSTATUS | ADDMED+1~, ADDMED+6*, ADDMED+99*, ADDMED+101*, 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+4*, ADDMED+96, XSUMS+4* |
| XMODE | ADDMED~, ADDMED+4, ADDMED+10, ADDMED+21, ADDMED+31, ADDMED+85, ADDMED+91, ADDMED+94, WRAP+1, ADDP+1 , ADDM+3, FLUSH+1 |
| >> XSTR | ADDMED+4*, ADDMED+95*, ADDMED+96*, XSUMS+3* |
| XSUM | ADDMED+1~, ADDMED+4*, ADDMED+96, XSUMS+4* |
| Y | FDT+1~, FDT+2*, FDT+3 |