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

Package: Scheduling

Routine: SDWLE


Information

SDWLE ;BPOI/TEH - WAITING LIST-ENTER/EDIT;06/12/2002

Source Information

Source file <SDWLE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT - INTIALIZE VARIABLES
OPT
EN1
ENO
EN2
EN3
END
PAT ;SELECT PATIENT
PAT1
DIS ;DISPLAY DATA FOR PATIENT
NEW ;
EDIT ;
ED1 ;-team
ED2 ;-position
ED3 ;-specialty
ED4 ;-clinic
ED5
SB1
HD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT: ",VADM(1),?40,VA("PID")
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"DO YOU WISH TO PLACE THIS PATIENT ON A WAITING LIST "
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",VADM(1),?40,VA("PID")
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: ENO+0
Function Call: WRITE
  • Prompt: !,"ANOTHER TERMINAL IS EDITING THIS ENTRY. TRY LATER."
  • Line Location: ENO+7
Function Call: WRITE
  • Prompt: !,SDWLMSG(SDWLI,0)
  • Line Location: ENO+14
Function Call: WRITE
  • Prompt: !!,"Editing is Completed"
  • Line Location: ENO+17
Function Call: WRITE
  • Prompt: !!,?15,"*** Patient has been added to Wait List ***",!
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?80-$L("Scheduling/PCMM Enter/Edit Wait List")\2,"Scheduling/PCMM Enter/Edit Wait List",!!
  • Line Location: HD+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call