SDWLTR ;IOFO BAY PINES/DMR - WAIT LIST TRANSMISSION TO ACC;06/12/2002 ; 29 Aug 2002 2:54 PM ; Compiled April 12, 2007 09:51:10
Source file <SDWLTR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ;
|
|
| DATA | ;Check for data and setup arrays.
|
|
| START | ;Loop 409.3, get DFN file 2 info.
|
|
| NODATA | ;No data in ^SDWL(409.3)
|
|
| MESS2 | ;
|
|
| SET | ;Save data if no pat. on wait list.
|
|
| SET2 | ;Set nodata global for ser/spec file 409.31
|
|
| SET3 | ;Set nodata global for clinic file 409.32
|
|
| SAVE | ;Save nodata info.
|
|
| CHECK | ;Deletes array entry if data for spec/cln/inst.
|
|
| KILL | ;
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(21 - [#21] | GET1^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SDWL(409.3 - [#409.3] | GET1^DIQ |
| 5.01 | GET1^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
| ^DIC(8.1 - [#8.1] | GET1^DIQ |
