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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDWLRPS1

Package: Scheduling

Routine: SDWLRPS1


Information

SDWLRPS1 ;IOFO BAY PINES/TEH - WAIT LIST REPORT FORMAT 1-SUMMARY ;1/5/16 3:40pm

Source Information

Source file <SDWLRPS1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 DD^%DT  (,NOW)^%DTC  $$EXTERNAL^DILFD  ^DIR  
Kernel 1 $$S^%ZTLOAD  
Registration 1 (1,DEM,ELIG)^VADPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
INIT ;Initialize variables
INIT1
SORT ;Sort Records
PRT ;
PRA ;
PRT1 ;
LINE ;Draw Line
HD ;Header
HD1 ;
END

External References

Name Field # of Occurrence
DD^%DT INIT1, HD+6
^%DTC SORT+9
NOW^%DTC INIT1
$$S^%ZTLOAD EN+2, EN+5, EN+9, PRT1+3
$$EXTERNAL^DILFD PRA+2, PRT1+8, HD+13
^DIR PRA+5, PRT1+15
1^VADPT PRT1+12
DEM^VADPT PRT1+12
ELIG^VADPT SORT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** End of Report ***"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"*** End of Report ***"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"*** No Patients to Report ***"
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,"Institution: ",$P($G(^DIC(4,SDWLIN,0)),U,1),!
  • Line Location: PRT+2
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+5
Function Call: WRITE
  • Prompt: ?32,$E(SDWLODT,4,5),"/",$E(SDWLODT,6,7),"/",($E(SDWLODT,1,3)+1700)
  • Line Location: PRT1+13
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: !,?18,"CID/Preferred Date Range: ",SDWLBDT," to ",SDWLEDT
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="C":"CLINIC",1:"SPECIALTY")
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: " ALL"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,?45,$$EXTERNAL^DILFD(SDWLF,.01,,X)
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !,?36,"Status: ",$S(SDWLOPEN="O":"Open",1:"All")
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed")
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !!,"Name",?30,"Date Entered",?47,"CID/PD",?60,"# of Days Waiting",!
  • Line Location: HD1+4
Routine Call
  • DIR
  • Line Location:
    • PRA+5
    • PRT1+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] INIT+14, PRT+2, PRT1+6
^SDWL( PRA+2, PRT1+8
^SDWL(409.3 - [#409.3] SORT+2, SORT+3, PRT1+11
^TMP("SDWLRPS1" EN+12!, SORT+1!, SORT+18, SORT+19*, SORT+20*, SORT+21*, SORT+22*, SORT+23*, PRT+1, PRT+2
, PRA+1, PRA+2, PRA+3, PRT1+3, PRT1+5, PRT1+7, PRT1+9, PRT1+10
^TMP("SDWLRPT1" INIT+14*, END+1!

Label References

Name Line Occurrences
END EN+2, EN+5, EN+7, EN+8, EN+9
HD EN+3, PRT1+16
HD1 PRT1+2, PRT1+15
INIT EN+1
INIT1 INIT+16
PRA PRT+3
PRT EN+6
PRT1 EN+10
SORT EN+4

Naked Globals

Name Field # of Occurrence
^( SORT+18*, SORT+19, SORT+20*, SORT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT1
CT1 INIT+2, END!
CT2 INIT+3, END!
DATE INIT+4, END!
DFN SORT+17*, PRT1+1~, PRT1+11*, PRT1+12!
>> DIR(0 PRA+5*, PRT1+15*
DT SORT+9
>> DUOUT EN+7, PRT+1*
FORM INIT+5, END!
I HD+5*, HD+13*, END!
INS INIT+6, END!
IOF HD+1, HD1+1
IOSL PRA+5, PRT1+15, PRT1+16
OPEN INIT+7, END!
POP EN+8, INIT+18~*, PRT+2, PRA+5*, PRT1+3, PRT1+5, PRT1+7, PRT1+9, PRT1+10, PRT1+11
, PRT1+15*
>> SDWL INIT+10*
>> SDWLAPDT SORT+9*
>> SDWLBD INIT+16*, INIT+17*, SORT+8
>> SDWLBDT HD+6*, HD+9
>> SDWLCT INIT+15*
>> SDWLCT1 INIT+2*, INIT+12, SORT+10, SORT+11, HD+11
>> SDWLCT2 INIT+3*, INIT+15, SORT+12, HD+10, HD+13
>> SDWLCT2( INIT+15*, SORT+13
>> SDWLDA SORT+2*, SORT+3, SORT+23, PRT1+10*, PRT1+11
>> SDWLDATE INIT+4*, INIT+16, INIT+17, HD+6
>> SDWLDDT SORT+3*, PRT1+11*, PRT1+14
>> SDWLDFN SORT+3*, SORT+17, SORT+20
>> SDWLDFNX PRA+3*
>> SDWLDTP INIT1*, HD+1
>> SDWLDWT SORT+9*, SORT+23
>> SDWLED INIT+16*, INIT+17*, SORT+8
>> SDWLEDT HD+6*, HD+9
>> SDWLERR SORT+3*, SORT+6*, SORT+8*, SORT+10*, SORT+13*, SORT+14*, SORT+15*, SORT+16
>> SDWLF SORT+11*, PRA+2, PRT1+8, HD+13
>> SDWLFORM INIT+5*, HD+15
>> SDWLI INIT+10*, INIT+14*, INIT+15*
>> SDWLIN INIT+14*, PRT+2*, PRA+1, PRA+2, PRA+3
>> SDWLIN( INIT+14*, SORT+6
>> SDWLIN("ALL" INIT+11*
>> SDWLINS INIT+6*, INIT+11, INIT+14, SORT+5, PRT1+5*, PRT1+6, PRT1+7, PRT1+9, PRT1+10, HD+3
, HD+4, HD+5
>> SDWLODT PRT1+11*, PRT1+13
>> SDWLOPDT SORT+9*
>> SDWLOPEN INIT+7*, INIT+13*, SORT+15, HD+14
>> SDWLPG INIT+8*, HD+2*
>> SDWLSC PRA+1*, PRA+2, PRA+3, PRT1+7*, PRT1+8, PRT1+9, PRT1+10
>> SDWLSCC SORT+17*, SORT+21, SORT+22, SORT+23, PRT1+3*, PRT1+4, PRT1+5, PRT1+7, PRT1+9, PRT1+10
>> SDWLSCN SORT+17*
>> SDWLSPT PRA+5, PRT1+15
>> SDWLTXP INIT+12*
>> SDWLTYP SORT+10*, SORT+14
>> SDWLTYPE SORT+10*, SORT+13, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23
>> SDWLWT PRT1+9*, PRT1+10, PRT1+14
>> SDWLX SORT+3*, SORT+6, SORT+8, SORT+9, SORT+10, SORT+15, SORT+18, SORT+19, SORT+20, SORT+21
, SORT+22, SORT+23, PRA+1*, PRA+2*
>> SDWLXT PRA+1*, PRA+2*, PRA+4
>> SDWLXTT PRA+3*
U INIT+12, INIT+14, INIT+15, INIT+17, SORT+3, SORT+6, SORT+8, SORT+9, SORT+10, SORT+11
, SORT+15, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23, PRT+2, PRA+2
, PRT1+6, PRT1+8, PRT1+11, HD+6, HD+10, HD+11
>> VA("BID" PRT1+13
>> VADM(1 PRT1+13
>> VAEL(3 SORT+17
>> X SORT+9, PRA+5, PRT1+11*, PRT1+15, HD+5*, HD+10*, HD+11, HD+12, HD+13*, HD+14*
, HD+15*
X1 SORT+9*, END!
X2 SORT+9*, END!
>> Y INIT1*, HD+6*
>> ZTSAVE INIT+9
>> ZTSAVE( INIT+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All