Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VPSAPPT

Package: VA Point of Service

Routine: VPSAPPT


Information

VPSAPPT ;SLOIFO/BT - VPS Appointment RPC;1/16/15 11:55

Source Information

Source file <VPSAPPT.m>

Entry Points

Name Comments DBIA/ICR reference
GET(VPSAPPT,VPSQUEUE,VPSFRDT,VPSTODT) ; VPS GET APPOINTMENTS
; This RPC returns all appointments for a given appointment date range.
; Those appointments will also be stored in VPS Appointment queue (File 853.9).
; This queue is used by GETCHG^VPSAPPT2 to filter out the non-change appontments during retrieval.
ADDERR(MSG) ;add error message to result array
ADDQUEUE(QUEUEID,FROM,THROUGH) ; create queue entry
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
; FROM : Appointment From Date
; THROUGH : Appointment Through Date
POPAPPTS(VPSFRDT,VPSTODT) ; populate ^TMP($J,"SDAMA301") using supported API given appointment from - through date
; INPUT
; VPSFRDT : Appointment From Date
; VPSTODT : Appointment Through Date
CMPAPPTS(QUEUEID) ; stored appointments in the vps appointment queue file and result array
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
GETAPPT(APPT,APPTINFO) ; return the required appointment information
; INPUT
; APPTINFO : Appointment Information returned by $$SDAPI^SDAMA301 containing clinic, patient, appt date, and appointment status
; OUTPUT
; APPT : Array by Reference - Extended appointment information for Vecna to display in the queue
; APPT(FLD) = VALUE
; APPT("PRF",PRF) = FLAG INDICATOR^FLAG TYPE^FLAG NAME^FLAG NARRATIVE (1..n)
; RETURN
GETPRF(DFN,PRFLAGS) ;populate PRFLAGS with patient record flags and narrative
GETNARR(PRF,REC) ; Get ASSIGNMENT NARRATIVE (word-processing)
ADDAPPT(QUEUEID,APPT) ; add appointment to sub file 853.91
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
; APPT(FLD): Array contains value of FIELD
; CLINIC IEN, APPT DATE, DFN, APPT TYPE, DISPLAY APPT STATUS
; All Values are required
; RETURN
; TODO : ADD <-- successfully add the appointment
; : ERR^ERRORMESSAGE <-- failed adding the appointment with ERROR MESSAGE
ADDTMP(TODO,QUEUEID,APPT) ; add appointment to result array
; INPUT
; TODO : Instruction to vecna what todo with the appointment (ADD or ERR)
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
; APPT(FLD) : Array contains value of FLD
; APPT("PRF",PRF): RECORD FLAG
; : FLAG ORIGINATION (NATIONAL/LOCAL)^FLAG TYPE^FLAG NAME^FLAG NARRATIVE (1..n)
SAVTMP(TODO,APPTIEN,SEQ,FLD,DATA) ;save data to result global array
GETIEN(QUEUEID,CLIEN,APPTDT,DFN) ; return the IEN for sub file 853.91 record
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
; CLIEN : Clinic IEN
; APPTDT : Appointment Date
; DFN : Patient IEN
; RETURN
; APPOINTMENT IEN in the queue

Used in RPC

RPC Name Call Tags
VPS GET APPOINTMENTS GET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
2.98 GETS^DIQ
^DGEN(27.11 - [#27.11] GET1^DIQ
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call