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

Entry Points

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

    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

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