VPRSDAB ;SLC/MKB -- SDA Lab utilities ;4/11/19 21:05
Source file <VPRSDAB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ORDERS | ; -- Return DLIST(#)=order# of Lab orders
; Includes VBECS/BB orders [not in use yet] ; Expects DFN, DSTRT,DSTOP, DMAX |
|
| ONE(ID) | ; -- ID processing for Lab order returns: [not in use yet]
; ORPK = Lab order/data string ; ORDAD = parent order# ; VPRCDT = Lab collection (start) date.time ; VPRVBEC = 1 or 0, if VBECS order ; ORLAB = associated Lab child order#, if VBECS |
|
| VB(ORIFN) | ; -- return 1 or 0, if order is for Blood Bank
|
|
| DG(DG) | ; -- convert DG to section, if needed
; Returns LRSUB = DG abbreviation |
|
| LRDFN(ORIFN) | ; -- set up LRDFN for Lab Order
|
|
| RSLT | ; -- get Entity for LabOrder Result
; Returns VALUE, ENTITY, DATA |
|
| CH(TEST) | ; -- builds DLIST(#) of result nodes for TEST
; called from ResultItems in VPR LRCH RESULT, expects DIEN |
|
| VALRNG(LOW,HIGH) | ; -- Validate that range values will be accepted in SDA format for <ResultNormalRange> post REFRNG execution
|
|
| REFRNG(RLV,RHV) | ; -- format low-high ref range string
|
|
| MI1(D0,D1) | ; -- return MI approval node
|
|
| APRPTS | ; -- Anatomic Pathology reports query [from DDEGET]
; Expects DFN, DSTRT,DSTOP, DMAX, LRDFN ; Return DLIST(#) = IDT,LRDFN~SUB |
|
| MIRPTS | ; -- Microbiology reports query [from DDEGET]
; Expects DFN, DSTRT,DSTOP, DMAX, LRDFN ; Return DLIST(#) = IDT,LRDFN~SUB |
|
| AP1(ID) | ; -- parse ID='IDT,LRDFN~SUB' for AP,MI report
; Returns DIFN, LRSUB, updated ID, LR0=^LR(LRDFN,SUB,IDT,0) ; and LR1=^LR(LRDFN,"MI",IDT,#) report approval if MI |
|
| RR | ; -- returns addl reports for order in DLIST(#) = IDT;SUB or IEN;TIU
; Expects DFN, ORPK, LRDFN |
|
| LRTIU(IDT,SUB) | ; -- return TIU ien of lab report
|
|
| RPT(SUB,IDT) | ; -- return report text in WP(), expects DFN
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| ^TIU(8925 - [#8925] | GET1^DIQ |
| ^DIC(9.4 - [#9.4] | FIND1^DIC |
