Routine: SDWLIFT4

Information

SDWLIFT4 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: REMOVE TRANSFER DETAILS ; Compiled March 23, 2005 11:22:00

Source file <SDWLIFT4.m>

Package	Total	Call Graph
VA Fileman	4	(,$$FIND1)^DIC ^DIE ^DIK $$GET1^DIQ
Scheduling	3	$$GETTN^SDWLIFT INIT^SDWLIFT1 GETDATA^SDWLIFT5
MailMan	1	^XMD
Registration	1	EN^VALM

Package	Total	Caller Graph
Scheduling	1	SDWLIFT

Name	Comments	DBIA/ICR reference
EXIT	; Tidy up
REMREQ	; send removal request to SDWL-XFER-SERVER
EN	; INITIALIZE VARIABLES FOR REMOVE
SEND(SDWLRIN,SDWLDMN)	;
REMOVE	;

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SDWLIFT"	REMOVE+5!

Name	Line Occurrences
REMREQ	REMOVE+3
SEND	REMREQ+3

Name	Field # of Occurrence
DA	REMOVE+1~, REMOVE+4, REMREQ+1~, REMREQ+4
DIC	REMOVE+1~, REMOVE+2*
DIC(0	REMOVE+2*
DIE	REMREQ+1~, REMREQ+4*
DIK	REMOVE+1~, REMOVE+4*
DR	REMOVE+1~, REMREQ+1~, REMREQ+4*
SDWLDMN	SEND~, SEND+3
SDWLIFTN	EN+3*, EN+5, REMOVE+2, REMOVE+4, REMREQ+2, REMREQ+3, REMREQ+4, EXIT+1!
SDWLINFO	EN+1~, EN+2, EN+3
SDWLRIN	REMREQ+1~, REMREQ+2*, REMREQ+3, SEND~, SEND+6
SDWLX	SEND+1~
SDWLX(0	SEND+7*
SDWLX(1	SEND+6*
U	REMOVE+3, SEND+6
>> VALMBCK	EN+4, EN+8
X	REMOVE+1~, REMOVE+2*
XMDUZ	SEND+1~, SEND+5*
XMSUB	SEND+1~, SEND+2*
XMTEXT	SEND+1~, SEND+4*
XMY	SEND+1~
XMY("S.SDWL-XFER-SERVER@"	SEND+3*
Y	REMOVE+1~
Y(0	REMOVE+3