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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  ^DIC  YN^DICN  ^DIR  

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

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
DD^%DT DIS+8
^DIC INS+1, CT1
YN^DICN E1, OPEN+1, DIS+13
^DIR CAT+3, PRI+3, FORM+2

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
Routine Call
  • DIC
  • Line Location:
    • INS+1
    • CT1
Routine Call
  • DIR
  • Line Location:
    • CAT+3
    • PRI+3
    • FORM+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("SDWLRAD" EN+2!, INS+4*, INS+5*, DATE+4*, E1*, CT1*, CT1+4*, PRI+6*, OPEN+3*, FORM+4*
, DIS+3

Label References

Name Line Occurrences
CAT EN+5, EN+6, CAT+6
CT1 CT1+4
CT2 CT1
DATE EN+4, EN+5, DATE+2, DATE+3
DIS EN+9
E1 DATE+1
END INS+2, E1+2
FORM EN+8
HD EN+1
INS EN+3, EN+4, INS+2, INS+5
OPEN EN+7, EN+8
PRI EN+6, EN+7
QUE EN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % E1*, E1+1, E1+2, OPEN+1*, OPEN+2, OPEN+3, DIS+13*, DIS+14
>> %DT DATE+1*
>> %DT("A" DATE+1*, DATE+2*!
>> %DT(0 DATE+2*!
DIC EN+2!, INS+1*, CT1*, PRI+1!
DIC("A" INS+1*, CT1*
DIC("S" INS+1*
DIC(0 INS+1*, CT1*
DIE EN+2!
DIR EN+2!, PRI+1!
DIR("L" CAT+2*, PRI+2*, FORM+1*
DIR(0 CAT+2*, PRI+2*, FORM+1*
DR EN+2!
>> DUOUT INS+2
>> E EN+4, EN+5, EN+6, EN+7, EN+8, EN+10, DIS+5
IOF HD
>> SDWLBD DIS+8*
>> SDWLBDT DATE+1*, DATE+2, DATE+3, DATE+4
>> SDWLCAT CAT+2*, CT1, CT1+1, CT1+2, CT1+3*, DIS+9
>> SDWLDATE DIS+8
>> SDWLE EN+2*, INS+1, INS+4*, INS+5
>> SDWLED DIS+8*
>> SDWLEDT DATE+2*, DATE+3, DATE+4
>> SDWLERR INS+5*, DATE+1*, E1+1*, CAT+1*, CAT+4*, CAT+5*, CT1+1*, CT1+2*, PRI+1*, PRI+4*
, PRI+5*, OPEN+2*, FORM+1*, FORM+3*, DIS+1*, DIS+13*, DIS+14*
>> SDWLF CAT+9*, CT1
>> SDWLFORM DIS+11
>> SDWLI DIS+2*, DIS+3
>> SDWLINS DIS+4
>> SDWLINST EN+2*, INS+4*
>> SDWLOPEN DIS+12
>> SDWLPRI DIS+10
>> SDWLX CAT+8*, CT1
U DIS+8
>> X CAT+4, CAT+5, CAT+6, CAT+8, CAT+9, PRI+4, PRI+5, PRI+6, FORM+3, FORM+4
, DIS+3*
>> Y INS+1*, INS+2, INS+3, INS+5, DATE+1, DATE+2, CT1, CT1+1, CT1+2, CT1+4
, DIS+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All