SDWLIFT3 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: NEW TRANSFER ;1/5/16 10:59am
Source file <SDWLIFT3.m>
| 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 ; SD*5.3*446
 | 
|
| 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 | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ, GETS^DIQ | 
| ^DIC(4 - [#4] | GET1^DIQ | 
| ^SDWL(409.3 - [#409.3] | GET1^DIQ, GETS^DIQ, LIST^DIC | 
| ^SDWL(409.35 - [#409.35] | GET1^DIQ | 
| ^SDWL(409.36 - [#409.36] | GET1^DIQ |