Routine: VPSAPPT

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

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

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

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

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

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

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

Customize PDF page

Package: VA Point of Service

Routine: VPSAPPT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: