Routine: SDWLIFT1

Package	Total	Call Graph
Registration	3	EN^VALM ($$SETSTR,PAUSE)^VALM1 SET^VALM10
VA Fileman	2	$$FIND1^DIC $$GET1^DIQ
Scheduling	1	GETDATA^SDWLIFT5

Package	Total	Caller Graph
Scheduling	7	SDWL TRANSFER REQUEST SDWLE SDWLI SDWLIFT2 SDWLIFT3 SDWLIFT4 SDWLTR1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; INITIALIZE VARIABLES
ENI	; INITIALIZE VARIABLES - Inactive entries
EXIT	; Tidy up
HD	; -- Make header line for list processor
INIT(SDWLOPT)	; Default initialization options.
GETTRN(SDWLDA,SDWLINNM,SDWLSTN)	; Get transfer details for Electronic Wait List internal entry number ; Extrinsic boolean: 0: no active transfer, 1: active transfer. ; Input: SDWLDA: EWL IEN ; Output: SDWLINNM: Institution name ; SDWLSTN: Station Number

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ required for this option" Line Location: INIT+3
Routine Call	VALM Line Location: EN+4 ENI+5
Routine Call	DIC Line Location: GETTRN+10

FileNo	Call Tags
^DIC(4 - [#4]	FIND1^DIC, GET1^DIQ
^SDWL(409.35 - [#409.35]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.35 - [#409.35]	GETTRN+6, GETTRN+8
^TMP("DILIST"	INIT+1!, EXIT+3!
^TMP("SDWLIFT"	EN+1!, ENI+2!, INIT+1!, EXIT+3!
^VA(200 - [#200]	INIT+4

Name	Line Occurrences
INIT	ENI+5

Name	Field # of Occurrence
DIC	EN+2!, ENI+3!
DIE	EN+2!, ENI+3!
DIR	EN+2!, ENI+3!
DISPCNT	INIT+2~, INIT+8*, INIT+12, INIT+14, INIT+16, INIT+18, INIT+20, INIT+25, INIT+27, INIT+29
DR	EN+2!, ENI+3!
DUZ	INIT+3, INIT+4
SDWLDA	GETTRN~, GETTRN+6, GETTRN+8
SDWLDZN	INIT+4*, HD+2, EXIT+2!
SDWLFMT	EN+3, ENI+1~, ENI+4, EXIT+2!
SDWLI	INIT+2~
SDWLIFTN	GETTRN+7~, GETTRN+8*, GETTRN+10
SDWLINFO	INIT+2~, INIT+6, EXIT+2!
SDWLINFO(	INIT+14, INIT+16, INIT+18, INIT+20, INIT+25, INIT+27, INIT+29
SDWLINFO(0	INIT+8
SDWLINNM	GETTRN~, GETTRN+5, GETTRN+10
SDWLINST	GETTRN+7~, GETTRN+10*
SDWLOPT	INIT~, INIT+6, INIT+32, EXIT+2!
SDWLOUT	INIT+9~, INIT+12, INIT+14, INIT+16, INIT+18, INIT+20, INIT+21, INIT+25, INIT+27, INIT+29 , INIT+30
SDWLSPS	INIT+5*, INIT+12, INIT+14, INIT+16, INIT+18, INIT+25, EXIT+2!
SDWLSTA	GETTRN+7~, GETTRN+8*, GETTRN+9
SDWLSTN	GETTRN~, GETTRN+5, GETTRN+10
U	INIT+4, INIT+14, INIT+16, INIT+18, INIT+20, INIT+25, INIT+27, INIT+29
VADM	EN+2!, ENI+3!
VALMBCK	ENI+6*, EXIT+1!
VALMCNT	INIT+7, INIT+10, INIT+21, INIT+23, INIT+30, INIT+32, EXIT+1!
VALMHDR	EXIT+1!
VALMHDR(1	HD+3*
VALMHDR(2	HD+3*
X	HD+1~, HD+2*, HD+3