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 |  Caller 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: SDWLI

Package: Scheduling

Routine: SDWLI


Information

SDWLI ;BPOI/TEH - DISPLAY PENDING APPOINTMENTS;6/1/05

Source Information

Source file <SDWLI.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  ^DIC  $$EXTERNAL^DILFD  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 (ENS,KILL)^%ZISS  
Registration 1 (1,DEM)^VADPT  
Scheduling 1 $$GETTRN^SDWLIFT1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD WAIT LIST INQUIRY  

Entry Points

Name Comments DBIA/ICR reference
DISP ;Display Wait List Data
EN ;NEW AND INITIALIZE VARIABLES
PAT ;PATIENT LOOK-UP
EN1
END ;
PATEND
GETFILE ;GET DATA - OPTIONAL DATE RANGE IF SDWLDBT AND SDWLEDT VALID DATE RANGE
SEL
SEL1
HD ;Header

External References

Name Field # of Occurrence
^%DT SEL1, SEL1+1
DD^%DT DISP+35, DISP+36
ENS^%ZISS DISP+48
KILL^%ZISS DISP+48
^DIC PAT+4
$$EXTERNAL^DILFD DISP+18, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+24, DISP+25, DISP+32, DISP+33
$$GET1^DIQ GETFILE+7, GETFILE+15, DISP+29, DISP+36, DISP+37, DISP+39, DISP+42, DISP+44, DISP+45
GETS^DIQ DISP+49
^DIR EN+4, SEL+2, DISP+1, DISP+51
$$GETTRN^SDWLIFT1 DISP+48
1^VADPT EN+6, PAT+8
DEM^VADPT EN+6, HD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"This Patient has NO entries on the Electronic Wait List."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"No 'OPEN' Wait List Records to Display.",!!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: X
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,"Priority - ",$$EXTERNAL^DILFD(409.3,10,,SDWLPRI)
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !,"Service Connected Priority - ",$$EXTERNAL^DILFD(409.3,15,,SDWLSCP)
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "Institution - ",$$EXTERNAL^DILFD(409.3,2,,SDWLIN)
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: X
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,"Requested By - ",$$EXTERNAL^DILFD(409.3,11,,SDWLPRV),?55,"Date Desired - ",SDWLDTD
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,"Provider - ",$$EXTERNAL^DILFD(409.3,12,,SDWLPROV)
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !,"Comments - ",SDWLCOM
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !,"Reopen Reason: ",$P(SDOP,U)
  • Line Location: DISP+27
Function Call: WRITE
  • Prompt: !,"Reopen comment: ",$P(SDOP,U,2)
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !,"Non Removal Reason - ",SDREMR,!,"Non Remove Reason entered by - ",$$GET1^DIQ(200,SDREMU_",",.01,"I")
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: !,"Non Removal Comment - ",SDREMRC
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !,"Disposition - ",$$EXTERNAL^DILFD(409.3,21,,SDWLDIS),?51,"Disposition Date - ",SDWLDIDT
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISP+35
Function Call: WRITE
  • Prompt: Y,?30,"For clinic: "
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: SDC
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: !,"Appointment Status: Canceled by Clinic"
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: !,IOINHI,"In transfer to ",SDWLINNM," (",SDWLSTN,")",IOINORM
  • Line Location: DISP+48
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List - Inquiry")\2,"Wait List - Inquiry ",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,VADM(1),?40
  • Condition for execution: $D(VADM)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: VA("PID")
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HD+6
Routine Call
  • DIC
  • Line Location:
    • PAT+4
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • SEL+2
    • DISP+1
    • DISP+51

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DIC(40.7 - [#40.7] GET1^DIQ
^SDWL(409.3 - [#409.3] EXTERNAL^DILFD,  GET1^DIQ,  GETS^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDWL(409.3 - [#409.3] EN+4, GETFILE+2, GETFILE+3, GETFILE+5, GETFILE+7, GETFILE+8, GETFILE+9, GETFILE+10, GETFILE+12, GETFILE+13
, DISP+16
^TMP("SDWLI" EN+6!, EN+8!, GETFILE+2!, GETFILE+23*, GETFILE+25*, GETFILE+26*, GETFILE+27*, GETFILE+29*, GETFILE+30*, DISP+1
, DISP+2, DISP+4, DISP+5, DISP+7, DISP+27, DISP+29, DISP+32, DISP+34

Label References

Name Line Occurrences
DISP EN1+2
EN EN+16, EN1+2
EN1 EN+6
END EN+5, EN+6, EN+18, EN1+3
GETFILE EN1+1
HD EN+4, EN+6, EN+12
PAT EN+17
PATEND PAT+5
SEL EN+6, EN+16, SEL1
SEL1 SEL+4, SEL1+1

Naked Globals

Name Field # of Occurrence
^("SDAPT" GETFILE+5, DISP+34
^("SDOP" DISP+27
^(1 GETFILE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+1~, SEL1*
%DT("A" SEL1*, SEL1+1*!
%DT(0 SEL1!, SEL1+1*!
DD EN+1~, DISP+12*, DISP+13*
DFN EN+3, EN+4, EN+6, PAT+4*, HD+4~*
DIC EN+6!, EN+7!, EN1!, PAT+2!, PAT+4*, END+1!
DIC("S" PAT+2!, PAT+3*
DIC(0 PAT+4*
DIE EN+6!, EN+7!, EN1!, DISP+50!, END+1!
DIR EN+6!, EN+7!, EN1!, SEL1!, DISP+1!, DISP+50!, DISP+51!, END+1!
DIR("?" SEL+1*
DIR("A" SEL*
DIR("B" SEL*
DIR(0 EN+4*, SEL*, DISP+1*, DISP+51*
DR EN+6!, EN+7!, EN1!, DISP+50!, END+1!
DUOUT EN+4*, EN+5, EN+6, EN+16, EN+19, EN1+2, PAT+7, SEL+3*, DISP+1*, DISP+2
, DISP+52*, DISP+53*, HD+7!, END+1!
IOF HD+1
>> IOINHI DISP+48
>> IOINORM DISP+48
MM DISP+12*, DISP+13*, END+5!
SAPS DISP+41~*
SDAIN DISP+37~*, DISP+38
SDAP DISP+34~*, DISP+35, DISP+36, DISP+37, DISP+39, DISP+41
SDC DISP+36~*
SDCR DISP+39~*, DISP+40
SDLWEDT END+3!
SDLWP END+3!
SDLWPRV END+3!
SDLWST END+3!
SDLWX END+4!
SDNOK GETFILE+17, GETFILE+18*, GETFILE+19*, END+2!
SDOP GETFILE+7~*, GETFILE+27, DISP+27~*, DISP+28
SDOP1 GETFILE+7~*
SDREM GETFILE+13*, GETFILE+28, GETFILE+31!
SDREMD GETFILE+13*, GETFILE+14, END+5!
SDREMDD GETFILE+14*, GETFILE+29, DISP+6*, DISP+31, END+5!
SDREMR GETFILE+15*, GETFILE+29, DISP+6*, DISP+29, END+5!
SDREMRC GETFILE+15*, GETFILE+29, DISP+6*, DISP+30, END+5!
SDREMU GETFILE+13*, GETFILE+29, DISP+6*, DISP+29, END+5!
SDSWLTYP END+4!
SDWLAPP GETFILE+5~*, GETFILE+6*, GETFILE+26
SDWLBDT EN+6*, EN+8*, SEL1*, SEL1+1, GETFILE+19, END+2!, END+4!
SDWLCL DISP+7*, DISP+50!, END+2!
SDWLCLPT DISP+3~, DISP+42*, DISP+43, DISP+44, DISP+45
SDWLCN DISP+1*, END+2!
SDWLCNT GETFILE+2*, GETFILE+23*, GETFILE+25, GETFILE+26, GETFILE+27, GETFILE+29, GETFILE+30, DISP+1*, DISP+2*, DISP+4
, DISP+5, DISP+7, DISP+17, DISP+27, DISP+29, DISP+32, DISP+34, END+2!
SDWLCOM DISP+9*, DISP+26, DISP+50!, END+2!
SDWLCT DISP+1*, END+2!
SDWLDA GETFILE+2*, GETFILE+3, GETFILE+5, GETFILE+7, GETFILE+8, GETFILE+9, GETFILE+10, GETFILE+12, GETFILE+13, GETFILE+15
, GETFILE+23, DISP+7*, DISP+16, DISP+42, DISP+48, DISP+49, END+2!
SDWLDATA GETFILE+3*, GETFILE+4, GETFILE+6, GETFILE+13, GETFILE+16, GETFILE+17, GETFILE+23, END+2!
SDWLDDT GETFILE+10*, GETFILE+11, END+2!
SDWLDDUZ GETFILE+9*, GETFILE+25, DISP+11*, DISP+33, END+2!
SDWLDFN EN+6*, EN+17, EN+18, PAT+4*, PAT+5, GETFILE+2, HD+3, HD+4, END+1!, END+2!
SDWLDIDT GETFILE+11*, GETFILE+25, DISP+11*, DISP+32, DISP+50!, END+2!
SDWLDIS GETFILE+9*, GETFILE+25, DISP+11*, DISP+32, DISP+50!, END+2!
SDWLDISC SEL1*, END+4!
SDWLDISX GETFILE+2!, GETFILE+9*, GETFILE+24, GETFILE+31!, DISP+3~, DISP+4*, DISP+11, DISP+50!, END+2!
SDWLDRG EN1!, SEL!, SEL1+1*, GETFILE+3, GETFILE+17, END+3!
SDWLDT GETFILE+16*, GETFILE+19, DISP+1*, DISP+12*, DISP+50!, END+3!
SDWLDTD DISP+13*, DISP+24, DISP+50!, END+3!
SDWLDTP DISP+12*, DISP+18, END+3!
SDWLDUZ DISP+10*, DISP+23, DISP+50!, END+3!
SDWLEDT EN+6*, EN+8*, SEL1+1*, GETFILE+19, END+5!
SDWLERR EN+1*, EN+2, EN+3*, EN+6, END+4!
SDWLIN DISP+7*, DISP+22, DISP+45, DISP+50!, END+3!
SDWLINNM DISP+48, DISP+50!
SDWLLIST EN+2, EN+6, END+5!
SDWLP DISP+20*, DISP+22, END+4!
SDWLPRI DISP+7*, DISP+20, DISP+50!, END+3!
SDWLPRON END+4!
SDWLPROV GETFILE+17*, DISP+10*, DISP+25, DISP+50!, END+3!
SDWLPRV DISP+10*, DISP+24, DISP+25, DISP+50!
SDWLR DISP+3~, DISP+5*, DISP+6
SDWLSC GETFILE+16*, END+3!
SDWLSCP DISP+15~, DISP+16*, DISP+21
SDWLSP GETFILE+16*, END+3!
SDWLSS GETFILE+16*, END+3!
SDWLST GETFILE+16*, END+5!
SDWLSTN DISP+48, DISP+50!
SDWLTY DISP+7*, DISP+8, DISP+9, DISP+18, DISP+50!, END+3!
SDWLTYN DISP+9*, DISP+19, DISP+50!, END+4!
SDWLTYP DISP+8*, DISP+19, END+4!
SDWLX DISP+10*, END+5!
SDWLY PAT+3, SEL+2*, SEL+4, GETFILE+3, END+4!
SDWRB DISP+24*, END+4!
SDXSCAT END+4!
U PAT+4, GETFILE+3, GETFILE+4, GETFILE+6, GETFILE+7, GETFILE+9, GETFILE+10, GETFILE+13, GETFILE+16, GETFILE+17
, GETFILE+29, DISP+6, DISP+7, DISP+8, DISP+9, DISP+10, DISP+11, DISP+12, DISP+13, DISP+16
, DISP+27, DISP+28, DISP+36, DISP+37, DISP+39, DISP+41
VA END+5!
VA("PID" HD+5
VADM EN+6!, EN+7!, HD+5
VADM(1 HD+5
X SEL+3, DISP+7*, DISP+8, DISP+9, DISP+10, DISP+12, DISP+13, DISP+19*, DISP+23*, DISP+52
, END+5!
Y PAT+4, PAT+6, SEL+2, SEL1, SEL1+1, DISP+35*, DISP+36*, DISP+53, END+5!
YY DISP+12*, DISP+13*, END+5!
Info |  Source |  Call Graph |  Caller 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