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

Package: Scheduling

Routine: SDWLDISP


Information

SDWLDISP ;;IOFO BAY PINES/TEH - WAIT LIST - DISPOSITION WAIT LIST ENTRY;06/12/2002 ; 20 Aug 2002 2:10 PM ; Compiled January 26, 2007 10:21:25

Source Information

Source file <SDWLDISP.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Scheduling 5 EN^SDWLD  DIS^SDWLE6  $$EN^SDWLE7  (APPTD,DATP)^SDWLEVAL  $$CHKENC^SDWLQSC1  
VA Fileman 5 ^DIC  ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Registration 1 (1,DEM)^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SD WAIT LIST DISPOSITION ENTRY  SDWLAPI  

Entry Points

Name Comments DBIA/ICR reference
PAT1
SING(SDWLDA,SDWLTY,SDWLDATA) ;called for filing with appointment if any
EN ;
PAT ;PATIENT LOOK-UP
EDIT ;ENTER/EDIT DISPOSITION
PKAPP(SDWLDA,SDWLTY,SDWLDATA) ;identify appointemnt to close with
EN1
END ;QUIT OPTION
GETDATA ;PATIENT DATA RETRIEVAL
HD ;HEADER
DIS ;DISPLAY DATA FOR PATIENT

External References

Name Field # of Occurrence
^DIC PAT+2
^DIE EDIT+18, EDIT+19, EDIT+20, EDIT+21, PKAPP+22, PKAPP+23, PKAPP+24, PKAPP+25, SING+1, SING+2
, SING+3, SING+4, SING+10
$$EXTERNAL^DILFD EDIT+3
$$GET1^DIQ PAT+4, PAT+5, PKAPP+5, PKAPP+6, PKAPP+7, PKAPP+8
^DIR EN+4, EN1+1, EN1+4, EN1+35, EDIT+8, PKAPP+19
EN^SDWLD DIS+3
DIS^SDWLE6 EDIT+25
$$EN^SDWLE7 EDIT+16
APPTD^SDWLEVAL PKAPP+14, PKAPP+15
DATP^SDWLEVAL SING+7
$$CHKENC^SDWLQSC1 PKAPP+10
1^VADPT EN+4, EN+6, PAT+6
DEM^VADPT EN+4, EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,VADM(1),?40,VA("PID"),*7,!,"This Patient has NO entries on the Electronic Wait List."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,VADM(1),?40,VA("PID")
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Patient has no Wait List Entries to Disposition."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: *7," Invalid Entry"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: *7," Invalid Entry"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: " Invalid Entry "
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,"Another User is Editing this Entry. Try Later."
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,"*** Patient has been removed from Wait List. ***"
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: !!,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: *7,"Invalid Entry"
  • Line Location: EDIT+14
Function Call: WRITE
  • Prompt: !,"Disposition canceled by user",!
  • Line Location: PKAPP+15
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List - Disposition Patient")\2,"Wait List - Disposition Patient",!!
  • Line Location: HD+2
Routine Call
  • DIE
  • Line Location:
    • EDIT+18
    • EDIT+19
    • EDIT+20
    • EDIT+21
    • PKAPP+22
    • PKAPP+23
    • PKAPP+24
    • PKAPP+25
    • SING+1
    • SING+2
    • SING+3
    • SING+4
    • SING+10
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN1+1
    • EN1+4
    • EN1+35
    • EDIT+8
    • PKAPP+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SDWL(409.3 - [#409.3] Classic Fileman Calls,  EXTERNAL^DILFD,  GET1^DIQ
^SDWL(409.31 - [#409.31] GET1^DIQ
^SDWL(409.32 - [#409.32] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDWL(409.3 - [#409.3] EN+4, EN1+23, GETDATA+2, GETDATA+7, EDIT+22!, EDIT+23!, SING+16!, SING+18!
^SDWL(409.32 - [#409.32] GETDATA+6
^TMP("SDWLD" EN1+18, EN1+19
^TMP($J PKAPP+12, PKAPP+15, PKAPP+17, SING+17

Label References

Name Line Occurrences
DIS EN+6, EN+18
EDIT EN1+32, EDIT+14
EN EN1+36
EN1 EN+6, EN1+7, EN1+10, EN1+13
END EN+14, EN1+1, EN1+4, EN1+11, EN1+24, EN1+32, EN1+35, EN1+36
GETDATA EN1+28
HD EN+4, EN+6, EN+10
PAT EN+14
PAT1 PAT+2, PAT+3
PKAPP EDIT+15
SING PKAPP+14, PKAPP+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDIT+2~, EDIT+18*, PKAPP+22*, SING+1*, SING+8*
>> DFN EN+3, EN+4, EN+6, PAT+2*, PAT+3, PAT+4, PAT+5, PKAPP+10
DIC EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, PAT+2*, EDIT+2~, END+1!
DIC(0 PAT+2*
DIE EN+6!, EN+7!, EN1!, EN1+34!, EDIT+2~, EDIT+18*, PKAPP+22*, SING+1*, SING+8*, END+1!
DIE("NO^" EDIT+17*
DIR EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, EDIT+2~, PKAPP+16!, END+1!
DIR("?" PKAPP+18*
DIR("A" EN1+2*, EN1+3*, PKAPP+18*
DIR("B" EDIT+3*, PKAPP+17*
DIR("L" EDIT+5*, EDIT+6*, EDIT+7*
DIR(0 EN+4*, EN1+1*, EN1+2*, EN1+3*, EN1+35*, EDIT+4*, PKAPP+18*
DR EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, EDIT+2~, EDIT+18*, EDIT+19*, EDIT+20*, EDIT+21*
, PKAPP+22*, PKAPP+23*, PKAPP+24*, PKAPP+25*, SING+1*, SING+2*, SING+3*, SING+4*, SING+9*, END+1!
DT GETDATA+5, SING+9
DUOUT EN+4*, EN+5, EN1+6, EN1+23*, EN1+24, EN1+32, EN1+35, EDIT+9*, EDIT+10*, END+1!
DUZ GETDATA+5, EDIT+2, SING+9
IOF HD+2
PROC PKAPP+4~*, PKAPP+10
SDA PKAPP+17~*, PKAPP+18, SING+7~, SING+8
SDA(1 SING+9
SDA(13 SING+9
SDA(14 SING+9
SDA(15 SING+9
SDA(16 SING+9
SDA(2 SING+9
SDA(3 SING+9
SDAP PKAPP+10~, PKAPP+12*, PKAPP+13, PKAPP+15, PKAPP+20*, PKAPP+21, SING+7
SDCL PKAPP+4~*, PKAPP+6*, PKAPP+10
SDDS PKAPP+10~*
SDORG PKAPP+4~, PKAPP+8*, PKAPP+10
SDPCL PKAPP+4~, PKAPP+5*, PKAPP+6
SDPSP PKAPP+4~, PKAPP+5*, PKAPP+7
SDSP PKAPP+4~*, PKAPP+7*, PKAPP+10
>> SDWLBDT EN+6*
SDWLCL GETDATA+3*, END+2!
>> SDWLCN EN1, EN1+2, DIS+2*
SDWLDA EN1+19*, EN1+23, GETDATA+2, GETDATA+7, EDIT+15, EDIT+18, EDIT+22, EDIT+23, EDIT+25, PKAPP~
, PKAPP+5, PKAPP+8, PKAPP+14, PKAPP+20, PKAPP+22, SING~, SING+1, SING+8, SING+16, SING+18
, END+2!
SDWLDAPT GETDATA+5*, END+2!
SDWLDATA GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, EDIT+15, PKAPP~, PKAPP+14, PKAPP+20, SING~, SING+12
, SING+14, END+2!
SDWLDFN EN+6*, EN+14, EN1+18, EN1+19, PAT+2*, DIS+3, EDIT+23, SING+11~, SING+17*, SING+18
, END+1!, END+2!
SDWLDISC DIS+2*, DIS+4!
SDWLDISP GETDATA+7*, EDIT+3, EDIT+13*, EDIT+15, EDIT+16, PKAPP+11, SING+7, END+2!
SDWLDUZ GETDATA+5*, EDIT+2*, END+2!
SDWLEDT EN+6*, GETDATA+5*, END+2!
SDWLERR EN+1*, EN+3*, EN+6, EN1!*, EN1+6*, EN1+7, EN1+9*, EN1+10, EN1+11, EN1+13*
, EN1+18*, EN1+32, EDIT+2*, EDIT+13*, EDIT+14, EDIT+16*, END+2!
SDWLHDR DIS+2*, END+3!
SDWLIN GETDATA+3*, END+2!
>> SDWLLIST EN+2, EN+6
SDWLNAM PAT+4*, END+2!
SDWLOP EN+10*, END+2!
SDWLPRI GETDATA+4*, END+2!
SDWLPROV GETDATA+5*, END+3!
SDWLPS EN1*, EN1+1, EN1+2, EN1+3, EN1+5, EN1+8, EN1+12, END+3!
SDWLRB GETDATA+4*, END+3!
SDWLSC GETDATA+4*, GETDATA+6, END+3!
SDWLSCL GETDATA+6*, EDIT+22, SING+11~, SING+12*, SING+16, END+1!
SDWLSP GETDATA+4*, END+3!
SDWLSS GETDATA+4*, EDIT+23, SING+11~, SING+14*, SING+18, END+3!
SDWLST GETDATA+3*, GETDATA+5*, END+3!
SDWLTY GETDATA+3*, EDIT+7, EDIT+13, EDIT+15, PKAPP~, PKAPP+6, PKAPP+7, PKAPP+14, PKAPP+20, SING~
, END+3!
SDWLY EN1+4*, EN1+12*, EN1+13, EN1+18, EN1+19, END+3!
SDWSLCN END+2!
SS PKAPP+17~
STR PKAPP+17~
U PAT+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, SING+12, SING+14, SING+17
VA DIS+4!
VA("PID" EN+4, EN+6, DIS+3
VADM EN+6!, DIS+4!
VADM(1 EN+4, EN+6, DIS+3
VAIN DIS+4!
X EN1!, EN1+4, EN1+6, EN1+9, PAT+5*, EDIT+9, EDIT+10, EDIT+13, PKAPP+16!, PKAPP+20
, END+3!
Y EN1!, EN1+4, PAT+2, END+3!
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 |  Local Variables |  All