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
Print Page as PDF
Routine: SDWLRAD

Package: Scheduling

Routine: SDWLRAD


Information

SDWLRAD ;IOFO BAY PINES/TEH - ADHOC WAIT LIST REPORT ;1/5/16 4:21pm

Source Information

Source file <SDWLRAD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Header
INS ;Get Institution
DATE ;Date range selection
E1
CAT ;Report category selection
CT1
CT2
PRI ;Priority
OPEN ;OPEN Wait List Entries
FORM ;Report Format
DIS ;Display Parameters
QUE ;Queue Report
HD
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Beginning Date must be greater than Ending Date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Print Report for ALL dates? "
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !!," *** Report Category Selection ***"
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: " Invalid Selection."
  • Line Location: CAT+6
Function Call: WRITE
  • Prompt: !!,"Select Category for Report Output",!
  • Line Location: CAT+7
Function Call: WRITE
  • Prompt: !!,"Do you want to 'OPEN' Wait List Entries "
  • Line Location: OPEN+1
Function Call: WRITE
  • Prompt: !!,?80-$L("*** Selected Report Parameters ***")\2,"*** Selected Report Parameters",!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,"Institution: ALL INSTITUTIONS"
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: " ",SDWLBD," to ",SDWLED
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !,"CID/Preferred Date Range: "
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: " ",SDWLBD," to ",SDWLED
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !,"Report Category: ",$S(SDWLCAT="C":" Clinic",1:" Service/Specialty")
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !,"Priority: ",$S(SDWLPRI="I":" Immediate",1:" Future")
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !,"Output Format: ",$S(SDWLFORM="D":" Detailed",1:" Summary")
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: !,"Printing 'OPEN' Entries Only."
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !!,"Are these Parameters Correct "
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: !," This Report will NOT be queued to print."
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: !," This Report will NOT be queued and returning."
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?80-$L("Appointment Wait List Report")\2,"Appointment Wait List Report"
  • Line Location: HD+0
Info |  Source |  Entry Points |  Interaction Calls