©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
BLRLINK4 ; IHS/MSC/MKK - CONT. OF BLR - IHS LABORATORY VISIT CREATION ; 02-Nov-2015 13:44 ; MKK
Source file <BLRLINK4.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Lab | 3 | ($$GETINTHU,REFLAB68)^BLRLINKU ENTRYAUD^BLRUTIL ($$GETACCCP,GETACCCP)^BLRUTIL3 |
| VA Fileman | 3 | UPDATE^DIE ^DIM $$GET1^DIQ |
| DRG Grouper | 1 | ($$ICDDX,$$VLTD,$$VLTP)^ICDEX |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKINHL7(BLRLOGDA,REFLABF) | ; EP
|
|
| HL7REFLR(REFLABF) | ; EP
|
|
| CHKREFA | ; EP - Make sure Reference Ranges are not formulas
|
|
| MSNOMED | ; EP - Called from BLRLINK3
|
|
| LOTZERO(ARRAY) | ||
| RESETPOV | ; EP -- Reset "Provider Narrative"
|
|
| FMSNOMED | ; EP - SNOMED codes to be done via FileMan
|
|
| CHKPCCRU | ; EP
|
|
| APCDPCCR | ; EP - Reset CPT nodes, if Possible.
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1033 ; Do not try to reset the CPT codes because it will "unbundle" ; all the Atomic tests that should be under one CPT code ; for a Cosmic test. This subroutine was a mistake. |
|
| CHSETCOD | ; EP - Check to see if SET OF CODES & "Change" Result, if Necessary
|
| Name | Field # of Occurrence |
|---|---|
| $$GETINTHU^BLRLINKU | CHKINHL7+19 |
| REFLAB68^BLRLINKU | CHKINHL7+11 |
| ENTRYAUD^BLRUTIL | HL7REFLR+8, CHKINHL7+34, CHKPCCRU+26, CHKPCCRU+53, CHKREFA+8, CHKREFA+36, LOTZERO+3, RESETPOV+1, RESETPOV+6, RESETPOV+62 , RESETPOV+74, RESETPOV+98 |
| $$GETACCCP^BLRUTIL3 | CHKPCCRU+6 |
| GETACCCP^BLRUTIL3 | CHKINHL7+8 |
| UPDATE^DIE | RESETPOV+96, FMSNOMED+11, MSNOMED+27 |
| ^DIM | CHKREFA+14, CHKREFA+26 |
| $$GET1^DIQ | RESETPOV+19, RESETPOV+22, RESETPOV+51, RESETPOV+52, RESETPOV+56, RESETPOV+57, RESETPOV+81, RESETPOV+82, RESETPOV+83, FMSNOMED+3 , FMSNOMED+6, MSNOMED+17, MSNOMED+22 |
| $$ICDDX^ICDEX | CHKPCCRU+46 |
| $$VLTD^ICDEX | RESETPOV+58 |
| $$VLTP^ICDEX | RESETPOV+59 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRCPT - [#9009021] | APCDPCCR+20 |
| ^BLRCPT("C" | APCDPCCR+18 |
| ^BLRTXLOG - [#9009022] | CHKINHL7+5, CHKINHL7+7, CHKPCCRU+37*, CHKPCCRU+38*, CHKPCCRU+39*, CHKREFA+22*, CHKREFA+34* |
| ^DD(63.04 | CHSETCOD+7, CHSETCOD+9, LOTZERO+11 |
| ^LAB(60 - [#60] | CHSETCOD+4, CHKPCCRU+24, LOTZERO+8 |
| ^LRO(68 - [#68] | CHKINHL7+16, CHKPCCRU+9 |
| ^LRO(69 - [#69] | RESETPOV+28, RESETPOV+30, RESETPOV+32, RESETPOV+33 |
| ^TMP("BLR" | CHKINHL7+21 |
| ^XTMP("BLRLINKU" | CHKINHL7+12 |
| Name | Line Occurrences |
|---|---|
| $$CHKINHL7 | HL7REFLR+2 |
| APCDPCCR | CHKPCCRU+51 |
| FMSNOMED | RESETPOV+68 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABNFLAG | HL7REFLR+1~, CHKINHL7+24*, CHKINHL7+29, CHKPCCRU+2~ |
| >> APCDALVR | RESETPOV+4 |
| >> APCDALVR("APCDADFN" | MSNOMED+13 |
| >> APCDALVR("APCDAFLG" | MSNOMED+6 |
| >> APCDALVR("APCDAVF" | MSNOMED+9 |
| >> APCDALVR("APCDTABN" | CHKINHL7+29* |
| >> APCDALVR("APCDTCPS" | APCDPCCR+10*, APCDPCCR+28*, APCDPCCR+34! |
| >> APCDALVR("APCDTCPT" | CHKPCCRU+51, APCDPCCR+11*, APCDPCCR+13*, APCDPCCR+29*, APCDPCCR+31, APCDPCCR+35! |
| >> APCDALVR("APCDTICD" | RESETPOV+72*, RESETPOV+76! |
| >> APCDALVR("APCDTLAB" | CHSETCOD+3 |
| >> APCDALVR("APCDTLPV" | CHKPCCRU+42, CHKPCCRU+46*, RESETPOV+67* |
| >> APCDALVR("APCDTRFH" | HL7REFLR+7*, CHKINHL7+32*, CHKPCCRU+13, CHKPCCRU+38*, CHKREFA+4, CHKREFA+33* |
| >> APCDALVR("APCDTRFL" | HL7REFLR+6*, CHKINHL7+31*, CHKPCCRU+12, CHKPCCRU+37*, CHKREFA+3, CHKREFA+21* |
| >> APCDALVR("APCDTUNI" | HL7REFLR+5*, CHKINHL7+30*, CHKPCCRU+14, CHKPCCRU+39* |
| ARRAY | LOTZERO~, LOTZERO+1 |
| ARRAY("APCDTLAB" | LOTZERO+5 |
| ARRAY("APCDTRES" | LOTZERO+18, LOTZERO+33* |
| ARRAY("APCDTRFH" | LOTZERO+36, LOTZERO+46* |
| ARRAY("APCDTRFL" | LOTZERO+35, LOTZERO+41* |
| >> BLRACC | CHKPCCRU+6 |
| BLRCPT | APCDPCCR+9, APCDPCCR+11, APCDPCCR+13, APCDPCCR+16~, APCDPCCR+23*, APCDPCCR+29 |
| BLRCPTST | APCDPCCR+9, APCDPCCR+10, APCDPCCR+16~, APCDPCCR+22*, APCDPCCR+25*, APCDPCCR+26*, APCDPCCR+28 |
| BLRICD | RESETPOV+80~, RESETPOV+83*, RESETPOV+85, RESETPOV+92 |
| >> BLRIEN | CHKPCCRU+37, CHKPCCRU+38, CHKPCCRU+39, CHKREFA+22, CHKREFA+34 |
| BLRLOGDA | HL7REFLR+2, CHKINHL7~, CHKINHL7+3, CHKINHL7+5, CHKINHL7+7, RESETPOV+4, RESETPOV+19, RESETPOV+22, RESETPOV+79, RESETPOV+81 , RESETPOV+82, RESETPOV+83, RESETPOV+88, RESETPOV+89, RESETPOV+92, FMSNOMED+3, FMSNOMED+6, MSNOMED+22 |
| BLRPROVN | RESETPOV+80~, RESETPOV+81*, RESETPOV+85, RESETPOV+88 |
| >> BLRRES | CHSETCOD+12, CHSETCOD+14* |
| >> BLRSITE | CHKPCCRU+24 |
| BLRSNOM | RESETPOV+80~, RESETPOV+82*, RESETPOV+85, RESETPOV+89 |
| >> BLRTEST | CHKPCCRU+22 |
| >> BLRTLAB | CHKPCCRU+22 |
| CHANGED | CHSETCOD+1~, CHSETCOD+10*, CHSETCOD+11, CHSETCOD+15* |
| CNT | APCDPCCR+16~, APCDPCCR+25* |
| CPTCODE | CHKPCCRU+2~ |
| CRITHIGH | CHKPCCRU+2~, CHKPCCRU+33* |
| CRITLOW | CHKPCCRU+2~, CHKPCCRU+32* |
| DATANAME | CHSETCOD+1~, CHSETCOD+4*, CHSETCOD+5, CHSETCOD+7, CHSETCOD+9 |
| >> DILOCKTM | LOTZERO+1, RESETPOV+4 |
| >> DISYS | LOTZERO+1, RESETPOV+4 |
| >> DN | LOTZERO+8*, LOTZERO+9, LOTZERO+11 |
| DNDESC | CHKINHL7+1~ |
| DNIEN | CHKINHL7+1~ |
| >> DP | LOTZERO+15*, LOTZERO+16, LOTZERO+29, LOTZERO+40, LOTZERO+45 |
| DT | LOTZERO+1, RESETPOV+4 |
| DTIME | LOTZERO+1, RESETPOV+4 |
| DUZ | LOTZERO+1, RESETPOV+4 |
| DUZ(2 | CHKINHL7+12 |
| ERRS | RESETPOV+87!, MSNOMED+1~ |
| F60IEN | CHKINHL7+1~, CHKINHL7+5*, CHKINHL7+21 |
| F60PTR | CHSETCOD+1~, CHSETCOD+3*, CHSETCOD+4 |
| FDA | RESETPOV+87!, RESETPOV+94, MSNOMED+1~ |
| FDA( | FMSNOMED+9*, MSNOMED+25* |
| FDA(9009022 | RESETPOV+88*, RESETPOV+89*, RESETPOV+92* |
| >> FOUNDIT | RESETPOV+27*, RESETPOV+28, RESETPOV+30, RESETPOV+32, RESETPOV+33* |
| >> FOUNDIT("LRSP" | RESETPOV+33*, RESETPOV+34 |
| >> FOUNDIT("LRTN" | RESETPOV+33*, RESETPOV+34 |
| HL7TEST | CHKINHL7+1~ |
| >> ICDCODE | RESETPOV+56*, RESETPOV+65, RESETPOV+85, RESETPOV+92 |
| >> ICDDESC | RESETPOV+58*, RESETPOV+59* |
| >> ICDIEN | RESETPOV+57*, RESETPOV+58, RESETPOV+59, RESETPOV+72 |
| IEN | RESETPOV+50*, RESETPOV+51, RESETPOV+52, RESETPOV+56, RESETPOV+57, FMSNOMED+1~ |
| IHSCPTLP | APCDPCCR+16~, APCDPCCR+18*, APCDPCCR+19, APCDPCCR+20, APCDPCCR+23 |
| IHSLCPT | CHKPCCRU+3~ |
| IHSLCPTP | CHKPCCRU+3~ |
| IO | LOTZERO+1, RESETPOV+4 |
| >> IOBS | LOTZERO+1, RESETPOV+4 |
| IOF | LOTZERO+1, RESETPOV+4 |
| IOM | LOTZERO+1, RESETPOV+4 |
| ION | LOTZERO+1, RESETPOV+4 |
| >> IOS | LOTZERO+1, RESETPOV+4 |
| IOSL | LOTZERO+1, RESETPOV+4 |
| IOST | LOTZERO+1, RESETPOV+4 |
| >> IOT | LOTZERO+1, RESETPOV+4 |
| >> IOXY | LOTZERO+1, RESETPOV+4 |
| >> L60IEN | LOTZERO+5*, LOTZERO+6, LOTZERO+8 |
| LABPOV | CHKPCCRU+2~, CHKPCCRU+42*, CHKPCCRU+43, CHKPCCRU+44*, CHKPCCRU+46 |
| LABTIEN | CHKPCCRU+3~, CHKPCCRU+22*, CHKPCCRU+24, APCDPCCR+18 |
| LRAA | CHKINHL7+1~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+12, CHKINHL7+16, CHKPCCRU+4~, CHKPCCRU+6, CHKPCCRU+9 |
| LRAD | CHKINHL7+1~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+16, CHKPCCRU+4~, CHKPCCRU+6 |
| LRAN | CHKINHL7+1~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+16, CHKPCCRU+4~, CHKPCCRU+6 |
| LRAS | CHKINHL7+1~, CHKINHL7+7*, CHKINHL7+8 |
| LRASUB | CHKPCCRU+4~, CHKPCCRU+9*, CHKPCCRU+10 |
| >> LRODT | RESETPOV+27*, RESETPOV+28*, RESETPOV+30, RESETPOV+32, RESETPOV+33, RESETPOV+50 |
| >> LROT | RESETPOV+31*, RESETPOV+32*, RESETPOV+33 |
| LRPIECE | CHSETCOD+1~, CHSETCOD+11* |
| LRSET | CHSETCOD+1~, CHSETCOD+11*, CHSETCOD+12, CHSETCOD+14 |
| >> LRSP | RESETPOV+29*, RESETPOV+30*, RESETPOV+32, RESETPOV+33, RESETPOV+34*, RESETPOV+50 |
| >> LRTN | RESETPOV+34*, RESETPOV+36, RESETPOV+50 |
| OKAYFLAG | CHKREFA+1~, CHKREFA+10* |
| >> ORDNUM | RESETPOV+19*, RESETPOV+20, RESETPOV+28, RESETPOV+30 |
| >> ORIGRSLT | LOTZERO+20*, LOTZERO+27 |
| PCCHIGH | CHKPCCRU+1~, CHKPCCRU+13*, CHKPCCRU+17, CHKPCCRU+38, CHKREFA+1~, CHKREFA+4*, CHKREFA+6, CHKREFA+24, CHKREFA+25, CHKREFA+29 , LOTZERO+36*, LOTZERO+43, LOTZERO+44*, LOTZERO+45*, LOTZERO+46 |
| PCCLOW | CHKPCCRU+1~, CHKPCCRU+12*, CHKPCCRU+17, CHKPCCRU+37, CHKREFA+1~, CHKREFA+3*, CHKREFA+6, CHKREFA+12, CHKREFA+13, CHKREFA+17 , LOTZERO+35*, LOTZERO+38, LOTZERO+39*, LOTZERO+40*, LOTZERO+41 |
| PCCUNITS | CHKPCCRU+1~, CHKPCCRU+14*, CHKPCCRU+17, CHKPCCRU+39 |
| >> PROVNAR | RESETPOV+51*, RESETPOV+65, RESETPOV+67, RESETPOV+85, RESETPOV+88 |
| Q2 | CHSETCOD+1~, CHSETCOD+9*, CHSETCOD+11 |
| REFHIGH | HL7REFLR+1~, HL7REFLR+7, CHKINHL7+26*, CHKINHL7+32, CHKPCCRU+2~, CHKPCCRU+31*, CHKPCCRU+38 |
| REFLABF | HL7REFLR~, HL7REFLR+2, CHKINHL7~, CHKINHL7+14* |
| REFLOW | HL7REFLR+1~, HL7REFLR+6, CHKINHL7+25*, CHKINHL7+31, CHKPCCRU+2~, CHKPCCRU+30*, CHKPCCRU+37 |
| >> RESULT | LOTZERO+18*, LOTZERO+20, LOTZERO+21, LOTZERO+22, LOTZERO+23*, LOTZERO+25*, LOTZERO+27*, LOTZERO+29*, LOTZERO+31*, LOTZERO+33 |
| SHOULDBE | CHKREFA+1~, CHKREFA+17*, CHKREFA+18, CHKREFA+19, CHKREFA+21, CHKREFA+22, CHKREFA+29*, CHKREFA+30, CHKREFA+31, CHKREFA+33 , CHKREFA+34 |
| SNOMED | RESETPOV+52*, RESETPOV+65, RESETPOV+68, RESETPOV+85, RESETPOV+89, FMSNOMED+9, MSNOMED+1~, MSNOMED+17*, MSNOMED+18, MSNOMED+22* , MSNOMED+23, MSNOMED+25 |
| STR | CHKINHL7+1~, CHKINHL7+21*, CHKINHL7+22, CHKINHL7+24, CHKINHL7+25, CHKINHL7+26, CHKINHL7+27, CHKPCCRU+2~, CHKPCCRU+24*, CHKPCCRU+28 , CHKPCCRU+30, CHKPCCRU+31, CHKPCCRU+32, CHKPCCRU+33, CHKPCCRU+34, LOTZERO+11*, LOTZERO+12, LOTZERO+15 |
| STR1 | APCDPCCR+16~, APCDPCCR+20*, APCDPCCR+21, APCDPCCR+26 |
| STR2 | APCDPCCR+16~, APCDPCCR+21*, APCDPCCR+24, APCDPCCR+25, APCDPCCR+26 |
| >> SYMBOL | LOTZERO+20*, LOTZERO+22*, LOTZERO+31 |
| >> TESTIEN | RESETPOV+22*, RESETPOV+23, RESETPOV+33 |
| TESTIT | CHKREFA+1~ |
| U | CHSETCOD+9, LOTZERO+1, RESETPOV+4 |
| UID | CHKINHL7+1~, CHKINHL7+16*, CHKINHL7+17, CHKINHL7+19, CHKINHL7+21 |
| UNITS | HL7REFLR+1~, HL7REFLR+5, CHKINHL7+27*, CHKINHL7+30, CHKPCCRU+2~, CHKPCCRU+34*, CHKPCCRU+39 |
| VFILEIEN | MSNOMED+1~, MSNOMED+13*, MSNOMED+14, MSNOMED+17, MSNOMED+25 |
| VFILENUM | MSNOMED+1~, MSNOMED+9*, MSNOMED+10, MSNOMED+17, MSNOMED+25 |
| VLABFILE | FMSNOMED+1~, FMSNOMED+3*, FMSNOMED+4, FMSNOMED+9 |
| VLABIEN | FMSNOMED+1~, FMSNOMED+6*, FMSNOMED+7, FMSNOMED+9 |
| WOT | HL7REFLR+1~, HL7REFLR+2*, HL7REFLR+3 |
| X | CHKPCCRU+6*, CHKPCCRU+7, CHKREFA+1~, CHKREFA+13*, CHKREFA+15, CHKREFA+25*, CHKREFA+27, RESETPOV+4 |
| >> XPARSYS | LOTZERO+1, RESETPOV+4 |
| >> XQXFLG | LOTZERO+1, RESETPOV+4 |