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 |