SDWLIFT5 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: ACCEPT DATA - MAIN SCREEN ; Compiled March 29, 2005 15:26:24 ; Compiled January 26, 2007 10:05:24
Source file <SDWLIFT5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; INITIALIZE VARIABLES
|
|
| INIT | ; Default initialization options.
|
|
| HD | ; -- Make header line for list processor
|
|
| EXIT | ; Tidy up
|
|
| GETLIST | ;
|
|
| GETDATA(SDWLOUT,SDWLFMT) | ; Get request data for display.
; SDWLFMT - output format: 0: filtered, only active transmissions ; 1: all transmissions ; 2: filtered, only inactive transmissions |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ |
| ^SDWL(409.3 - [#409.3] | GET1^DIQ, GETS^DIQ |
| ^SDWL(409.35 - [#409.35] | GETS^DIQ |
| ^SDWL(409.36 - [#409.36] | GET1^DIQ, GETS^DIQ |
