Routine: SCDXSUP1

Package	Total	Call Graph
VA Fileman	4	^DIC WAIT^DICD ^DIE ^DIR
Kernel	1	($$DT,$$FMTE)^XLFDT
Scheduling	1	LOGDATA^SDAPIAP

Entry Points

Name	Comments	DBIA/ICR reference
SCED	; Select stop code
ASKDT(TXT)	; Enter beginning date for searching outpatient encounter file
SET	;
APPQ	;
APPTY	; Edit Appointment type for Add/Edit
EXIT	;
APP1
ASK
GET(SCN)	; Select appointment from list

External References

Name	Field # of Occurrence
^DIC	ASK+1, SCED+28
WAIT^DICD	ASK+12
^DIE	SCED+46
^DIR	GET+7, SCED+35, ASKDT+4
LOGDATA^SDAPIAP	SCED+47
$$DT^XLFDT	ASKDT+3
$$FMTE^XLFDT	ASK+19, ASKDT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Ending date cannot be earlier than the beginning date!" Line Location: APP1+2
Function Call: WRITE	Prompt: !!,"This patient has no outpatient encounters on file!",!! Line Location: ASK+7
Function Call: WRITE	Prompt: ! Line Location: ASK+13
Function Call: WRITE	Prompt: !,SCI,?5,$$FMTE^XLFDT(SCDT,"1P") Line Location: ASK+19
Function Call: WRITE	Prompt: !!,"No encounters on file for this patient during this date range.",! Line Location: ASK+23
Function Call: WRITE	Prompt: ! Line Location: GET+3
Function Call: WRITE	Prompt: !!,"No occasion-of-service add/edits for this patient/date.",! Line Location: SCED+13
Function Call: WRITE	Prompt: !!,"Appt. DT",?24,"Location",?60,"Appt. Type" Line Location: SCED+16
Function Call: WRITE	Prompt: !,SCLINE Line Location: SCED+17
Function Call: WRITE	Prompt: !! Line Location: SCED+20
Function Call: WRITE	Prompt: !,Y,?24,$E($P(SCK(SCE),U,2),1,30),?60,$E($P(SCK(SCE),U,3),1,18) Line Location: SCED+22
Function Call: WRITE	Prompt: !,"Outpatient Encounter entry: "_DA_" for "_$P($G(^DPT(SCDFN,0)),U)_" is in use, cannot edit." Line Location: SCED+49
Function Call: WRITE	Prompt: !,"Done." Line Location: SCED+52
Routine Call	DIE Line Location: SCED+46
Routine Call	DIC Line Location: ASK+1 SCED+28
Routine Call	DIR Line Location: GET+7 SCED+35 ASKDT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SD(409.1 - [#409.1]	Classic Fileman Calls
^SCE - [#409.68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCED+21
^DPT - [#2]	SCED+49
^SC - [#44]	SCED+10, SET+4
^SCE - [#409.68]	SCED+9, SCED+10, SCED+43, SCED+50
^SCE("ADFN"	ASK+15, SCED+6, SCED+8
^SCE("C"	ASK+6
^SD(409.1 - [#409.1]	SET+5
^TMP("SCEA"	ASK+9!, ASK+18*, SCED+3

Label References

Name	Line Occurrences
$$ASKDT	APPTY+3, APP1
APP1	APP1+1
APPQ	APPTY+3, APP1, ASK+2
ASK	ASK+6, ASK+22, ASK+27
EXIT	ASK+3
GET	ASK+20, ASK+25
SCED	ASK+26
SET	SCED+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SCED+1~, SCED+40, SCED+41, SCED+43, SCED+47, SCED+49, SCED+50
DIC	APPTY+1~, ASK, ASK+1!, SCED+1~, SCED+24!, SCED+25, SCED+28!
DIC("A"	SCED+26*
DIC("B"	SCED+27*
DIC(0	ASK, SCED+25
DIE	APPQ+1!, SCED+1~, SCED+39!, SCED+45*, SCED+46!
DIR	APPTY+1~, GET+1~, GET+2!, GET+7!, SCED+1~, SCED+33!, SCED+35!, ASKDT+4!
DIR("?"	GET+5, GET+6, ASKDT+2*
DIR("A"	GET+4, SCED+34, ASKDT+1*
DIR("B"	SCED+34, ASKDT+3
DIR(0	GET+4, SCED+34, ASKDT+1*
DIRUT	APPTY+1~, GET+1~, GET+9, ASKDT+5, ASKDT+6!
DR	APPQ+1!, SCED+1~, SCED+39!, SCED+45*
DTOUT	APPTY+1~, ASK+2, APPQ+1!, GET+1~, GET+8, SCED+29, SCED+36
DUOUT	ASK+2, APPQ+1!, GET+1~, GET+8, SCED+29, SCED+36
DUTOUT	APPTY+1~
IOM	SCED+17
>> SCBD	APPTY+3*, APP1+1, ASK+15
SCCL	SET+1~, SET+4*, SET+6
SCDATE	SCED+1~, SCED+3*, SCED+5, SCED+6
SCDFN	APPTY+1~, ASK+4*, ASK+6, ASK+15, SCED+6, SCED+8, SCED+49
SCDT	APPTY+1~, ASK+14, ASK+15, ASK+17, ASK+18, ASK+19, SCED+1~, SCED+5, SCED+6, SCED+8 , SET+1~, SET+3, SET+6
SCE	SCED+1~, SCED+7, SCED+8, SCED+9, SCED+10, SCED+19, SCED+20, SCED+21, SCED+22, SET+6
SCE0	SCED+1~, SCED+9*, SCED+10, SET+3, SET+4, SET+5
>> SCED	APP1*, APP1+1, ASK+14
SCG	APPTY+1~, ASK+10, ASK+26, GET+10, SCED+3
SCI	APPTY+1~, ASK+10, ASK+16, ASK+18, ASK+19, ASK+20, ASK+22, ASK+25
SCK	SCED+1~, SCED+12, SCED+15
SCK(	SCED+20, SCED+21, SCED+22, SCED+41, SET+6*
SCLINE	SCED+1~, SCED+17*
SCN	GET~, GET+4
SCOUT	APPTY+1~, ASK+10, ASK+15, GET+8, GET+10*
SCTY	SET+1~, SET+5*, SET+6
SCY	SCED+1~, SCED+31*
SDLOG	SCED+1~, SCED+47
SUCCESS	SCED+1~, SCED+42!, SCED+43*, SCED+44
TXT	ASKDT~, ASKDT+1
U	SCED+10, SCED+21, SCED+22, SCED+31, SCED+34, SCED+49, SET+4, SET+5, SET+6
>> Y	ASK+3, ASK+4, GET+10, SCED+21, SCED+22, SCED+30, SCED+31, SCED+34, SCED+37, ASKDT+5 , ASKDT+7

Customize PDF page

Package: Scheduling

Routine: SCDXSUP1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: