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

Package: Scheduling

Routine: SDWLROS


Information

SDWLROS ;IOFO BAY PINES/TEH - WAIT LIST OVERDUE REPORT-SUMMARY ;1/5/16 9:25am

Source Information

Source file <SDWLROS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
INIT ;Initialize variables
SORT ;Sort Records
PRT ;
PRA ;
PRT1 ;
LINE ;Draw Line
HD ;Header
HD1 ;
; SD*5.3*645 - changed 'Date Desired' to 'CID/PD' due to space limit
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Institution: ",$P($G(^DIC(4,SDWLIN,0)),U,1),!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,$$EXTERNAL^DILFD(SDWLF,.01,,$P(^SDWL(SDWLF,SDWLSC,0),U,1)),?30,SDWLX
  • Line Location: PRA+2
Function Call: WRITE
  • Prompt: !,?20,"Total #: ",SDWLXT
  • Line Location: PRA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+4
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 Overdue Report")\2,"Appointment Wait List Overdue Report"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?59,SDWLPD
  • Line Location: HD+2
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: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="C":"CLINIC",1:"SPECIALTY")
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " ALL"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,?45,$$EXTERNAL^DILFD(SDWLF,.01,,X)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed")
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,"Name",?30,"Date Entered",?47,"CID/PD",?60,"# of Days Waiting",!!
  • Line Location: HD1+3
Info |  Source |  Entry Points |  Interaction Calls