Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 4 GET^DGENA  $$GETACT^DGPFAPI  $$BADADR^DGUTL3  ELIG^VADPT  
VA Point of Service 3 $$GETIEN^VPSAPPT  SENLOG^VPSRPC16  (BAL,DGS,IBB)^VPSRPC26  
VA FileMan 2 UPDATE^DIE  ($$GET1,GETS)^DIQ  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA Point of Service 4 VPS GET APPOINTMENTS  VPSAPPT  VPSAPPT2  VPSSEND  

Entry Points

Name Comments DBIA/ICR reference
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
ADDQUEUE(QUEUEID,FROM,THROUGH) ; create queue entry
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
; FROM : Appointment From Date
; THROUGH : Appointment Through Date
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
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
POPAPPTS(VPSFRDT,VPSTODT) ; populate ^TMP($J,"SDAMA301") using supported API given appointment from - through date
; INPUT
; VPSFRDT : Appointment From Date
; VPSTODT : Appointment Through Date
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.
GETNARR(PRF,REC) ; Get ASSIGNMENT NARRATIVE (word-processing)
CMPAPPTS(QUEUEID) ; stored appointments in the vps appointment queue file and result array
; INPUT
; QUEUEID : Unique Queue ID represents Vecna Appointment Queue.
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
GETPRF(DFN,PRFLAGS) ;populate PRFLAGS with patient record flags and narrative
ADDERR(MSG) ;add error message to result array

External References

Name Field # of Occurrence
GET^DGENA GETAPPT+64
$$GETACT^DGPFAPI GETPRF+4
$$BADADR^DGUTL3 GETAPPT+42
UPDATE^DIE ADDQUEUE+12, ADDAPPT+17
$$GET1^DIQ GETAPPT+67
GETS^DIQ GETAPPT+19, GETAPPT+32
$$SDAPI^SDAMA301 POPAPPTS+8
ELIG^VADPT GETAPPT+77
$$GETIEN^VPSAPPT ADDTMP+12
SENLOG^VPSRPC16 GETAPPT+52
BAL^VPSRPC26 GETAPPT+57
DGS^VPSRPC26 GETAPPT+72
IBB^VPSRPC26 GETAPPT+93

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGEN(27.11 - [#27.11] GETAPPT+62
^DPT - [#2] CMPAPPTS+8
^TMP("VPSAPPT" GET+37, ADDERR+1*, ADDTMP+8, SAVTMP+1, SAVTMP+2*
^TMP($J GET+41!, GET+48!, CMPAPPTS+6, CMPAPPTS+8, CMPAPPTS+10, CMPAPPTS+11
^VPS(853.9 - [#853.9] ADDQUEUE+6!, GETIEN+10

Label References

Name Line Occurrences
$$ADDAPPT CMPAPPTS+13
$$ADDQUEUE GET+43
$$POPAPPTS GET+45
ADDERR GET+38, GET+39, GET+40, ADDQUEUE+14
ADDTMP CMPAPPTS+14
CMPAPPTS GET+46
GETAPPT CMPAPPTS+12
GETPRF GETAPPT+23
SAVTMP ADDTMP+13, ADDTMP+17, ADDTMP+24, ADDTMP+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPT CMPAPPTS+4~, CMPAPPTS+12, CMPAPPTS+13, CMPAPPTS+14, GETAPPT~, GETAPPT+10!, GETAPPT+23, ADDAPPT~, ADDTMP~
APPT( ADDTMP+17
APPT("APPT CO MMENTS" , GETAPPT+33*
APPT("APPT DA TE/TIME" , GETAPPT+10*, GETAPPT+31, ADDAPPT+13, ADDTMP+10
APPT("APPT ST ATUS IEN" , GETAPPT+37*, ATUS NAME" , GETAPPT+38*
APPT("APPT TY PE IEN" , GETAPPT+27*, ADDAPPT+15, PE NAME" , GETAPPT+28*
APPT("BAD ADD RESS INDICATOR" , GETAPPT+48*, RESS NAME" , GETAPPT+49*
APPT("BALANCE" GETAPPT+59*
APPT("CLINIC IEN" , GETAPPT+13*, ADDAPPT+12, ADDTMP+9, NAME" , GETAPPT+14*
APPT("DFN" GETAPPT+17*, GETAPPT+19, GETAPPT+23, GETAPPT+31, ADDAPPT+14, ADDTMP+11
APPT("DISPLAY ED APPT STATUS" , GETAPPT+39*, ADDAPPT+16
APPT("ELIGIBI LITY STATUS NAME" , GETAPPT+82*, LITY STATUS" , GETAPPT+80*
APPT("EMAIL" GETAPPT+21*
APPT("ENROLLM ENT STATUS NAME" , GETAPPT+69*, ENT STATUS" , GETAPPT+68*
APPT("INELIGI BLE DATE" , GETAPPT+86*
APPT("INSURANCE" GETAPPT+96*
APPT("MEANS T EST STATUS" , GETAPPT+90*
APPT("PATIENT NAME" , GETAPPT+18*
APPT("PRE-REG ISTRATION DATE CHANGED" , GETAPPT+74*
APPT("PRF" ADDTMP+22, ADDTMP+23, ADDTMP+24
APPT("PRF.NARR" ADDTMP+25, ADDTMP+26
APPT("SENSITIVE" GETAPPT+54*
APPT("SSN" GETAPPT+20*
APPTCNT GET+45~*, GET+46
APPTDT CMPAPPTS+4~, CMPAPPTS+9*, CMPAPPTS+10*, CMPAPPTS+11, ADDTMP+10~*, ADDTMP+12, GETIEN~, GETIEN+9, GETIEN+10
APPTIEN ADDTMP+12~*, ADDTMP+13, ADDTMP+17, ADDTMP+24, ADDTMP+26, SAVTMP~, SAVTMP+2, GETIEN+10~*, GETIEN+11
APPTINFO CMPAPPTS+4~, CMPAPPTS+11*, CMPAPPTS+12, GETAPPT~, GETAPPT+10, GETAPPT+13, GETAPPT+14, GETAPPT+17, GETAPPT+18, GETAPPT+26
, GETAPPT+36
APPTOUT GETAPPT+32~
APPTOUT( GETAPPT+33
APPTYP GETAPPT+26~*, GETAPPT+27, GETAPPT+28
BADADR GETAPPT+42~*, GETAPPT+43, GETAPPT+45, GETAPPT+46, GETAPPT+47, GETAPPT+48
BADADRNM GETAPPT+44~*, GETAPPT+45*, GETAPPT+46*, GETAPPT+47*, GETAPPT+49
BAL GETAPPT+58~*, GETAPPT+59
CLIEN CMPAPPTS+5~*, CMPAPPTS+6*, CMPAPPTS+8, CMPAPPTS+10, CMPAPPTS+11, ADDTMP+9~*, ADDTMP+12, GETIEN~, GETIEN+9, GETIEN+10
CNT ADDTMP+21~*, ADDTMP+25*, ADDTMP+26
DATA SAVTMP~, SAVTMP+2
DFENR GETAPPT+64~
DFN CMPAPPTS+7~*, CMPAPPTS+8*, CMPAPPTS+10, CMPAPPTS+11, GETAPPT+20, GETAPPT+21, GETAPPT+42, GETAPPT+52, GETAPPT+57, GETAPPT+62
, GETAPPT+72, GETAPPT+93, GETPRF~, GETPRF+4, ADDTMP+11~*, ADDTMP+12, GETIEN~, GETIEN+9, GETIEN+10
DGARRAY POPAPPTS+5~, POPAPPTS+8
DGARRAY("FLDS" POPAPPTS+7*
DGARRAY(1 POPAPPTS+6*
>> DGENR GETAPPT+64
>> DGENR("STATUS" GETAPPT+65
DIERR ADDQUEUE+13, ADDQUEUE+15!, ADDAPPT+11~, ADDAPPT+18, ADDAPPT+19!
ELIGSTAT GETAPPT+78~*, GETAPPT+79, GETAPPT+80, GETAPPT+81*, GETAPPT+82
ENRIEN GETAPPT+62~*, GETAPPT+63, GETAPPT+64, GETAPPT+67
ENRSTAT GETAPPT+65~*, GETAPPT+66, GETAPPT+68
ESNAME GETAPPT+67~*, GETAPPT+69
FLAG GETPRF+5~
FLAGFROM GETPRF+5~, GETPRF+11*, GETPRF+14*, GETPRF+17
FLAGINFO GETPRF+5~
FLAGNAME GETPRF+5~, GETPRF+16*, GETPRF+19
FLAGTYPE GETPRF+5~, GETPRF+9*, GETPRF+12, GETPRF+15*, GETPRF+18
FLD ADDTMP+16~*, ADDTMP+17*, ADDTMP+23*, ADDTMP+24, SAVTMP~, SAVTMP+2
FROM ADDQUEUE~, ADDQUEUE+10
IELIGDT GETAPPT+85~*, GETAPPT+86
IENS ADDQUEUE+7~, ADDQUEUE+15!, GETAPPT+31~*, GETAPPT+32, GETAPPT+33
IENS(1 ADDQUEUE+8*
INS GETAPPT+94~*, GETAPPT+95*, GETAPPT+96
LAST SAVTMP+1~*, SAVTMP+2
MSG ADDERR~, ADDERR+1
MTS GETAPPT+89~*, GETAPPT+90
NARR GETPRF+5~, GETNARR+1~*, GETNARR+5*, GETNARR+6*, GETNARR+7
NARRCNT GETNARR+2~*, GETNARR+3*, GETNARR+4
NPRF GETPRF+4~*, GETPRF+7
OK GET+43~*, GET+44, ADDQUEUE+13~*, ADDQUEUE+14, ADDQUEUE+16
PRDT GETAPPT+73~*, GETAPPT+74
PRF GETPRF+4~, GETPRF+7*, GETPRF+9, GETPRF+10, GETPRF+16, GETPRF+17, GETPRF+18, GETPRF+19, GETPRF+20, GETNARR~
, GETNARR+3, GETNARR+4
PRFFIL GETPRF+5~, GETPRF+13*, GETPRF+14, GETPRF+15
PRFLAG GETPRF+5~, GETPRF+10*, GETPRF+12, GETPRF+13
PRFLAGS GETPRF~
PRFLAGS("PRF" GETPRF+17*, GETPRF+18*, GETPRF+19*
PRFLAGS("PRF.NARR" GETPRF+20*
QUEUEID ADDQUEUE~, ADDQUEUE+6, ADDQUEUE+8, ADDQUEUE+9, CMPAPPTS~, CMPAPPTS+13, CMPAPPTS+14, ADDAPPT~, ADDAPPT+12, ADDAPPT+13
, ADDAPPT+14, ADDAPPT+15, ADDAPPT+16, ADDTMP~, ADDTMP+12, GETIEN~, GETIEN+9, GETIEN+10
REC GETPRF+4~, GETNARR~
REC( GETPRF+9, GETPRF+10, GETPRF+16, GETPRF+20, GETNARR+3, GETNARR+4
RES GETAPPT+19~
RES(2 GETAPPT+20, GETAPPT+21
SENS GETAPPT+53~*, GETAPPT+54
SEQ ADDTMP+8~*, ADDTMP+20~*, ADDTMP+22*, ADDTMP+23, ADDTMP+24, ADDTMP+25, ADDTMP+26, SAVTMP~, SAVTMP+2
STATUS GETAPPT+36~*, GETAPPT+37, GETAPPT+38, GETAPPT+39
THROUGH ADDQUEUE~, ADDQUEUE+11
TODO CMPAPPTS+13~*, CMPAPPTS+14, ADDAPPT+10~*, ADDAPPT+18*, ADDAPPT+20, ADDTMP~, ADDTMP+13, ADDTMP+17, ADDTMP+24, ADDTMP+26
, SAVTMP~, SAVTMP+2
U ADDQUEUE+14, GETAPPT+10, GETAPPT+13, GETAPPT+14, GETAPPT+17, GETAPPT+18, GETAPPT+26, GETAPPT+36, GETAPPT+53, GETAPPT+58
, GETAPPT+73, GETAPPT+78, GETAPPT+81, GETAPPT+85, GETAPPT+89, GETAPPT+94, GETPRF+9, GETPRF+10, GETPRF+16, GETNARR+5
, GETNARR+6, ADDAPPT+18, ADDTMP+13, SAVTMP+2
VAEL GETAPPT+77~
VAEL(5 GETAPPT+85
VAEL(8 GETAPPT+78, GETAPPT+81
VAEL(9 GETAPPT+89
VAL GETNARR+1~, GETNARR+4*, GETNARR+5
VPSAPPT GET~, GET+37*
VPSARR GETAPPT+52~, GETAPPT+57!, GETAPPT+72!, GETAPPT+93!
VPSARR(1 GETAPPT+53, GETAPPT+58, GETAPPT+73, GETAPPT+94
VPSERR ADDQUEUE+7~, ADDQUEUE+15!, ADDAPPT+11~, ADDAPPT+19!
VPSERR("DIERR" ADDQUEUE+14, ADDAPPT+18
VPSFDA ADDQUEUE+7~, ADDQUEUE+15!, ADDAPPT+11~, ADDAPPT+19!
VPSFDA( ADDQUEUE+9*, ADDQUEUE+10*, ADDQUEUE+11*, ADDAPPT+12*, ADDAPPT+13*, ADDAPPT+14*, ADDAPPT+15*, ADDAPPT+16*
VPSFRDT GET~, GET+39, GET+43, GET+45, POPAPPTS~, POPAPPTS+6
VPSQUEUE GET~, GET+38, GET+43, GET+46
VPSTODT GET~, GET+40, GET+43, GET+45, POPAPPTS~, POPAPPTS+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All