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* |