VPRDOR ;SLC/MKB -- Orders extract ;8/2/11 15:29
Source file <VPRDOR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,IFN) | ; -- find a patient's orders
|
|
| ENQ | ; end
|
|
| EN1(NUM,ORD) | ; -- return an order in ORD("attribute")=value
; from EN: expects ^TMP("ORR",$J,ORLIST,VPRN) |
|
| ENA | ; order [NEW] action info
|
|
| STS(X) | ; -- return VUID for status abbreviation X
|
|
| XML(ORD) | ; -- Return patient data as XML in @VPR@(n)
; as <element code='123' displayName='ABC' /> |
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
|
| ADD(X) | ; Add a line @VPR@(n)=X
|
|
| LABELS(X) | ; -- return string of attribute labels for element X
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | EXTERNAL^DILFD, GET1^DIQ |
| 100.008 | EXTERNAL^DILFD |
