SDWLE6 ;;IOFO BAY PINES/OG - WAITING LIST-ENTER/EDIT - INTER-FACILITY TRANSFER ; Compiled January 25, 2007 09:47:40
Source file <SDWLE6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(SDWLDFN,SDWLERR) | ; Entry Point
; Extrinsic function. Quit back one of the following values ; 0 : Inter-Facility Transfer not selected, continue with standard processing ; 1 : Inter-Facility selected, all processing performed here, quit out on return. ; ; SDWLERR passed back by reference, indicates to the calling routine ; whether to announce that the update to 409.3 was performed. ; |
|
EN2(SDWLIFTN,SDWLDFN,SDWLTY) | ; Entry point if transfer record is selected elsewhere.
|
|
P1 | ; Wait List Type
|
|
P2 | ; Institution
|
|
P3 | ; Team or Team Position
|
|
P4 | ; Comment
|
|
P5 | ; Update database
|
|
GETTEAMS(SDWLIN,SDWLTM) | ; Get teams for an institution ; NB this is reworking of code in SDWLE3.
|
|
GETPSNS(SDWLPN) | ; Get positions ; NB this is reworking of code in SDWLE5.
|
|
GETENRST(SDWLDFN) | ; Determine enrollee status ; NB this is reworking of code in SDWLE11.
|
|
DIS(SDWLDA) | ; Action on disposition
|
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DIC(4 - [#4] | EXTERNAL^DILFD, GET1^DIQ |
^SCTM(404.57 - [#404.57] | EXTERNAL^DILFD |
^SCTM(404.58 - [#404.58] | EXTERNAL^DILFD |
^SDWL(409.3 - [#409.3] | Classic Fileman Calls, GET1^DIQ |
^SDWL(409.36 - [#409.36] | Classic Fileman Calls, GETS^DIQ |