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

Package: Scheduling

Routine: SDWLRPS2


Information

SDWLRPS2 ;;IOFO BAY PINES/TEH - WAIT LIST REPORT FORMAT 1-SUMMARY;06/12/2002 ; 20 Aug 2002 2:10 PM

Source Information

Source file <SDWLRPS2.m>

Call Graph

Call Graph Total: 7

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

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT INIT+17
^%DTC SORT+7
NOW^%DTC INIT+17
$$S^%ZTLOAD EN+2, EN+5, EN+7, PRT1+2
$$EXTERNAL^DILFD PRA+3
$$GET1^DIQ PRT+1, HD+4
^DIR SCR
1^VADPT PRT1+10
DEM^VADPT PRT1+10
ELIG^VADPT SORT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Institution: ",$$GET1^DIQ(4,SDWLIN_",",".01"),!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,$$EXTERNAL^DILFD(409.3,SDWLSCX,,SDWLSC),?30,SDWLX
  • Line Location: PRA+3
Function Call: WRITE
  • Prompt: !,?21,"Total #: ",SDWLXT
  • Line Location: PRA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+4
Function Call: WRITE
  • Prompt: !,"*** No Patient Records to Report ***"
  • 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+11
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,SDWLDTP,?80-$L("PCMM ASSIGNMENT Wait List Report")\2,"PCMM ASSIGNMENT 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+4
Function Call: WRITE
  • Prompt: ?45,$$GET1^DIQ(4,X_",",".01")
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="T":"TEAM",1:"POSITION")
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " ALL"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,?45,X
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?36,"Status: ",$S(SDWLOPEN="O":"Open",1:"All")
  • 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",?45,"# of Days Waiting",!!
  • Line Location: HD1+1
Routine Call
  • DIR
  • Line Location:
    • SCR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
END EN+2, EN+5, EN+6, EN+7
HD EN+3, PRA+6, PRT1+5, PRT1+13
HD1 PRA+6, PRT1+5, PRT1+13
INIT EN+1
PRA PRT+2
PRT EN+6
PRT1 EN+8
SCR PRA+6, PRT1+5, PRT1+13
SORT EN+4

Naked Globals

Name Field # of Occurrence
^( SORT+16*, SORT+17, SORT+18*, SORT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+17
CT1 INIT+2, END!
CT2 INIT+3, END!
DATE INIT+4, END!
DFN PRT1+1~, PRT1+9*
>> DIR(0 SCR*
DT SORT+7
FORM INIT+5, END!
I HD+4*, HD+8*, END!
INS INIT+6, END!
IOF HD+1
OPEN INIT+7, END!
POP EN+6, INIT+18~*, PRT+1, PRA+1, PRA+6, PRT1+2, PRT1+4, PRT1+5, PRT1+6, PRT1+7
, PRT1+8, PRT1+9, PRT1+13, SCR*
>> SDWL INIT+10*
>> SDWLAPDT SORT+7*
>> SDWLCL INIT+15*
>> SDWLCNT SORT+1*, SORT+22*
>> SDWLCT1 INIT+2*, INIT+13, INIT+16, SORT+8, SORT+9, HD+6
>> SDWLCT2 INIT+3*, INIT+15, SORT+10, HD+5, HD+8
>> SDWLCT2( INIT+15*, SORT+11
>> SDWLDA SORT+2*, SORT+3, SORT+21, PRT1+8*, PRT1+9
>> SDWLDATE INIT+4*
>> SDWLDDT PRT1+9*
>> SDWLDFN SORT+3*, SORT+18
>> SDWLDFNX PRA+4*
>> SDWLDTP INIT+17*, HD+1
>> SDWLDWT SORT+7*, SORT+21
>> SDWLERR SORT+3*, SORT+6*, SORT+8*, SORT+11*, SORT+12*, SORT+13*, SORT+14
>> SDWLF SORT+9*
>> SDWLFORM INIT+5*, HD+10
>> SDWLI INIT+10*, INIT+14*, INIT+15*
>> SDWLIN INIT+14*, PRT+1*, PRA+1, PRA+3, PRA+4
>> SDWLIN( INIT+14*, SORT+6
>> SDWLIN("ALL" INIT+11*
>> SDWLINS INIT+6*, INIT+11, INIT+12, INIT+14, SORT+5, PRT1+4*, PRT1+5, PRT1+6, PRT1+7, PRT1+8
>> SDWLINST INIT+6*, INIT+12*, HD+4
>> SDWLODT PRT1+9*, PRT1+11
>> SDWLOPDT SORT+7*
>> SDWLOPEN INIT+7*, SORT+13, HD+9
>> SDWLPG INIT+8*, HD+2*
>> SDWLSC PRA+1*, PRA+3, PRA+4, PRT1+6*, PRT1+7, PRT1+8
>> SDWLSCC SORT+15*, SORT+19, SORT+20, SORT+21, SORT+22, PRT1+2*, PRT1+3, PRT1+4, PRT1+5, PRT1+6
, PRT1+7, PRT1+8
>> SDWLSCN SORT+15*
>> SDWLSCX INIT+16*, PRA+2*, PRA+3
>> SDWLSPT PRA+6, PRT1+5, PRT1+13
>> SDWLTXP INIT+13*
>> SDWLTYP SORT+8*, SORT+12
>> SDWLTYPE SORT+8*, SORT+11, SORT+16, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21
>> SDWLWT PRT1+7*, PRT1+8, PRT1+12
>> SDWLX SORT+3*, SORT+6, SORT+7, SORT+8, SORT+13, SORT+16, SORT+17, SORT+18, SORT+19, SORT+20
, SORT+21, SORT+22, PRA+1*, PRA+3*
>> SDWLXT PRA+1*, PRA+3*, PRA+5
>> SDWLXTT PRA+4*
U INIT+13, INIT+14, INIT+15, INIT+16, SORT+6, SORT+7, SORT+8, SORT+9, SORT+13, SORT+15
, SORT+16, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, PRT1+5, PRT1+9, HD+5
, HD+6
>> VA("BID" PRT1+11
>> VADM(1 PRT1+11
>> VAEL(3 SORT+15
>> X SORT+7, PRT1+9*, SCR, HD+4*, HD+5*, HD+6, HD+7, HD+8*, HD+9*, HD+10*
X1 SORT+7*, END!
X2 SORT+7*, END!
>> Y INIT+17*
>> 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 |  Naked Globals |  Local Variables |  All