Routine: SDM3

Information

SDM3 ;SF/GFT - MAKE APPOINTMENT ; 14 SEP 84 11:33 am

Source Information

Source file <SDM3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Scheduling	3	(,E,SC)^SDM1 CK1^SDM2 DTS^SDUTL
Kernel	1	$$UP^XLFSTR
Registration	1	$$SITE^VASITE
VA FileMan	1	^%DT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Scheduling	5	PATIENT SDAMWI1 SDASO SDM1 SDM1A

Entry Points

Name	Comments	DBIA/ICR reference
ORDY
ORD
ERR
END
CLEAN
EN1
EN1K

External References

Name	Field # of Occurrence
^%DT	ORD+4
^SDM1	SDM3+3, SDM3+4
E^SDM1	SDM3+5
SC^SDM1	SDM3+4
CK1^SDM2	EN1K+3
DTS^SDUTL	ORDY
$$SITE^VASITE	EN1+1, EN1K+1
$$UP^XLFSTR	SDM3+4, ORD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"ONLY "_S_" OVERBOOK"_$E("S",S>1)_" ALLOWED PER DAY!!",! Line Location: SDM3+3
Function Call: READ	Timeout: DTIME Line Location: SDM3+4
Function Call: READ	Prompt: ! Variable: "ENTER TYPE AND TIME (I.E. 'LAB@8 Timeout: 30'): Line Location: ORD+0
Function Call: WRITE	Prompt: !,"ENTER EITHER 'LAB', 'XRAY', OR 'EKG' FOLLOWED BY THE '@' AND THE TIME" Line Location: ORD+2
Function Call: WRITE	Prompt: !,"MUST ENTER THE '@' AFTER THE TYPE AND BEFORE THE TIME",*7 Line Location: ORD+3
Function Call: WRITE	Prompt: !,*7,"PATIENT ALREADY HAS APPOINTMENT AT THAT TIME IN ",$P(^SC(HSC,0),"^",1) Line Location: ORD+5
Function Call: WRITE	Prompt: " SCHEDULED" Line Location: ORD+6
Function Call: WRITE	Prompt: !,"ENTER EITHER 'LAB', 'XRAY', OR 'EKG' FOLLOWED BY AN '@' AND THE TIME" Line Location: ERR+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN1+1, EN1K+1
^DPT - [#2]	ORD+5, END+2*, EN1, EN1K, EN1K+2
^DPT("ASDPSD"	EN1+3, EN1K+3!
^SC - [#44]	SDM3+2, SDM3+4, SDM3+5, ORD+5, EN1+1, EN1K+1
^XUSEC("SDMOB"	SDM3+3

Label References

Name	Line Occurrences
CLEAN	END
END	ORD
ERR	ORD+4
ORD	ORD+2, ORD+3, ORD+5, ORD+6, ERR

Naked Globals

Name	Field # of Occurrence
^(	SDM3+2, EN1+3*, EN1K
^("DIV"	EN1+1, EN1K+1
^("OB"	SDM3+2
^(0	ORD+5, END+2, EN1+1, EN1K+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SDM3+2*
>> %DT	ORD+4*
A	CLEAN!
CKDATE	CLEAN!
CNT	CLEAN!
COV	CLEAN!
>> D	SDM3+2*
>> DA(1	EN1K+3
>> DA(2	EN1K+1, EN1K+3
>> DFN	ORD+5, END+2, EN1, EN1+3, EN1K+3*
DISBEG	CLEAN!
>> DIV	EN1+1, EN1+3, EN1K+3
>> DIV1	EN1K+3*
DT	EN1+3
DTIME	SDM3+4, ORD
DUZ	SDM3+3
EKG	ORDY, ORD+6, END!, END+2, END+3!
ENDATE	CLEAN!
FND	CLEAN!
GOT	CLEAN!
HNDATE	CLEAN!
>> HSC	ORD+5*
HSI	CLEAN!
HSTM	CLEAN!
HY	CLEAN!
I	SDM3+2, SDM3+4, SDM3+5, CLEAN!, EN1K+2
INC	CLEAN!
INCM	CLEAN!
J	CLEAN!
K	CLEAN!
LAB	ORDY, ORD+6, END!, END+2, END+3!
LEN	CLEAN!
MIN	CLEAN!
>> MXO	SDM3+4*
>> MXOK	SDM3+4*
NDATE	CLEAN!
NS	CLEAN!
NSTM	CLEAN!
ORD	ORD, ORD+1, ORD+2, ORD+3, ORD+4, ORD+6, END!, END+3!
REM	CLEAN!
>> S	SDM3+2, SDM3+3, SDM3+4, SDM3+5, EN1K+3
SB	CLEAN!
>> SC	SDM3+2, SDM3+4, SDM3+5, EN1+1, EN1+3
>> SD	SDM3+2, ORDY, END+2, EN1+3
SD1	CLEAN!
SDATE	CLEAN!
SDAUTO	EN1+4!
SDCT	CLEAN!
SDDIF	CLEAN!
SDDISP	END+3!, EN1, EN1+3, EN1+4!, EN1K+2, EN1K+3
SDDOT	CLEAN!
SDDT	ORD+4*, END!, END+3!, CLEAN!
SDHX	CLEAN!
SDI	EN1*, EN1+4!
SDIE	END+2*, END+3!
>> SDIV	EN1K+1*, EN1K+3
SDJ	CLEAN!
SDLN	CLEAN!
SDMAX	CLEAN!
SDSOH	CLEAN!
SDSTRTDT	CLEAN!
>> SDTY	END+1*
SDWR	ORDY, ORD+6, END!, END+3!
SI	CLEAN!
SL	SDM3+2, CLEAN!
SM	SDM3+4*, CLEAN!
SODT	ORDY*, ORD+4, END!, END+3!
SS	CLEAN!
SSC	CLEAN!
ST	SDM3+2*, SDM3+3, SDM3+4, CLEAN!
STARTDAY	CLEAN!
STIME	CLEAN!
STM	CLEAN!
STR	CLEAN!
U	SDM3+2, ORD+5, END+2
WY	CLEAN+1!
>> X	ORD+4*, EN1K, EN1K+2, EN1K+3
XRAY	ORDY, ORD+6, END!, END+2, END+3!
XX	CLEAN+1!
>> Y	ORDY*, ORD+4, ORD+5, ORD+6
Z	CLEAN+1!

Customize PDF page

Package: Scheduling