Routine: SDC1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO APPOINTMENTS SCHEDULED" Line Location: START+10
Function Call: WRITE	Prompt: !!,"* THIS PATIENT HAS BEEN FLAGGED WITH A BAD ADDRESS INDICATOR, NO LETTER" Line Location: START+12
Function Call: WRITE	Prompt: !,"WILL BE PRINTED." Line Location: START+13
Function Call: WRITE	Prompt: @IOF Line Location: START+14
Function Call: WRITE	Prompt: !! Line Location: EXIT+0
Function Call: WRITE	Prompt: ! Line Location: PLST+9
Function Call: WRITE	Prompt: "*" Line Location: PLST+9
Function Call: WRITE	Prompt: ?64,$P(^(.13),"^",1) Condition for execution: $D(^DPT(DFN,.13)) Line Location: PLST+10
Function Call: WRITE	Prompt: @IOF,!,$P(^SC(SC,0),"^",1)," Clinic Pre-cancellation list for ",$$FMTE^XLFDT(SD,"D"),!,"PATIENT NAME",?34,"ID",?43,"APPT TIME",?56,"LENGTH",?64,"TELEPHONE" Line Location: HED+1
Function Call: WRITE	Prompt: ! Line Location: HED+2
Function Call: WRITE	Prompt: "-" Line Location: HED+2
Routine Call	DIR Line Location: PLST

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+7, PLST+10
^SC - [#44]	START+2, START+3, START+4, START+5, START+6, PLST+8, HED+1
^TMP("SDC1"	SDC1+4!, EXIT!, PLST+4, PLST+5*

Name	Field # of Occurrence
CSLNK	PLST+8~*, PLST+10
DA	DELETE+1*, DELETE+3!
DA(1	DELETE+1*, DELETE+2
DA(2	DELETE+1*, DELETE+2
DFN	START+6*, START+7, EXIT!, PLST+4, PLST+5, PLST+9, PLST+10
>> DGPGM	SDC1+4*
>> DGVAR	SDC1+4*
DIK	DELETE+2*, DELETE+3!
DIR	PLST!
DIR(0	PLST*
DTOUT	START!, START+2, START+3, START+9, START+10, EXIT!, PLST
DUOUT	START!, START+2, START+3, START+9, START+10, EXIT!, PLST
I	EXIT!, HED+2*
IO	START
IOF	START+14, HED+1
IOSL	PLST
IOST	START+14, PLST
J	START+2*, START+3, START+4, START+5, START+6, START+7, EXIT!, PLST+4, PLST+5, PLST+8 , PLST+10, DELETE+1
J2	START+3*, START+4, START+5, START+6, EXIT!, PLST+8, DELETE+1
>> NOAP	START+10*
>> POP	SDC1+4
>> SC	START+2, START+3, START+4, START+5, START+6, START+8, PLST+8, HED+1, DELETE+1
>> SD	START+2, HED+1
SDBADD	START~, START+11, PLST+9
SDCNT	START, START+10, EXIT!, PLST, PLST+11
SDLE	START+6*, EXIT!, PLST+10
>> SDTIME	START+8, START+9
SNODE	START~, START+7, START+8, START+9, EXIT!
U	START+6, START+8, START+9, PLST+8
VA	PLST+7~
VA("PID"	PLST+10
X	EXIT!, PLST+10*

Information

Name	Comments	DBIA/ICR reference
HED	;W @IOF,!,$P(^SC(SC,0),"^",1)," Clinic Pre-cancellation list",!,"PATIENT NAME",?34,"ID",?43,"APPT TIME",?56,"LENGTH",?64,"TELEPHONE" ;IHS/ANMC/.LJF 12/13/2000
START
EXIT
PLST
DELETE	;SD5.3545 when applicable, delete corrupt appt sub-record