Routine: SDWLE3

Information

SDWLE3 ;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT;06/12/2002 ; 12/14/05 1:28pm ; Compiled April 25, 2006 10:42:02

Package	Total	Call Graph
Scheduling	5	$$GETALL^SCAPMCA $$TEAMCNT^SCAPMCU1 $$GETEAM^SCAPMCU3 $$ACTTM^SCMCTMU INPUT^SDWLRP1
VA FileMan	5	^DIC ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR

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: 2

Package	Total	Caller Graph
Scheduling	2	SDWLE SDWLE6

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
EN1
EN2	;-DIR READ
FLAGS(FLG,DFN,TEAM)	;
WMT
GETLIST	;GET LIST OF TEAM ASSIGNMENTS - SD5.3417
DELPOS	;DELETE POSITIONS FOR OLD TEAM
END

External References

Name	Field # of Occurrence
^DIC	EN2+11
^DIE	EN1+12, EN1+16, DELPOS+22, DELPOS+23, DELPOS+24, DELPOS+25
$$EXTERNAL^DILFD	EN2+4, DELPOS+12
$$GET1^DIQ	DELPOS+11
^DIR	EN+6, EN2+6, DELPOS+16
$$GETALL^SCAPMCA	FLAGS+8
$$TEAMCNT^SCAPMCU1	EN1+6, FLAGS+18
$$GETEAM^SCAPMCU3	FLAGS+19
$$ACTTM^SCMCTMU	EN1+5, FLAGS+17
INPUT^SDWLRP1	WMT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+0
Function Call: WRITE	Prompt: !,"No TEAMS are available for this INSTITUTION.",! Line Location: EN2+1
Function Call: WRITE	Prompt: *7," No deleting allowing." Line Location: EN2+9
Function Call: WRITE	Prompt: "??" Line Location: EN2+13
Function Call: WRITE	Prompt: !,"Wait list entry deleted" Line Location: WMT+1
Function Call: WRITE	Prompt: ! Line Location: DELPOS+6
Function Call: WRITE	Prompt: !,"This patient has one or more Wait List entries for PCMM Positions",! Line Location: DELPOS+8
Function Call: WRITE	Prompt: !,"Wait List Type",?30,"Waiting For",?45,"Institution",?60,"Date Entered",! Line Location: DELPOS+9
Function Call: WRITE	Prompt: ! Line Location: DELPOS+12
Function Call: WRITE	Prompt: *7," No POSITIONS closed." Line Location: DELPOS+17
Routine Call	DIC Line Location: EN2+11
Routine Call	DIE Line Location: EN1+12 EN1+16 DELPOS+22 DELPOS+23 DELPOS+24 DELPOS+25
Routine Call	DIR Line Location: EN+6 EN2+6 DELPOS+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	EN1+4, EN1+7, FLAGS+4, FLAGS+5, FLAGS+10, FLAGS+14, FLAGS+16, FLAGS+17, FLAGS+23
^SCTM(404.57 - [#404.57]	DELPOS+5, DELPOS+20
^SCTM(404.58 - [#404.58]	EN1+2
^SDWL(409.3 - [#409.3]	GETLIST+2, GETLIST+3, DELPOS+1, DELPOS+2, DELPOS+18, DELPOS+19
^TMP("SC"	FLAGS+9, FLAGS+11
^XTMP("SDWLE3"	DELPOS+6*, DELPOS+10

Label References

Name	Line Occurrences
DELPOS	EN1+19
EN2	EN1+10, EN2+9, EN2+13
END	EN+8, EN1+10, EN1+20
FLAGS	EN1+13
GETLIST	EN+9
WMT	FLAGS+25

Naked Globals

Name	Field # of Occurrence
^(1	FLAGS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	DELPOS+1, DELPOS+6, DELPOS+7
DA	EN+2, EN1+14, DELPOS+18~, DELPOS+21*
DFN	EN1+13, FLAGS~, FLAGS+8, FLAGS+9, FLAGS+11, WMT
DIC	EN+2!, EN2+2!, EN2+11*, DELPOS+21!, END!
DIC("S"	EN2+10*
DIC(0	EN2+11*
DICR	DELPOS+21!
DIE	EN+2!, EN1+12, EN1+14, EN2+2!, DELPOS+21!, DELPOS+22*, END!
DIR	EN+2!, EN2+2!, DELPOS+13!, DELPOS+21!, END!
DIR("?"	EN2+3, DELPOS+13, DELPOS+14, DELPOS+15
DIR("A"	EN+6, EN2+5, DELPOS+16*
DIR("B"	EN+6, EN2+4, DELPOS+16*
DIR(0	EN+6, EN2+5, DELPOS+16*
DR	EN+2!, EN1+12, EN1+16, EN2+2!, FLAGS+25~, FLAGS+27~, DELPOS+21!, DELPOS+22, DELPOS+23, DELPOS+24* , DELPOS+25*, END!
DT	EN1+6, FLAGS+17
DTOUT	EN2+8, EN2+11, END!
DUOUT	EN+7, EN+8, EN1+10, EN2+1, EN2+2!, EN2+7, EN2+8!, EN2+11*, EN2+12
DUZ	WMT
FLG	EN1+13~, EN1+14, FLAGS~, FLAGS+25, FLAGS+27
FLG(1	EN1+15, FLAGS+24*
FLG(2	EN1+15, FLAGS+24*
FLG(3	EN1+15, FLAGS+24, FLAGS+25
>> RES	WMT
>> SCTMCT	FLAGS+18*, FLAGS+20
>> SCTMMAX	FLAGS+19*, FLAGS+20
>> SDCC	FLAGS+25*
>> SDCNT	FLAGS+3, FLAGS+15, FLAGS+22, FLAGS+23, FLAGS+25, FLAGS+26, FLAGS+27
>> SDINS	FLAGS+13, FLAGS+14, FLAGS+16
>> SDINTR	EN1+15, FLAGS+3, FLAGS+10*, FLAGS+22, FLAGS+24, WMT
>> SDMTM	EN1+15, FLAGS+3, FLAGS+24, FLAGS+25*, WMT
>> SDREJ	EN1+15, FLAGS+3, FLAGS+14, FLAGS+16, FLAGS+20*, FLAGS+24, WMT
>> SDT	FLAGS+15, FLAGS+16, FLAGS+17, FLAGS+18, FLAGS+19, FLAGS+22, FLAGS+23
SDTEAM	FLAGS+1~*, FLAGS+26, FLAGS+27
>> SDTM	FLAGS+9*, FLAGS+10
SDTMENT	EN+2!*, EN1+14
SDWLA	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, DELPOS+1, DELPOS+2, DELPOS+6, DELPOS+18* , DELPOS+19, DELPOS+21, END!, END+1!
SDWLB	END+1!
SDWLCP3	EN+5, EN+6, END!
>> SDWLCPT(	GETLIST+6
>> SDWLCT	EN1+3
>> SDWLDA	EN+2
>> SDWLDATA	EN2+1
SDWLDAX	GETLIST+1~, GETLIST+2*, GETLIST+3, END!
>> SDWLDFN	GETLIST+2, DELPOS+1, DELPOS+18
>> SDWLDISP	DELPOS+21*
>> SDWLERR	EN+10*
>> SDWLET	DELPOS+12*
SDWLF	EN1+1*, END+1!
>> SDWLIEN	DELPOS+10*, DELPOS+11
SDWLIN	EN1+4, FLAGS+4*, FLAGS+10, FLAGS+14, FLAGS+23, GETLIST+1~
SDWLINE	GETLIST+3*, GETLIST+5, GETLIST+7, END!
SDWLMAX	EN+2!, EN1+6*, EN2+1, END!
SDWLMAX(	EN1+6*, EN1+7!, EN1+8!
SDWLMPX	EN2+4*, END+1!
>> SDWLP	DELPOS+20*
SDWLPLST	GETLIST+1!*, END!, END+1!
SDWLPLST(	GETLIST+5*!
SDWLPLST(1	EN1+8, GETLIST+7*!
>> SDWLPX	DELPOS+5*
SDWLS	EN1*, END+1!
SDWLSCR	EN+10, EN1+9, EN2+10, END!, END+1!
SDWLST	EN+4!, EN+10, GETLIST+5, GETLIST+7
SDWLSX	EN1*, END+1!
SDWLT	EN1+8~*
SDWLTH	EN+2!, END!
SDWLTH(	EN1+5*
>> SDWLTYE	EN+3*, EN1
SDWLVAR	EN+10, EN1+13, EN1+18, EN1+19, EN2+4, EN2+14, END+1!
>> SDWLVARO	EN1+19, EN2+4*, DELPOS+5, DELPOS+12, DELPOS+20
SDWLVBR	EN+3, EN+11, EN1+18, END+1!
>> SDWLX	EN1*
>> SDWLY	EN+10*, EN1, EN2+5
SDWLYN	EN+3*, EN2+4, DELPOS+12, END+1!
TEAM	FLAGS~, FLAGS+1, FLAGS+4, FLAGS+5, FLAGS+25, FLAGS+26, FLAGS+27*, WMT
TEAM(	FLAGS+23*, FLAGS+25
U	EN1+4, EN1+7, FLAGS+4, FLAGS+5, FLAGS+9, FLAGS+10, FLAGS+17, FLAGS+23, WMT, GETLIST+3 , GETLIST+4, GETLIST+5, DELPOS+2, DELPOS+3, DELPOS+4, DELPOS+5, DELPOS+19, DELPOS+20
X	EN1+6, EN1+7, EN2+4!, EN2+7, EN2+8, EN2+9, GETLIST+1~, GETLIST+3, GETLIST+4, GETLIST+5 , DELPOS+2, DELPOS+3, DELPOS+4, DELPOS+5, DELPOS+6, DELPOS+10, DELPOS+19, DELPOS+20, END+1!
Y	EN+7, EN2+13, EN2+14, FLAGS+25~, FLAGS+27~, GETLIST+4, GETLIST+5, GETLIST+6, GETLIST+7, DELPOS+10* , DELPOS+17, END+1!
Z	GETLIST+1~, GETLIST+3*, GETLIST+4, GETLIST+5, END+1!

Customize PDF page

Package: Scheduling