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 |