Routine: SDWLR

Information

SDWLR ;;IOFO BAY PINES/TEH - WAIT LIST - SDM1 DISPOSITION;06/12/2002 ; 20 Aug 2002 2:10 PM

Package	Total	Call Graph
VA Fileman	5	YN^DICN ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR

Name	Comments	DBIA/ICR reference
SB1	;-wants to remove patient from the wait list. Set Disposition
SB0	;-Screen Appointment for valid clinic and/or service/specialty.
EN	;
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS PATIENT IS CURRENTLY ON THE WAITING LIST FOR THIS CLINIC/SPECIALTY" Line Location: EN+5
Function Call: WRITE	Prompt: !,$E(SDWLTYN,1,14),?22,SDWLPRI,?25,$E(SDWLWR,1,19),?51,$E(SDWLINN,1,14) Line Location: EN+23
Function Call: WRITE	Prompt: ?67,SDWLDSP Condition for execution: $D(SDWLDISC) Line Location: EN+23
Function Call: WRITE	Prompt: ?73,SDWLDTP Line Location: EN+24
Function Call: WRITE	Prompt: !,"DO YOU WISH TO REMOVE FROM LIST " Line Location: EN+25
Routine Call	DIE Line Location: EN+37 EN+39 EN+40 EN+41 SB1+3 SB1+4 SB1+5 SB1+6
Routine Call	DIR Line Location: EN+32 EN+36

FileNo	Call Tags
^SDWL(409.3 - [#409.3]	Classic Fileman Calls, EXTERNAL^DILFD
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN+21
^SC - [#44]	EN+20, SB0+1
^SDWL(409.3 - [#409.3]	EN+1, EN+6, EN+22, SB0+2, SB0+3, SB0+4, SB1+1, SB1+7!, SB1+8!

Name	Field # of Occurrence
>> %	EN+25*, EN+26
DA	EN+2~, EN+37, EN+38, SB1+2*
>> DD	EN+19*
>> DFN	EN+1, SB0+2, SB0+4, SB1+8
DIE	EN+37, EN+39, EN+42!, SB1+3*
DIR	EN+27!, EN+42!
DIR("A"	EN+36*
DIR("L"	EN+29, EN+30, EN+31*
DIR(0	EN+28, EN+36
DR	EN+37, EN+39, EN+40, EN+41, EN+42!, SB1+3, SB1+4, SB1+5, SB1+6
>> MM	EN+19*
>> SC	SB0+1, SB0+3, SB1+7
SDWLASK	EN+4, EN+42!, SB0+1, SB0+3, SB0+4*, SB1+7, SB1+8
SDWLCL	EN+6*, EN+20, END!
SDWLCLN	EN+20*, END!
>> SDWLCN	EN+3*
SDWLCOM	EN+2~, EN+37*, EN+42!
SDWLDA	EN+6, EN+22, EN+37, EN+38, EN+42!, SB0+2, SB0+3, SB0+4, SB0+5, SB1+1 , SB1+2, SB1+7, SB1+8, END+1!
SDWLDA(	SB0+2*, SB0+3, SB0+4
SDWLDAV	SB0+3, SB0+4, SB0+5!
>> SDWLDIS	EN+22*
>> SDWLDISC	EN+23
SDWLDISN	EN+22*, END!
>> SDWLDSP	EN+7*, EN+23
SDWLDSS	EN+42!, SB0+1*, SB0+4, SB1+8
SDWLDT	EN+8*, EN+19, END!
SDWLDTP	EN+19*, EN+24, END!
SDWLERR	EN+3*, EN+42!, SB1+1
SDWLIN	EN+6*, EN+21, END!
SDWLINN	EN+21*, EN+23, END!
SDWLPRI	EN+6*, EN+8, EN+23, END!, END+1!
SDWLPRIN	EN+8*, END!
SDWLSC	EN+10*, EN+17, END+1!
>> SDWLSCO	EN+9*, EN+18
SDWLSP	EN+10*, EN+13, END!
>> SDWLSPO	EN+9*, EN+14
SDWLSS	EN+10*, EN+15, END+1!
>> SDWLSSO	EN+9*, EN+16
SDWLST	EN+10*, EN+11, END!
>> SDWLSTO	EN+9*, EN+12
SDWLTY	EN+6*, EN+8, END!
SDWLTYN	EN+8*, EN+23, END!
SDWLWR	EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18*, EN+23 , END+1!
SDWLX	EN+33*, EN+34, EN+35, EN+42!
U	EN+6, EN+7, EN+8, EN+9, EN+10, EN+21, EN+22, SB0+1
X	EN+6*, EN+7, EN+8, EN+9, EN+10, EN+27!, EN+33, EN+36, EN+37, EN+42!
>> YY	EN+19*