©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
GMTSLRCE ; SLC/JER,KER - Chemistry Extract Routine ; 08/27/2002
Source file <GMTSLRCE.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Summary | 1 | (DEM,REGDTM4)^GMTSU |
| Kernel | 1 | $$FMTHL7^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| Health Summary | 2 | GMTSLRC GMTSLRSE |
| Adverse Reaction Tracking | 1 | GMRALAB0 |
| Text Integration Utility | 1 | TIULAB |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESULT(TEST,RESULT,LRCW) | ; Convert result to external format
; ; Where ; TEST=Test ptr to file 60 ; RESULT=Test result ; LRCW=Optional width of variable. Default is 0 |
|
| XTRCT | ; Extract
; ; Call with LRDFN, GMTS1, GMTS2, ; MAX (#occurrences) and SEX (M or F) ; |
|
| XPND | ; Appends additional data if required
|
|
| NXTST | ; Visit next node in ^(PTR) subtree
|
|
| CHSET | ; Sets Chemistry locals for printing
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | NXTST+4, NXTST+5, NXTST+7, NXTST+8, NXTST+9, NXTST+14, RESULT+8 |
| ^LAB(61 - [#61] | CHSET+3 |
| ^LR - [#63] | XTRCT+6, CHSET+2, CHSET+3, CHSET+5, CHSET+11, CHSET+12, CHSET+13, NXTST+2 |
| ^TMP("LRC" | XTRCT+5!, CHSET+12, CHSET+13*, NXTST+18, NXTST+19, NXTST+20*, XPND+1* |
| Name | Line Occurrences |
|---|---|
| $$RESULT | NXTST+13 |
| CHSET | XTRCT+6 |
| NXTST | CHSET+11 |
| XPND | NXTST+21 |
| Name | Field # of Occurrence |
|---|---|
| ^( | NXTST+2, NXTST+5, NXTST+8, NXTST+18 |
| ^(0 | CHSET+3, CHSET+6, CHSET+7, NXTST+5, NXTST+14 |
| ^(10 | NXTST+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACC | CHSET+1~, CHSET+6*, XPND+1 |
| AGE | XTRCT+5~* |
| CDT | CHSET+1~, CHSET+3*, CHSET+9, CHSET+10*, NXTST+20 |
| CIS | NXTST+1~, NXTST+2*, NXTST+9*, NXTST+10, NXTST+11 |
| CNT | XTRCT+5~, XTRCT+6*, CHSET+3* |
| COM | CHSET+1~, CHSET+13* |
| DESCR | NXTST+1~, NXTST+14*, NXTST+15 |
| >> EXPAND | CHSET+4, CHSET+9, CHSET+10, NXTST+3, NXTST+10, NXTST+11, NXTST+17, NXTST+21 |
| FLAG | NXTST+1~, NXTST+2*, NXTST+3*, NXTST+17*, NXTST+20 |
| GMI | CHSET+1~, CHSET+13* |
| GMPC | NXTST+1~ |
| GMSQN | NXTST+1~, NXTST+8*, NXTST+18*, NXTST+19, NXTST+20, XPND+1 |
| >> GMTS1 | XTRCT+6 |
| >> GMTS2 | XTRCT+6 |
| >> GMTSAGE | XTRCT+5 |
| HI | NXTST+1~, NXTST+15*, NXTST+16, NXTST+17, NXTST+20 |
| IDT | XTRCT+5~, XTRCT+6*, CHSET+2, CHSET+3, CHSET+5, CHSET+11, CHSET+12, CHSET+13, NXTST+2, NXTST+18 , NXTST+19, NXTST+20, XPND+1 |
| ISVALID | CHSET+1~, CHSET+2* |
| LO | NXTST+1~, NXTST+15*, NXTST+16, NXTST+17, NXTST+20 |
| LOC | CHSET+1~, CHSET+7*, XPND+1 |
| LRCW | RESULT~, RESULT+7* |
| >> LRDFN | XTRCT+6, CHSET+2, CHSET+3, CHSET+5, CHSET+11, CHSET+12, CHSET+13, NXTST+2 |
| >> MAX | XTRCT+6 |
| PTR | CHSET+1~, CHSET+11*, NXTST+2, NXTST+4, NXTST+8 |
| RDT | CHSET+1~, CHSET+5*, CHSET+8*, XPND+1 |
| RESULT | NXTST+1~, NXTST+2*, NXTST+13*, NXTST+17, NXTST+20, RESULT~, RESULT+8 |
| >> RWIDTH | NXTST+13 |
| SITE | CHSET+1~, CHSET+3*, NXTST+14 |
| SNOMED | CHSET+1~, CHSET+2*, CHSET+3*, CHSET+5 |
| SPEC | CHSET+1~, CHSET+3*, CHSET+5*, NXTST+20 |
| TEST | NXTST+1~, NXTST+4*, NXTST+5, NXTST+7, NXTST+8, NXTST+9, NXTST+13, NXTST+14, NXTST+18, RESULT~ , RESULT+8 |
| THER | NXTST+1~, NXTST+14*, NXTST+15 |
| TNM | NXTST+1~, NXTST+5*, NXTST+11*, NXTST+20 |
| U | CHSET+2, CHSET+3, CHSET+5, CHSET+6, CHSET+7, NXTST+2, NXTST+5, NXTST+7, NXTST+8, NXTST+14 , NXTST+15, NXTST+20, XPND+1 |
| UNIT | NXTST+1~, NXTST+15*, NXTST+20 |
| X | CHSET+9*, CHSET+10*!, RESULT+6~, RESULT+8*, RESULT+9 |
| X1 | RESULT+6~, RESULT+8* |