Routine: SDWLIFT3

Information

SDWLIFT3 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: NEW TRANSFER ;1/5/16 10:59am

Name	Comments	DBIA/ICR reference
EN	; INITIALIZE VARIABLES
EN2(SDWLDA)	; Entry point if Wait List has been selected elsewhere. ; SDWLOPT is the option to be queried. ; 1: Patient & Wait List Entry ; 2: Institution ; 3: Comments ; 4: Processing ; 5: Confirmation
ISEWL(DFN)	; Filter for seach of PATIENT file ; OG ; SD5.3446
ISEWL2(SDWLDA,DFN)	; If the EWL entry exists, is not closed, is a team or team position assignment and not already in transit.
MSG	;acknowledgement notification to destination

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This Institution does not have a Domain to which the request can be sent." Line Location: EN2+62