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 |