Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDWLE6

Package: Scheduling

Routine: SDWLE6


Information

SDWLE6 ;;IOFO BAY PINES/OG - WAITING LIST-ENTER/EDIT - INTER-FACILITY TRANSFER ; Compiled January 25, 2007 09:47:40

Source Information

Source file <SDWLE6.m>

Entry Points

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
  • ICR #6051
    • Status: Withdrawn
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,SDWLI,?5,$P(SDWLARR(SDWLI,0),U),?SDWLILM+5,$P(SDWLARR(SDWLI,0),U,2)
    • Line Location: EN+30
    Function Call: WRITE
    • Prompt: !,"Patient not entered on the system. Use Load/edit"
    • Line Location: EN2+2
    Function Call: WRITE
    • Prompt: !,"Unable to acquire lock on transfer file"
    • Line Location: EN2+4
    Function Call: WRITE
    • Prompt: !,"No TEAMS are available for this INSTITUTION."
    • Line Location: P2+19
    Function Call: WRITE
    • Prompt: !,"No Positions Meet Wait List Criteria"
    • Line Location: P3+20
    Function Call: WRITE
    • Prompt: !,"Unable to acquire a lock on the Wait List file"
    • Line Location: P5+5

    FileMan Files Accessed Via FileMan Db Call

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call