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 ;1/11/16 10:31am

Source Information

Source file <SDWLI.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 2 SD WAIT LIST DISPLAY  SD WAIT LIST INQUIRY  
Kernel 1 ^ORD(101  

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+37, DISP+38
ENS^%ZISS DISP+50
KILL^%ZISS DISP+50
^DIC PAT+6
$$EXTERNAL^DILFD DISP+18, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+26, DISP+27, DISP+34, DISP+35
$$GET1^DIQ GETFILE+7, GETFILE+15, DISP+31, DISP+38, DISP+39, DISP+41, DISP+44, DISP+46, DISP+47
GETS^DIQ DISP+51
^DIR EN+4, SEL+2, DISP+1, DISP+53
$$GETTRN^SDWLIFT1 DISP+50
1^VADPT EN+6, PAT+10
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+25
Function Call: WRITE
  • Prompt: !,"Requested By - ",$$EXTERNAL^DILFD(409.3,11,,SDWLPRV),?49,"CID/Preferred Date - ",SDWLDTD
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !,"Provider - ",$$EXTERNAL^DILFD(409.3,12,,SDWLPROV)
  • Line Location: DISP+27
Function Call: WRITE
  • Prompt: !,"Comments - ",SDWLCOM
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !,"Reopen Reason: ",$P(SDOP,U)
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: !,"Reopen comment: ",$P(SDOP,U,2)
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !,"Non Removal Reason - ",SDREMR,!,"Non Remove Reason entered by - ",$$GET1^DIQ(200,SDREMU_",",.01,"I")
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !,"Non Removal Comment - ",SDREMRC
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: !,"Disposition - ",$$EXTERNAL^DILFD(409.3,21,,SDWLDIS),?51,"Disposition Date - ",SDWLDIDT
  • Line Location: DISP+34
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISP+37
Function Call: WRITE
  • Prompt: Y,?30,"For clinic: "
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: SDC
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: !,"Appointment Status: Canceled by Clinic"
  • Line Location: DISP+43
Function Call: WRITE
  • Prompt: !,IOINHI,"In transfer to ",SDWLINNM," (",SDWLSTN,")",IOINORM
  • Line Location: DISP+50
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+6
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • SEL+2
    • DISP+1
    • DISP+53

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+29, DISP+31, DISP+34, DISP+36

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+7
SEL EN+6, EN+16, SEL1
SEL1 SEL+4, SEL1+1

Naked Globals

Name Field # of Occurrence
^("SDAPT" GETFILE+5, DISP+36
^("SDOP" DISP+29
^(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+6*, HD+4~*
DIC EN+6!, EN+7!, EN1!, PAT+2!, PAT+6*, END+1!
DIC("S" PAT+2!
DIC(0 PAT+6*
DIE EN+6!, EN+7!, EN1!, DISP+52!, END+1!
DIR EN+6!, EN+7!, EN1!, SEL1!, DISP+1!, DISP+52!, DISP+53!, END+1!
DIR("?" SEL+1*
DIR("A" SEL*
DIR("B" SEL*
DIR(0 EN+4*, SEL*, DISP+1*, DISP+53*
DR EN+6!, EN+7!, EN1!, DISP+52!, END+1!
DUOUT EN+4*, EN+5, EN+6, EN+16, EN+19, EN1+2, PAT+9, SEL+3*, DISP+1*, DISP+2
, DISP+54*, DISP+55*, HD+7!, END+1!
IOF HD+1
>> IOINHI DISP+50
>> IOINORM DISP+50
MM DISP+12*, DISP+13*, END+5!
SAPS DISP+43~*
SDAIN DISP+39~*, DISP+40
SDAP DISP+36~*, DISP+37, DISP+38, DISP+39, DISP+41, DISP+43
SDC DISP+38~*
SDCR DISP+41~*, DISP+42
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+29~*, DISP+30
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+33, END+5!
SDREMR GETFILE+15*, GETFILE+29, DISP+6*, DISP+31, END+5!
SDREMRC GETFILE+15*, GETFILE+29, DISP+6*, DISP+32, END+5!
SDREMU GETFILE+13*, GETFILE+29, DISP+6*, DISP+31, 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+52!, END+2!
SDWLCLPT DISP+3~, DISP+44*, DISP+45, DISP+46, DISP+47
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+29, DISP+31, DISP+34, DISP+36, END+2!
SDWLCOM DISP+9*, DISP+28, DISP+52!, 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+44, DISP+50, DISP+51, 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+35, END+2!
SDWLDFN EN+6*, EN+17, EN+18, PAT+6*, PAT+7, GETFILE+2, HD+3, HD+4, END+1!, END+2!
SDWLDIDT GETFILE+11*, GETFILE+25, DISP+11*, DISP+34, DISP+52!, END+2!
SDWLDIS GETFILE+9*, GETFILE+25, DISP+11*, DISP+34, DISP+52!, END+2!
SDWLDISC SEL1*, END+4!
SDWLDISX GETFILE+2!, GETFILE+9*, GETFILE+24, GETFILE+31!, DISP+3~, DISP+4*, DISP+11, DISP+52!, END+2!
SDWLDRG EN1!, SEL!, SEL1+1*, GETFILE+3, GETFILE+17, END+3!
SDWLDT GETFILE+16*, GETFILE+19, DISP+1*, DISP+12*, DISP+52!, END+3!
SDWLDTD DISP+13*, DISP+26, DISP+52!, END+3!
SDWLDTP DISP+12*, DISP+18, END+3!
SDWLDUZ DISP+10*, DISP+23, DISP+52!, 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+47, DISP+52!, END+3!
SDWLINNM DISP+50, DISP+52!
SDWLLIST EN+2, EN+6, END+5!
SDWLP DISP+20*, DISP+22, END+4!
SDWLPRI DISP+7*, DISP+20, DISP+52!, END+3!
SDWLPRON END+4!
SDWLPROV GETFILE+17*, DISP+10*, DISP+27, DISP+52!, END+3!
SDWLPRV DISP+10*, DISP+26, DISP+27, DISP+52!
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+50, DISP+52!
SDWLTY DISP+7*, DISP+8, DISP+9, DISP+18, DISP+52!, END+3!
SDWLTYN DISP+9*, DISP+19, DISP+52!, END+4!
SDWLTYP DISP+8*, DISP+19, END+4!
SDWLX DISP+10*, END+5!
SDWLY SEL+2*, SEL+4, GETFILE+3, END+4!
SDWRB DISP+26*, END+4!
SDXSCAT END+4!
U 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+29
, DISP+30, DISP+38, DISP+39, DISP+41, DISP+43
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+54
, END+5!
Y PAT+6, PAT+8, SEL+2, SEL1, SEL1+1, DISP+37*, DISP+38*, DISP+55, 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