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: SDWLSCPE

Package: Scheduling

Routine: SDWLSCPE


Information

SDWLSCPE ;IOFO BAY PINES/TEH - EWL - EDIT SC PRIORITY ;20 Aug 2002 2:10 PM

Source Information

Source file <SDWLSCPE.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Registration 1 (1,DEM)^VADPT  
Scheduling 1 EN^SDWLD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD WAIT LIST SC PRIORITY EDIT  

Entry Points

Name Comments DBIA/ICR reference
PAT1
EN ;Called from option file.
PAT ;PATIENT LOOK-UP
EDIT ;EDIT PRIORITY
DIE(DA,SDWLDIS) ; Update file 409.3 with SERVICE CONNECTED PRIORITY data.
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 DIE+3
$$EXTERNAL^DILFD EDIT+4
$$GET1^DIQ PAT+4, PAT+5
^DIR EN+3, EN1+1, EN1+4, EN1+34, EDIT+6
EN^SDWLD DIS+3
1^VADPT EN+3, EN+5, PAT+6
DEM^VADPT EN+3, EN+5

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+3
Function Call: WRITE
  • Prompt: !,VADM(1),?40,VA("PID")
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Patient has no Wait List Entries to edit."
  • 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: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !,"Invalid Entry. Service Connected Percentage greater than 49%"
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List - SERVICE CONNECTED PRIORITY")\2,"Wait List - SERVICE CONNECTED PRIORITY",!!
  • Line Location: HD+2
Routine Call
  • DIE
  • Line Location:
    • DIE+3
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • EN1+1
    • EN1+4
    • EN1+34
    • EDIT+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDWL(409.3 - [#409.3] EN+3, EN1+23, GETDATA+2, GETDATA+6
^TMP("SDWLD" EN1+18, EN1+19

Label References

Name Line Occurrences
DIE EDIT+11
DIS EN+5, EN+17
EDIT EN1+32, EDIT+7
EN EN1+35
EN1 EN+5, EN1+7, EN1+10, EN1+13
END EN+13, EN1+1, EN1+4, EN1+11, EN1+24, EN1+32, EN1+34, EN1+35
GETDATA EN1+28
HD EN+3, EN+5, EN+9
PAT EN+13, PAT+5
PAT1 PAT+2, PAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DIE~
>> DFN EN+2, EN+3, EN+5, PAT+2*, PAT+3, PAT+4, PAT+5
DIC EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, PAT+2*, EDIT+2!, END+1!
DIC(0 PAT+2*
DIE EN+5!, EN+6!, EN1!, EN1+33!, EDIT+2!, DIE+1*, END+1!
DIR EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, EDIT+2!, END+1!
DIR("A" EN1+2*, EN1+3*, EDIT+3*
DIR("B" EDIT+4*
DIR(0 EN+3*, EN1+1*, EN1+2*, EN1+3*, EN1+34*, EDIT+5*
DR EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, EDIT+2!, DIE+2*, END+1!
DT GETDATA+5
DUOUT EN+3*, EN+4, EN1+6, EN1+23*, EN1+24, EN1+32, EN1+34, EDIT+8*, EDIT+9*, END+1!
DUZ GETDATA+5, EDIT+2
IOF HD+2
SDWLBDT EN+5~*
SDWLCL GETDATA+3*, END+2!
SDWLCN EN1, EN1+2, DIS+2*, END+1!
SDWLDA EN1+19*, EN1+23, GETDATA+2, GETDATA+6, EDIT+11, END+2!
SDWLDAPT GETDATA+5*, END+2!
SDWLDATA GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, END+2!
SDWLDFN EN+5*, EN+13, EN1+18, EN1+19, PAT+2*, DIS+3, END+1!, END+2!
SDWLDIS DIE~
SDWLDISC DIS+2*, DIS+4!
SDWLDISP END+2!
SDWLDUZ GETDATA+5*, EDIT+2*, END+2!
SDWLEDT EN+5*, GETDATA+5*, END+2!
SDWLERR EN+1*, EN+2*, EN+5, EN1!*, EN1+6*, EN1+7, EN1+9*, EN1+10, EN1+11, EN1+13*
, EN1+18*, EDIT+2*, END+2!
SDWLHDR DIS+2*, END+3!
SDWLIN GETDATA+3*, END+2!
SDWLLIST EN+1, EN+5, END+1!
SDWLNAM PAT+4*, END+2!
SDWLOP EN+9*, 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*, END+3!
SDWLSCP GETDATA+6*, EDIT+4, EDIT+7, END+1!
SDWLSCPX EDIT+10*, EDIT+11, END+1!
SDWLSP GETDATA+4*, END+3!
SDWLSS GETDATA+4*, END+3!
SDWLST GETDATA+3*, GETDATA+5*, END+3!
SDWLTY GETDATA+3*, END+3!
SDWLY EN1+4*, EN1+12*, EN1+13, EN1+18, EN1+19, END+3!
SDWSLCN END+2!
U PAT+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6
VA DIS+4!
VA("PID" EN+3, EN+5, DIS+3
VADM EN+5!, DIS+4!
VADM(1 EN+3, EN+5, DIS+3
VAIN DIS+4!
X EN1!, EN1+4, EN1+6, EN1+9, PAT+5*, EDIT+7, EDIT+8, EDIT+9, EDIT+10, 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