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

Customize PDF page

Package: Scheduling

Routine: SDAMEX

Call Graph Total: 8

Caller Graph Total: 3