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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 1 $$S^%ZTLOAD  
Registration 1 (ADD,DEM,ELIG)^VADPT  
Scheduling 1 EN^SDWLKIL  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT INIT1, PRINT+16, HD+6
NOW^%DTC INIT1
$$S^%ZTLOAD EN+1, EN+3, EN+5, PRINT+3
$$EXTERNAL^DILFD PRINT+26, PRINT+27
$$GET1^DIQ SORT+17, SORT+18, PRINT+24
^DIR PRINT+34
EN^SDWLKIL END+4
ADD^VADPT PRINT+10
DEM^VADPT PRINT+10
ELIG^VADPT SORT+15, PRINT+10

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
Routine Call
  • DIR
  • Line Location:
    • PRINT+34

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SDWL(409.3 - [#409.3] EXTERNAL^DILFD,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] INIT+14, SORT+20
^DIC(40.7 - [#40.7] HD+15
^SC - [#44] HD+15
^SDWL(409.3 - [#409.3] SORT+1, SORT+2, PRINT+10, PRINT+14, PRINT+15, PRINT+29, PRINT+30, PRINT+31
^TMP("SDWLRPT1" EN+6!, INIT+14*, SORT+19*, SORT+20*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+7, PRINT+8
, PRINT+9
^TMP("SDWLRQ1" EN+6!

Label References

Name Line Occurrences
END EN+1, EN+3, EN+5, PRINT+3
HD PRINT+2, PRINT+35
INIT EN
INIT1 INIT+16
LINE PRINT+4
PRINT EN+4
SORT EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT1
CT1 INIT+2, END+3!
CT2 INIT+3, END+3!
DATE INIT+4, END+3!
DFN SORT+15*, PRINT+1~, PRINT+10*
>> DIR(0 PRINT+34*
>> DUOUT PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+34*, PRINT+35
FORM INIT+5, END+3!
I HD+5*, HD+15*, END+3!
INS INIT+6, END+3!
IOF HD+1
IOSL PRINT+34, PRINT+35
OPEN INIT+7, END+3!
SDLTK END+2!
SDLWDA END+1!
SDLWDEAD END+1!
SDWL INIT+10*, END!
SDWLA PRINT+3*, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+9, END!
SDWLAPTD PRINT+14*, PRINT+16*, PRINT+20, END!
SDWLB PRINT+5*, PRINT+6, PRINT+7, PRINT+8, PRINT+9, END!
SDWLBD INIT+16*, INIT+17*, SORT+7, END!
SDWLBDT HD+6*, HD+9, END!
SDWLC PRINT+7*, PRINT+8, PRINT+9, END!
SDWLCAT END!
SDWLCNT SORT+1*, SORT+20*, PRINT+2*, END!
SDWLCOM PRINT+14*, PRINT+25, END!
>> SDWLCT INIT+15*
SDWLCT1 INIT+2*, INIT+12, SORT+8, SORT+16, HD+12, HD+13, END!
SDWLCT2 INIT+3*, INIT+15, SORT+9, HD+11, HD+15, END!
SDWLCT2( INIT+15*, SORT+10
SDWLCTX END!
SDWLD PRINT+8*, PRINT+9, END!
>> SDWLDA SORT+1*, SORT+2, SORT+19
>> SDWLDATE INIT+4*, INIT+16, INIT+17, HD+6
>> SDWLDDT PRINT+31*
SDWLDDUZ PRINT+30*, PRINT+32!
>> SDWLDEAD PRINT+13*
SDWLDFN SORT+2*, SORT+15, PRINT+10*, END+1!
SDWLDIDT PRINT+31*, PRINT+32!
SDWLDIS PRINT+30*, PRINT+32!
SDWLDISX PRINT+30*, PRINT+32!
>> SDWLDTP INIT1*, HD+1
SDWLE PRINT+9*, PRINT+10, PRINT+14, PRINT+15, PRINT+24, PRINT+29, PRINT+30, PRINT+31, END+1!
>> SDWLED INIT+16*, INIT+17*, SORT+7
SDWLEDT HD+6*, HD+10, END+1!
SDWLELIG PRINT+11*, PRINT+12*, PRINT+21, END+1!
SDWLERR SORT+2*, SORT+5*, SORT+7*, SORT+8*, SORT+10*, SORT+11*, SORT+12*, SORT+13*, SORT+14, END+1!
SDWLF SORT+16*, SORT+18, HD+13*, HD+15, END+1!
SDWLFD END+1!
>> SDWLFORM INIT+5*, HD+17
SDWLI INIT+10*, INIT+14*, INIT+15*, END+1!
SDWLIENS SORT+17*, END+3!
SDWLIN INIT+14*, END+1!
SDWLIN( INIT+14*, SORT+5
SDWLIN("ALL" INIT+11*
SDWLINS INIT+6*, INIT+11, INIT+14, SORT+4, HD+3, HD+4, HD+5, END+1!
SDWLINST END+1!
SDWLNAM PRINT+11*, PRINT+17, END+2!
>> SDWLOPEN INIT+7*, INIT+13*, SORT+13, HD+16
SDWLPD END+2!
SDWLPG INIT+8*, HD+2*, END+2!
SDWLPH PRINT+16*, PRINT+28, END+2!
SDWLPROM END+2!
SDWLPRV END+2!
SDWLRBY PRINT+15*, PRINT+26, END+2!
>> SDWLRPV PRINT+15*, PRINT+27
SDWLSCC SORT+15*, SORT+19, END+2!
>> SDWLSCN SORT+15*
SDWLSCP PRINT+23~, PRINT+24*
SDWLSIEN SORT+18*, END+3!
SDWLSPT PRINT+34, PRINT+35, END+2!
SDWLSSN PRINT+14*, PRINT+20, END+2!
SDWLTAG END+2!
SDWLTXP INIT+12*, END+2!
SDWLTYP SORT+8*, SORT+11, END+3!
SDWLTYPE SORT+8*, SORT+10, SORT+18, END+3!
SDWLX SORT+2*, SORT+5, SORT+7, SORT+8, SORT+12, SORT+13, SORT+17, SORT+19, SORT+20, END+3!
U INIT+12, INIT+14, INIT+15, INIT+17, SORT+5, SORT+7, SORT+8, SORT+12, SORT+13, SORT+15
, SORT+16, SORT+17, SORT+19, SORT+20, PRINT+10, PRINT+14, PRINT+15, PRINT+21, PRINT+28, PRINT+30
, PRINT+31, PRINT+32, HD+6, HD+11, HD+12, HD+13, HD+15
>> VA("BID" PRINT+14
>> VADM(1 PRINT+11
>> VAEL(1 PRINT+11
>> VAEL(3 SORT+15
VAPA END+3!
VAPA(8 PRINT+16
VDAM END+3!
>> X SORT+17*, SORT+19, PRINT+4*, PRINT+6*, PRINT+27*, PRINT+34, HD+5*, HD+11*, HD+12, HD+14
, HD+15*, HD+16*, HD+17*
>> Y INIT1*, SORT+18*, SORT+19, PRINT+16*, HD+6*
>> ZTSAVE INIT+9
>> ZTSAVE( INIT+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All