Routine: SCMSPX2

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC YN^DICN ^DIE DT^DIQ
Scheduling	4	(,DT)^SDM0 CS^SDM1A ^SDM4 I^SDUTL
Kernel	1	$$UP^XLFSTR
Registration	1	KVAR^VADPT

Entry Points

External References

Name	Field # of Occurrence
^%DT	GETED
^DIC	EN1, EN1+8
YN^DICN	ENR, ASKC
^DIE	PEND+3, PEND+5, GETED+1
DT^DIQ	WRT
^SDM0	EN1+8, EN2, GETED+1, ASKC+1
DT^SDM0	EN+2, PEND+1, CHKSO+1
CS^SDM1A	EN1+7
^SDM4	EN1+11
I^SDUTL	EN1
KVAR^VADPT	END
$$UP^XLFSTR	PEND

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN1+0
Function Call: WRITE	Prompt: !,7,"Access to this clinic is prohibited!!",!,"Only users with a special code may access this clinic",7 Line Location: EN1+6
Function Call: WRITE	Prompt: !?10,*7,"PATIENT HAS DIED." Line Location: EN1+10
Function Call: WRITE	Prompt: !?3,*7,VADM(7) Line Location: EN+1
Function Call: WRITE	Prompt: !,"SCHEDULED FOR ADMISSION ON " Line Location: EN+2
Function Call: READ	Prompt: "DISPLAY PENDING APPOINTMENTS: NO//" Formatting: ! Timeout: DTIME Variable: X Line Location: PEND+0
Function Call: WRITE	Prompt: I Condition for execution: $N(^DPT(DFN,"S",DT))'>DT !,"NO PENDING APPOINTMENTS" I $N(^DPT(DFN,"S",DT))>DT R !,"DISPLAY PENDING APPOINTMENTS: NO//",X:DTIME S:X="^" SDMLT1=1 S X=$$UP^XLFSTR(X) G END:X["^",HELP:"YN"'[X Line Location: PEND+0
Function Call: WRITE	Prompt: $P("YES",X,2) Line Location: PEND+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>9 Line Location: PEND+1
Function Call: WRITE	Prompt: ?11 Line Location: PEND+1
Function Call: WRITE	Prompt: ?32 Line Location: PEND+1
Function Call: WRITE	Prompt: ?32 Line Location: PEND+1
Function Call: WRITE	Prompt: !,"NOTE - PATIENT IS NOW IN WARD "_SDW Line Location: E+1
Function Call: WRITE	Prompt: !,"RESPOND YES (Y) OR NO (N)" Line Location: ENR+0
Function Call: READ	Timeout: DTIME Line Location: GETED+0
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: ASKC+0
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
Function Call: WRITE	Prompt: ?41,"DISCHARGED FROM CLINIC: " Line Location: WRT+0
Routine Call	DIE Line Location: PEND+3 PEND+5 GETED+1
Routine Call	DIC Line Location: EN1 EN1+8

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)
^DGS(41.1 - [#41.1]	EN+2
^DPT - [#2]	EN1+10, EN+1, PEND, PEND+1, PEND+2, PEND+4, E+1, EN2, CHKSO, CHKSO+1 , WRT
^SC - [#44]	EN1+2, EN1+5, EN1+6, PEND+1, EN2+1, EN2+3, CHKSO+2
^SD(409.1 - [#409.1]	CHKSO

Label References

Name	Line Occurrences
ASKC	ENR+1, ASKC
CHKSO	PEND+1
EN	EN1+12
END	EN1, EN1+6, EN1+8, EN1+10, EN1+11, EN1+12, PEND
ENR	ENR
GETED	GETED
HELP	PEND
PEND	HELP
SDM	EN1+6, EN1+8, EN1+10, EN1+11, EN1+12, OERR
WRT	EN2

Naked Globals

Name	Field # of Occurrence
^(	EN1+10, PEND+1, PEND+4, E+1, EN2, CHKSO+2
^("I"	EN1+2
^("SDPROT"	EN1+6
^("SL"	EN1
^(0	EN+2, PEND+1, EN2, CHKSO, CHKSO+1, CHKSO+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENR, ENR+1, ASKC, ASKC+1, END!
%DT	GETED*, END!
>> %Y	ENR
ARG	END+1!
ASKC	END!
CCX	END+1!
CCXN	END+1!
COLLAT	EN1+11, END+1!
COV	PEND+1, CHKSO*, END!
DA	PEND+1, PEND+2, PEND+4, GETED+1, END!
>> DFN	EN1+8, EN1+9, EN1+10, EN+1, EN+2, PEND, PEND+1, PEND+2, PEND+4, E+1 , EN2, GETED+1, CHKSO, CHKSO+1, CHKSO+2, OERR*, WRT
DIC	EN1!, EN1+8, GETED+1*, END!
DIC("A"	EN1*
DIC("S"	EN1*
DIC(0	EN1, EN1+8
DIE	EN1+8, PEND+3, PEND+5, GETED+1, END!
DP	GETED+1*!, END!
DR	PEND+2, PEND+3!, PEND+4, PEND+5!, GETED+1*!, ASKC+1!, END!
DR(2	GETED+1*
DR(3	GETED+1*
DT	EN+2, PEND, PEND+1
DTIME	PEND, GETED
>> DTOUT	ENR*, ENR+1
DUZ	EN1+6
HEY	GETED*, GETED+1, END!
HSI	EN1+5*, END!
HX	END+1!
HY	CHKSO*, CHKSO+1, CHKSO+2, CHKSO+3, END!
I	EN+2*, END+1!
J	CHKSO+2*, END!
>> ORACTION	EN1+8
>> ORVP	OERR
PXR	END+1!
S	END+1!
SB	EN1+5*, END!
SC	EN1+4, EN1+5*, EN1+6, EN2, EN2+1, END!
SCP	EN2+2~, EN2+3*, GETED+1
SD	EN1+4!, END+1!
SD17	END!
>> SDAMERR	EN1+6, EN1+10
SDAP16	END+1!
SDAPTYP	EN1+1!, END!
>> SDAT16	PEND+1, CHKSO*
>> SDCLN	EN1, EN1+1, EN1+6, EN1+8, EN1+11, EN1+12
SDDIF	EN1+5*, END!
SDDIS	EN2*, END+1!, WRT
SDEDT	END+1!
>> SDFN	EN1+8, EN1+9, EN1+10
SDIN	EN1+1!, EN1+2*, EN1+3!
SDINA	EN1+3!*, END+1!
SDJ	CHKSO+1*, END!
SDLN	PEND+1, CHKSO+2*, END!
SDMAX	END!
>> SDMLT	END+2
SDMLT1	EN!, PEND*, END+2!
SDMM	SDM+7*, END+1!
SDPRCL	EN2*!
SDRE	EN1+1!, EN1+2*
SDSC	END!
SDTY	END+1!
SDU	END!
SDW	EN1+7, E+1, END+1!
SDXXX	EN1+1!, EN1+12!, PEND+5, E+2
>> SDY	ENR+1*
SDYC	END!
SI	EN1+5*, END!
SL	EN1+5*, E, END!
SM	END+1!
SS	END+1!
SSC	PEND+1, CHKSO*, CHKSO+2, END!
ST	END+1!
STARTDAY	EN1+5*, END!
STR	EN1+5*, END!
U	EN1+2, EN1+5, EN1+6, EN1+8, EN1+10, EN, EN+2, PEND+1, PEND+2, PEND+4 , E, EN2, EN2+3, CHKSO, CHKSO+1, CHKSO+2, WRT
>> VADM(5	EN2+1
>> VADM(7	EN+1
>> VAEL(9	EN
WY	EN1+7*, END+1!
X	EN1+5, EN1+8, PEND, EN2, EN2+1, ENR, GETED*, END+1!, WRT
>> XQORQUIT	OERR*
XX	EN2*, END+1!, WRT
Y	EN1, EN1+1, EN1+2, EN1+4, EN1+5!, EN1+8, EN+1, EN+2, PEND+1, E* , EN2, EN2+1, EN2+3, ENR, ENR+1, GETED, GETED+1, CHKSO, CHKSO+1, CHKSO+3* , END+1!, WRT*
Y(0	EN+1*

Customize PDF page

Package: Scheduling

Routine: SCMSPX2

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: