Routine: SDM

Information

SDM ;SF/GFT,ALB/BOK - MAKE AN APPOINTMENT ; 22 Jul 2016 4:33 PM

Source Information

Source file <SDM.m>

Package	Total	Call Graph
Scheduling	8	$$RESTPT^SCAPMCU4 MAIL^SCMCCON (,A)^SDCNSLT (,DT)^SDM0 CS^SDM1A ^SDM4 I^SDUTL $$CLNCK^SDUTL2
Registration	4	EN^DGREGAED LANGDEL^DGRPE $$SUB^DGSAUTL KVAR^VADPT
VA FileMan	3	^DIC YN^DICN ^DIE

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

Package	Total	Caller Graph
Scheduling	9	SC MAKE CONSULT APPOINTMENT SD OERR MAKE APPT SDAM2 SDCO5 SDM SDM4 SDMM SDMULT SDNEXT
Automated Information Collection System	1	IBDFDE1
Automated Medical Information Exchange	1	DVBCSCHD
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN1
EN
PEND
E
EN2
CHKSO
END
OERR		ICR #739 Status: Retired Usage: Private ICR #10042 Status: Active Usage: Supported
HELP
CNAM(SDCL)	;Return clinic name

External References

Name	Field # of Occurrence
EN^DGREGAED	PEND+25
LANGDEL^DGRPE	PEND+24
$$SUB^DGSAUTL	EN1+16
^DIC	EN1, EN1+11
YN^DICN	PEND+3
^DIE	PEND+14, PEND+19, PEND+23
$$RESTPT^SCAPMCU4	EN2+5
MAIL^SCMCCON	EN2+16
^SDCNSLT	EN2+18
A^SDCNSLT	EN2
^SDM0	EN1+11, EN2, EN2+19
DT^SDM0	EN+4, PEND+8, CHKSO+1
CS^SDM1A	EN1+10
^SDM4	EN1+14
I^SDUTL	EN1
$$CLNCK^SDUTL2	EN1+1
KVAR^VADPT	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Clinic MUST be corrected before continuing." Line Location: EN1+2
Function Call: WRITE	Prompt: !,7,"Access to ",$$CNAM(+SC)," is prohibited!",!,"Only users with a special code may access this clinic.",7 Line Location: EN1+9
Function Call: WRITE	Prompt: !?10,*7,"PATIENT HAS DIED." Line Location: EN1+13
Function Call: WRITE	Prompt: !?3,*7,VADM(7) Line Location: EN+3
Function Call: WRITE	Prompt: !,"SCHEDULED FOR ADMISSION ON " Line Location: EN+4
Function Call: WRITE	Prompt: !,"DISPLAY PENDING APPOINTMENTS:" Line Location: PEND+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>9 Line Location: PEND+8
Function Call: WRITE	Prompt: CN,".",?4 Line Location: PEND+8
Function Call: WRITE	Prompt: ?23 Line Location: PEND+8
Function Call: WRITE	Prompt: ?23 Line Location: PEND+8
Function Call: WRITE	Prompt: !,"NOTE - PATIENT IS NOW IN WARD "_SDW Line Location: E+1
Function Call: WRITE	Prompt: !,?5,"Patient has restricted consults due to team assignment(s):" Line Location: EN2+9
Function Call: WRITE	Prompt: !,?10,SCRESTA(SCTM) Line Location: EN2+11
Function Call: WRITE	Prompt: ! Condition for execution: $X>9 Line Location: CHKSO+1
Function Call: WRITE	Prompt: ?10,"*" Line Location: CHKSO+1
Function Call: WRITE	Prompt: ?32,$S(SDJ=3:"LAB",SDJ=4:"XRAY",1:"EKG") Line Location: CHKSO+1
Function Call: WRITE	Prompt: !,"YES - TO DISPLAY FUTURE APPOINTMENTS",!,"NO - FUTURE APPOINTMENTS NOT DISPLAYED" Line Location: HELP+0
Routine Call	DIC Line Location: EN1 EN1+11
Routine Call	DIE Line Location: PEND+14 PEND+19 PEND+23

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)
^%ZOSF("XY"	PEND+6
^DGS(41.1 - [#41.1]	EN+4
^DPT - [#2]	EN1+13, EN+3, PEND, PEND+1, PEND+8, PEND+11, PEND+16, PEND+21, PEND+25, E+1 , EN2, CHKSO, CHKSO+1
^SC - [#44]	EN1+4, EN1+5, EN1+8, EN1+9, PEND+8, PEND+9, EN2+1, EN2+2, CHKSO+2, CNAM+3
^SD(409.1 - [#409.1]	CHKSO

Label References

Name	Line Occurrences
$$CNAM	EN1+9
CHKSO	PEND+8
EN	EN1+17
END	EN1, EN1+2, EN1+9, EN1+11, EN1+13, EN1+14, EN1+17, PEND+1
HELP	PEND+1
PEND	HELP
SDM	EN1+2, EN1+9, EN1+11, EN1+13, EN1+14, EN1+17, OERR

Naked Globals

Name	Field # of Occurrence
^(	EN1+13, PEND+8, PEND+25, E+1, EN2, CHKSO+2
^("I"	EN1+5
^("SDPROT"	EN1+9
^("SL"	EN1
^("XY"	PEND+6
^(0	EN+4, PEND+8, EN2, CHKSO, CHKSO+1, CHKSO+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PEND, PEND+1, PEND+2, PEND+5, END!
%DT	END!
>> %Y	PEND+4
A	END+2!
ARG	END+1!
ASKC	END!
CC	END+2!
CCX	END+1!
CCXN	END+1!
CLNIEN	END+2!
CN	PEND+7, PEND+8, PEND+9, END+2!
CNIEN	PEND+9*, END+2!
CNPAT	PEND+9*, END+2!
CNSLTLNK	END+2!
CNSULT	END+2!
CNT	END+2!
COLLAT	EN1+14, END+1!
CONS	END+2!
COV	PEND+8, CHKSO*, END!
CPRSTAT	END+2!
CW	END+2!
DA	PEND+8, PEND+12, PEND+17, PEND+22, END!
>> DFN	EN1+11, EN1+12, EN1+13, EN+3, EN+4, PEND, PEND+1, PEND+8, PEND+9, PEND+11 , PEND+12, PEND+16, PEND+17, PEND+21, PEND+22, PEND+25, E+1, EN2, EN2+5, EN2+16 , CHKSO, CHKSO+1, CHKSO+2, OERR*
DIC	EN1!, EN1+11, END!
DIC("A"	EN1*
DIC("S"	EN1*
DIC(0	EN1, EN1+11
DIE	EN1+11, PEND+12, PEND+17, PEND+22, END!
DP	END!
DR	PEND+12, PEND+14!, PEND+17, PEND+19!, PEND+22*, PEND+23!, EN2+17!, END!
DR(2	PEND+13, PEND+18, PEND+22*
DSH	END+2!
DT	EN+4, PEND, PEND+1, PEND+8, EN2+5, EN2+16
DTENTR	END+2!
DTIN	END+2!
DTLMT	END+2!
DTR	END+2!
DUZ	EN1+9
DX	PEND+6~
DY	PEND+6~
FLG	PEND+25~
FLG(1	PEND+25*
HEY	END!
HSI	EN1+8*, END!
HX	END+1!
HY	PEND+9, CHKSO*, CHKSO+1, CHKSO+2, CHKSO+3, END!
I	EN+4*, END+1!
IOSL	PEND+8
J	CHKSO+2*, END!
ND	END+2!
NOSHOW	END+2!
>> ORACTION	EN1+11
>> ORVP	OERR
P8	END+2!
PROC	END+2!
PT	END+2!
PTIEN	END+2!
PTNM	END+2!
PXR	END+1!
RTMP	END+2!
S	END+1!
SB	EN1+8*, END!
SC	EN1+7, EN1+8*, EN1+9, EN2, EN2+1, END!
SCCLNM	EN2+8*, EN2+16, EN2+17!
>> SCOKCONS	EN2+12
SCPTTM	END+2!
SCREST	EN2+5*, EN2+6, EN2+12, EN2+16, EN2+17!
SCRESTA	EN2+4~
SCRESTA(	EN2+11
SCTM	EN2+7~, EN2+10, EN2+11
SD	EN1+7!, END+1!
SD1	END+2!
SD17	END!
>> SDAMERR	EN1+9, EN1+13
SDAMSCN	END+2!
SDAP16	END+1!
SDAPTYP	EN1+3!, EN1+16, END!
>> SDAT16	PEND+8, CHKSO*
SDATE	END+2!
SDCL	CNAM~, CNAM+3
>> SDCLN	EN1, EN1+1, EN1+2, EN1+3, EN1+9, EN1+11, EN1+14, EN1+17
SDDIF	EN1+8*, END!
SDDIS	EN2*, END+1!
SDDOT	END+2!
SDEDT	END+1!
SDEND	PEND+6~, PEND+8
>> SDFN	EN1+11, EN1+12, EN1+13
SDII	END+2!
SDIN	EN1+3!, EN1+5*, EN1+6!
SDINA	EN1+6!*, END+1!
SDINC	END+2!
SDINCM	END+2!
SDJ	CHKSO+1*, END!
SDLEN	END+2!
SDLN	PEND+8, CHKSO+2*, END!
SDMAX	END!
>> SDMLT	END+4
SDMLT1	EN!, PEND+4*, END+4!
SDMM	SDM+10*, END+1!
>> SDMULT	EN2, EN2+18
SDNS	END+2!
SDRE	EN1+3!, EN1+5*
SDRES	EN1+1~*, EN1+2
SDSC	END!
SDSI	END+2!
SDST	END+2!
SDSTR	END+2!
SDSTRTDT	END+2!
SDTY	END+1!
SDU	END!
SDW	EN1+10, E+1, END+1!
SDX	CNAM+2~, CNAM+3*, CNAM+4
SDXSCAT	EN1+16*, END+3!
SDXXX	EN1+3!, EN1+17!, PEND+26, E+2
SDXY	PEND+6~*
SDYC	END!
SENDER	END+3!
SERVICE	END+3!
SI	EN1+8*, END!
SL	EN1+8*, E, END!
SM	END+1!
SRV	END+3!
SS	END+1!
SSC	PEND+8, PEND+9, CHKSO*, CHKSO+2, END!
ST	END+1!
STARTDAY	EN1+8*, END!
STATUS	END+3!
STPCOD	EN1+4*, END+3!
STR	EN1+8*, END!
TMP	END+3!
TMPYCLNC	EN1+4*, END+3!
TYPE	END+3!
U	EN1+4, EN1+5, EN1+8, EN1+9, EN1+11, EN1+13, EN, EN+4, PEND+8, PEND+9 , PEND+25, E, EN2, EN2+2, CHKSO, CHKSO+1, CHKSO+2, CNAM+3
>> VADM(7	EN+3
>> VAEL(9	EN
WY	EN1+10*, END+1!
X	EN1+8, EN1+11, EN2, END+1!
>> XQORQUIT	OERR*
XX	EN2*, END+1!
Y	EN1, EN1+1, EN1+3, EN1+4, EN1+5, EN1+7, EN1+8!, EN1+11, EN+3, EN+4 , PEND+8, E, EN2, EN2+1, EN2+2, EN2+8, CHKSO, CHKSO+1, CHKSO+3, END+1!
Y(0	EN+3*

Customize PDF page

Package: Scheduling