VPRDMC ;SLC/MKB -- Clinical Procedures (Medicine) ;3/14/12 09:03
Source file <VPRDMC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,ID) | ; -- find patient's procedures
|
|
| A | ||
| B | ||
| C | ||
| ENQ | ;
|
|
| ROOT(DFN,NAME,DATE) | ; -- return vptr ID for procedure instance
|
|
| CPT(IEN) | ; -- return code^description for CPT code, or "^" if error
|
|
| RPTS(DFN,BEG,END,MAX) | ; -- find patient's medicine reports
|
|
| RPT1(DFN,ID,RPT) | ; -- return report as a TIU document
|
|
| TEXT(DFN,ID,NAME) | ; -- Get report text, return temp array name
|
|
| XML(PROC) | ; -- Return patient procedure as XML
; as <element code='123' displayName='ABC' /> |
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
|
| ADD(X) | ; Add a line @VPR@(n)=X
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | EXTERNAL^DILFD |
