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: SDWLEVAL

Package: Scheduling

Routine: SDWLEVAL


Information

SDWLEVAL ;;IOFO BAY PINES/ESW - WAIT LIST - DISPOSITION AFTER APPOINTMENT(S) ENTRY;12/11/08 5:11pm ; Compiled March 6, 2009 11:11:50

Source Information

Source file <SDWLEVAL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIE  ($$GET1,D)^DIQ  ^DIR  
Scheduling 2 $$SDAPI^SDAMA301  $$CLIN^SDWLBACC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Scheduling 7 SDAM2  SDCO1  SDM1A  SDMM  SDMM1  SDWLDISP  SDWLREB  

Entry Points

Name Comments DBIA/ICR reference
DATP(SCNT,SDA) ;
  • ICR #6417
    • Status: Active
    • Usage: Controlled Subscription
    GETDATA(SDWLDA) ;retrieval data
    EDITSA
    DISEND(SDWLDA,SDC) ;display and disposition
    EWLANS(SDCONT) ;display EWL OPEN entries
    DPH(SCNT,SDD) ;display appt header
    APPTD ;display appt
    APPT(DFN,SD,SC) ;create appt TMP
    ANSW(SDDIS,SDR) ;
    ASKREM ;prompt user for record for dispositioning
    DPHD(SCNT,SDD) ;
    DISPO(SDWLDA,SDC,SDR) ;
    EN(DFN,SDYN) ;evaluation if patient is on EWL
    ; SDYN passed by reference
    EDIT(SDWLDA,SDC,SDWLERR) ;ENTER/EDIT DISPOSITION
    HD ;HEADER

    External References

    Name Field # of Occurrence
    ^DIE EDITSA+8, EDITSA+9, EDITSA+10, EDITSA+11, EDITSA+17, DISPO+19, DISPO+21, DISPO+22, DISPO+23
    $$GET1^DIQ APPTD+12
    D^DIQ APPTD+7
    ^DIR EWLANS+7, ASKREM+6, ANSW+11, EDITSA+6, DISPO+12, DISPO+18
    $$SDAPI^SDAMA301 APPT+9
    $$CLIN^SDWLBACC APPT+14

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKREM+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ANSW+4
    Function Call: WRITE
    • Prompt: " YOU CANNOT EXIT HERE"
    • Line Location: ANSW+12
    Function Call: WRITE
    • Prompt: !,"Another User is Editing this Entry. Try Later."
    • Line Location: ANSW+17
    Function Call: WRITE
    • Prompt: !,"Another User is Editing this Entry. Try Later."
    • Line Location: ANSW+30
    Function Call: WRITE
    • Prompt: !!,"*** Patient has been removed from Wait List ***",!
    • Line Location: DISEND+3
    Function Call: WRITE
    • Prompt: !,"Disposition canceled by user",!
    • Line Location: EDITSA+2
    Function Call: WRITE
    • Prompt: @IOF
    • Condition for execution: $D(IOF)
    • Line Location: HD+1
    Function Call: WRITE
    • Prompt: !!,?80-$L("Wait List - Disposition Patient")\2,"Wait List - Disposition Patient",!!
    • Line Location: HD+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: APPTD+16
    Function Call: WRITE
    • Prompt: !!,"Appointment(s) for: "_SDD(4)
    • Line Location: DPH+1
    Function Call: WRITE
    • Prompt: !!?4,"Specialty: "_SDD(13),?60,"Station: ",SDD(16),!
    • Line Location: DPH+1
    Function Call: WRITE
    • Prompt: !?3,"Appt Date/Time",?23,"Clinic",?48,"Status",?60,"Institution",!
    • Line Location: DPH+2
    Function Call: WRITE
    • Prompt: SDL,!
    • Line Location: DPH+2
    Function Call: WRITE
    • Prompt: !,SCNT,?3,SDD(1),?23,$E(SDD(2),1,23),?48,$E(SDD(10),1,10),?60,SDD(15)
    • Line Location: DPHD+1
    Routine Call
    • DIE
    • Line Location:
      • EDITSA+8
      • EDITSA+9
      • EDITSA+10
      • EDITSA+11
      • EDITSA+17
      • DISPO+19
      • DISPO+21
      • DISPO+22
      • DISPO+23
    Routine Call
    • DIR
    • Line Location:
      • EWLANS+7
      • ASKREM+6
      • ANSW+11
      • EDITSA+6
      • DISPO+12
      • DISPO+18

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(40.7 - [#40.7] GET1^DIQ
    ^SDWL(409.3 - [#409.3] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^SDWL(409.3 - [#409.3] EN+6, EN+7, EN+8, ANSW+17, ANSW+30, GETDATA+2, GETDATA+7, EDITSA+21!, EDITSA+23!
    ^SDWL(409.32 - [#409.32] GETDATA+6
    ^TMP($J ANSW+5, ANSW+15, ANSW+24, ANSW+25!, ANSW+26, ANSW+28, DISEND+4!, EDITSA+1, EDITSA+2, EDITSA+4
    , EDITSA+19, EDITSA+20, EDITSA+22, DISPO+25!, APPT+11, APPT+12, APPT+13*, APPT+15*, APPT+16*, APPT+17!
    , APPTD+3, APPTD+4, APPTD+5, DATP+2

    Label References

    Name Line Occurrences
    ANSW ASKREM+8
    APPTD EDITSA+2
    DATP EDITSA+14
    DISEND ANSW+19, ANSW+32
    DISPO ANSW+18, ANSW+31
    DPH APPTD+14
    DPHD APPTD+15
    EDIT DISEND+2
    EDITSA EDIT+4
    GETDATA ANSW+19, ANSW+32

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CP APPTD+10~
    CP( APPTD+10*, APPTD+12
    DA EDITSA+8*, EDITSA+15*, DISPO+19*, DISPO+20~*
    DFN EN~, EN+5, EN+6, EN+7, APPT~, APPT+7, APPT+11, APPT+13, APPT+17
    DIC DISEND+5!
    DIE DISEND+5!, EDITSA+8*, EDITSA+15*, DISPO+19*, DISPO+21*, DISPO+24!
    DIR EWLANS+3~, ASKREM+2~, ANSW+3~, DISEND+5!, EDITSA+3!, DISPO+6!, DISPO+24!
    DIR("?" EWLANS+6*, ASKREM+5*, ANSW+9*, EDITSA+5*
    DIR("A" EWLANS+5*, ASKREM+4*, ANSW+8*, ANSW+10*, EDITSA+5*, DISPO+11*, DISPO+18*
    DIR("B" EWLANS+4*, ASKREM+3*, EDITSA+4*
    DIR("L" DISPO+8*, DISPO+9*, DISPO+10*
    DIR("L,6" DISPO+10*
    DIR(0 EWLANS+5*, ASKREM+4*, ANSW+8*, EDITSA+5*, DISPO+7*, DISPO+18*
    DR DISEND+5!, EDITSA+8*, EDITSA+9*, EDITSA+10*, EDITSA+11*, EDITSA+16*, DISPO+19*, DISPO+21*, DISPO+22*, DISPO+23*
    , DISPO+24!
    DT GETDATA+5, EDITSA+16, APPTD+8
    DUOUT DISEND+2~
    DUZ GETDATA+5, EDIT+4, EDITSA+16
    FF ANSW+28~*
    GG ANSW+28~*
    IOF HD+1
    >> REC ANSW+21
    SAPP APPT+9~*
    SC APPT~, APPT+6, APPT+13, APPT+14, APPT+17
    SCNT APPT+3~, APPT+12*, APPT+13, APPT+15, APPT+16, APPTD+2~, APPTD+4*, APPTD+5, APPTD+14, APPTD+15
    , DATP~, DATP+2, DPH~, DPHD~, DPHD+1
    SD APPT~, APPT+5, APPT+13, APPT+17, APPTD+7~*, APPTD+8
    SDA EDITSA+4~*, EDITSA+5, EDITSA+14~, EDITSA+15, DATP~
    SDA( DATP+4*
    SDA(1 EDITSA+16, DATP+3*
    SDA(13 EDITSA+16
    SDA(14 EDITSA+16
    SDA(15 EDITSA+16
    SDA(16 EDITSA+16, DATP+5*
    SDA(2 EDITSA+16
    SDA(3 EDITSA+16
    SDAN ANSW+12~*, ANSW+13, ANSW+15, ANSW+21*, ANSW+22, ANSW+27, ANSW+28
    >> SDAP EDITSA+1*, EDITSA+2, EDITSA+7*, EDITSA+14
    SDARR APPT+3~, APPT+9
    SDARR("FLDS" APPT+8*
    SDARR(1 APPT+5*
    SDARR(2 APPT+6*
    SDARR(4 APPT+7*
    SDC ANSW+5*, ANSW+8, ANSW+15~*, ANSW+18, ANSW+19, ANSW+21, ANSW+24~*, ANSW+25, ANSW+28~*, ANSW+31
    , ANSW+32, DISEND~, DISEND+2, DISEND+4, EDIT~, EDITSA+19, EDITSA+20, DISPO~, DISPO+8, DISPO+11
    , DISPO+25
    SDCB ANSW+5~*, ANSW+8, ANSW+21
    SDCLIN APPT+14~*
    SDCONT EWLANS~, EWLANS+2*, EWLANS+8*
    SDD APPTD+14, APPTD+15, DPH~, DPHD~
    SDD( APPTD+6*, APPTD+11*, APPTD+12*
    SDD(1 APPTD+7*, DPHD+1
    SDD(10 DPHD+1
    SDD(13 DPH+1
    SDD(15 DPHD+1
    SDD(16 APPTD+9*, DPH+1
    SDD(2 DPHD+1
    SDD(3 APPTD+8*
    SDD(4 DPH+1
    SDDIS ASKREM+1*, ASKREM+7*, ASKREM+8, ANSW~, ANSW+10, ANSW+18, ANSW+19, ANSW+21, ANSW+23, ANSW+31
    , ANSW+32
    >> SDDIV APPT+4*
    SDFAC APPT+10~, APPT+14*, APPT+16
    SDINST APPT+10~, APPT+14*, APPT+15
    SDINSTE APPT+10~, APPT+14*, APPT+15
    SDL DPH+2~*
    SDR ANSW~, ANSW+3*, ANSW+18~, ANSW+19*, ANSW+23*, ANSW+24*, ANSW+26*, ANSW+31~, ANSW+32*, DISPO~
    , DISPO+6*, DISPO+16*
    SDRN ANSW+24~
    SDWLASK DISPO+24!
    SDWLCL GETDATA+1~, GETDATA+3*
    SDWLCOM DISPO+19*, DISPO+24!
    SDWLDA EN+7*, EN+8, ANSW+15*, ANSW+17, ANSW+18, ANSW+19, ANSW+24~*, ANSW+28*, ANSW+30, ANSW+31
    , ANSW+32, DISEND~, DISEND+2, GETDATA~, GETDATA+2, GETDATA+7, EDIT~, EDITSA+8, EDITSA+15, EDITSA+21
    , EDITSA+23, DISPO~, DISPO+19, DISPO+20, DISPO+24!
    SDWLDAPT GETDATA+1~, GETDATA+5*
    SDWLDATA GETDATA+1~, GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5
    SDWLDFN EDITSA+18~, EDITSA+22*, EDITSA+23
    SDWLDISP GETDATA+1~, GETDATA+7*, EDIT+4*, EDITSA, EDITSA+14
    SDWLDS ANSW+24~*, ANSW+25
    SDWLDSS DISPO+24!
    SDWLDUZ GETDATA+1~, GETDATA+5*, EDIT+4*
    SDWLEDT GETDATA+1~, GETDATA+5*
    SDWLERR DISEND+2, EDIT~, EDIT+4*, DISPO+24!
    SDWLIN GETDATA+1~, GETDATA+3*
    SDWLPRI GETDATA+1~, GETDATA+4*
    SDWLPROV GETDATA+1~, GETDATA+5*
    SDWLRB GETDATA+1~, GETDATA+4*
    SDWLSC GETDATA+1~, GETDATA+4*, GETDATA+6
    SDWLSCL GETDATA+6*, EDITSA+18~, EDITSA+19*, EDITSA+21
    SDWLSP GETDATA+1~, GETDATA+4*
    SDWLSS GETDATA+4*, EDITSA+18~, EDITSA+20*, EDITSA+23
    SDWLST GETDATA+1~, GETDATA+3*, GETDATA+5*
    SDWLTY GETDATA+1~, GETDATA+3*
    SDWLX DISPO+14*, DISPO+15, DISPO+17, DISPO+24!
    SDYN EN~, EN+4*, EN+7, EN+8*, EN+9
    SDYN(1 EN+4*, EN+5*, EN+6*, EN+8*, EN+9*
    SS ANSW+5~, EDITSA+4~
    STR ANSW+5~, EDITSA+4~, APPTD+2~, APPTD+5*, APPTD+6, APPTD+7, APPTD+9, APPTD+10, DATP+2*, DATP+3
    , DATP+4, DATP+5
    SXB ANSW+14~, ANSW+15*
    SXE ANSW+14~, ANSW+15*
    U ANSW+21, ANSW+25, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, EDITSA+19, EDITSA+20, EDITSA+22
    , APPT+14, APPTD+7, APPTD+9, APPTD+10, DATP+3
    X EWLANS+3~, ASKREM+2~, ANSW+3~, ANSW+12, EDITSA+3!, EDITSA+7, DISPO+6!, DISPO+13*, DISPO+14, DISPO+18
    , DISPO+19, DISPO+24!
    Y EWLANS+3~, EWLANS+8, ASKREM+2~, ASKREM+7, APPTD+7*
    ZZ APPTD+6~*, APPTD+10~*, APPTD+11, APPTD+12, DATP+4~*
    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