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

Package: Scheduling

Routine: SDWLPL


Information

SDWLPL ;IOFO BAY PINES/DMR,ESW - WAIT LIST PICK LIST ;JAN 15, 2016

Source Information

Source file <SDWLPL.m>

Entry Points

Name Comments DBIA/ICR reference
ANS1 ;
ANS2(DFN,ANS2) ;
TST
DISPLAY ;
INIT(DFN,ANS2,FLG) ;
; ANS2: A - ALL
; S - All Specialties
; C - All Clinics
; M - Matches stop codes only
; FLG: (optional)
; NR - do not diplay entries with NON REMOVAL REASON - in check out
ARAY1 ;
ARAY2 ;
ARAY3 ;
ARAY4 ;identify both clinic and specialties EWL matching by stop code with entered appointment
SAVE(TYPE,WLTNI,IEN) ;
LIST(ANS2,DFN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This patient is currently on the Wait List."
  • Line Location: SDWLPL+9
Function Call: WRITE
  • Prompt: !!,"PLEASE ENTER 'A' for All entries, 'C' for clinic or 'S' for current specialty/stop code or '^' to quit."
  • Line Location: TST+2
Function Call: WRITE
  • Prompt: !!,"No selected open EWL entry has been found!"
  • Line Location: TST+5
Function Call: WRITE
  • Prompt: !,"=========================================================================="
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !," Open EWL entries matching appointment specialty"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: "-----------"
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"EW List Type SC/P Waiting for Institution Orig Date By Des. Date Reopen"
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !?2,"Comment: ",SMT
  • Line Location: LIST+19
Function Call: WRITE
  • Prompt: !?2,"Reopen: ",SMO
  • Line Location: LIST+20
Function Call: WRITE
  • Prompt: !?2,"Non-Removal Reason: ",$P(REC,U,13)
  • Line Location: LIST+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SCTM(404.51 - [#404.51] GET1^DIQ
^SCTM(404.57 - [#404.57] GET1^DIQ
^SDWL(409.3 - [#409.3] GET1^DIQ
^SDWL(409.31 - [#409.31] GET1^DIQ
^SDWL(409.32 - [#409.32] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call