VPRDPS ;SLC/MKB -- Pharmacy extract ;8/2/11 15:29
Source file <VPRDPS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,ORIFN) | ; -- find patient's meds
|
|
| MATCH() | ; -- Return 1 or 0, if order matches FILTER criteria
|
|
| SUPPLY(ORDER) | ; -- Return 1 or 0, if ORDER is for a supply item
|
|
| NDF(DRUG,VPI,ORD) | ; -- Set NDF data for dispense DRUG ien
|
|
| VUID(ORDER) | ; -- return VUID for VA Product in ORDER
|
|
| XML(MED) | ; -- Return patient meds as XML
|
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
|
| ADD(X) | ; Add a line @VPR@(n)=X
|
