©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
BLR7OGMP ; IHS/OIT/MKK - Lab Interim Report for EHR ; 13-Oct-2017 14:04 ; MKK
Source file <BLR7OGMP.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | $$FMTE^XLFDT ($$CJ,$$LJ,$$REPEAT,$$TRIM,$$UP)^XLFSTR ($$NAME,$$PADD)^XUAF4 |
| Lab Service | 2 | $$EN^LRLRRVF (DD,DOC)^LRX |
| VA Fileman | 2 | $$GET1^DIQ ^DIWP |
| IHS Changes To Lab | 1 | $$GETACCCP^BLRUTIL3 |
| Registration | 1 | $$SETSTR^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINT(OUTCNT) | ; from LR7OGMC
|
|
| MULTIVAL(VALUE) | ; EP - Multiple Line Value String
|
|
| PLS | ; List performing laboratories
|
|
| NAME(X) | ; $$(#) -> name
|
|
| SETLINE(LINE,CNT) | ;
|
|
| LABARRT | ; EP - Lab Arrival Time
|
|
| MUMPEVAL(EVAL) | ;
|
|
| DQUOTER(STR) | ; EP -- Get rid of double quotes in string
|
|
| ZEROFIX(F60PTR,RESULT) | ; EP - Leading & Trailing Zero Fix for Results
|
|
| MUMPRNGE(RANGE) | ; EP -- MUMPS Code in Reference Range -- Evaluate and store
|
|
| USEDIWP(X,LM,CW) | ; EP -- Use FileMan DIWP to wrap text
|
|
| DD(Y) | ; $$(date/time) -> date/time format
|
|
| REFWRAP | ; EP -- Reference Range String too long -- have to wrap it
|
|
| GETCOMPD() | ; EP - Get Completion Date
|
|
| CONDSPEC() | ; EP - Specimen Condition
|
|
| RESULTHD | ; EP - 'Results' Header
|
| Name | Field # of Occurrence |
|---|---|
| $$GETACCCP^BLRUTIL3 | LABARRT+3 |
| $$GET1^DIQ | PRINT+99, PLS+18, LABARRT+5 |
| ^DIWP | USEDIWP+5, REFWRAP+10 |
| $$EN^LRLRRVF | PRINT+77 |
| DD^LRX | DD+1 |
| DOC^LRX | NAME+2 |
| $$SETSTR^VALM1 | PRINT+22 |
| $$FMTE^XLFDT | PRINT+26, GETCOMPD+16, LABARRT+9 |
| $$CJ^XLFSTR | PLS+25 |
| $$LJ^XLFSTR | PLS+9, PLS+17 |
| $$REPEAT^XLFSTR | PLS+11 |
| $$TRIM^XLFSTR | PRINT+73, PRINT+74, MUMPRNGE+15, MUMPRNGE+18, DQUOTER+4 |
| $$UP^XLFSTR | PRINT+26, PRINT+72, ZEROFIX+3, LABARRT+9 |
| $$NAME^XUAF4 | PLS+9 |
| $$PADD^XUAF4 | PLS+10 |
| FileNo | Call Tags |
|---|---|
| 68.02 | GET1^DIQ |
| ^HL(779.004 - [#779.004] | GET1^DIQ |
| ^BLRUCUM - [#90475.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(63.04 | ZEROFIX+11, ZEROFIX+13 |
| ^LAB(60 - [#60] | PRINT+45, ZEROFIX+8 |
| ^LAB(61 - [#61] | PRINT+25 |
| ^LR - [#63] | PRINT+53, PRINT+87, PRINT+91, CONDSPEC+1, GETCOMPD+9, GETCOMPD+12, GETCOMPD+14 |
| ^TMP("LR7OG" | PRINT+9, PRINT+12, PRINT+14, PRINT+42, PRINT+117, PRINT+119, PRINT+121, PRINT+124, PRINT+126 |
| ^TMP("LR7OGX" | SETLINE+1* |
| ^TMP("LRPLS" | PRINT+91*, PLS+8, PLS+14, PLS+29! |
| ^UTILITY($J | USEDIWP+3!, USEDIWP+7, USEDIWP+8, REFWRAP+7!, REFWRAP+12, REFWRAP+14, REFWRAP+21, REFWRAP+23, REFWRAP+25! |
| ^XTMP("BLR7OGMP" | REFWRAP+12* |
| Name | Line Occurrences |
|---|---|
| $$CONDSPEC | PRINT+32 |
| $$DQUOTER | MUMPRNGE+16, MUMPRNGE+19 |
| $$GETCOMPD | PRINT+109, REFWRAP+17 |
| $$MUMPEVAL | MUMPRNGE+22, MUMPRNGE+23 |
| $$NAME | PRINT+16 |
| LABARRT | PRINT+29 |
| MULTIVAL | PRINT+115 |
| MUMPRNGE | PRINT+61 |
| PLS | PRINT+129 |
| REFWRAP | PRINT+110 |
| RESULTHD | PRINT+38 |
| SETLINE | PRINT+18, PRINT+23, PRINT+27, PRINT+35, PRINT+36, PRINT+113, PRINT+119, PRINT+125, PRINT+128, RESULTHD+4 , RESULTHD+13, PLS+5, PLS+6, PLS+12, PLS+19, PLS+22, PLS+26, USEDIWP+9, REFWRAP+18, REFWRAP+24 , LABARRT+10 |
| USEDIWP | MULTIVAL+1 |
| ZEROFIX | PRINT+56, PRINT+75, PRINT+76 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PRINT+14, PRINT+42, PRINT+119, PRINT+124 |
| ^("G" | PRINT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACC | PRINT+1~, PRINT+21*, PRINT+22 |
| AGE | PRINT+1~, PRINT+9* |
| CDT | PRINT+1~, PRINT+10*, PRINT+12*, PRINT+13, PRINT+14, PRINT+26, PRINT+42, PRINT+117, PRINT+119, PRINT+121 , PRINT+124, PRINT+126 |
| CMNT | PRINT+1~, PRINT+123*, PRINT+124*, PRINT+126 |
| CNT | SETLINE~, SETLINE+1, SETLINE+2*, USEDIWP+1~ |
| COUNTRY | PLS+3~, PLS+16*, PLS+18 |
| COUNTY | PLS+3~, PLS+16*, PLS+17 |
| CW | USEDIWP~, USEDIWP+4 |
| DATA | PRINT+1~, PRINT+42*, PRINT+43, PRINT+44, PRINT+95, GETCOMPD+3, GETCOMPD+6 |
| DATANAME | GETCOMPD+1~, GETCOMPD+6*, GETCOMPD+9 |
| DATEHERE | GETCOMPD+1~, GETCOMPD+9*, GETCOMPD+12*, GETCOMPD+14*, GETCOMPD+16*, GETCOMPD+18 |
| DBLQ | DQUOTER+1~, DQUOTER+3*, DQUOTER+5, DQUOTER+6 |
| >> DILOCKTM | ZEROFIX+1 |
| >> DISYS | ZEROFIX+1 |
| >> DIWF | USEDIWP+4*, REFWRAP+9* |
| >> DIWL | USEDIWP+4*, REFWRAP+9* |
| >> DIWR | USEDIWP+4*, REFWRAP+9* |
| >> DN | ZEROFIX+8*, ZEROFIX+9, ZEROFIX+11, ZEROFIX+13 |
| DOC | PRINT+1~, PRINT+16*, PRINT+20 |
| >> DP | ZEROFIX+15*, ZEROFIX+16, ZEROFIX+27 |
| DT | ZEROFIX+1 |
| DTIME | ZEROFIX+1 |
| DUZ | ZEROFIX+1 |
| EVAL | MUMPEVAL~, MUMPEVAL+3, MUMPEVAL+6, MUMPEVAL+7*, MUMPEVAL+10 |
| EVALLEN | MUMPEVAL+1~, MUMPEVAL+6*, MUMPEVAL+7 |
| F60PTR | ZEROFIX~, ZEROFIX+1, ZEROFIX+6, ZEROFIX+8 |
| FLAG | PRINT+1~, PRINT+44*, PRINT+97 |
| HIGH | PRINT+1~, PRINT+74*, PRINT+76, PRINT+77, MUMPRNGE+1~, MUMPRNGE+18*, MUMPRNGE+19*, MUMPRNGE+23 |
| ICOUNTRY | PLS+3~ |
| IDT | PRINT+1~, PRINT+13*, PRINT+53, PRINT+87, PRINT+91, PRINT+109, REFWRAP+17, CONDSPEC+1, GETCOMPD+9, GETCOMPD+12 , GETCOMPD+14 |
| INTP | PRINT+1~, PRINT+118*, PRINT+119* |
| IO | ZEROFIX+1 |
| >> IOBS | ZEROFIX+1 |
| IOF | ZEROFIX+1 |
| IOM | ZEROFIX+1 |
| ION | ZEROFIX+1 |
| >> IOS | ZEROFIX+1 |
| IOSL | ZEROFIX+1 |
| IOST | ZEROFIX+1 |
| >> IOT | ZEROFIX+1 |
| >> IOXY | ZEROFIX+1 |
| LABARRT | LABARRT+1~, LABARRT+5*, LABARRT+6, LABARRT+9 |
| LINE | PRINT+1~, PRINT+20*, PRINT+22*, PRINT+23, PRINT+25*, PRINT+26*, PRINT+27, PRINT+34*, PRINT+35, PRINT+94! , PRINT+95*, PRINT+96*, PRINT+97*, PRINT+100*, PRINT+106*, PRINT+107*, PRINT+109*, PRINT+113, PRINT+122*, PRINT+124* , PRINT+125, PRINT+126*, SETLINE~, SETLINE+1, PLS+2~, PLS+9*, PLS+11*, PLS+12, PLS+17*, PLS+18* , PLS+19, USEDIWP+1~, USEDIWP+6*, USEDIWP+7*, USEDIWP+8, REFWRAP+14*, REFWRAP+15*, REFWRAP+17*, REFWRAP+18, REFWRAP+22! , REFWRAP+23*, REFWRAP+24, REFWRAP+25!, LABARRT+8!, LABARRT+9*, LABARRT+10, LABARRT+11! |
| LINER | REFWRAP+1~, REFWRAP+20*, REFWRAP+21*, REFWRAP+23 |
| LINESTR | PRINT+5~, RESULTHD+1!, RESULTHD+2*, RESULTHD+3*, RESULTHD+4, RESULTHD+5!, RESULTHD+6*, RESULTHD+7*, RESULTHD+8*, RESULTHD+9* , RESULTHD+10*, RESULTHD+11*, RESULTHD+12*, RESULTHD+13 |
| LM | USEDIWP~, USEDIWP+4, USEDIWP+7, USEDIWP+8, REFWRAP+1~, REFWRAP+8*, REFWRAP+9 |
| LOW | PRINT+1~, PRINT+73*, PRINT+75, PRINT+77, MUMPRNGE+1~, MUMPRNGE+15*, MUMPRNGE+16*, MUMPRNGE+22 |
| LRAA | LABARRT+1~, LABARRT+3, LABARRT+5 |
| LRAD | LABARRT+1~, LABARRT+3, LABARRT+5 |
| LRAN | LABARRT+1~, LABARRT+3, LABARRT+5 |
| LRAS | LABARRT+1~, LABARRT+2*, LABARRT+3 |
| LRCW | PRINT+1~, PRINT+9* |
| >> LRDFN | PRINT+53, PRINT+87, PRINT+91, CONDSPEC+1, GETCOMPD+9, GETCOMPD+12, GETCOMPD+14 |
| LRDOC | NAME+1~, NAME+3 |
| LRPLS | PRINT+5~, PLS+2~, PLS+7*, PLS+8*, PLS+9, PLS+10, PLS+14 |
| LRSS | GETCOMPD+1~, GETCOMPD+3*, GETCOMPD+4, GETCOMPD+8, GETCOMPD+11, GETCOMPD+14 |
| LRX | PRINT+1~, PRINT+82*, PRINT+105, PRINT+106, PRINT+110, REFWRAP+6 |
| MAX | REFWRAP+1~, REFWRAP+3*, REFWRAP+9 |
| >> ORIGRSLT | ZEROFIX+18*, ZEROFIX+25 |
| OUTCNT | PRINT~, PRINT+18, PRINT+23, PRINT+27, PRINT+35, PRINT+36, PRINT+113, PRINT+119, PRINT+125, PRINT+128 , RESULTHD+4, RESULTHD+13, PLS+5, PLS+6, PLS+12, PLS+19, PLS+22, PLS+26, USEDIWP+9, REFWRAP+18 , REFWRAP+24, LABARRT+10 |
| PORDER | PRINT+1~, PRINT+41*, PRINT+42*, PRINT+117, PRINT+119 |
| PRNTCODE | PRINT+1~, PRINT+44*, PRINT+58, PRINT+59 |
| RANGE | PRINT+2~, PRINT+44*, PRINT+49*, PRINT+61, PRINT+72, PRINT+73, PRINT+74, PRINT+77*, PRINT+79*, PRINT+82 , MUMPRNGE~, MUMPRNGE+15, MUMPRNGE+18, MUMPRNGE+25*, MUMPRNGE+26* |
| REFHIGH | PRINT+2~, PRINT+47*, PRINT+49 |
| REFLOW | PRINT+2~, PRINT+46*, PRINT+49 |
| REMOVED | DQUOTER+1~, DQUOTER+4*, DQUOTER+5, DQUOTER+6*, DQUOTER+8 |
| RESULT | ZEROFIX~, ZEROFIX+1, ZEROFIX+3, ZEROFIX+5, ZEROFIX+18, ZEROFIX+19, ZEROFIX+20, ZEROFIX+21*, ZEROFIX+23*, ZEROFIX+25* , ZEROFIX+27*, ZEROFIX+29* |
| RV1 | MUMPRNGE+1~, MUMPRNGE+22*, MUMPRNGE+25 |
| RV2 | MUMPRNGE+1~, MUMPRNGE+23*, MUMPRNGE+25 |
| SEX | PRINT+2~, PRINT+9* |
| SITE | PRINT+2~, PRINT+44*, PRINT+53*, PRINT+54, PRINT+87*, PRINT+88, PRINT+89, PRINT+91, PRINT+107, REFWRAP+15 |
| SITECNT | PRINT+5~, PRINT+11*, PRINT+54*, PRINT+88*, PRINT+128, PRINT+129 |
| SPEC | PRINT+2~, PRINT+15*, PRINT+25, PRINT+45 |
| SPECCOND | PRINT+6~, PRINT+32*, PRINT+33, PRINT+34 |
| STR | PRINT+45*, PRINT+46, PRINT+47, PRINT+50, PRINT+51, DQUOTER~, DQUOTER+4, MUMPEVAL+1~, MUMPEVAL+10*, MUMPEVAL+11 , PLS+3~, PLS+14*, PLS+15, PLS+16, PLS+25*, PLS+26, USEDIWP+1~, USEDIWP+8*, USEDIWP+9, ZEROFIX+13* , ZEROFIX+15 |
| SUB | PRINT+2~, PRINT+44*, PRINT+53, PRINT+87 |
| >> SYMBOL | ZEROFIX+18*, ZEROFIX+20*, ZEROFIX+29 |
| TESTNUM | PRINT+2~, PRINT+44*, PRINT+45, PRINT+56, PRINT+75, PRINT+76 |
| TESTSPEC | PRINT+3~ |
| THER | PRINT+3~ |
| THERHIGH | PRINT+3~, PRINT+51* |
| THERLOW | PRINT+3~, PRINT+50* |
| TIDT | PRINT+5~ |
| TLOCDNM | PRINT+5~ |
| U | PRINT+9, PRINT+15, PRINT+16, PRINT+21, PRINT+25, PRINT+43, PRINT+44, PRINT+95, PLS+11, ZEROFIX+1 , LABARRT+2 |
| UNITS | PRINT+3~, PRINT+44*, PRINT+99*, PRINT+100 |
| VALUE | PRINT+3~, PRINT+58*, PRINT+96, PRINT+115, MULTIVAL~, MULTIVAL+1 |
| WOT | MUMPEVAL+1~, MUMPEVAL+12 |
| X | PRINT+3~, PRINT+44*, PRINT+56, PRINT+58, NAME~, PLS+2~, PLS+10*, PLS+11, USEDIWP~, REFWRAP+6* |
| >> XPARSYS | ZEROFIX+1 |
| >> XQXFLG | ZEROFIX+1 |
| Y | DD~, DD+2 |
| ZERO | PRINT+3~, PRINT+14*, PRINT+15, PRINT+16, PRINT+21, LABARRT+2 |