SDWLIFT1 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: REQUEST SUMMARY ; Compiled March 29, 2005 15:36:25
Source file <SDWLIFT1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; INITIALIZE VARIABLES
 | 
|
| ENI | ; INITIALIZE VARIABLES - Inactive entries
 | 
|
| INIT(SDWLOPT) | ; Default initialization options.
 | 
|
| HD | ; -- Make header line for list processor
 | 
|
| EXIT | ; Tidy up
 | 
|
| 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 | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ | 
| ^SDWL(409.35 - [#409.35] | GET1^DIQ |