Routine: HMPACT

Information

HMPACT ;ASMR/EJK/PB/JD - Patient Appointment Broker Call;May 15, 2016 14:15

Package	Total	Call Graph
VA FileMan	2	($$FIND1,LIST)^DIC ^DIE
Enterprise Health Management Platform	1	CLINLOC^HMPXGSD
Kernel	1	$$HTFM^XLFDT
Registration	1	(INP,KVA,KVAR)^VADPT
Scheduling	1	$$SDAPI^SDAMA301

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Enterprise Health Management Platform	3	HMP PATIENT ACTIVITY HMP PATIENT ADMIT SYNC HMP PATIENT SCHED SYNC

Entry Points

Name	Comments	DBIA/ICR reference
ACT(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE)	;
FETCH	;GET PENDING JSON MESSAGES AND UPDATE DATE RECORD RETRIEVED
CLEAN	;CLEAN UP STRAY VARIABLES
SETITEM(ROOT,X)	; -- set item in list - RRB US5872
APPT(HMPOUT,BEG,END,LOCIEN)	; Lookup appointments by date and location
LOCLKUP	; Gets all appointments for all clinics in the LOC(D1) array
SCHED(LOCIEN,BEG,END)	; ; Get list of patients and appointment dates from the ; using $$SDAPI^SDAMA301 api. ; Inputs are SDARRAY(1)=BEG;END - Beginning and ending dates for the search. ; BEG must be defined. ; END ending date for the search. If END is undefined, the API returns all appointments starting with the BEG date. ; BEG and END are FileMan Date/Time. Both BEG and END are validated in the calling linetag APPT^HMPACT ; LOCIEN = IEN for the location in the Hospital Location file (#44). LOCIEN is validated in the calling linetag APPT^HMPACT ; ; Feb 24, 2016 - PB - DE2991 requested that all patients be returned. Prior to DE2991, if a patient was in the HMP Subscription file (#800000) ; they were excluded from the return data.
ENDAPPT	;
ADMIT(HMPOUT,LOCIEN)	; Lookup admissions by location
ENDADMIT	;
GETADMIT(DFN)	;

External References

Name	Field # of Occurrence
$$FIND1^DIC	ADMIT+32
LIST^DIC	ADMIT+22
^DIE	FETCH+6
CLINLOC^HMPXGSD	APPT+32
$$SDAPI^SDAMA301	SCHED+14
INP^VADPT	GETADMIT+4
KVA^VADPT	GETADMIT+12
KVAR^VADPT	GETADMIT+12
$$HTFM^XLFDT	APPT+20, APPT+23

RPC Name	Call Tags
HMP PATIENT ACTIVITY	ACT
HMP PATIENT SCHED SYNC	APPT
HMP PATIENT ADMIT SYNC	ADMIT

FileNo	Call Tags
^DIC(42 - [#42]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HMP(800001.5	ACT+5, FETCH+2, FETCH+3, FETCH+4
^TMP("DILIST"	ADMIT+21!, ADMIT+27, ADMIT+28
^TMP("HMPADMIT"	ADMIT+15!, ADMIT+16, ENDADMIT+2, GETADMIT+10*
^TMP("ORDATA"	ACT+4!
^TMP($J	APPT+27!, APPT+28, SCHED+11!, SCHED+16, SCHED+17, SCHED+18*, SCHED+19!, ENDAPPT+2

Label References

Name	Line Occurrences
CLEAN	ACT+8
ENDAPPT	APPT+29, LOCLKUP+6
FETCH	ACT+7
GETADMIT	ADMIT+35
SCHED	APPT+29, LOCLKUP+5
SETITEM	FETCH+1, FETCH+5, FETCH+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMIT	GETADMIT+1~, GETADMIT+7*, GETADMIT+9
ALPHA	ACT~
APTDATE	SCHED+16*, SCHED+17, SCHED+18, SCHED+19!
BEG	APPT~, APPT+20, APPT+21, APPT+22, APPT+26, APPT+29, LOCLKUP+5, SCHED~, SCHED+13
DA	FETCH+6*, CLEAN+1!
DFN	ACT~, ACT+1~, ACT+2, APPT+19~, ADMIT+28, ADMIT+35, GETADMIT~, GETADMIT+9, GETADMIT+10
DFROM	ADMIT+14~, ADMIT+18*, ADMIT+22
DIE	ACT+1~, ACT+6*
DIEN	ADMIT+14~, ADMIT+18*, ADMIT+22
DOUT	ADMIT+14~, ADMIT+19*, ADMIT+22
DPART	ADMIT+14~, ADMIT+18*, ADMIT+22
DR	FETCH+6*, CLEAN+1!
DRID	ADMIT+14~, ADMIT+19*, ADMIT+22
DTRANGE	ACT~
END	APPT~, APPT+23, APPT+24, APPT+25, APPT+26, APPT+29, LOCLKUP+5, SCHED~, SCHED+13
ERR	ACT+1~, ACT+2*
ERRMSG	ACT+1~, ACT+2*
FILE	ADMIT+14~, ADMIT+18*, ADMIT+22
FLDS	ADMIT+14~, ADMIT+18*, ADMIT+22
FLG	ADMIT+14~, ADMIT+18*, ADMIT+22
HMPOUT	APPT~, APPT+28, ENDAPPT+2, ENDAPPT+3, ADMIT~, ADMIT+16, ENDADMIT+2, ENDADMIT+3
HMSTOP	ACT+1~, ACT+2, FETCH+2, FETCH+4
ID	ACT~
IEN	ACT+1~, ACT+2, FETCH+2, FETCH+3, FETCH+4, FETCH+6
LOC	APPT+19~, APPT+30!, APPT+32, GETADMIT+1~, GETADMIT+7*, GETADMIT+9, GETADMIT+10
LOC(	LOCLKUP+3, LOCLKUP+4
LOCALE	SCHED+17!*
LOCIEN	APPT~, APPT+29, LOCLKUP+4*, LOCLKUP+5, SCHED~, SCHED+13, SCHED+16, SCHED+17, SCHED+18, ADMIT~ , ADMIT+32
LOCNAME	LOCLKUP+1~, LOCLKUP+4, SCHED+17, SCHED+18, SCHED+19!, GETADMIT+1~, GETADMIT+7*, GETADMIT+9
LRMBD	GETADMIT+1~, GETADMIT+7*, GETADMIT+9
MAX	ACT~, ADMIT+14~, ADMIT+18*, ADMIT+22
OMEGA	ACT~
ORFHIE	ACT~
OVER	APPT+19~
PAT	APPT+19~
PDATA	GETADMIT+1~, GETADMIT+8!, GETADMIT+9*, GETADMIT+10
PIDX	ADMIT+14~, ADMIT+26, ADMIT+27, ADMIT+28
REMOTE	ACT~
REQ	APPT+19~
ROOT	ACT~, ACT+3*, FETCH+1, FETCH+5, FETCH+8, SETITEM~, SETITEM+1
SCRN	ADMIT+14~, ADMIT+19*, ADMIT+22
SCX	APPT+19~, LOCLKUP+2, LOCLKUP+3, LOCLKUP+4
SD	APPT+19~
SDARRAY	SCHED+12!, SCHED+14, SCHED+19!
SDARRAY("FLDS"	SCHED+13*
SDARRAY(1	SCHED+13*
SDARRAY(2	SCHED+13*
SDCNT	SCHED+12!, SCHED+14*, SCHED+19!
SDFN	SCHED+19!
SUBSCRP	ADMIT+14~
U	LOCLKUP+4, SCHED+18, ADMIT+28, GETADMIT+7, GETADMIT+9
VAERR	GETADMIT+1~
VAIN	GETADMIT+1~
VAIN(4	GETADMIT+7
VAIN(5	GETADMIT+7
VAIN(7	GETADMIT+7
WARD	ADMIT+14~, ADMIT+28*, ADMIT+32
X	FETCH+1, FETCH+3, FETCH+4, FETCH+5, FETCH+8, CLEAN+1!, SETITEM~, SETITEM+1
XDFN	SCHED+15!, SCHED+16, SCHED+17, SCHED+18
XREF	ADMIT+14~, ADMIT+18*, ADMIT+22

Customize PDF page

Package: Enterprise Health Management Platform