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

Package: Scheduling

Routine: SDWLRQ1


Information

SDWLRQ1 ;IOFO BAY PINES/TEH - ADHOC WAIT LIST REPORT ;1/5/16 10:44am

Source Information

Source file <SDWLRQ1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Header
1
2
3
4
5
6
INS ;Get Institution
IN
IN2
IN3
CAT ;Report category selection
CT1
CT2
CT3
DATE ;Date range selection
E1
OPEN ;OPEN Wait List Entries
FORM ;Report Format
DIS ;Display Parameters
IS
CT
DA ;W !,?13,"Date Desired Range: " S Y=$P(SDWLDATE,U,1) D DD^%DT S SDWLBD=Y S Y=$P(SDWLDATE,U,2) D DD^%DT S SDWLED=Y
OP
PR
QUE ;Queue Report
QUE1
END ;
HD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," *** Report Category Selection ***"
  • Line Location: CAT+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: CAT+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: CAT+6
Function Call: WRITE
  • Prompt: *7," Invalid Selection."
  • Line Location: CAT+8
Function Call: WRITE
  • Prompt: !!,"Select Category for Report Output",!
  • Line Location: CAT+9
Function Call: WRITE
  • Prompt: !,"This Entry is Required."
  • Line Location: CT1+1
Function Call: WRITE
  • Prompt: !!,"Print Report for ALL dates? "
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !,"Beginning Date must be greater than Ending Date."
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,"Do you want only 'OPEN' Wait List Entries "
  • Line Location: OPEN+1
Function Call: WRITE
  • Prompt: " Response must be 'YES' or 'NO'."
  • Line Location: OPEN+2
Function Call: WRITE
  • Prompt: *7,"?? "
  • Line Location: OPEN+3
Function Call: WRITE
  • Prompt: *7,"Required!"
  • Line Location: FORM+6
Function Call: WRITE
  • Prompt: !!,?80-$L("*** Selected Report Parameters ***")\2,"*** Selected Report Parameters ***",!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,?33
  • Condition for execution: I>1
  • Line Location: IS+3
Function Call: WRITE
  • Prompt: SDWLY(I)
  • Line Location: IS+3
Function Call: WRITE
  • Prompt: !,?20,"Institution: ALL "
  • Line Location: IS+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+3
Function Call: WRITE
  • Prompt: "All "
  • Line Location: CT+3
Function Call: WRITE
  • Prompt: !,?35
  • Condition for execution: I>1
  • Line Location: CT+4
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(SDWLF,.01,,SDWLY(I))
  • Line Location: CT+4
Function Call: WRITE
  • Prompt: !,?16,"Report Category: "
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: !,?7,"CID/Preferred Date Range: "
  • Line Location: DA+1
Function Call: WRITE
  • Prompt: " ",SDWLBD
  • Line Location: DA+2
Function Call: WRITE
  • Prompt: " to ",SDWLED
  • Line Location: DA+3
Function Call: WRITE
  • Prompt: !,?18,"Output Format: ",$S(SDWLFORM="D":" Detailed",1:" Summary")
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: !,?25,"Printing 'OPEN' Entries Only."
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !,?25,"Printing ALL Entries."
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,"Are these Parameters Correct "
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !," This Report will NOT be queued to print."
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: QUE+8
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