©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
LR7OB63 ; VA/DALOI/dcm - Get Lab data from 63 ; 13-Aug-2013 09:15 ; MKK
Source file <LR7OB63.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EM | ;Electron Microscopy
|
|
| POINTER(FILE,FIELD,RESULT) | ;Interpret pointer values
|
|
| CH | ;Chem, Hem, Tox, Ria, Ser, etc.
|
|
| BB | ;Blood bank
|
|
| NODEPIK(FILE,NODE,PIECE,DATA) | ;Set field name and data into X
|
|
| 63(CTR,LRDFN,SS,IVDT,CORRECT) | ;Get data from file 63
|
|
| STRIP(TEXT) | ;Strips white space from text
|
|
| SP | ;Surgical Pathology
|
|
| MI | ;Microbiology
|
|
| CY | ;Cytology
|
|
| BB1(SPECMEN) | ;Blood bank
|
|
| AU | ;Autopsy
|
|
| RESULT(TEST,RESULT) | ;Convert result to external format
|
|
| SET(FILE,FIELD,RESULT) | ;Interpret set of codes
|
|
| UNIT(X,SPEC,SEX,DOB,AGE) | ;Find units and ref range
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | NODEPIK+2, NODEPIK+3, SET+1, POINTER+2, POINTER+4 |
| ^LAB(60 - [#60] | CH+17, CH+19, CH+21, UNIT+9, RESULT+4 |
| ^LAM - [#64] | CH+21 |
| ^LR - [#63] | CH+2, CH+15, CH+31, BB1+3, BB1+6, BB1+9 |
| ^TMP("LRX" | CH+27*, CH+31*, BB1+8*, BB1+9* |
| Name | Line Occurrences |
|---|---|
| $$NODEPIK | BB1+7 |
| $$POINTER | NODEPIK+3 |
| $$RESULT | CH+26 |
| $$SET | NODEPIK+3 |
| @( | 63+9 |
| BB1 | BB+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CH+15, BB1+6, BB1+9 |
| ^(0 | CH+2, CH+21, BB1+3, UNIT+9 |
| ^(64 | CH+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | CH+9~, CH+11*, UNIT~ |
| >> BYPASS | CH+15 |
| >> CONTROL | 63+7 |
| CORRECT | 63~, CH+3, BB1+3 |
| CTR | 63~, CH+27, CH+31, BB1+8, BB1+9 |
| CTR1 | BB1+2~, BB1+3*, BB1+8* |
| DATA | NODEPIK~, NODEPIK+3 |
| >> DFN | CH+7, CH+10 |
| DOB | CH+9~, CH+10*, CH+11, UNIT~ |
| DT | CH+11 |
| FIELD | SET~, SET+1, POINTER~, POINTER+2, POINTER+4 |
| FILE | NODEPIK~, NODEPIK+2, NODEPIK+3, SET~, SET+1, POINTER~, POINTER+2, POINTER+4 |
| >> GOTCOM( | CH+29, CH+30* |
| HI | UNIT+7~, UNIT+13 |
| I | STRIP+1~, STRIP+2* |
| IFN | 63+8~, CH+13*, CH+15*, CH+16, CH+17, CH+23, CH+27, CH+30*, CH+31*, BB1+6* , BB1+7, BB1+9* |
| >> IFN1 | BB1+6*, BB1+7 |
| IVDT | 63~, CH+2, CH+5, CH+15, CH+23, CH+29, CH+30, CH+31, BB1+3, BB1+6 , BB1+9 |
| LO | UNIT+7~, UNIT+13 |
| LRCW | RESULT+3~, RESULT+4* |
| LRDFN | 63~, CH+2, CH+5, CH+15, CH+23, CH+29, CH+30, CH+31, BB1+3, BB1+6 , BB1+9 |
| >> LRDPF | CH+7, CH+10 |
| >> LRSA( | CH+16 |
| >> LRSB | CH+15 |
| >> LRSB( | CH+15, CH+16 |
| LRX | CH+1~, CH+23*, CH+24, CH+25 |
| NODE | NODEPIK~, NODEPIK+2 |
| PIECE | NODEPIK~, NODEPIK+2 |
| RESULT | RESULT~, RESULT+4, SET~, SET+1, POINTER~, POINTER+3, POINTER+4 |
| SEX | CH+7~*, UNIT~ |
| SPEC | UNIT~, UNIT+9 |
| SPECMEN | BB1~, BB1+5 |
| SS | 63~, 63+9 |
| TEST | RESULT~, RESULT+4 |
| TEXT | STRIP~, STRIP+2 |
| >> TSTY( | CH+15 |
| X | CH+15*, CH+17, BB1+7*, BB1+8, NODEPIK+2*, NODEPIK+3*, NODEPIK+4, UNIT~, UNIT+9*, UNIT+10 , UNIT+11, UNIT+12, UNIT+14, RESULT+3~, RESULT+4*, RESULT+5, STRIP+1~, STRIP+2*, STRIP+3, SET+1* , SET+2, POINTER+1~, POINTER+2*, POINTER+3, POINTER+4 |
| X0 | CH+1~, CH+2*, CH+3, CH+4, BB1+2~, BB1+3* |
| X1 | BB1+6*, BB1+7, RESULT+3~, RESULT+4*, POINTER+3*, POINTER+4*, POINTER+5 |
| >> XNODE | BB1+6* |
| Y | NODEPIK+1~, NODEPIK+3* |
| Y1 | CH+1~, CH+17*, CH+19, CH+21, CH+23, CH+26, CH+27, BB1+2~, BB1+9*, NODEPIK+1~ , NODEPIK+3* |
| >> Y10 | CH+20*, CH+21*, CH+27 |
| >> Y11 | CH+20*, CH+21*, CH+27 |
| Y12 | CH+1~, CH+17*, CH+27 |
| Y14 | CH+1~, CH+20*, CH+25*, CH+27, UNIT+8*, UNIT+14* |
| Y15 | CH+1~, CH+19*, CH+27, BB1+2~ |
| Y16 | CH+1~, CH+4*, CH+27 |
| Y17 | CH+1~, CH+5*, CH+27 |
| Y18 | CH+1~, CH+5*, CH+27, BB1+2~, BB1+3*, BB1+8 |
| Y19 | BB1+2~, BB1+3*, BB1+5, BB1+8 |
| Y2 | CH+1~, CH+17*, CH+18, CH+24*, CH+26*, CH+27, BB1+2~, BB1+9*, NODEPIK+1~, NODEPIK+3* |
| Y3 | CH+1~, CH+17*, CH+24*, CH+27, BB1+2~ |
| Y4 | CH+1~, CH+24*, CH+27, BB1+2~, UNIT+8*, UNIT+10* |
| Y5 | CH+1~, CH+24*, CH+27, BB1+2~, UNIT+8*, UNIT+13* |
| Y6 | CH+1~, CH+3*, CH+18*, CH+27, BB1+2~, BB1+3*, BB1+8 |
| >> Y9 | CH+20*, CH+21*, CH+27 |
| Z | NODEPIK+1~, NODEPIK+2*, NODEPIK+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(@SS | 63+9 |