Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDWLPE

Package: Scheduling

Routine: SDWLPE


Information

SDWLPE ;IOFO BAY PINES/TEH - WAIT LIST - PARAMETER WAIT LIST ENTER/EDIT ; 5/24/11 11:27am

Source Information

Source file <SDWLPE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1
SEL ;SELECT PARAMETER FILE
EDIT ;EDIT FILE PARAMETERS
SB1
SB1A
SB2
ESB2 ;
SWT ;SWITCH FOR INACTIVATION OF PARAMETER FILE
HD ;HEADER
END
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' ^
;

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

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,  GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call