©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
BLRLDFIS ; IHS/MSC/MKK - Add data to "IHS" Lab Data file ; 22-Oct-2013 09:22 ; MKK
Source file <BLRLDFIS.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | $$FIND1^DIC UPDATE^DIE $$GET1^DIQ |
| IHS Changes To Lab | 2 | (EEP,HEADERDT)^BLRGMENU ($$GETACCCP,MAILALMI)^BLRUTIL3 |
| Kernel | 1 | $$NOW^XLFDT |
| Lab Service | 1 | ^LRWU4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STORDATA | ; EP - Store the Data
|
|
| CHEK69 | ; EP
|
|
| PEP | ; EP
|
|
| EEP | ; Ersatz EP
|
|
| OTHRSEGS(IEN0,IEN1,IEN2) | ; EP - Store Other Data
|
|
| CHKERRS(ERRS,SUBJECT) | ; EP - If ERRS array is empty, just return zero, otherwise send MailMan message and return 1
|
|
| INITVARS() | ; EP - Initialization of variables
|
|
| ICOMDATA | ; EP - Retreive necessary data from the Incoming HL7 message in the UNIVERSAL INTERFACE (#4001) file.
; Note that BLRLINKU routine stores the data in the ^TMP global when called earlier in the BLRLINK3 routine, ; which means no need to re-examine 4001. |
|
| NOTFOUND(SUBJECT) | ; EP - If could not retrieve IEN, send Message
|
|
| EP | ; EP
|
|
| TESTSTOR | ; EP - Test the STORDATA routine
|
|
| RETDATA(UID) | ; EP - Given UID, retrieve all the informatoin that's available in ^BLRMULDA global
|
| Name | Field # of Occurrence |
|---|---|
| EEP^BLRGMENU | EEP+1 |
| HEADERDT^BLRGMENU | CHEK69+13 |
| $$GETACCCP^BLRUTIL3 | INITVARS+8 |
| MAILALMI^BLRUTIL3 | CHKERRS+19, NOTFOUND+8 |
| $$FIND1^DIC | STORDATA+5, STORDATA+16, STORDATA+25 |
| UPDATE^DIE | STORDATA+2, STORDATA+13, STORDATA+22, STORDATA+34 |
| $$GET1^DIQ | INITVARS+5, INITVARS+14, INITVARS+17, INITVARS+20 |
| ^LRWU4 | TESTSTOR+3 |
| $$NOW^XLFDT | TESTSTOR+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^BLRTXLOG - [#9009022] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | TESTSTOR+9 |
| ^LRO(68 - [#68] | INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10 |
| ^LRO(69 - [#69] | CHEK69+16, CHEK69+18, CHEK69+20, CHEK69+21 |
| ^TMP("BLR" | ICOMDATA+3 |
| Name | Line Occurrences |
|---|---|
| $$CHKERRS | STORDATA+3, STORDATA+14, STORDATA+23, STORDATA+35 |
| $$INITVARS | PEP+3 |
| ICOMDATA | INITVARS+27 |
| NOTFOUND | STORDATA+6, STORDATA+17, STORDATA+26 |
| OTHRSEGS | STORDATA+37 |
| STORDATA | PEP+5, TESTSTOR+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | INITVARS+11, TESTSTOR+8 |
| ^(3 | INITVARS+11, TESTSTOR+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCDALVR | PEP+1 |
| >> APCDALVR("APCDTLNC" | INITVARS+23 |
| >> APCDALVR("APCDTLPV" | INITVARS+24 |
| >> APCDALVR("APCDTRES" | INITVARS+3 |
| >> BLRLOGDA | PEP+1, INITVARS+5, INITVARS+14, INITVARS+17 |
| >> CNT | CHEK69+15*, CHEK69+25* |
| >> DATALN | TESTSTOR+9* |
| >> DILOCKTM | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> DISYS | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| DT | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| DTIME | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| DUZ | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| ERRS | STORDATA+2!, STORDATA+13!, STORDATA+22!, STORDATA+34!, CHKERRS~, CHKERRS+1, CHKERRS+11 |
| >> F60IEN | INITVARS+17*, INITVARS+18, INITVARS+20, ICOMDATA+3 |
| FDA | STORDATA+1!, STORDATA+8!, STORDATA+19!, STORDATA+28! |
| FDA( | STORDATA+1*, STORDATA+9*, STORDATA+10*, STORDATA+11*, STORDATA+20*, STORDATA+29*, STORDATA+30*, STORDATA+31*, STORDATA+32* |
| >> FIRST | TESTSTOR+9*, TESTSTOR+10 |
| >> HEADER(1 | CHEK69+3* |
| >> HEADER(2 | CHEK69+5* |
| >> HEADER(3 | CHEK69+6* |
| >> HEADER(4 | CHEK69+7*, CHEK69+8*, CHEK69+9*, CHEK69+10*, CHEK69+11* |
| >> ICD | INITVARS+1*, INITVARS+24*, INITVARS+25*, STORDATA+31, TESTSTOR+12* |
| IEN0 | STORDATA+5*, STORDATA+6, STORDATA+9, STORDATA+10, STORDATA+11, STORDATA+16, STORDATA+20, STORDATA+25, STORDATA+29, STORDATA+30 , STORDATA+31, STORDATA+32, STORDATA+37, OTHRSEGS~ |
| IEN1 | STORDATA+16*, STORDATA+17, STORDATA+20, STORDATA+25, STORDATA+26, STORDATA+29, STORDATA+30, STORDATA+31, STORDATA+32, STORDATA+37 , OTHRSEGS~ |
| IEN2 | STORDATA+25*, STORDATA+29, STORDATA+30, STORDATA+31, STORDATA+32, STORDATA+37, OTHRSEGS~ |
| IO | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> IOBS | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| IOF | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| IOM | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| ION | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> IOS | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| IOSL | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| IOST | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> IOT | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> IOXY | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| LN | CHKERRS+3~, CHKERRS+8*, CHKERRS+13*, CHKERRS+15*, CHKERRS+16, NOTFOUND+1~ |
| >> LOCDN | INITVARS+1*, INITVARS+20*, INITVARS+21, STORDATA+20, STORDATA+25, STORDATA+26 |
| >> LOINC | INITVARS+1*, INITVARS+23*, ICOMDATA+5*, STORDATA+30, TESTSTOR+9* |
| >> LRAA | INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10 |
| >> LRAD | INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10 |
| >> LRAN | INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10 |
| >> LRAS | INITVARS+5*, INITVARS+6, INITVARS+8, STORDATA+10, CHKERRS+6, NOTFOUND+4, TESTSTOR+8* |
| >> LRDFN | INITVARS+11*, INITVARS+12, STORDATA+1, STORDATA+5, STORDATA+6, TESTSTOR+8* |
| >> LRIDT | INITVARS+11*, INITVARS+12, STORDATA+9, STORDATA+16, STORDATA+17, TESTSTOR+8* |
| >> LRODT | CHEK69+15*, CHEK69+16*, CHEK69+18, CHEK69+20, CHEK69+21, CHEK69+24 |
| >> LROT | CHEK69+19*, CHEK69+20*, CHEK69+21, CHEK69+24 |
| >> LRSPN | CHEK69+17*, CHEK69+18*, CHEK69+20, CHEK69+21, CHEK69+24 |
| MSGARRAY | CHKERRS+3~, CHKERRS+19, NOTFOUND+1~, NOTFOUND+8 |
| MSGARRAY( | CHKERRS+16* |
| MSGARRAY(1 | CHKERRS+5*, NOTFOUND+3* |
| MSGARRAY(2 | CHKERRS+6*, NOTFOUND+4* |
| MSGARRAY(3 | CHKERRS+7*, NOTFOUND+5* |
| MSGARRAY(4 | CHKERRS+12* |
| >> NOTE | INITVARS+1* |
| >> REFLABF | PEP+1, INITVARS+27 |
| >> RESULTDT | INITVARS+1*, INITVARS+14*, INITVARS+15, ICOMDATA+4*, STORDATA+29, TESTSTOR+10*, TESTSTOR+11* |
| >> SNOMED | INITVARS+1*, STORDATA+32, TESTSTOR+12* |
| >> STR | ICOMDATA+3*, ICOMDATA+4, ICOMDATA+5, CHEK69+21*, CHEK69+22, CHEK69+24 |
| STR1 | CHKERRS+3~, CHKERRS+11*, CHKERRS+12, CHKERRS+14*, CHKERRS+16, NOTFOUND+1~ |
| SUBJECT | CHKERRS~, CHKERRS+18*, CHKERRS+19, NOTFOUND~, NOTFOUND+7*, NOTFOUND+8 |
| U | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| UID | INITVARS+11*, ICOMDATA+3, STORDATA+11, CHKERRS+7, NOTFOUND+5, TESTSTOR+8*, RETDATA~, RETDATA+1 |
| >> X | INITVARS+8*, INITVARS+9 |
| >> XPARSYS | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |
| >> XQXFLG | PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1 |