HMPDOR ;SLC/MKB,ASMR/RRB,BL - Orders extract;Aug 17, 2016 11:42:39
Source file <HMPDOR.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,HMPN) |
|
| STS(X) | ; -- return VUID for status abbreviation X
|
|
| XML(ORD) | ; -- Return patient data as XML in @HMP@(n), DE5111, calls in this routine to here disabled
; as <element code='123' displayName='ABC' /> |
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
|
| ADD(X) | ; Add a line @HMP@(n)=X
|
|
| EVNTLOG(ENVNTXT,EVNTYP) | ; log information in HMP EVENT, 10 August 2016
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
