Routine: SDWLEVAL

Information

SDWLEVAL ;;IOFO BAY PINES/ESW - WAIT LIST - DISPOSITION AFTER APPOINTMENT(S) ENTRY;12/11/08 5:11pm ; Compiled March 6, 2009 11:11:50

Source Information

Source file <SDWLEVAL.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	^DIE ($$GET1,D)^DIQ ^DIR
Scheduling	2	$$SDAPI^SDAMA301 $$CLIN^SDWLBACC

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Scheduling	7	SDAM2 SDCO1 SDM1A SDMM SDMM1 SDWLDISP SDWLREB

Entry Points

Name	Comments	DBIA/ICR reference
DATP(SCNT,SDA)	;	ICR #6417 Status: Active Usage: Controlled Subscription
GETDATA(SDWLDA)	;retrieval data
EDITSA
DISEND(SDWLDA,SDC)	;display and disposition
EWLANS(SDCONT)	;display EWL OPEN entries
DPH(SCNT,SDD)	;display appt header
APPTD	;display appt
APPT(DFN,SD,SC)	;create appt TMP
ANSW(SDDIS,SDR)	;
ASKREM	;prompt user for record for dispositioning
DPHD(SCNT,SDD)	;
DISPO(SDWLDA,SDC,SDR)	;
EN(DFN,SDYN)	;evaluation if patient is on EWL ; SDYN passed by reference
EDIT(SDWLDA,SDC,SDWLERR)	;ENTER/EDIT DISPOSITION
HD	;HEADER

Name	Field # of Occurrence
^DIE	EDITSA+8, EDITSA+9, EDITSA+10, EDITSA+11, EDITSA+17, DISPO+19, DISPO+21, DISPO+22, DISPO+23
$$GET1^DIQ	APPTD+12
D^DIQ	APPTD+7
^DIR	EWLANS+7, ASKREM+6, ANSW+11, EDITSA+6, DISPO+12, DISPO+18
$$SDAPI^SDAMA301	APPT+9
$$CLIN^SDWLBACC	APPT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKREM+2
Function Call: WRITE	Prompt: ! Line Location: ANSW+4
Function Call: WRITE	Prompt: " YOU CANNOT EXIT HERE" Line Location: ANSW+12
Function Call: WRITE	Prompt: !,"Another User is Editing this Entry. Try Later." Line Location: ANSW+17
Function Call: WRITE	Prompt: !,"Another User is Editing this Entry. Try Later." Line Location: ANSW+30
Function Call: WRITE	Prompt: !!,"* Patient has been removed from Wait List *",! Line Location: DISEND+3
Function Call: WRITE	Prompt: !,"Disposition canceled by user",! Line Location: EDITSA+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+1
Function Call: WRITE	Prompt: !!,?80-$L("Wait List - Disposition Patient")\2,"Wait List - Disposition Patient",!! Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: APPTD+16
Function Call: WRITE	Prompt: !!,"Appointment(s) for: "_SDD(4) Line Location: DPH+1
Function Call: WRITE	Prompt: !!?4,"Specialty: "_SDD(13),?60,"Station: ",SDD(16),! Line Location: DPH+1
Function Call: WRITE	Prompt: !?3,"Appt Date/Time",?23,"Clinic",?48,"Status",?60,"Institution",! Line Location: DPH+2
Function Call: WRITE	Prompt: SDL,! Line Location: DPH+2
Function Call: WRITE	Prompt: !,SCNT,?3,SDD(1),?23,$E(SDD(2),1,23),?48,$E(SDD(10),1,10),?60,SDD(15) Line Location: DPHD+1
Routine Call	DIE Line Location: EDITSA+8 EDITSA+9 EDITSA+10 EDITSA+11 EDITSA+17 DISPO+19 DISPO+21 DISPO+22 DISPO+23
Routine Call	DIR Line Location: EWLANS+7 ASKREM+6 ANSW+11 EDITSA+6 DISPO+12 DISPO+18

FileNo	Call Tags
^DIC(40.7 - [#40.7]	GET1^DIQ
^SDWL(409.3 - [#409.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN+6, EN+7, EN+8, ANSW+17, ANSW+30, GETDATA+2, GETDATA+7, EDITSA+21!, EDITSA+23!
^SDWL(409.32 - [#409.32]	GETDATA+6
^TMP($J	ANSW+5, ANSW+15, ANSW+24, ANSW+25!, ANSW+26, ANSW+28, DISEND+4!, EDITSA+1, EDITSA+2, EDITSA+4 , EDITSA+19, EDITSA+20, EDITSA+22, DISPO+25!, APPT+11, APPT+12, APPT+13, APPT+15, APPT+16*, APPT+17! , APPTD+3, APPTD+4, APPTD+5, DATP+2

Name	Line Occurrences
ANSW	ASKREM+8
APPTD	EDITSA+2
DATP	EDITSA+14
DISEND	ANSW+19, ANSW+32
DISPO	ANSW+18, ANSW+31
DPH	APPTD+14
DPHD	APPTD+15
EDIT	DISEND+2
EDITSA	EDIT+4
GETDATA	ANSW+19, ANSW+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CP	APPTD+10~
CP(	APPTD+10*, APPTD+12
DA	EDITSA+8, EDITSA+15, DISPO+19, DISPO+20~
DFN	EN~, EN+5, EN+6, EN+7, APPT~, APPT+7, APPT+11, APPT+13, APPT+17
DIC	DISEND+5!
DIE	DISEND+5!, EDITSA+8, EDITSA+15, DISPO+19, DISPO+21, DISPO+24!
DIR	EWLANS+3~, ASKREM+2~, ANSW+3~, DISEND+5!, EDITSA+3!, DISPO+6!, DISPO+24!
DIR("?"	EWLANS+6, ASKREM+5, ANSW+9, EDITSA+5
DIR("A"	EWLANS+5, ASKREM+4, ANSW+8, ANSW+10, EDITSA+5, DISPO+11, DISPO+18*
DIR("B"	EWLANS+4, ASKREM+3, EDITSA+4*
DIR("L"	DISPO+8, DISPO+9, DISPO+10*
DIR("L,6"	DISPO+10*
DIR(0	EWLANS+5, ASKREM+4, ANSW+8, EDITSA+5, DISPO+7, DISPO+18
DR	DISEND+5!, EDITSA+8, EDITSA+9, EDITSA+10, EDITSA+11, EDITSA+16, DISPO+19, DISPO+21, DISPO+22, DISPO+23* , DISPO+24!
DT	GETDATA+5, EDITSA+16, APPTD+8
DUOUT	DISEND+2~
DUZ	GETDATA+5, EDIT+4, EDITSA+16
FF	ANSW+28~*
GG	ANSW+28~*
IOF	HD+1
>> REC	ANSW+21
SAPP	APPT+9~*
SC	APPT~, APPT+6, APPT+13, APPT+14, APPT+17
SCNT	APPT+3~, APPT+12, APPT+13, APPT+15, APPT+16, APPTD+2~, APPTD+4, APPTD+5, APPTD+14, APPTD+15 , DATP~, DATP+2, DPH~, DPHD~, DPHD+1
SD	APPT~, APPT+5, APPT+13, APPT+17, APPTD+7~*, APPTD+8
SDA	EDITSA+4~*, EDITSA+5, EDITSA+14~, EDITSA+15, DATP~
SDA(	DATP+4*
SDA(1	EDITSA+16, DATP+3*
SDA(13	EDITSA+16
SDA(14	EDITSA+16
SDA(15	EDITSA+16
SDA(16	EDITSA+16, DATP+5*
SDA(2	EDITSA+16
SDA(3	EDITSA+16
SDAN	ANSW+12~, ANSW+13, ANSW+15, ANSW+21, ANSW+22, ANSW+27, ANSW+28
>> SDAP	EDITSA+1, EDITSA+2, EDITSA+7, EDITSA+14
SDARR	APPT+3~, APPT+9
SDARR("FLDS"	APPT+8*
SDARR(1	APPT+5*
SDARR(2	APPT+6*
SDARR(4	APPT+7*
SDC	ANSW+5, ANSW+8, ANSW+15~, ANSW+18, ANSW+19, ANSW+21, ANSW+24~, ANSW+25, ANSW+28~, ANSW+31 , ANSW+32, DISEND~, DISEND+2, DISEND+4, EDIT~, EDITSA+19, EDITSA+20, DISPO~, DISPO+8, DISPO+11 , DISPO+25
SDCB	ANSW+5~*, ANSW+8, ANSW+21
SDCLIN	APPT+14~*
SDCONT	EWLANS~, EWLANS+2, EWLANS+8
SDD	APPTD+14, APPTD+15, DPH~, DPHD~
SDD(	APPTD+6, APPTD+11, APPTD+12*
SDD(1	APPTD+7*, DPHD+1
SDD(10	DPHD+1
SDD(13	DPH+1
SDD(15	DPHD+1
SDD(16	APPTD+9*, DPH+1
SDD(2	DPHD+1
SDD(3	APPTD+8*
SDD(4	DPH+1
SDDIS	ASKREM+1, ASKREM+7, ASKREM+8, ANSW~, ANSW+10, ANSW+18, ANSW+19, ANSW+21, ANSW+23, ANSW+31 , ANSW+32
>> SDDIV	APPT+4*
SDFAC	APPT+10~, APPT+14*, APPT+16
SDINST	APPT+10~, APPT+14*, APPT+15
SDINSTE	APPT+10~, APPT+14*, APPT+15
SDL	DPH+2~*
SDR	ANSW~, ANSW+3, ANSW+18~, ANSW+19, ANSW+23, ANSW+24, ANSW+26, ANSW+31~, ANSW+32, DISPO~ , DISPO+6, DISPO+16
SDRN	ANSW+24~
SDWLASK	DISPO+24!
SDWLCL	GETDATA+1~, GETDATA+3*
SDWLCOM	DISPO+19*, DISPO+24!
SDWLDA	EN+7, EN+8, ANSW+15, ANSW+17, ANSW+18, ANSW+19, ANSW+24~, ANSW+28, ANSW+30, ANSW+31 , ANSW+32, DISEND~, DISEND+2, GETDATA~, GETDATA+2, GETDATA+7, EDIT~, EDITSA+8, EDITSA+15, EDITSA+21 , EDITSA+23, DISPO~, DISPO+19, DISPO+20, DISPO+24!
SDWLDAPT	GETDATA+1~, GETDATA+5*
SDWLDATA	GETDATA+1~, GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5
SDWLDFN	EDITSA+18~, EDITSA+22*, EDITSA+23
SDWLDISP	GETDATA+1~, GETDATA+7, EDIT+4, EDITSA, EDITSA+14
SDWLDS	ANSW+24~*, ANSW+25
SDWLDSS	DISPO+24!
SDWLDUZ	GETDATA+1~, GETDATA+5, EDIT+4
SDWLEDT	GETDATA+1~, GETDATA+5*
SDWLERR	DISEND+2, EDIT~, EDIT+4*, DISPO+24!
SDWLIN	GETDATA+1~, GETDATA+3*
SDWLPRI	GETDATA+1~, GETDATA+4*
SDWLPROV	GETDATA+1~, GETDATA+5*
SDWLRB	GETDATA+1~, GETDATA+4*
SDWLSC	GETDATA+1~, GETDATA+4*, GETDATA+6
SDWLSCL	GETDATA+6, EDITSA+18~, EDITSA+19, EDITSA+21
SDWLSP	GETDATA+1~, GETDATA+4*
SDWLSS	GETDATA+4, EDITSA+18~, EDITSA+20, EDITSA+23
SDWLST	GETDATA+1~, GETDATA+3, GETDATA+5
SDWLTY	GETDATA+1~, GETDATA+3*
SDWLX	DISPO+14*, DISPO+15, DISPO+17, DISPO+24!
SDYN	EN~, EN+4, EN+7, EN+8, EN+9
SDYN(1	EN+4, EN+5, EN+6, EN+8, EN+9*
SS	ANSW+5~, EDITSA+4~
STR	ANSW+5~, EDITSA+4~, APPTD+2~, APPTD+5, APPTD+6, APPTD+7, APPTD+9, APPTD+10, DATP+2, DATP+3 , DATP+4, DATP+5
SXB	ANSW+14~, ANSW+15*
SXE	ANSW+14~, ANSW+15*
U	ANSW+21, ANSW+25, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, EDITSA+19, EDITSA+20, EDITSA+22 , APPT+14, APPTD+7, APPTD+9, APPTD+10, DATP+3
X	EWLANS+3~, ASKREM+2~, ANSW+3~, ANSW+12, EDITSA+3!, EDITSA+7, DISPO+6!, DISPO+13*, DISPO+14, DISPO+18 , DISPO+19, DISPO+24!
Y	EWLANS+3~, EWLANS+8, ASKREM+2~, ASKREM+7, APPTD+7*
ZZ	APPTD+6~, APPTD+10~, APPTD+11, APPTD+12, DATP+4~*

Customize PDF page

Package: Scheduling

Routine: SDWLEVAL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: