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

Package: Scheduling

Routine: SDMM1


Information

SDMM1 ;ALB/GRR - MULTIPLE BOOKINGS ;JUN 21, 2017

Source Information

Source file <SDMM1.m>

Entry Points

Name Comments DBIA/ICR reference
MAKE
S
SC
OK
S1 ;alb/sat 658 - needs to be incremental lock - added + 'L +^SC(SC,...'
XRDT(DFN,X) ;cross reference DATE APPT. MADE field
NOOB
WRTER
DT
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
X
EVT ; -- separate tag if need to NEW vars
OB ; check for overbook keys
OBQ
DIR(TEXT,DEF) ; reader processor
; Input: TEXT as text of read
; DEF as default response (if any)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT ALREADY HAS APPOINTMENT ON ",$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7)," AT THAT TIME"
  • Line Location: MAKE+0
Function Call: WRITE
  • Prompt: !,*7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",*7
  • Line Location: MAKE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: " HAS BEEN LOCKED BY ANOTHER USER - APPT NOT BOOKED"
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !,"APPOINTMENT MADE ON "
  • Line Location: S1+23
Function Call: WRITE
  • Prompt: !,SDMES
  • Line Location: WRTER+0
Function Call: WRITE
  • Prompt: " AT THAT TIME"
  • Condition for execution: SDNOT
  • Line Location: WRTER+0
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,*7,"CLINIC DOES NOT MEET THEN!!"
  • Line Location: X+0
Function Call: WRITE
  • Prompt: !,*7,"ONLY "_S_" OVERBOOK"_$E("S",S>1)_" ALLOWED PER DAY!!"
  • Line Location: OB+7

FileMan Files Accessed Via FileMan Db Call

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