VPRDSDAM ;SLC/MKB -- Appointment extract ;8/2/11 15:29
Source file <VPRDSDAM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,ID) | ; -- find patient's [future] appointments
|
|
| A | ; get one appt
|
|
| B | ; get all [future] appointments
|
|
| C | ; get scheduled admissions
|
|
| EN1(DATE,APPT) | ; -- return an appointment in APPT("attribute")=value
; Expects ^TMP($J,"SDAMA301",DFN,DATE) |
|
| SERV(FTS) | ; -- Return #42.4 Service for a Facility Treating Specialty
|
|
| DGS(IFN,ADM) | ; -- return a scheduled admission in ADM("attribute")=value
|
|
| DGIEN(DATE) | ; -- find #41.1 ien for DFN and DATE
|
|
| XML(APPT) | ; -- Return appointment as XML
|
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
|
| ADD(X) | ; -- Add a line @VPR@(n)=X
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ, GETS^DIQ |
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
