SDWLIFT6 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: DISPLAY ACCEPT DETAILS ;1/5/16 11:00am
Source file <SDWLIFT6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; INITIALIZE VARIABLES FOR DISPLAY
|
|
| INIT | ; Default initialization options.
|
|
| GETINFO(SDWLOUT) | ; The Coversheet function calls here too.
|
|
| GETTN(SDWLLIST) | ; Get transfer id.
|
|
| HD | ; -- Make header line for list processor
|
|
| PCMM(SDWLIFTN,DFN) | ;
|
|
| ACCEPT | ; Sign the transaction off as accepted. Remove the temporary file and send a message to transmitting facility
|
|
| REJECT | ; Sign the transaction off as rejected. Remove the temporary file and send a message to transmitting facility
|
|
| EXIT | ; Tidy up
|
|
| SENDST(SDWLIFTN) | ; Send status change notification
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ |
| ^SDWL(409.3 - [#409.3] | GET1^DIQ |
| ^SDWL(409.36 - [#409.36] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
