VPSAPPT ;SLOIFO/BT - VPS Appointment RPC;1/16/15 11:55
Source file <VPSAPPT.m>
| 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 |
| RPC Name | Call Tags |
|---|---|
| VPS GET APPOINTMENTS | GET |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| 2.98 | GETS^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
