Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Scheduling 7 ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1  $$ACTTM^SCMCTMU  PCM^SDWLE1  GETLIST^SDWLE3  GETLIST^SDWLE5  $$GETENRST^SDWLE6  SENDST^SDWLIFT6  
VA Fileman 7 H^%DTC  ^DIC  FILE^DICN  ^DIE  $$EXTERNAL^DILFD  ($$GET1,GETS)^DIQ  ^DIR  
Enrollment Application System 1 $$ENROLL^EASWTAPI  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Scheduling 5 SDWLBACC  SDWLDISP  SDWLE  SDWLE6  SDWLE7  

Entry Points

Name Comments DBIA/ICR reference
P2 ; Institution
P3 ; Team or Team Position
GETPSNS(SDWLPN) ; Get positions ; NB this is reworking of code in SDWLE5.
P1 ; Wait List Type
DIS(SDWLDA) ; Action on disposition
  • ICR #6051
    • Status: Withdrawn
    • Usage: Private
    P4 ; Comment
    P5 ; Update database
    EN2(SDWLIFTN,SDWLDFN,SDWLTY) ; Entry point if transfer record is selected elsewhere.
    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.
    ;
    GETENRST(SDWLDFN) ; Determine enrollee status ; NB this is reworking of code in SDWLE11.
    GETTEAMS(SDWLIN,SDWLTM) ; Get teams for an institution ; NB this is reworking of code in SDWLE3.

    External References

    Name Field # of Occurrence
    H^%DTC GETENRST+8, GETENRST+13
    ^DIC P2+16
    FILE^DICN P5+3
    ^DIE P5+20, P5+23, DIS+6
    $$EXTERNAL^DILFD P2+14, P3+10, P3+19
    $$GET1^DIQ EN+10, EN+22, EN+25, DIS+3
    GETS^DIQ EN+20, P5+7
    ^DIR EN+34, EN2+2, EN2+4, P1+7, P3+6, P3+14, P3+23, P4+3
    $$ENROLL^EASWTAPI GETENRST+12
    $$PCPOSCNT^SCAPMCU1 GETPSNS+9
    $$TEAMCNT^SCAPMCU1 GETTEAMS+11
    $$ACTTM^SCMCTMU GETTEAMS+10
    PCM^SDWLE1 EN2+5
    GETLIST^SDWLE3 GETTEAMS+3
    GETLIST^SDWLE5 GETPSNS+2
    $$GETENRST^SDWLE6 P5+19
    SENDST^SDWLIFT6 P5+25, DIS+8

    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
    Routine Call
    • DIE
    • Line Location:
      • P5+20
      • P5+23
      • DIS+6
    Routine Call
    • DIC
    • Line Location:
      • P2+16
    Routine Call
    • DIR
    • Line Location:
      • EN+34
      • EN2+2
      • EN2+4
      • P1+7
      • P3+6
      • P3+14
      • P3+23
      • P4+3

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCN(391.91 - [#391.91] GETENRST+4, GETENRST+8
    ^SCTM(404.51 - [#404.51] P2+8, GETTEAMS+5, GETTEAMS+11
    ^SCTM(404.57 - [#404.57] P2+5, P2+7, GETPSNS+5, GETPSNS+7
    ^SCTM(404.58 - [#404.58] GETTEAMS+5, GETTEAMS+7, GETTEAMS+9
    ^SDWL(409.3 - [#409.3] P5+4, P5+21
    ^SDWL(409.36 - [#409.36] EN+11, EN+12, EN+16, EN+17, EN2+3, EN2+9, DIS+2

    Label References

    Name Line Occurrences
    @( EN2+8
    EN2 EN+39
    GETPSNS P3+20
    GETTEAMS P2+19, P3+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %H GETENRST+3~, GETENRST+8, GETENRST+11~, GETENRST+13
    DA P5+1~, P5+4, P5+10, P5+21, P5+23*, DIS+6*
    DFN EN2+1~, EN2+5*
    DIC P2+1~, P2+15*, P5+1~, P5+3*, P5+10
    DIC("A" P2+15*
    DIC("B" P2+14*
    DIC("S" P2+2*, P2+11*, P2+13*
    DIC(0 P2+15*, P5+3*
    DIE P5+1~, P5+10*, P5+23*, DIS+1~, DIS+6*
    DIR EN+14~, P1+1~, P3+1~, P3+3~, P3+9~, P4+1~
    DIR("A" EN+31*, EN+32*, EN+33*, P3+5*, P3+12*, P3+21*, P4+2*
    DIR("B" P1+6*, P3+5*, P3+10*, P3+19*, P4+2*
    DIR("L" P1+3*, P1+4*, P1+5*
    DIR("S" P3+13*, P3+22*
    DIR(0 EN+34*, EN2+2*, EN2+4*, P1+2*, P1+4, P1+5, P3+5*, P3+12*, P3+21*, P4+2*
    DR P5+1~, P5+10*, P5+11*, P5+12*, P5+13*, P5+14*, P5+15*, P5+16*, P5+17*, P5+18*
    , P5+19*, P5+23*, DIS+1~, DIS+6*
    DT GETTEAMS+11, GETPSNS+9
    ICN EN+8~, EN+10*, EN+11, EN+16
    SDWLA GETPSNS+1~, GETPSNS+4*, GETPSNS+5*, GETPSNS+7, GETPSNS+9
    SDWLARR EN+14~, EN+27
    SDWLARR( EN+25*, EN+30, EN+36
    SDWLARR(0 EN+24*, EN+25, EN+28, EN+30, EN+34
    SDWLCM EN2+1~, EN2+7*, P4+2, P4+6*
    SDWLCP1 EN2+1~
    SDWLCP2 EN2+1~
    SDWLCP3 EN2+1~, P2+5, P3+2, P3+4
    SDWLCP4 EN2+1~
    SDWLCP5 EN2+1~
    SDWLCP6 EN2+1~
    SDWLCPP GETPSNS+1~, GETPSNS+3
    SDWLCPP( GETPSNS+5
    SDWLCPT GETPSNS+1~, GETPSNS+8
    SDWLDA P5+1~, P5+10*, DIS~, DIS+2, DIS+3
    SDWLDDA EN2+1~, EN2+7*
    SDWLDFN EN~, EN+10, EN+39, EN2~, EN2+2, EN2+5, P5+3, P5+19, GETENRST~, GETENRST+4
    , GETENRST+8, GETENRST+12
    SDWLDIS DIS+1~, DIS+3*, DIS+5
    SDWLE GETENRST+1~, GETENRST+2*, GETENRST+4*, GETENRST+8*, GETENRST+10, GETENRST+13*, GETENRST+14*, GETENRST+16
    SDWLERR EN~, EN+9*, P5+26*
    SDWLI EN+14~, EN+30*, P2+4~, P2+5*, P2+7
    SDWLIFN0 EN+14~, EN+15*, EN+16*, EN+17*, EN+18*, EN+20, EN+21, EN+22, EN+25
    SDWLIFTN EN+8~, EN+9*, EN+36*, EN+38, EN+39, EN2~, EN2+3, EN2+9, P5+7, P5+8
    , P5+9, P5+23, P5+25, DIS+1~, DIS+2*, DIS+6, DIS+8
    SDWLIL EN+19~, EN+23*
    SDWLILM EN+14~, EN+15*, EN+23*, EN+29, EN+30
    SDWLIN EN2+1~, EN2+7*, P2+14, P2+20*, P3+11, GETTEAMS~, GETTEAMS+2, GETTEAMS+5, GETTEAMS+8
    SDWLINE GETTEAMS+1~, GETTEAMS+2*
    SDWLINL P2+1~, P2+8*, P2+9
    SDWLINL( P2+9*
    SDWLINS EN+19~, EN+22*, EN+25
    SDWLINSX EN+19~, EN+22*, EN+23, EN+25
    SDWLINX EN+19~
    SDWLL P2+6~, P2+7*, P2+8
    SDWLONSY EN+8~, EN+9*, EN+11*, EN+12*, EN+13
    SDWLOPT EN2+1~, EN2+7*, EN2+8, P1+8*, P1+9*, P2+17*, P2+18*, P2+20*, P3+2*, P3+15*
    , P3+16*, P3+17*, P3+20*, P3+24*, P3+25*, P3+26*, P4+4*, P4+5*, P4+6*, P5+5*
    , P5+26*
    SDWLPCMM EN2+1~
    SDWLPDA GETPSNS+1~
    SDWLPLST GETTEAMS+1~
    SDWLPLST(1 GETTEAMS+8
    SDWLPN EN2+1~, EN2+7*, P3+19, P3+26*, GETPSNS~, GETPSNS+1!
    SDWLPN( GETPSNS+9*
    SDWLPNS P3+1~, P3+20
    SDWLPOS EN2+1~
    SDWLPSS GETPSNS+1~
    SDWLPSS( GETPSNS+5
    SDWLRNE GETENRST+11~, GETENRST+12*, GETENRST+13, GETENRST+14
    SDWLSCO EN2+1~
    SDWLSCPE P5+1~, P5+9*
    SDWLSCPR P5+1~, P5+8*
    SDWLSPO EN2+1~
    SDWLSSO EN2+1~
    SDWLST GETTEAMS+1~
    SDWLSTA DIS+1~, DIS+5*, DIS+6
    SDWLSTO EN2+1~
    SDWLTEM EN2+1~
    SDWLTM EN2+1~, EN2+7*, P2+1~, P2+19, P3+10, P3+11, P3+17*, GETTEAMS~, GETTEAMS+1!
    SDWLTM( GETTEAMS+11*
    SDWLTMP P5+1~
    SDWLTMP( P5+8, P5+9
    SDWLTY EN+8~, EN+36*, EN+39, EN2~, P1+6, P1+9*, P2+2, P2+3, P2+19, P3+8
    , P5+11, P5+12
    SDWLX GETPSNS+1~, GETENRST+3~, GETENRST+7*, GETENRST+8*
    SDWLY GETENRST+3~, GETENRST+8*
    SSN EN+8~, EN+10*, EN+12, EN+17
    TMHSID GETTEAMS+1~, GETTEAMS+4*, GETTEAMS+5*, GETTEAMS+7, GETTEAMS+11
    TMID GETTEAMS+6~, GETTEAMS+7*, GETTEAMS+8, GETTEAMS+9, GETTEAMS+10
    TMP EN+14~, EN+19~
    TMP( EN+16*, EN+17*, EN+18, EN+21, EN+22, EN+25
    U EN+25, EN+30, EN+36, P1+4, P1+5, P2+7, P2+8, GETTEAMS+5, GETTEAMS+9, GETTEAMS+11
    , GETPSNS+8, GETPSNS+9, GETENRST+8, GETENRST+13
    X P4+5, P5+1~, P5+3*, GETPSNS+6~, GETPSNS+7*, GETPSNS+8, GETPSNS+9, GETENRST+8*, GETENRST+13*, DIS+1~
    Y EN+35, EN+36, P1+8, P1+9, P2+17, P2+18, P2+19, P2+20, P3+2, P3+15
    , P3+16, P3+17, P3+24, P3+25, P3+26, P4+4, P4+6, GETTEAMS+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All