BLRPOC2 ;IHS/MSC/PLS - EHR POC Component support, part 2 ; 13-Oct-2017 14:04 ; MKK
Source file <BLRPOC2.m>
| Package | Total | Call Graph |
|---|---|---|
| Lab Service | 9 | ^LRORDST ORDER^LROW2 ^LRPARAM EXP^LRVER1 V11^LRVER3 TEST^LRVR1 FILECOM^LRVR4 CLEAN^LRVRPOCU ^LRWLST |
| IHS Changes To Lab | 4 | $$QUALCHEK^BLRQUALU $$ORD^BLRRLEDI GETACCCP^BLRUTIL3 $$REFLABCK^BLRUTIL6 |
| VA Fileman | 4 | NOW^%DTC $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ |
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| IHS Laboratory Point of Care | 1 | ($$GETPAT,$$REFRES,BLDARY)^BLRPOC |
| IHS Standard Terminology | 1 | ($$CONC,$$DSCLKP)^BSTSAPI |
| Kernel | 1 | $$TRIM^XLFSTR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REVAL(LRTRES,LRTFLG) | ; EP - Re-validate abnormal flag
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1041 ; Qualitative flag for POC tests |
|
| LRHACK31 | ; EP
; There appears to be a defect brought about by a change to a VA routine that is included ; in IHS Lab Patch 1031. The defect causes the Lab Data File's SPECIMEN TYPE field to be null ; as well as the Accession File's Collection Specimen. This subroutine is a fix, not a solution. |
|
| SAVER | ; EP -
|
|
| SIGNSYMP | ; EP - Sign or Symptom for Incoming POC test
|
|
| END | ; EP
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | SAVER+47 |
| $$GETPAT^BLRPOC | SAVER+25 |
| $$REFRES^BLRPOC | SAVER+67, SAVER+68, SAVER+69, SAVER+70 |
| BLDARY^BLRPOC | SAVER+75 |
| $$QUALCHEK^BLRQUALU | REVAL+12 |
| $$ORD^BLRRLEDI | SIGNSYMP+53 |
| GETACCCP^BLRUTIL3 | LRHACK31+14 |
| $$REFLABCK^BLRUTIL6 | SIGNSYMP+45 |
| $$CONC^BSTSAPI | SIGNSYMP+8 |
| $$DSCLKP^BSTSAPI | SIGNSYMP+11 |
| $$FIND1^DIC | SIGNSYMP+54 |
| FILE^DIE | SIGNSYMP+28 |
| UPDATE^DIE | SIGNSYMP+41, SIGNSYMP+66, SIGNSYMP+74 |
| $$GET1^DIQ | SAVER+31, SAVER+37, SAVER+62, SAVER+64, SAVER+97, SIGNSYMP+34, SIGNSYMP+49, SIGNSYMP+50, SIGNSYMP+51 |
| $$ICDDX^ICDEX | SIGNSYMP+61 |
| ^LRORDST | SAVER+50 |
| ORDER^LROW2 | SAVER+49 |
| ^LRPARAM | SAVER+19 |
| EXP^LRVER1 | SAVER+112 |
| V11^LRVER3 | SAVER+114 |
| TEST^LRVR1 | SAVER+91 |
| FILECOM^LRVR4 | SAVER+102 |
| CLEAN^LRVRPOCU | END+2 |
| ^LRWLST | SAVER+52 |
| $$TRIM^XLFSTR | SIGNSYMP+15 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LAB(62 - [#62] | GET1^DIQ |
| ^LR - [#63] | GET1^DIQ |
| 69.01 | GET1^DIQ |
| 69.03 | GET1^DIQ |
| ^BLRRLO - [#9009026.3] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRUCUM - [#90475.3] | SAVER+74 |
| ^DIC(19 - [#19] | SAVER+15, SAVER+16 |
| ^LAB(60 - [#60] | SAVER+66, SAVER+77 |
| ^LAB(62 - [#62] | SAVER+24, LRHACK31+10 |
| ^LAB(69.9 - [#69.9] | SAVER+12, SAVER+13, SAVER+21 |
| ^LR - [#63] | SAVER+96*, LRHACK31+9, LRHACK31+10*, LRHACK31+13, SIGNSYMP+70 |
| ^LRO(68 - [#68] | LRHACK31+16, LRHACK31+17* |
| ^LRO(69 - [#69] | SIGNSYMP+23 |
| Name | Line Occurrences |
|---|---|
| END | SAVER+12, SAVER+13, SAVER+27, SAVER+78, SAVER+83, SAVER+85 |
| LRHACK31 | SAVER+93 |
| REVAL | SAVER+72 |
| SIGNSYMP | SAVER+109 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SAVER+1~, SAVER+47 |
| ARY | END+3! |
| ARY("CD" | SAVER+38 |
| ARY("CM" | SAVER+17* |
| ARY("CMT" | SAVER+100, SAVER+101 |
| ARY("COL" | SAVER+23, SAVER+64, LRHACK31+6, LRHACK31+10, LRHACK31+17 |
| ARY("LOC" | SAVER+36 |
| ARY("NOO" | SAVER+42 |
| ARY("ORDTST" | SAVER+18, SAVER+32, SAVER+33, SAVER+53, SAVER+77, SIGNSYMP+23, SIGNSYMP+45 |
| ARY("PRV" | SAVER+35 |
| ARY("RES" | SAVER+59, SAVER+60 |
| ARY("SYMP" | SIGNSYMP+3, SIGNSYMP+4, SIGNSYMP+5 |
| ARY("TST" | SAVER+56, SAVER+58 |
| ARY("URG" | SAVER+33, SAVER+43 |
| ARYSYMP | SIGNSYMP+1~ |
| BLRDH | SAVER+1~ |
| BLRGUI | SAVER+1~, SAVER+14* |
| BLRLOG | SAVER+1~ |
| BLRPCC | SAVER+1~ |
| BLRQSITE | SAVER+1~ |
| BLRSTOP | SAVER+1~ |
| BPCACC | SAVER+1~, SAVER+14* |
| BPCCOM | SAVER+1~, SAVER+44* |
| >> DATA | END+1* |
| DFN | SAVER+25, SAVER+31, SIGNSYMP+48~, SIGNSYMP+51*, SIGNSYMP+53 |
| DUZ | SAVER+97 |
| DUZ(2 | SAVER+77 |
| ERRS | SIGNSYMP+1~, SIGNSYMP+39!, SIGNSYMP+63!, SIGNSYMP+72! |
| F60PTR | SIGNSYMP+33~, SIGNSYMP+34*, SIGNSYMP+65 |
| FDA | SIGNSYMP+1~, SIGNSYMP+28, SIGNSYMP+39!, SIGNSYMP+63!, SIGNSYMP+72! |
| FDA( | SIGNSYMP+25*, SIGNSYMP+26*, SIGNSYMP+40*, SIGNSYMP+64*, SIGNSYMP+65*, SIGNSYMP+73* |
| >> H8 | REVAL+9 |
| ICD | SIGNSYMP+1~, SIGNSYMP+38*, SIGNSYMP+40 |
| ICDCNT | SIGNSYMP+1~, SIGNSYMP+37*, SIGNSYMP+38, SIGNSYMP+57*, SIGNSYMP+58 |
| >> ICDCODE | SIGNSYMP+58*, SIGNSYMP+59, SIGNSYMP+61 |
| >> ICDIEN | SIGNSYMP+61*, SIGNSYMP+64 |
| ICDSTR | SIGNSYMP+1~, SIGNSYMP+4*, SIGNSYMP+19*, SIGNSYMP+21, SIGNSYMP+30, SIGNSYMP+37, SIGNSYMP+38, SIGNSYMP+57, SIGNSYMP+58 |
| IENS | SIGNSYMP+1~, SIGNSYMP+23*, SIGNSYMP+25, SIGNSYMP+26, SIGNSYMP+34, SIGNSYMP+40 |
| IN | SIGNSYMP+1~, SIGNSYMP+10*, SIGNSYMP+11 |
| LRAA | SAVER+2~, SAVER+77*, SAVER+78, LRHACK31+4~, LRHACK31+14, LRHACK31+15, LRHACK31+16, LRHACK31+17 |
| LRACC | SAVER+2~, SAVER+82 |
| LRAD | LRHACK31+4~, LRHACK31+14, LRHACK31+15, LRHACK31+16, LRHACK31+17 |
| LRAHEAD | SAVER+2~ |
| LRAN | SAVER+2~, SAVER+82*, SAVER+83, LRHACK31+4~, LRHACK31+14, LRHACK31+15, LRHACK31+16, LRHACK31+17 |
| LRARY | SAVER+2~, SAVER+88 |
| LRAS | LRHACK31+4~, LRHACK31+13*, LRHACK31+14 |
| LRBLOOD | SAVER+2~ |
| LRCCOM | SAVER+2~ |
| LRCDT | SAVER+2~, SAVER+38*, SAVER+39, SAVER+40 |
| LRCMT | SAVER+2~, SAVER+101*, SAVER+102 |
| LRCOM | SAVER+2~, SAVER+100*, SAVER+101 |
| LRDEFSP | SAVER+2~, SAVER+64*, SAVER+66 |
| LRDFN | SAVER+3~, SAVER+25*, SAVER+27, SAVER+96, SAVER+102, LRHACK31+9, LRHACK31+10, LRHACK31+13, SIGNSYMP+48~, SIGNSYMP+50* , SIGNSYMP+51, SIGNSYMP+70 |
| LRDL | REVAL+6~, REVAL+7*, REVAL+11 |
| LRDPF | SAVER+3~, SAVER+30* |
| LRDTO | SAVER+3~ |
| LREAL | SAVER+3~ |
| LREND | SAVER+3~ |
| LRFDEFSP | SAVER+3~ |
| LRFLG | REVAL+6~, REVAL+13 |
| LRFLOC | SAVER+3~, SAVER+62*, SAVER+63 |
| LRFNODE | SAVER+3~, SAVER+63*, SAVER+75, REVAL+8 |
| LRGCOM | SAVER+3~ |
| LRI | SAVER+3~ |
| LRIDIV | SAVER+3~ |
| LRIDT | SAVER+4~, SAVER+96, SAVER+102, LRHACK31+9, LRHACK31+10, LRHACK31+13, SIGNSYMP+70 |
| LRINI | SAVER+4~, SAVER+97* |
| LRJ | SAVER+4~ |
| LRLABKY | SAVER+4~ |
| LRLBLBP | SAVER+4~ |
| LRLCSIEN | SAVER+4~ |
| LRLLOC | SAVER+4~, SAVER+37*, SAVER+85 |
| LRLWC | SAVER+4~, SAVER+34* |
| LRNATURE | SAVER+4~, SAVER+42* |
| LRNG2 | SAVER+4~, SAVER+69*, REVAL+24 |
| LRNG3 | SAVER+5~, SAVER+70*, REVAL+25 |
| LRNG4 | SAVER+5~, SAVER+67*, REVAL+22 |
| LRNG5 | SAVER+5~, SAVER+68*, REVAL+23 |
| >> LRNOLABL | SAVER+11* |
| LRNT | SAVER+5~, SAVER+47* |
| LRODT | SAVER+5~, SAVER+39*, SIGNSYMP+23, SIGNSYMP+45, SIGNSYMP+49, SIGNSYMP+50 |
| LROLDIV | SAVER+5~ |
| LROLLOC | SAVER+5~, SAVER+36*, SAVER+37 |
| LRORDR | SAVER+5~, SAVER+45* |
| LRORDTIM | SAVER+5~, SAVER+40* |
| LRORDTST | SAVER+5~, SAVER+18* |
| LROT | SAVER+6~ |
| LROT( | SAVER+32* |
| LROUTINE | SAVER+6~, SAVER+21* |
| LRPARAM | SAVER+6~, SAVER+20* |
| LRPCEVSO | SAVER+6~ |
| LRPLASMA | SAVER+6~ |
| LRPOVREQ | SAVER+6~ |
| LRPR | SAVER+6~ |
| LRPRAC | SAVER+6~, SAVER+35* |
| LRSAMP | SAVER+6~, SAVER+23*, SAVER+24, SAVER+32, SAVER+51~ |
| LRSB | SAVER+7~, SAVER+88*, SAVER+96*, REVAL+6~, REVAL+8*, REVAL+11 |
| LRSB( | SAVER+96 |
| LRSERUM | SAVER+7~ |
| LRSN | SAVER+7~, SIGNSYMP+23, SIGNSYMP+45, SIGNSYMP+49, SIGNSYMP+50 |
| LRSPEC | SAVER+7~, SAVER+24*, SAVER+32, SAVER+51~, REVAL+6~, REVAL+9*, REVAL+11 |
| LRSPEC0 | SAVER+7~, SAVER+66*, SAVER+67*, SAVER+68*, SAVER+69*, SAVER+70*, SAVER+74*, SAVER+75 |
| LRSS | SAVER+7~, SAVER+96, SIGNSYMP+70 |
| LRTFLG | SAVER+7~, SAVER+60*, SAVER+72, SAVER+75, REVAL~, REVAL+13*, REVAL+21*, REVAL+22*, REVAL+23*, REVAL+24* , REVAL+25* |
| LRTIEN | SAVER+7~, SAVER+58*, SAVER+62, SAVER+66, REVAL+10 |
| LRTRES | SAVER+7~, SAVER+59*, SAVER+72, SAVER+75, REVAL~, REVAL+7, REVAL+18*, REVAL+19*, REVAL+22, REVAL+23 , REVAL+24, REVAL+25 |
| LRTS | REVAL+6~, REVAL+10*, REVAL+11 |
| LRTSEQ | SAVER+7~, SAVER+56*, SAVER+58, SAVER+59, SAVER+60 |
| LRTST | SAVER+8~, SAVER+33*, SAVER+53* |
| LRUID | SIGNSYMP+69~, SIGNSYMP+70*, SIGNSYMP+71, SIGNSYMP+73 |
| LRUNKNOW | SAVER+8~ |
| LRURG | SAVER+8~, SAVER+43* |
| LRURINE | SAVER+8~ |
| LRUSI | SAVER+8~, SAVER+97* |
| LRVF | SAVER+8~, SAVER+113* |
| LRVIDO | SAVER+8~ |
| LRVIDOF | SAVER+8~ |
| LRWLC | SAVER+8~ |
| LRWLO | SAVER+8~ |
| ORDERN | SIGNSYMP+48~, SIGNSYMP+49*, SIGNSYMP+53, SIGNSYMP+54 |
| >> ORDIEN | SIGNSYMP+54*, SIGNSYMP+55, SIGNSYMP+64, SIGNSYMP+65, SIGNSYMP+73 |
| OUT | SIGNSYMP+1~, SIGNSYMP+10*, SIGNSYMP+11 |
| PNLINPNL | SAVER+9~ |
| PNM | SAVER+9~, SAVER+31* |
| PROVNARR | SIGNSYMP+1~, SIGNSYMP+3*, SIGNSYMP+8, SIGNSYMP+10, SIGNSYMP+14, SIGNSYMP+18*, SIGNSYMP+21, SIGNSYMP+25 |
| QUALFLAG | REVAL+3~, REVAL+4*, REVAL+13*, REVAL+14 |
| RES | SAVER+9~, SAVER+12*, SAVER+13*, SAVER+14*, SAVER+28*, SAVER+78*, SAVER+83*, SAVER+85*, SAVER+115*, END+1 |
| RET | SAVER+9~ |
| SNOMED | SIGNSYMP+1~, SIGNSYMP+5*, SIGNSYMP+7, SIGNSYMP+17*, SIGNSYMP+21, SIGNSYMP+26 |
| STR | SIGNSYMP+1~, SIGNSYMP+8*, SIGNSYMP+9, SIGNSYMP+13!, SIGNSYMP+14*, SIGNSYMP+15*, SIGNSYMP+16*, SIGNSYMP+17, SIGNSYMP+18, SIGNSYMP+19 |
| U | SAVER+13, SAVER+20, SAVER+24, SAVER+33, SAVER+74, SAVER+77, REVAL+9 |
| >> UCUM | SAVER+74* |
| VARS | SIGNSYMP+1~ |
| VARS(1 | SIGNSYMP+15, SIGNSYMP+16 |
| X | REVAL+6~, REVAL+12*, SIGNSYMP+53* |
| XQY | SAVER+9~, SAVER+15*, SAVER+16 |
| XQY0 | SAVER+9~, SAVER+16* |
| ZTQUEUED | SAVER+9~, SAVER+14* |