Routine: SDWLREB

Information

SDWLREB ;BP/ESW - EWL matched with Canceled and Rebooked Appointment by Clinic ; 11/16/05 1:16pm

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Scheduling	4	$$SDAPI^SDAMA301 $$FORM^SDFORM DATP^SDWLEVAL $$CLIN^SDWLPE
VA FileMan	4	DD^%DT ^DIE $$GET1^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMD

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
Scheduling	3	SDC0 SDCNP1 SDM2

Entry Points

Name	Comments	DBIA/ICR reference
REBOOK(DFN,SD,SC,RBFLG,SDTRB,SDCAN)	; rebook section
DISREB(DFN,SDTRB,SC)	;DISPOSITION REBOOK OR NOT ; DFN - IEN of file #2 (Patient) ; SDTRB - Scheduled Date/Time of Rebooked Appt ; SC - Clinic IEN ; Temporary ^TMP($J,"APPT" will be created with rebooked appt data
OPENEWL(DFN,SDT,SC,SDREB,CEWL)	; SD5.3467 Open EWL entry if closed with appointment being canceled
MESS	; SD5.3467 - send message with a list of opened EWL entries because of canceled appointments
ASKDISP(IEN)	;
SAVE(TYPE,WLTNI,IEN)	;
DISP	;
LIST	;LIST

External References

Name	Field # of Occurrence
DD^%DT	OPENEWL+17
^DIE	OPENEWL+23, OPENEWL+24, OPENEWL+25, OPENEWL+26, OPENEWL+27, OPENEWL+28, OPENEWL+29, DISP+13, DISP+14, DISP+15 , DISP+16, DISP+22
$$GET1^DIQ	OPENEWL+13, OPENEWL+15, OPENEWL+16, OPENEWL+18, OPENEWL+19, ASKDISP+4, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11 , SAVE+7, SAVE+8, LIST+5, LIST+8, LIST+9, LIST+10, LIST+14, LIST+15
^DIR	DISP+7
$$SDAPI^SDAMA301	REBOOK+15, DISREB+11
$$FORM^SDFORM	OPENEWL+20, MESS+6
DATP^SDWLEVAL	DISP+19
$$CLIN^SDWLPE	DISREB+16
$$FMTE^XLFDT	LIST+11
^XMD	MESS+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKDISP+3
Function Call: WRITE	Prompt: !,"EWL Entry has just been opened because of its matching appointment",!,"being canceled.",!! Line Location: DISP+1
Function Call: WRITE	Prompt: "Closing this entry will disposition it: SA - REMOVED/SCHEDULED-ASSIGNED",!,"with Rebooked Appointment.",!! Line Location: DISP+4
Function Call: WRITE	Prompt: ! Line Location: DISP+7
Function Call: WRITE	Prompt: !,"Patient: ",SDPN Line Location: LIST+5
Function Call: WRITE	Prompt: !?2,"Comment: ",SMT Line Location: LIST+14
Function Call: WRITE	Prompt: !?2,"Reopen: ",SMO Line Location: LIST+15
Routine Call	DIE Line Location: OPENEWL+23 OPENEWL+24 OPENEWL+25 OPENEWL+26 OPENEWL+27 OPENEWL+28 OPENEWL+29 DISP+13 DISP+14 DISP+15 DISP+16 DISP+22
Routine Call	DIR Line Location: DISP+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SCTM(404.51 - [#404.51]	GET1^DIQ
^SCTM(404.57 - [#404.57]	GET1^DIQ
^SDWL(409.3 - [#409.3]	Classic Fileman Calls, GET1^DIQ
^SDWL(409.31 - [#409.31]	GET1^DIQ
^SDWL(409.32 - [#409.32]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	OPENEWL+12, OPENEWL+14, ASKDISP+5, DISP+27!, DISP+29!
^TMP("SDWLPL"	OPENEWL+8!, ASKDISP+5*, ASKDISP+6, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11, SAVE+4, SAVE+5, SAVE+6 , SAVE+14!
^TMP("SDWLREB"	OPENEWL+10, OPENEWL+21, OPENEWL+30, MESS+1, MESS+2, MESS+3, MESS+4, MESS+5, MESS+7, MESS+8 , MESS+9*, MESS+15!
^TMP($J	REBOOK+17, REBOOK+18, REBOOK+20!, DISREB+13, DISREB+14!, DISREB+15, DISREB+18, DISREB+19, DISREB+20!, OPENEWL+8! , OPENEWL+31, SAVE+9, SAVE+10, SAVE+13*, DISP+11, DISP+25, DISP+26, DISP+28, LIST+3

Label References

Name	Line Occurrences
ASKDISP	OPENEWL+30
DISP	OPENEWL+32
LIST	DISP+6
SAVE	ASKDISP+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS1	LIST+16!
CEWL	OPENEWL~, OPENEWL+9, OPENEWL+10, OPENEWL+11, OPENEWL+21*
CLINIC	OPENEWL+7~, OPENEWL+15*, OPENEWL+16, LIST+16!, LIST+17!
DA	OPENEWL+22~, OPENEWL+23, DISP+13, DISP+20*
DENTER	ASKDISP+3~, ASKDISP+5*, ASKDISP+7, SAVE+10, LIST+16!
DESIRD	LIST+16!
DESIRED	SAVE+6~*, SAVE+10
DFN	REBOOK~, REBOOK+13, REBOOK+17, REBOOK+18, REBOOK+20, DISREB~, DISREB+9, DISREB+13, DISREB+15, DISREB+20 , OPENEWL~, OPENEWL+12, OPENEWL+19, SAVE+7
DH	OPENEWL+7~
DIE	OPENEWL+22~, OPENEWL+23, DISP+13, DISP+20*
DIR	ASKDISP+3~, DISP+2~
DIR("?"	DISP+5*
DIR("A"	DISP+3*
DIR("B"	DISP+2*
DIR(0	DISP+3*
DR	OPENEWL+22~, OPENEWL+23, OPENEWL+24, OPENEWL+25, OPENEWL+26, OPENEWL+27, OPENEWL+28, OPENEWL+29, DISP+13, DISP+14* , DISP+15, DISP+16, DISP+21*
DT	DISP+21
DUZ	DISP+21
IEN	OPENEWL+7~, OPENEWL+12, OPENEWL+13, OPENEWL+14, OPENEWL+15, OPENEWL+16, OPENEWL+23, OPENEWL+30, ASKDISP~, ASKDISP+4 , ASKDISP+5, ASKDISP+6, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11, ASKDISP+13, SAVE~, SAVE+4, SAVE+5 , SAVE+6, SAVE+8, SAVE+10, SAVE+14, LIST+4, LIST+5, LIST+8, LIST+9, LIST+14, LIST+15
INST	SAVE+5*, SAVE+10, LIST+16!
NAME	SAVE+7~*
NN	SAVE+9*, SAVE+10, SAVE+13, LIST+16!
NUM	ASKDISP+6, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11, DISP+10~, DISP+11, LIST+2, LIST+3, LIST+11 , LIST+17!
RBFLG	REBOOK~, REBOOK+10, REBOOK+21
REC	DISP+11, DISP+12, LIST+2, LIST+3*, LIST+4, LIST+10, LIST+11, LIST+17!
REQBY	SAVE+4*, LIST+16!
SAPP	REBOOK+15~, DISREB+11~
SC	REBOOK~, REBOOK+12, REBOOK+18, REBOOK+20, DISREB~, DISREB+8, DISREB+15, DISREB+16, DISREB+20, OPENEWL~ , OPENEWL+16, OPENEWL+18
SCN	OPENEWL+7~, OPENEWL+18*, OPENEWL+20
SCNT	REBOOK+9~, DISREB+5~, DISREB+14*, DISREB+15, DISREB+18, DISREB+19
SCODE	LIST+16!
SCPRI	LIST+16!
SD	REBOOK~, REBOOK+11, REBOOK+18, REBOOK+20
SDA	DISP+19~, DISP+20
SDA(1	DISP+21
SDA(13	DISP+21
SDA(14	DISP+21
SDA(15	DISP+21
SDA(16	DISP+21
SDA(2	DISP+21
SDA(3	DISP+21
SDAPPT	OPENEWL+7~, OPENEWL+17*, OPENEWL+20
SDARR	REBOOK+9~, REBOOK+15, DISREB+5~, DISREB+11
SDARR("FLDS"	REBOOK+14, DISREB+10
SDARR(1	REBOOK+11, DISREB+7
SDARR(2	REBOOK+12, DISREB+8
SDARR(4	REBOOK+13, DISREB+9
SDBY	SAVE+8~*, SAVE+10
SDC	DISP+23~, DISP+24*, DISP+25, DISP+26
SDCAN	REBOOK~, REBOOK+10, REBOOK+23
SDDIS	ASKDISP+2~, DISP+8~, DISP+11
SDDIV	DISREB+5~, DISREB+6*
SDFAC	REBOOK+16~, DISREB+12~, DISREB+17*, DISREB+19
SDFORM	OPENEWL+20, OPENEWL+21, MESS+6~, MESS+7
SDIN	LIST+10~*, LIST+11
SDINS	LIST+10~*
SDINST	REBOOK+16~, DISREB+12~, DISREB+17*, DISREB+18
SDINSTE	REBOOK+16~, DISREB+12~, DISREB+17*, DISREB+18
SDLO	LIST+12~, LIST+13*, LIST+14, LIST+15
SDNAM	OPENEWL+7~, OPENEWL+19*, OPENEWL+20
SDP	DISP+12~, LIST+4~, LIST+8*, LIST+11
SDPN	LIST+2~, LIST+5*
SDR	DISP+12~, LIST+4~, LIST+9*, LIST+11
SDREB	OPENEWL~, OPENEWL+30, OPENEWL+32
SDSTAT	REBOOK+19~*, REBOOK+21
SDSTR	REBOOK+18~*, REBOOK+19, REBOOK+22, REBOOK+23
SDT	OPENEWL~, OPENEWL+16
SDTRB	REBOOK~, REBOOK+10, REBOOK+22, DISREB~, DISREB+7, DISREB+15, DISREB+20
SDUP	LIST+12~, LIST+13*, LIST+14, LIST+15
SDWLDA	DISP+10~, DISP+12*, DISP+13, DISP+20, DISP+27, DISP+29
SDWLDFN	DISP+10~, DISP+28*, DISP+29
SDWLDISP	DISP+10~, DISP+11*, DISP+19
SDWLSCL	DISP+23~, DISP+25*, DISP+27
SDWLSS	DISP+23~, DISP+26*, DISP+29
SFAC	DISREB+16~*, DISREB+17
SMO	LIST+15~*
SMT	LIST+14~*
SPIEC	SAVE+12~*, SAVE+13
SSN	OPENEWL+7~, OPENEWL+19, OPENEWL+20, SAVE+7~
STATUS	OPENEWL+7~, OPENEWL+13*
TYPE	ASKDISP+6*, ASKDISP+7, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11, ASKDISP+13, SAVE~, SAVE+12, LIST+17!
U	REBOOK+19, REBOOK+22, REBOOK+23, DISREB+17, SAVE+10, SAVE+13, DISP+25, DISP+26, DISP+28, LIST+11
WLAPPT	OPENEWL+7~, OPENEWL+15*, OPENEWL+16, OPENEWL+17
WLSTAT	OPENEWL+7~, OPENEWL+16*
WLTN	ASKDISP+6, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11*, SAVE+10, LIST+17!
WLTNI	ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11, ASKDISP+13, SAVE~, SAVE+13
WLTYPE	ASKDISP+6, ASKDISP+8, ASKDISP+9, ASKDISP+10, ASKDISP+11*, SAVE+10, LIST+17!
X	ASKDISP+3~
XMDUZ	MESS+10~, MESS+14*
XMSUB	MESS+10~, MESS+11*
XMTEXT	MESS+10~, MESS+13*
XMY	MESS+10~
XMY("G.SD EWL	BACKGROUND UPDATE" , MESS+12*
Y	OPENEWL+17~*, DISP+8

Customize PDF page

Package: Scheduling