BLRPOC ;IHS/MSC/PLS - EHR POC Component support ; 13-Oct-2017 14:04 ; MKK
Source file <BLRPOC.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (CHK,HELP)^DIE ^DIM $$GET1^DIQ |
| IHS Patient | 2 | ^AUPNPAT $$AGE^AUPNPAT3 |
| IHS Changes To Lab | 1 | $$QUALCHEK^BLRQUALU |
| IHS Laboratory Point of Care | 1 | SAVER^BLRPOC2 |
| Kernel | 1 | ($$DT,$$NOW)^XLFDT |
| Lab Service | 1 | E2^LRDPA |
| Toolkit | 1 | $$GET^XPAR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Lab | 2 | BLRF60SR BLRLNKU2 |
| IHS Laboratory Point of Care | 2 | BLRPOC2 BLRPOC3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NOOLST(DATA) | ; EP
|
|
| ISPANEL(IEN) | ;EP- Returns boolean flag indicating if test is a panel test
|
|
| GUINIT(DATA,USR) | ; EP
|
|
| VRET | ; S DATA(0)=1_U_$S(LRFLG="H":"1:H",LRFLG="H*":"2:H",LRFLG="L":"1:L",LRFLG="L*":"2:L",1:0)_U_$G(LRDAT(0))_U_$G(LRDAT) Q
; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030 |
|
| BADPTR(IEN) | ; EP
; I '$D(^DD(63.04,$P($$GET1^DIQ(60,IEN,5,"E"),";",2))) Q 1 ; IHS/MSC/BF - IHS Lab Patch 1026 -- Make sure $P returns numeric ; ----- BEGIN IHS/OIT/MKK - LR*5.2*1027 - Valid check for existance of invalid IEN |
|
| GETTST(TST,DFN) | ;EP-
|
|
| POCTSTS(DATA,DIV,LOC,USR,DFN) | ; EP
|
|
| CHKTST(TEST) | ; EP
|
|
| VALIDATE(DATA,TSTIEN,COLIEN,RES,DFN) | ; EP
|
|
| URGLST(DATA) | ; EP
|
|
| LABDESC(DATA,DIV) | ; EP
|
|
| NEWPAT(DFN) | ;EP
|
|
| GETCOM(COMIEN) | ; EP
|
|
| SAVE(DATA,DFN,ARY) | ;EP-
|
|
| GETPAT(DFN) | ;EP
|
|
| CVARS | ; EP
|
|
| BLDARY(LOC,SPEC0,RES,FLG) | ; EP
|
|
| USRMATCH(LIEN,DIV,USR) | ; EP
|
|
| PNLTSTS(DATA,TST,DFN) | ;EP - Return "tst" list of tests within a panel. If another panel
; is within a panel, those tests will not be returned. ; Loop thru the LAB TEST INCLUDED IN PANEL field of File 60 and call $$GETTST to collect the test information |
|
| REFRES(VAL) | ; EP
|
|
| UNQCOL(IEN) | ;EP - RETURN FIRST COLLECTION SAMPLE
|
|
| VALERR(DATA,ERRARY) | ; EP
|
|
| LOCMATCH(LIEN,DIV,LOC) | ; EP
|
| Name | Field # of Occurrence |
|---|---|
| ^AUPNPAT | GETTST+2, VALIDATE+5 |
| $$AGE^AUPNPAT3 | GETTST+3, VALIDATE+6 |
| SAVER^BLRPOC2 | SAVE+1 |
| $$QUALCHEK^BLRQUALU | VALIDATE+39 |
| CHK^DIE | VALIDATE+14 |
| HELP^DIE | VALIDATE+12 |
| ^DIM | REFRES+3 |
| $$GET1^DIQ | POCTSTS+5, POCTSTS+7, GETTST+4, GETTST+6, GETTST+7, GETTST+8, GETTST+9, GETTST+11, GETTST+13, VALIDATE+8 , VALIDATE+17, VALIDATE+19, GUINIT+1, NOOLST+3, GETCOM+2, GETCOM+3, CHKTST+15, BADPTR+4, BADPTR+7 |
| E2^LRDPA | NEWPAT+5 |
| $$DT^XLFDT | GETTST+3, VALIDATE+6 |
| $$NOW^XLFDT | BLDARY+7 |
| $$GET^XPAR | GETTST+3, VALIDATE+6 |
| RPC Name | Call Tags |
|---|---|
| BLRPOC POCTSTS | POCTSTS |
| BLRPOC PNLTSTS | PNLTSTS |
| BLRPOC SAVE | SAVE |
| BLRPOC VALIDATE | VALIDATE |
| BLRPOC URGLST | URGLST |
| BLRPOC NOOLST | NOOLST |
| BLRPOC LABDESC | LABDESC |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^LAB(60 - [#60] | GET1^DIQ |
| 60.01 | GET1^DIQ |
| 60.02 | GET1^DIQ |
| ^LAB(62 - [#62] | GET1^DIQ |
| ^LAB(62.5 - [#62.5] | GET1^DIQ |
| 63.04 | CHK^DIE, HELP^DIE |
| ^LAB(69.9 - [#69.9] | GET1^DIQ |
| ^BLRPOC(90479 - [#90479] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRPOC(90479 - [#90479] | POCTSTS+3, POCTSTS+10, LABDESC+3, LABDESC+6, LOCMATCH+1, USRMATCH+1 |
| ^DD(63.04 | BADPTR+7 |
| ^DPT - [#2] | GETPAT+2 |
| ^LAB(60 - [#60] | UNQCOL+2, UNQCOL+4, ISPANEL+1, PNLTSTS+4, PNLTSTS+7, VALIDATE+19, VALIDATE+37, CHKTST+4, CHKTST+5, CHKTST+6 , CHKTST+7, CHKTST+14, CHKTST+18, CHKTST+19 |
| ^LAB(62.05 - [#62.05] | URGLST+2, URGLST+3 |
| ^LR("A" | NEWPAT+3 |
| ^LR(0 | NEWPAT+4, NEWPAT+6 |
| ^ORD(100.02 - [#100.02] | NOOLST+4, NOOLST+5, NOOLST+6, NOOLST+9 |
| Name | Line Occurrences |
|---|---|
| $$BADPTR | CHKTST+17 |
| $$CHKTST | POCTSTS+11 |
| $$GETCOM | LABDESC+7 |
| $$GETTST | POCTSTS+12, PNLTSTS+8 |
| $$ISPANEL | GETTST+14, CHKTST+12, CHKTST+16 |
| $$LOCMATCH | POCTSTS+5 |
| $$NEWPAT | GETPAT+3 |
| $$REFRES | GETTST+10, GETTST+12, VALIDATE+44, VALIDATE+45, VALIDATE+46, VALIDATE+47 |
| $$UNQCOL | GETTST+5 |
| $$USRMATCH | POCTSTS+7 |
| VALERR | VALIDATE+13, VALIDATE+16 |
| VRET | VALIDATE+41, VALIDATE+49, VALIDATE+50, VALIDATE+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | GETTST+3*, VALIDATE+2~, VALIDATE+6* |
| ARY | SAVE~, CVARS+1! |
| AUPNDAYS | VALIDATE+2~ |
| AUPNDOB | VALIDATE+2~ |
| AUPNDOD | VALIDATE+2~ |
| AUPNPAT | VALIDATE+2~ |
| AUPNSEX | VALIDATE+2~ |
| BADPTR | CHKTST+1~, CHKTST+11*, CHKTST+14, CHKTST+17*, CHKTST+21 |
| BLRDH | CVARS+1! |
| BLRGUI | CVARS+1! |
| BLRLOG | CVARS+1! |
| BLRPCC | CVARS+1! |
| BLRQSITE | CVARS+1! |
| BLRSTOP | CVARS+1! |
| BPCACC | CVARS+1! |
| BPCCOM | CVARS+1! |
| CC | LABDESC+1~, LABDESC+3*, LABDESC+6 |
| CHKVAL | GETTST+1~, REFRES+1~, REFRES+5 |
| CNT | POCTSTS+2~, POCTSTS+3*, POCTSTS+8*, POCTSTS+12, PNLTSTS+3~, PNLTSTS+4*, PNLTSTS+5*, PNLTSTS+8, URGLST+1~, URGLST+2* , URGLST+4*, URGLST+5, NOOLST+1~, NOOLST+5*, NOOLST+10*, NOOLST+11, LABDESC+1~, LABDESC+3*, LABDESC+4*, LABDESC+7 |
| COL | GETTST+1~, GETTST+5*, GETTST+6, GETTST+7, GETTST+8, GETTST+14 |
| COLIEN | VALIDATE~, VALIDATE+17, VALIDATE+18, VALIDATE+19 |
| COLNM | GETTST+1~, GETTST+6*, GETTST+14, CHKTST+1~ |
| COMIEN | LABDESC+1~, LABDESC+6*, LABDESC+7, GETCOM~, GETCOM+2, GETCOM+3, GETCOM+4 |
| DATA | POCTSTS~, SAVE~, PNLTSTS~, VALIDATE~, VALIDATE+4, VALIDATE+9*, VALIDATE+13, VALIDATE+16, VRET+7*, VALERR~ , GUINIT~, GUINIT+1*, URGLST~, NOOLST~, LABDESC~ |
| DATA( | POCTSTS+12*, PNLTSTS+8*, VALERR+3*, URGLST+5*, NOOLST+11*, LABDESC+7* |
| DATA(0 | VALIDATE+13*, VALIDATE+16*, VALIDATE+18*, VRET+7* |
| DATA(1 | VALIDATE+9*, VALIDATE+18* |
| DEF | NOOLST+1~, NOOLST+3*, NOOLST+4*, NOOLST+11 |
| DEFSPEC | VALIDATE+2~, VALIDATE+17*, VALIDATE+18 |
| DFN | POCTSTS~, POCTSTS+12, GETTST~, GETTST+2, GETTST+3, SAVE~, PNLTSTS~, PNLTSTS+8, VALIDATE~, VALIDATE+5 , VALIDATE+6, GETPAT~, GETPAT+2, GETPAT+3, NEWPAT~, NEWPAT+2 |
| DIV | POCTSTS~, POCTSTS+1*, POCTSTS+3, POCTSTS+5, POCTSTS+7, POCTSTS+10, LABDESC~, LABDESC+2*, LABDESC+3, LABDESC+6 , LOCMATCH~, LOCMATCH+1, USRMATCH~, USRMATCH+1 |
| DUPPER | VALIDATE+3~, VALIDATE+4* |
| DUZ | BLDARY+5 |
| DUZ(2 | POCTSTS+1, LABDESC+2, BLDARY+8, CHKTST+6, CHKTST+18 |
| ERRARY | VALERR~ |
| ERRARY("DIHELP" | VALERR+2, VALERR+3 |
| FLG | BLDARY~, BLDARY+3 |
| HLP | VALERR+1~, VALERR+2*, VALERR+3 |
| IEN | UNQCOL~, UNQCOL+2, UNQCOL+4, ISPANEL~, ISPANEL+1, URGLST+1~, URGLST+3*, URGLST+5, NOOLST+1~, NOOLST+6* , NOOLST+9, NOOLST+11, BADPTR~, BADPTR+4, BADPTR+7 |
| LDEXP | GETCOM+1~, GETCOM+3*, GETCOM+4 |
| LDNAME | GETCOM+1~, GETCOM+2*, GETCOM+4 |
| LIEN | LOCMATCH~, LOCMATCH+1, USRMATCH~, USRMATCH+1 |
| LOC | POCTSTS~, POCTSTS+5, BLDARY~, BLDARY+1, BLDARY+3, BLDARY+4, BLDARY+5, BLDARY+6, BLDARY+7, BLDARY+8 , LOCMATCH~, LOCMATCH+1 |
| LP | POCTSTS+2~, POCTSTS+3*, POCTSTS+5, POCTSTS+7, POCTSTS+10, PNLTSTS+3~, PNLTSTS+4*, PNLTSTS+7 |
| LRAA | CVARS+1! |
| LRAHEAD | CVARS+1! |
| LRARY | CVARS+1! |
| LRARY( | BLDARY+1*, BLDARY+3*, BLDARY+4*, BLDARY+5*, BLDARY+6*, BLDARY+7*, BLDARY+8* |
| LRBLOOD | CVARS+1! |
| LRCCOM | CVARS+1! |
| LRDAT | VALIDATE+1~, VALIDATE+14, VALIDATE+16, VALIDATE+35, VRET+7 |
| LRDAT(0 | VRET+7 |
| LRDFN | GETPAT+1~, GETPAT+2*, GETPAT+3*, GETPAT+4, NEWPAT+1~, NEWPAT+3*, NEWPAT+7*, NEWPAT+8, CVARS+2! |
| LRDL | VALIDATE+34~, VALIDATE+35*, VALIDATE+38 |
| LRDPAF | NEWPAT+1~ |
| LRDPF | NEWPAT+1~, NEWPAT+2*, CVARS+2! |
| LRDTO | CVARS+2! |
| LREAL | CVARS+2! |
| LREND | CVARS+2! |
| LRERR | VALIDATE+1~, VALIDATE+16 |
| LRFIEN | VALIDATE+1~, VALIDATE+10*, VALIDATE+12, VALIDATE+14, VALIDATE+36 |
| LRFLG | VALIDATE+1~, VALIDATE+7*, VALIDATE+27*, VALIDATE+40, VALIDATE+49*, VALIDATE+50*, VALIDATE+51*, VALIDATE+52*, VRET+7 |
| LRFLOC | VALIDATE+1~, VALIDATE+8*, VALIDATE+9, VALIDATE+10 |
| LRGCOM | CVARS+2! |
| LRI | CVARS+2! |
| LRIDIV | CVARS+2! |
| LRITMIEN | CHKTST+1~, CHKTST+15*, CHKTST+16, CHKTST+17, CHKTST+18, CHKTST+19 |
| LRJ | CVARS+2! |
| LRLABKY | CVARS+2! |
| LRLBLBP | CVARS+2! |
| LRLLOC | CVARS+2! |
| LRLOOP | CHKTST+1~, CHKTST+14*, CHKTST+15 |
| LRLWC | CVARS+2! |
| LRNATURE | CVARS+2! |
| LRNG2 | VALIDATE+1~, VALIDATE+46*, VALIDATE+51 |
| LRNG3 | VALIDATE+1~, VALIDATE+47*, VALIDATE+52 |
| LRNG4 | VALIDATE+1~, VALIDATE+44*, VALIDATE+49 |
| LRNG5 | VALIDATE+1~, VALIDATE+45*, VALIDATE+50 |
| LRORDR | CVARS+2! |
| LRORDTIM | CVARS+2! |
| LRORDTST | CVARS+3! |
| LROUTINE | CVARS+3! |
| LRPARAM | CVARS+3! |
| LRPCEVSO | CVARS+3! |
| LRPLASMA | CVARS+3! |
| LRPOVREQ | CVARS+3! |
| LRPR | CVARS+3! |
| LRSAMP | CVARS+3! |
| LRSB | VALIDATE+34~, VALIDATE+36*, VALIDATE+37, VALIDATE+38 |
| LRSERUM | CVARS+3! |
| LRSPEC | GETTST+8*, VALIDATE+38, CVARS+3! |
| >> LRSPEC0 | VALIDATE+19*, VALIDATE+44, VALIDATE+45, VALIDATE+46, VALIDATE+47 |
| LRSS | CVARS+3! |
| LRTS | VALIDATE+34~, VALIDATE+37*, VALIDATE+38 |
| LRUNKNOW | CVARS+3! |
| LRURG | CVARS+3! |
| LRURINE | CVARS+4! |
| LRUSI | CVARS+4! |
| LRVER | VALIDATE+1~, VALIDATE+13 |
| LRVF | CVARS+4! |
| LRVIDO | CVARS+4! |
| LRVIDOF | CVARS+4! |
| LRWLC | CVARS+4! |
| LRWLO | CVARS+4! |
| OLDRES | VALIDATE+22~, VALIDATE+23*, VRET+2 |
| ORD | NOOLST+1~, NOOLST+5*, NOOLST+6, NOOLST+11 |
| PNLINPNL | CHKTST+1~, CHKTST+11*, CHKTST+14, CHKTST+16*, CHKTST+21 |
| PTST | PNLTSTS+3~, PNLTSTS+7*, PNLTSTS+8 |
| QUALFLAG | VALIDATE+31~, VALIDATE+32*, VALIDATE+40*, VALIDATE+41 |
| REFH | GETTST+1~, GETTST+11*, GETTST+12*, GETTST+14 |
| REFL | GETTST+1~, GETTST+9*, GETTST+10*, GETTST+14 |
| REFVAL | REFRES+1~, REFRES+2*, REFRES+5*, REFRES+7 |
| RES | VALIDATE~, VALIDATE+11, VALIDATE+14, VALIDATE+23, VALIDATE+24*, VALIDATE+25*, VALIDATE+49, VALIDATE+50, VALIDATE+51, VALIDATE+52 , VRET+2*, BLDARY~, BLDARY+1, BLDARY+2 |
| RET | CVARS+4! |
| SAMP | CHKTST+1~ |
| SEX | VALIDATE+2~ |
| SMP | UNQCOL+1~, UNQCOL+2*, UNQCOL+4 |
| SPEC | GETTST+1~, GETTST+7*, GETTST+9, GETTST+11, GETTST+13, CHKTST+1~ |
| SPEC0 | BLDARY~, BLDARY+6 |
| SSN | VALIDATE+2~ |
| SUBNOACC | CHKTST+2~, CHKTST+8*, CHKTST+14, CHKTST+18*, CHKTST+21 |
| SUBNOCOL | CHKTST+2~, CHKTST+8*, CHKTST+14, CHKTST+19*, CHKTST+21 |
| TEST | CHKTST~, CHKTST+4, CHKTST+5, CHKTST+6, CHKTST+7, CHKTST+12, CHKTST+14, CHKTST+15 |
| TST | POCTSTS+2~, POCTSTS+10*, POCTSTS+11, POCTSTS+12, GETTST~, GETTST+4, GETTST+5, GETTST+9, GETTST+11, GETTST+13 , GETTST+14, PNLTSTS~, PNLTSTS+4, PNLTSTS+7, URGLST+1~, URGLST+2*, URGLST+3, URGLST+5 |
| TSTIEN | VALIDATE~, VALIDATE+8, VALIDATE+19 |
| TSTNM | GETTST+1~, GETTST+4*, GETTST+14 |
| U | GETTST+14, VALIDATE+44, VALIDATE+45, VALIDATE+46, VALIDATE+47, VRET+7, URGLST+5, NOOLST+11, GETCOM+4, BLDARY+3 , BLDARY+4, BLDARY+5, BLDARY+6, BLDARY+7, BLDARY+8, CHKTST+4, CHKTST+5 |
| UNITS | GETTST+1~, GETTST+13*, GETTST+14 |
| USR | POCTSTS~, POCTSTS+7, GUINIT~, GUINIT+1, USRMATCH~, USRMATCH+1 |
| VAL | REFRES~, REFRES+3 |
| WOT | BADPTR+3~, BADPTR+4*, BADPTR+5 |
| X | VALIDATE+34~, VALIDATE+39*, NEWPAT+1~, NEWPAT+2*, REFRES+3*, REFRES+4, REFRES+5, REFRES+6! |
| >> Y | GETTST+2*, VALIDATE+5* |