Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 4 $$STATUS^SDAM1  ($$FIND,$$VALID)^SDAM2  $$CK^SDAMEX1  $$REQ^SDM1A  
Registration 2 PID^VADPT6  $$FTIME^VALM1  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SDAM APPT CHECK IN/OUT  SDAM10  SDAMEVT  

Entry Points

Name Comments DBIA/ICR reference
PATQ
RT ; -- is this a rt rec
CL
EN ; -- main entry point
PT
INIT() ; -- set up vars
CLINIC(SDATE,SDCL) ; -- get clinic
; input: SDATE := appt date selected
; output: SDCL := ifn of selected clinic
; returned: clinic selected [1 := yes | 0 := no]
CLINICQ
DATE(SDATE) ; -- get appt date
; input: none
; output: SDATE := appt date selected
; returned: date selected [1 := yes | 0 := no]
LISTQ
CHAR(X) ; -- char checksum for code 39
ENQ
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
PRT
PTHLP(SDCL,START) ;
ASK(SDDT) ; -- select appt CI or CO
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]

External References

Name Field # of Occurrence
^DIC CL+9, PT+3
^DIR ASK+5, DATE+7, PT+8, PTHLP+9
$$STATUS^SDAM1 PRT, PTHLP+8
$$FIND^SDAM2 LIST+12
$$VALID^SDAM2 PTHLP+7
$$CK^SDAMEX1 EN+7
$$REQ^SDM1A ASK+4
PID^VADPT6 PTHLP+7
$$FTIME^VALM1 PRT, PTHLP+8

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • CL+9
    • PT+3
Routine Call
  • DIR
  • Line Location:
    • ASK+5
    • DATE+7
    • PT+8
    • PTHLP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2.98 INIT+1
^DISV( CL+1
^DPT - [#2] PT+10, LIST+11, PTHLP+6, PTHLP+8
^RT( RT+2
^SC - [#44] CL+1, CL+2, PRT, PTHLP+4, PTHLP+5

Label References

Name Line Occurrences
$$ASK EN+3
$$CHAR RT+2
$$CLINIC EN+5
$$DATE EN+4
$$INIT EN+2
$$LIST PT+5
$$PAT EN+6
CL CL+9
CLINICQ CL+5
ENQ EN+2, EN+3
PATQ PT+1
PRT PT+11, LIST+13
PT PT+2, PT+3, PT+6, PT+7, PT+9
PTHLP PT+2
RT PT+3

Naked Globals

Name Field # of Occurrence
^( LIST+11
^(0 CL+2, LIST+11, RT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C RT+1~, RT+2*, CHAR+1~, CHAR+2*, CHAR+3*, CHAR+4
>> DATE LIST+10*
DFN EN+1~, EN+5!, EN+6, EN+7, PAT~, PT+1, PT+4*, PT+5, PT+10, LIST~
, LIST+11, LIST+12, PRT, PTHLP+1~, PTHLP+6*, PTHLP+7, PTHLP+8
DIC CL+7*, CL+9!, PT+3*!
DIC("S" CL+8*
DIC(0 CL+7*, PT+3*
DIR ASK+1~, DATE+7!, PT+8!, PTHLP+9!
DIR("A" ASK+3*, DATE+5*, PT+8*
DIR("B" ASK+4*, DATE+6*
DIR(0 ASK+2*, DATE+5*, PT+8*, PTHLP+9*
DIRUT ASK+1~, ASK+5, DATE+8
DT EN+3, DATE+5
DTIME CL+3, PT+1
DTOUT ASK+1~
DUOUT ASK+1~
DUZ CL+1
END PTHLP+1~, PTHLP+2*, PTHLP+4
I CHAR+1~, CHAR+3*
IOM INIT+1
SDACT EN+1~, EN+3*, EN+6, EN+7, PAT~, PT+12
SDAMDD EN+1~, INIT+1*
SDAPPT PAT+9~, PT+5, PT+12!, LIST~
SDAPPT( PT+9, PT+10, LIST+12*
SDASH EN+1~, INIT+1*, PT
SDATA EN+1~, PT+10*, LIST+11*, PRT, PTHLP+1~, PTHLP+6*, PTHLP+7, PTHLP+8
SDATE EN+1~, EN+4, EN+5, EN+6, DATE~, DATE+5, DATE+6, DATE+7*, CLINIC~, CL+1
, PAT~, PT+2, PT+5, LIST~, LIST+10, LIST+11
SDCL EN+1~, EN+4!, EN+5, EN+6, EN+7, CLINIC~, CL, CL+2, CL+4, CL+5*
, CL+9*, CLINICQ, PAT~, PT+2, PT+5, LIST~, LIST+11, LIST+12, PRT, PTHLP~
, PTHLP+4, PTHLP+5, PTHLP+7, PTHLP+8
SDCNT PAT+9~, PT+5*, PT+6, PT+7, PT+8*, PT+9, PT+10, LIST+7~, LIST+10*, LIST+12*
, LISTQ, PRT, PTHLP+1~, PTHLP+2*, PTHLP+7*, PTHLP+9, PTHLP+10
SDDA EN+1~, EN+6, EN+7, PAT~, PT*, PT+9, PT+10*, PT+12, PATQ, PRT
, PTHLP+1~, PTHLP+5*, PTHLP+7, PTHLP+8
SDDEF CLINIC+5~, CL+1*, CL+2, CL+4
SDDT ASK~, ASK+4
SDESC PTHLP+1~, PTHLP+2*, PTHLP+4, PTHLP+5, PTHLP+9*
SDLCNT PAT+9~, PT+5*, PT+11
SDMAX EN+1~, EN+4, EN+5, EN+6, INIT+1*
SDT EN+1~, EN+6, EN+7, PAT~, PT*, PT+10*, LIST+10*, LIST+11*, LIST+12, PRT
, PTHLP+1~, PTHLP+4*, PTHLP+5, PTHLP+6, PTHLP+7, PTHLP+8
SDTOT EN+1~, EN+4, EN+5, EN+6, EN+7*, EN+8, INIT+1*
START PTHLP~, PTHLP+2, PTHLP+4
U INIT+1, CL+2, PT+10, LIST+12, PRT, RT+2, PTHLP+8
VA PTHLP+1~
VA("BID" PTHLP+8
X CLINIC+5~, CL+3*, CL+4*, CL+5, CL+6*, PAT+9~, PT+1*, PT+2, RT+2*, CHAR~
, CHAR+3, PTHLP+1~, PTHLP+5*, PTHLP+6
Y ASK+1~, ASK+5*, ASK+6, DATE+7, DATE+8, CLINIC+5~, CL+9, PT+3, PT+4, PT+8
, CHAR+1~, CHAR+3*, CHAR+4, PTHLP+9
Z CHAR+1~, CHAR+2*, CHAR+3, CHAR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All