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

Package: Scheduling

Routine: SDAMEX


Information

SDAMEX ;ALB/MJK,RMO - Appointment Check In/Check Out ; 12/1/91

Source Information

Source file <SDAMEX.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point
ENQ
INIT() ; -- set up vars
ASK(SDDT) ; -- select appt CI or CO
DATE(SDATE) ; -- get appt date
; input: none
; output: SDATE := appt date selected
; returned: date selected [1 := yes | 0 := no]
CLINIC(SDATE,SDCL) ; -- get clinic
; input: SDATE := appt date selected
; output: SDCL := ifn of selected clinic
; returned: clinic selected [1 := yes | 0 := no]
CL
CLINICQ
PAT(SDATE,SDCL,SDACT,DFN,SDT,SDDA) ; -- ask for pats & get appt
; input: SDATE := appt date
; SDCL := ifn of clinic
; SDACT := action CI or CO
; output: DFN
; SDT := appt date/time
; SDDA := ifn of ^sc multiple
; returned: appt selected [1 := yes | 0 := no]
PT
PATQ
LIST(DFN,SDCL,SDATE,SDAPPT) ;
; input: DFN
; SDCL := ifn of clinic
; SDATE := appt date ; SDCL := ifn of clinic
; output SDAPPT := array of choices (appt d/t ^ multiple ifn)
; returned: count of appts for date
LISTQ
PRT
RT ; -- is this a rt rec
CHAR(X) ; -- char checksum for code 39
PTHLP(SDCL,START) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Total Appointments Processed: ",SDTOT
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,$S($D(SDCL):"Next",1:"Select")_" Clinic: "
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: $P(^(0),U)_"// "
  • Line Location: CL+2
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: PT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !!,$S($D(DFN):"Next",1:"Select")_" Patient: "
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !?7,"o No appointments for this patient.",*7
  • Line Location: PT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PT+11
Function Call: WRITE
  • Prompt: !?7,"o This appointment cannot be checked ",$S(SDACT="CO":"out",1:"in"),".",*7
  • Line Location: PT+12
Function Call: WRITE
  • Prompt: !!?5,"Clinic",?30,"Appointment Date/Time",?55,"Status"
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !?5,"------",?30,"---------------------",?55,"------"
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !?1,SDCNT,?5,$E($P($G(^SC(SDCL,0)),U),1,25),?30,$$FTIME^VALM1(SDT),?55,$P($$STATUS^SDAM1(DFN,SDT,SDCL,SDATA,SDDA),";",3)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !,"The following appointments are listed for the clinic on the selected date:"
  • Line Location: PTHLP+3
Function Call: WRITE
  • Prompt: !!?5,"...There are no appointments for this clinic on this date.",*7
  • Line Location: PTHLP+10

FileMan Files Accessed Via FileMan Db Call

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