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

Package: Scheduling

Routine: SDWLRPT1


Information

SDWLRPT1 ;IOFO BAY PINES/TEH - WAIT LIST REPORT FORMAT 1 ;1/5/16 3:39pm

Source Information

Source file <SDWLRPT1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
INIT ;Initialize variables
INIT1
SORT ;Sort Records
PRINT ;Print Report
LINE ;Draw Line
HD ;Header
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?80-$L("*** No Patient Records to Report ***")\2,"*** No Patient Records to Report ***"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"*** No Patient Records to Report ***"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: X,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?50,"Desired Date: ",SDWLAPTD
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?48,"CID/Preferred Date: ",SDWLAPTD
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: $S(SDWLSCP=1:"YES",1:"NO")
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,"Requested by: ",$$EXTERNAL^DILFD(409.3,11,,SDWLRBY)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?35,"Requesting Provider: "
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: X
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,?10,"(Work): ",$P(SDWLPH,U,2)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,"Disposition: ",$P(SDWLDISX,U,3)," (",SDWLDIDT,")"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !!,"** End of Report **"
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,SDWLDTP,?80-$L("Appointment Wait List Report")\2,"Appointment Wait List Report"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?72,"Page: ",SDWLPG
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,?30,"Institution: "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?45,X
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,?17,"CID/Preferred Date Range: ",SDWLBDT
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: " to ",SDWLEDT
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !?26,"Report Category: ",$S($P(SDWLCT1,U,1)="C":"CLINIC",1:"SPECIALTY")
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: " ALL"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,?45,$S(SDWLF="C":$P(^SC(X,0),U,1),1:$P(^DIC(40.7,X,0),U,1))
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !,?35,"Status: ",$S(SDWLOPEN="O":"Open",1:"All")
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed")
  • Line Location: HD+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SDWL(409.3 - [#409.3] EXTERNAL^DILFD,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call