Routine: SDM

Information

SDM ;SF/GFT,ALB/BOK - MAKE AN APPOINTMENT ; 4/21/05 10:22pm

Source Information

Source file <SDM.m>

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Scheduling	7	$$RESTPT^SCAPMCU4 MAIL^SCMCCON (,A)^SDCNSLT (,DT)^SDM0 CS^SDM1A ^SDM4 I^SDUTL
IHS Changes To Scheduling	5	PTAPPT^BSDAM EN^BSDPC ^BSDPRV ($$INACTMSG,$$PC)^BSDU NOSHOW^BSDU2
Registration	3	EN^DGREGAED $$SUB^DGSAUTL KVAR^VADPT
VA Fileman	3	^DIC YN^DICN ^DIE

Package	Total	Caller Graph
Scheduling	9	SD IHS MAKE APPT SD OERR MAKE APPT SDAM2 SDCO5 SDM SDM4 SDMM SDMULT SDNEXT
IHS Changes To Scheduling	2	ASDI ASDM
Automated Information Collection System	1	IBDFDE1
IHS View Patient Record	1	BVPSD
Mental Health Social Services	1	AMHVRL2

Entry Points

Name	Comments	DBIA/ICR reference
EN
E
HELP
OERR		ICR #739 Status: Retired Usage: Private ICR #10042 Status: Active Usage: Supported
CNAM(SDCL)	;Return clinic name
CHKSO
EN1	;L W !! D I^SDUTL I '$D(SDCLN) S DIC="^SC(",DIC(0)="AEMZQ",DIC("A")="Select CLINIC: ",DIC("S")="I $P(^(0),U,3)=""C"",'$G(^(""OOS""))" D ^DIC K DIC G:Y<0!'$D(^("SL")) END ;IHS/ANMC/LJF 8/18/2000
EN2
PEND
END

External References

Name	Field # of Occurrence
PTAPPT^BSDAM	EN1+22
EN^BSDPC	EN1+3
^BSDPRV	EN1+2
$$INACTMSG^BSDU	EN1+1
$$PC^BSDU	EN1+15
NOSHOW^BSDU2	EN+5
EN^DGREGAED	PEND+20
$$SUB^DGSAUTL	EN1+28
^DIC	EN1+1, EN1+22
YN^DICN	PEND+3
^DIE	PEND+14, PEND+19
$$RESTPT^SCAPMCU4	EN2+5
MAIL^SCMCCON	EN2+16
^SDCNSLT	EN2+18
A^SDCNSLT	EN2
^SDM0	EN1+22, EN2, EN2+19
DT^SDM0	EN+7, PEND+8, CHKSO+1
CS^SDM1A	EN1+18
^SDM4	EN1+26
I^SDUTL	EN1+1
KVAR^VADPT	END

Interaction Calls

Name	Line Occurrences
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+14
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+16
Function Call: WRITE	Prompt: !?10,*7,"PATIENT HAS DIED." Line Location: EN1+25
Function Call: WRITE	Prompt: !?3,*7,VADM(7) Line Location: EN+3
Function Call: WRITE	Prompt: !,"SCHEDULED FOR ADMISSION ON " Line Location: EN+7
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	DIE Line Location: PEND+14 PEND+19
Routine Call	DIC Line Location: EN1+1 EN1+22

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+7
^DPT - [#2]	EN1+25, EN+3, PEND, PEND+1, PEND+8, PEND+11, PEND+16, PEND+20, E+1, EN2 , CHKSO, CHKSO+1
^SC - [#44]	EN1+4, EN1+7, EN1+8, EN1+11, EN1+15, PEND+8, PEND+9, EN2+1, EN2+2, CHKSO+2 , CNAM+3
^SC("AIHSPC"	EN1+3
^SD(409.1 - [#409.1]	CHKSO

Label References

Name	Line Occurrences
$$CNAM	EN1+16
@(	EN1+2
CHKSO	PEND+8
E	EN+5
EN	EN1+29
EN1	EN1+3
END	EN1+4, EN1+15, EN1+22, EN1+25, EN1+26, EN1+29, PEND+1
HELP	PEND+1
PEND	HELP
SDM	EN1+15, EN1+22, EN1+25, EN1+26, EN1+29, OERR

Naked Globals

Name	Field # of Occurrence
^(	EN1+25, PEND+8, PEND+20, E+1, EN2, CHKSO+2
^("I"	EN1+8
^("SDPROT"	EN1+15
^("XY"	PEND+6
^(0	EN+7, 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!
BSDQUIT	EN1+2~
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+26, END+1!
CONS	END+2!
COV	PEND+8, CHKSO*, END!
CPRSTAT	END+2!
CW	END+2!
DA	PEND+8, PEND+12, PEND+17*, END!
>> DFN	EN1+22, EN1+24, EN1+25, EN+3, EN+5, EN+7, PEND, PEND+1, PEND+8, PEND+9 , PEND+11, PEND+12, PEND+16, PEND+17, PEND+20, E+1, EN2, EN2+5, EN2+16, CHKSO , CHKSO+1, CHKSO+2, OERR*
DIC	EN1+1!, EN1+22, END!
DIC("A"	EN1+1*
DIC("S"	EN1+1*
DIC("W"	EN1+1*
DIC(0	EN1+1, EN1+22
DIE	EN1+22, PEND+12, PEND+17*, END!
DP	END!
DR	PEND+12, PEND+14!, PEND+17, PEND+19!, EN2+17!, END!
DR(2	PEND+13, PEND+18
DSH	END+2!
DT	EN+7, PEND, PEND+1, PEND+8, EN2+5, EN2+16
DTENTR	END+2!
DTIN	END+2!
DTLMT	END+2!
DTR	END+2!
DUZ	EN1+15
DX	PEND+6~
DY	PEND+6~
FLG	PEND+20~
FLG(1	PEND+20*
HEY	END!
HSI	EN1+11*, END!
HX	END+1!
HY	PEND+9, CHKSO*, CHKSO+1, CHKSO+2, CHKSO+3, END!
I	EN+7*, END+1!
IOSL	PEND+8
J	CHKSO+2*, END!
ND	END+2!
NOSHOW	END+2!
>> ORACTION	EN1+22
>> 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+11*, END!
SC	EN1+10, EN1+11*, EN1+15, EN1+16, EN+5, 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+10!, END+1!
SD1	END+2!
SD17	END!
>> SDAMERR	EN1+16, EN1+25
SDAMSCN	END+2!
SDAP16	END+1!
SDAPTYP	EN1+6!, EN1+28, END!
>> SDAT16	PEND+8, CHKSO*
SDATE	END+2!
SDCL	CNAM~, CNAM+3
>> SDCLN	EN1+1, EN1+2, EN1+3, EN1+4, EN1+6, EN1+15, EN1+16, EN1+22, EN1+26, EN1+29
SDDIF	EN1+11*, END!
SDDIS	EN2*, END+1!
SDDOT	END+2!
SDEDT	END+1!
SDEND	PEND+6~, PEND+8
>> SDFN	EN1+22, EN1+24, EN1+25
SDII	END+2!
SDIN	EN1+6!, EN1+8*, EN1+9!
SDINA	EN1+9!*, 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+16*, END+1!
>> SDMULT	EN2, EN2+18
SDNS	END+2!
SDPC	EN1+3*!
SDRE	EN1+6!, EN1+8*
SDSC	END!
SDSI	END+2!
SDST	END+2!
SDSTR	END+2!
SDSTRTDT	END+2!
SDTY	END+1!
SDU	END!
SDW	EN1+18, E+1, END+1!
SDX	CNAM+2~, CNAM+3*, CNAM+4
SDXSCAT	EN1+28*, END+3!
SDXXX	EN1+6!, EN1+29!, EN+5, PEND+21, E+2
SDXY	PEND+6~*
SDYC	END!
SENDER	END+3!
SERVICE	END+3!
SI	EN1+11*, END!
SL	EN1+11*, 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+11*, END!
STATUS	END+3!
STPCOD	EN1+7*, END+3!
STR	EN1+11*, END!
TMP	END+3!
TMPYCLNC	EN1+7*, END+3!
TYPE	END+3!
U	EN1+7, EN1+8, EN1+11, EN1+15, EN1+22, EN1+25, EN, EN+7, PEND+8, PEND+9 , PEND+20, E, EN2, EN2+2, CHKSO, CHKSO+1, CHKSO+2, CNAM+3
>> VADM(7	EN+3
>> VAEL(9	EN
WY	EN1+18*, END+1!
X	EN1+2, EN1+11, EN1+22, EN2*, END+1!
>> XQORQUIT	OERR*
XX	EN2*, END+1!
Y	EN1+2, EN1+3, EN1+4, EN1+6, EN1+7, EN1+8, EN1+10, EN1+11!, EN1+22, EN+3 , EN+7, 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

Routine: SDM

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: