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

Package: Scheduling

Routine: SDWLMR


Information

SDWLMR ;;IOFO BAY PINES/TEH - WAIT LIST - DISPOSITION WAIT LIST ENTRY;06/12/2002 ; 20 Aug 2002 2:10 PM

Source Information

Source file <SDWLMR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Registration 1 1^VADPT  
Scheduling 1 EN^SDWLD  

Entry Points

Name Comments DBIA/ICR reference
EN ;
PAT ;PATIENT LOOK-UP
PATEND
DIS ;DISPLAY DATA FOR PATIENT
GETDATA ;PATIENT DATA RETRIEVAL
DISP ;DISPLAY
EDIT ;ENTER/EDIT DISPOSITION
HD ;HEADER
END ;QUIT OPTION

External References

Name Field # of Occurrence
^DIC PAT+2
^DIE EDIT+2, EDIT+3, EDIT+4
$$EXTERNAL^DILFD DISP+1
$$GET1^DIQ DISP+1, DISP+2, DISP+3, DISP+4
^DIR EN+19
EN^SDWLD DIS+2
1^VADPT PAT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"Invalid Entry "
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,"Another Terminal is Editting this Entry! Try Later."
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,"Wait List: ",$$EXTERNAL^DILFD(409.3,4,,SDWLTY),?40,"Date Entered: ",$$GET1^DIQ(409.3,SDWLDA,14,,,)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Priority: ",$$GET1^DIQ(409.3,SDWLDA,SDWLPRI,,,),?20,"Institution: ",$$GET1^DIQ(409.3,SDWLDA,SDWLIN,,,)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?40,"Entered By: ",$$GET1^DIQ(409.3,SDWLDA,9,,,)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Requesting Provider: ",$$GET1^DIQ(409.3,SDWLDA,15,,,),?40,"Date Desired: ",$$GET1^DIQ(409.3,SDWLDA,16,,,)
  • Line Location: DISP+4
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
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIE
  • Line Location:
    • EDIT+2
    • EDIT+3
    • EDIT+4
Routine Call
  • DIR
  • Line Location:
    • EN+19

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDWL(409.3 - [#409.3] EN+30, EN+51, GETDATA+2
^TMP("SDWLD" EN+25, EN+26

Label References

Name Line Occurrences
DIS EN+12
DISP EN+46
EDIT EN+50
END EN+8
GETDATA EN+35
HD EN+4
PAT EN+8
PATEND PAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EDIT+2*
DFN PAT+4~*
>> DIC PAT+2*
>> DIC("A" PAT+2*
>> DIC(0 PAT+2*
>> DIE EDIT+2*
>> DIR("A" EN+17*, EN+18*
>> DIR(0 EN+17*, EN+18*
>> DR EDIT+2*, EDIT+3*, EDIT+4*
DT GETDATA+9
>> DUOUT EN+30*, EN+31
DUZ GETDATA+9
IOF HD+2
>> SDWLCL GETDATA+3*
SDWLCN EN+2~, EN+16, EN+17
SDWLDA EN+2~, EN+8, EN+26*, EN+30, EN+51, PAT+4*, GETDATA+2, DISP+1, DISP+2, DISP+3
, DISP+4, EDIT+2
>> SDWLDAPT GETDATA+9*
>> SDWLDATA GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+9
SDWLDFN EN+2~, EN+8, EN+25, EN+26, PAT+4*, DIS+2
>> SDWLDUZ GETDATA+9*
>> SDWLEDT GETDATA+9*
>> SDWLIN GETDATA+3*, DISP+2
>> SDWLPRI GETDATA+4*, DISP+2
>> SDWLPROV GETDATA+9*
SDWLPS EN+2~, EN+16*, EN+17, EN+18, EN+20, EN+21
>> SDWLRB GETDATA+4*
>> SDWLSC GETDATA+4*, GETDATA+7
>> SDWLSP GETDATA+4*, GETDATA+5
>> SDWLSS GETDATA+4*, GETDATA+6
>> SDWLST GETDATA+3*, GETDATA+8, GETDATA+9*
>> SDWLTY GETDATA+3*, DISP+1
>> SDWLTYN GETDATA+5*, GETDATA+6*, GETDATA+7*, GETDATA+8*
SDWLY EN+2~, EN+19*, EN+20*, EN+21, EN+25, EN+26
U PAT+4, GETDATA+3, GETDATA+4, GETDATA+9
>> VA("PID" DIS+2
>> VADM(1 DIS+2
>> Y EN+19, PAT+3, PAT+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All