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

Package: Scheduling

Routine: SDWLPE


Information

SDWLPE ;IOFO BAY PINES/TEH - WAIT LIST - PARAMETER WAIT LIST ENTER/EDIT ;20 Aug 2002 ; Compiled April 22, 2008 14:13:00

Source Information

Source file <SDWLPE.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 1 ($$NS,$$TF)^XUAF4  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SD WAIT LIST PAR ENTER/EDIT  SDWLCU5  SDWLCU6  SDWLREB  

Entry Points

Name Comments DBIA/ICR reference
SB2
EN ;
END
SB1A
EDIT ;EDIT FILE PARAMETERS
EN1
SB1
ESB2 ;
CLIN(CL) ;identify clinic institution through DIVISON ----> INSTITUTION path.
; function to return:
; 1 2 3 4 5 6 7
; - Institution pointer to ^DIC(4 _U_ STATION number (# 99) _U_ INST Name _U_ DIV Pointer to ^DG(40.8 _U_N/L_U_Message_U_TYPE
; ( INST^STA NUM^SNAM^DIV^N/L^MESS^TYPE )
; N/L - N -National/L -Local
; TYPE - type of entry in file # 44 (field #2)
; C:CLINIC
; M:MODULE
; W:WARD
; Z:OTHER LOCATION
; N:NON-CLINIC STOP
; F:FILE AREA
; I:IMAGING
; OR:OPERATING ROOM
;
; with optional Message:
;
; if STA=""
; - INST^^SNAM^DIV^N/L^' - No Station Number on file' ^ TYPE
; or
; - 0^^^DIV^^' - No Institution has been identified '^ TYPE
; - 0^^^-1^^' - No Division has been identified' ^ TYPE
;
; if entry is inactivated:
;
; - INST^^SNAM^DIV^N/L^' - Inactive treating medical facility' ^ TYPE
; - -1^^^^^' - No clinic on file' ^
;
SEL ;SELECT PARAMETER FILE
SWT ;SWITCH FOR INACTIVATION OF PARAMETER FILE
HD ;HEADER

External References

Name Field # of Occurrence
^DIC SB1+1, SB2+4
FILE^DICN SB1+5, SB1A+7, SB2+9
^DIE SB1A+10, SB2+11, SB2+13, SB2+17, SB2+24, SB2+25
^DIK SB1+2, SB1A+3, SB1A+13, SB1A+14, SB2+16
$$GET1^DIQ SB1A+4, CLIN+31, CLIN+32, CLIN+34, CLIN+39
^DIR SEL+6, SB1A
$$NS^XUAF4 CLIN+36
$$TF^XUAF4 SB1A+5, CLIN+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7," Required"
  • Line Location: SB1A+1
Function Call: WRITE
  • Prompt: !,*7,"Invalid Entry. Must be 'National' Institution."
  • Line Location: SB1A+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SB1A+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SB2+1
Function Call: WRITE
  • Prompt: !,*7,$P(STR,U,6)
  • Line Location: SB2+6
Function Call: WRITE
  • Prompt: !,"This Clinic has Patients on the Wait List and can not be inactivated."
  • Line Location: SB2+23
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List Parameter Enter/Edit")\2,"Wait List Parameter Enter/Edit",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,?80-$L("------------------------------")\2,"------------------------------",!
  • Line Location: HD+2
Routine Call
  • DIE
  • Line Location:
    • SB1A+10
    • SB2+11
    • SB2+13
    • SB2+17
    • SB2+24
    • SB2+25
Routine Call
  • DIC
  • Line Location:
    • SB1+1
    • SB2+4
Routine Call
  • DIR
  • Line Location:
    • SEL+6
    • SB1A

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^DIC(40.7 - [#40.7] Classic Fileman Calls
^DG(40.8 - [#40.8] GET1^DIQ
^SDWL(409.31 - [#409.31] Classic Fileman Calls
^SDWL(409.32 - [#409.32] Classic Fileman Calls
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] CLIN+29
^SDWL(409.3 - [#409.3] SB2+20, SB2+21, SB2+22
^SDWL(409.31 - [#409.31] SB1+2, SB1+4, SB1+6, SB1A+2, SB1A+6, SB1A+8, SB1A+11, SB1A+13
^SDWL(409.32 - [#409.32] SB2+8, SB2+10, SB2+12, SB2+19
^TMP("SDWLPE" SB2+22*

Label References

Name Line Occurrences
EDIT EN1+4
EN EN1+4
END EN1, EN1+5
ESB2 SB2+14
HD EN+3
SB1 EDIT+1
SB1A SB1A+1, SB1A+5
SB2 EDIT+2, SB2+6, SB2+14
SEL EN1

Naked Globals

Name Field # of Occurrence
^( SB1A+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL CLIN~, CLIN+29, CLIN+31, CLIN+32
D0 SB1A+7!
DA SB1+2, SB1+6*, SB1A+2, SB1A+6, SB1A+7*, SB1A+8*, SB1A+11, SB1A+14*, SB1A+15!, SB2+4!
, SB2+10~*, SB2+12~*, SB2+16*, ESB2+1!
DA(1 SB1A+7*, SB1A+8*, SB1A+10, SB1A+11, SB1A+13, SB1A+14, SB1A+15!
DI SB1A+15!, ESB2+1!
DIC SB1*, SB1+5*, SB1A+7*, SB1A+9!, SB1A+15!, SB2~, SB2+1*, SB2+4!, SB2+9*, SB2+18~
, ESB2+1!, END!
DIC("A" SB1*, SB2+1*
DIC("P" SB1A+7*
DIC("S" SB1*, SB2+2*
DIC("W" SB2+3*
DIC(0 SB1*, SB1+5*, SB2+1*, SB2+9*, ESB2+1!
DIE SB1A+9!, SB1A+10*, SB1A+15!, SB2+11*, SB2+13*, SB2+25*, ESB2+1!
DIEDA SB1A+15!
DIG SB1A+15!
DIH SB1A+15!
DIIENS SB1A+15!
DIK SB1+2*, SB1A+3*, SB1A+13*, SB1A+14*, SB2+16*, END!
DILN SEL+7!
DINDEX SEL+7!
DIR SEL+7!, SB1A+9!, SB1A+15!, END!
DIR("L" SEL+2*, SEL+3*, SEL+4*, SEL+5*
DIR(0 SEL+1*, SB1A*
DIU SB1A+15!
DIV SB1A+15!, CLIN+30~, CLIN+32*, CLIN+33, CLIN+34, CLIN+35, CLIN+40
DIW ESB2+1!
DO SB1+5!, ESB2+1!
DR SB1A+9!, SB1A+10*, SB1A+15!, SB2+11*, SB2+13*, SB2+17*, SB2+24*, SB2+25*, ESB2+1!, END!
DUOUT EDIT+1, EDIT+2, SB1+2*, SB1+3, SB1A+2*, SB2+5, END!
INS CLIN+30~, CLIN+34*, CLIN+35, CLIN+36, CLIN+38, CLIN+39, CLIN+40
INST SB2~, SB2+5*
IOF HD+1
SDA SB2+12~*, SB2+19
SDANEW SB2+7~*, SB2+10*, SB2+14, SB2+16
SDWLCNT SB2+21*, SB2+22*, END!
SDWLDSS SB1+3*, SB1+4, SB1+5, SB1+6, SB1A+15!, END!
SDWLF SEL+6*, EDIT+1, EDIT+2, ESB2+1!, END!
SDWLN SB2+21*, SB2+22, END!
SDWLSC SB2~, SB2+5*, SB2+8, SB2+9, SB2+10, SB2+12, END!
SDWLSCN SB2+19*, SB2+20, SB2+21, ESB2+1!, END!
SDWLSTOP SB2~*, SB2+19, SB2+22*, SB2+23, END!
SDWLX ESB2+1!, END!
SDWLY ESB2+1!, END!
SDWMES CLIN+30~*, CLIN+33*, CLIN+35*, CLIN+37*, CLIN+38*, CLIN+40
SNAM CLIN+30~, CLIN+36*, CLIN+40
SNL CLIN+30~, CLIN+39*, CLIN+40
STN CLIN+30~*, CLIN+36*, CLIN+37, CLIN+40
STR SB2~, SB2+5, SB2+6, CLIN+30~, CLIN+36*
TYPE CLIN+31~*, CLIN+33, CLIN+35, CLIN+40
U SB1A+11, SB1A+13, SB2+6, SB2+19, CLIN+33, CLIN+35, CLIN+36, CLIN+40
X EN1, SEL+6, SB1+2, SB1+5*, SB1A+1, SB1A+2, SB1A+4*, SB1A+5, SB1A+7*, SB2+9*
, SB2+14, SB2+17, SB2+22*, ESB2+1!, END!
Y EN1+4, SB1+3, SB1A+4, SB1A+5, SB1A+6, SB1A+7, SB1A+8, SB2+4, SB2+5, ESB2+1!
, END!
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