Routine: SD53120A

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD $$FMTE^XLFDT BMES^XPDUTL
VA FileMan	3	DD^%DT H^%DTC ^DIR
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
Scheduling	1	DATE^SDUTL

Package	Total	Caller Graph
Scheduling	1	SD53 CLEANUP/ERR COUNT

Name	Comments	DBIA/ICR reference
EN	;This is the entry point to start the count of problems
ENQ
TSK	; entry point for the queued task
TSKQ
MAILMSG(USER,SDMNT,XMTEXT)	;this subroutine will fire a message when ; the background job has finished. ; USER - who started the job ; SDMNT - To Albany CIOFO if run as post-install ; XMTEXT - notes for the end of the message
MAILQ
OK()	;last chance to back out
BLDTXT(CTR,TEXT,SDTEXT)	; create line of text
FINDERR	; main program block
OUTPUT	; create text for MailMan message
APPT	; check patient appointment multiple
DISP	; check patient disposition multiple
DUP	; loop through outpatient encounter file - call DUPCHECK
DUPCHECK	; check for duplicates

Name	Field # of Occurrence
DD^%DT	EN+22
H^%DTC	EN+20
^%ZTLOAD	EN+21
$$S^%ZTLOAD	FINDERR+9, DUP+4
^DIR	OK+3
DATE^SDUTL	EN+9
$$SITE^VASITE	OUTPUT+4
$$FMTE^XLFDT	OUTPUT+7, OUTPUT+8
^XMD	MAILMSG+13
BMES^XPDUTL	EN+23, EN+24

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Can not select a date before 10/1/96." Line Location: EN+15
Routine Call	DIR Line Location: OK+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FINDERR+8, APPT+3, APPT+5, DISP+3, DISP+5
^SC - [#44]	APPT+6
^SCE - [#409.68]	APPT+9, APPT+10, DISP+9, DISP+10, DUPCHECK+2, DUPCHECK+4
^SCE("ADFN"	DUP+3, DUP+6, DUP+8, DUPCHECK+3

Name	Line Occurrences
$$OK	EN+19
APPT	FINDERR+10
BLDTXT	OUTPUT+5, OUTPUT+6, OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+12, OUTPUT+13, OUTPUT+14, OUTPUT+15, OUTPUT+16 , OUTPUT+17, OUTPUT+18, OUTPUT+19, OUTPUT+20, OUTPUT+21, OUTPUT+22, OUTPUT+23, OUTPUT+24, OUTPUT+25, OUTPUT+26 , OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+31, OUTPUT+32, OUTPUT+33, OUTPUT+34, OUTPUT+35, OUTPUT+36 , OUTPUT+37, OUTPUT+38, OUTPUT+39, OUTPUT+40, OUTPUT+41, OUTPUT+42, OUTPUT+43, OUTPUT+44, OUTPUT+45, OUTPUT+46 , OUTPUT+47, OUTPUT+48, OUTPUT+49, OUTPUT+50, OUTPUT+51, OUTPUT+52, OUTPUT+53, OUTPUT+54, OUTPUT+55
DISP	FINDERR+11
DUP	FINDERR+13
DUPCHECK	DUP+8
EN	EN+15
ENQ	EN+14, EN+19
FINDERR	TSK+11
MAILMSG	TSK+12
OUTPUT	FINDERR+12, FINDERR+14

Name	Field # of Occurrence
%H	EN+20, ENQ!
%T	EN+20, ENQ!
A	EN+4~, EN+18*
BEGDATE	EN+4~, EN+13, EN+14, EN+15, TSK+8, OUTPUT+7, OUTPUT+9
CTR	BLDTXT~, BLDTXT+1, BLDTXT+2, OUTPUT+2, OUTPUT+5, OUTPUT+6, OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+12 , OUTPUT+13, OUTPUT+14, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+18, OUTPUT+19, OUTPUT+20, OUTPUT+21, OUTPUT+22 , OUTPUT+23, OUTPUT+24, OUTPUT+25, OUTPUT+26, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+31, OUTPUT+32 , OUTPUT+33, OUTPUT+34, OUTPUT+35, OUTPUT+36, OUTPUT+37, OUTPUT+38, OUTPUT+39, OUTPUT+40, OUTPUT+41, OUTPUT+42 , OUTPUT+43, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+47, OUTPUT+48, OUTPUT+49, OUTPUT+50, OUTPUT+51, OUTPUT+52 , OUTPUT+53, OUTPUT+54, OUTPUT+55
DIR	OK+1~
DIR("A"	OK+2*
DIR("B"	OK+2*
DIR(0	OK+2*
DT	EN+20
DUZ	TSK+12
ENDDATE	EN+4~, EN+13, EN+14, TSK+9, OUTPUT+8*, OUTPUT+10, APPT+3, DISP+2, DUP+6
POP	ENQ!
SAV	MAILMSG+6~, MAILMSG+11*, MAILMSG+14
SCADAT	FINDERR+3~, FINDERR+6, OUTPUT+22, APPT+17
SCADT	FINDERR+4~, FINDERR+7, OUTPUT+23, APPT+18
SCAPAT	FINDERR+3~, FINDERR+6, OUTPUT+21, APPT+16
SCASTP	FINDERR+3~, FINDERR+6, OUTPUT+24, APPT+19
SCDATE	FINDERR+1~, APPT+13, APPT+17, APPT+18, DISP+14, DISP+17, DISP+18
SCDDAT	FINDERR+3~, FINDERR+6, OUTPUT+42, DISP+17
SCDDT	FINDERR+4~, FINDERR+7, OUTPUT+43, DISP+18
SCDFN	FINDERR+1~, APPT+14, APPT+16, DISP+15, DISP+16, DUP+1~, DUP+2, DUP+3, DUP+6, DUP+8 , DUPCHECK+3
SCDPAT	FINDERR+3~, FINDERR+6, OUTPUT+41, DISP+16
SCDT	DUP+1~, DUP+2, DUP+5, DUP+6*, DUP+8, DUPCHECK+3
SCDUPEA	FINDERR+2~, FINDERR+5, OUTPUT+50, OUTPUT+55, DUPCHECK+9
SCDUPEC	FINDERR+2~, FINDERR+6, OUTPUT+53, OUTPUT+55, DUPCHECK+12
SCDUPED	FINDERR+2~, FINDERR+6, OUTPUT+52, OUTPUT+55, DUPCHECK+11
SCDUPEE	FINDERR+2~, FINDERR+5, OUTPUT+51, OUTPUT+55, DUPCHECK+10
SCENC	DUP+1~, DUP+2, DUP+7, DUP+8*, DUPCHECK+2
SCNUM1	DUP+1~, DUP+2, DUPCHECK+2, DUPCHECK+3
SCNUM2	DUP+1~, DUP+2, DUPCHECK+3, DUPCHECK+4
SCREC1	DUP+1~, DUP+2, DUPCHECK+2, DUPCHECK+5, DUPCHECK+6, DUPCHECK+7, DUPCHECK+8, DUPCHECK+9, DUPCHECK+10, DUPCHECK+11 , DUPCHECK+12
SCREC2	DUP+1~, DUP+2, DUPCHECK+4, DUPCHECK+5, DUPCHECK+6, DUPCHECK+7, DUPCHECK+8
SCSTOP	FINDERR+3~, APPT+15*, APPT+19
SCTOTE	FINDERR+2~, FINDERR+6, OUTPUT+55, DUPCHECK+1
SDANA	FINDERR+4~, FINDERR+7, OUTPUT+20, APPT+12
SDANE	FINDERR+4~, FINDERR+7, OUTPUT+16, OUTPUT+26, APPT+8
SDANP	FINDERR+4~, FINDERR+7, OUTPUT+19, APPT+11
SDAP	FINDERR+1~, APPT+5*, APPT+6, APPT+7, APPT+8
SDAPPT	FINDERR+1~, APPT+2, APPT+3, APPT+5, APPT+17, APPT+18
SDBADA	FINDERR+1~, FINDERR+5, OUTPUT+18, OUTPUT+26, APPT+11, APPT+12, APPT+16, APPT+17, APPT+18, APPT+19*
SDBADD	FINDERR+2~, FINDERR+5, OUTPUT+38, OUTPUT+45, DISP+11, DISP+12, DISP+16, DISP+17, DISP+18
SDBD	ENQ!
SDCLIN	FINDERR+1~, APPT+6*
SDDATE	FINDERR+3~, DISP+13*, DISP+17, DISP+18
SDDFN	FINDERR+1~, FINDERR+5, FINDERR+8, APPT+3, APPT+5, APPT+16, DISP+3, DISP+5, DISP+16
SDDI	FINDERR+3~, DISP+5*, DISP+6, DISP+7, DISP+8, DISP+13
SDDISP	FINDERR+3~, DISP+2, DISP+3, DISP+5
SDDND	FINDERR+4~, FINDERR+7, OUTPUT+40, DISP+12
SDDNE	FINDERR+4~, FINDERR+7, OUTPUT+36, OUTPUT+45, DISP+8
SDDNP	FINDERR+4~, FINDERR+7, OUTPUT+39, DISP+11
SDED	ENQ!
SDENC	FINDERR+1~, APPT+7, APPT+8, APPT+9, APPT+10, DISP+7, DISP+8, DISP+9, DISP+10
SDLINE	OUTPUT+1~, OUTPUT+3*, OUTPUT+13, OUTPUT+33, OUTPUT+47
SDMISA	FINDERR+1~, FINDERR+5, OUTPUT+17, OUTPUT+26, APPT+9
SDMISD	FINDERR+2~, FINDERR+5, OUTPUT+37, OUTPUT+45, DISP+9
SDMNT	EN+8, EN+12, TSK+12, MAILMSG~, MAILMSG+8, MAILMSG+15!
SDOE	APPT+1~, APPT+10, APPT+11, APPT+12, APPT+13, APPT+14, APPT+15, DISP+1~, DISP+10, DISP+11 , DISP+12, DISP+14, DISP+15
SDPAT	FINDERR+4~, FINDERR+6, FINDERR+8, OUTPUT+6
SDPDATE	TSK+6~, TSK+8*, APPT+2, DISP+3, DUP+5
SDPZTSK	TSK+6~, TSK+7*
SDSTOP	FINDERR+3~, APPT+6*, APPT+19
SDTEXT	TSK+6~, TSK+10*, TSK+12, BLDTXT~, BLDTXT+2, OUTPUT+2, OUTPUT+5, OUTPUT+6, OUTPUT+9, OUTPUT+10 , OUTPUT+11, OUTPUT+12, OUTPUT+13, OUTPUT+14, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+18, OUTPUT+19, OUTPUT+20 , OUTPUT+21, OUTPUT+22, OUTPUT+23, OUTPUT+24, OUTPUT+25, OUTPUT+26, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30 , OUTPUT+31, OUTPUT+32, OUTPUT+33, OUTPUT+34, OUTPUT+35, OUTPUT+36, OUTPUT+37, OUTPUT+38, OUTPUT+39, OUTPUT+40 , OUTPUT+41, OUTPUT+42, OUTPUT+43, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+47, OUTPUT+48, OUTPUT+49, OUTPUT+50 , OUTPUT+51, OUTPUT+52, OUTPUT+53, OUTPUT+54, OUTPUT+55
SDTOTA	FINDERR+1~, FINDERR+5, OUTPUT+26, APPT+4
SDTOTD	FINDERR+2~, FINDERR+5, OUTPUT+45, DISP+4
TEXT	BLDTXT~, BLDTXT+2
USER	MAILMSG~, MAILMSG+9
X	EN+4~, EN+20*, EN+22, OK+1~
XMDUZ	MAILMSG+7*, MAILMSG+15!
XMSUB	MAILMSG+10*, MAILMSG+15!
XMTEXT	MAILMSG~, MAILMSG+11, MAILMSG+12, MAILMSG+14, MAILMSG+15
XMY	MAILMSG+15!
XMY(	MAILMSG+8, MAILMSG+9
XMZ	MAILMSG+15!
>> XPDNM	EN+7, EN+19, EN+20
Y	EN+4~, EN+22, EN+23, MAILMSG+6~, OK+1~, OK+4, OUTPUT+1~, OUTPUT+4, OUTPUT+5
ZTDESC	EN+4~, EN+17*
ZTDTH	EN+20*, ENQ!
ZTIO	EN+4~, EN+17*
>> ZTQUEUED	TSK+13
>> ZTREQ	TSK+13*
ZTRTN	EN+4~, EN+17*, ENQ!
ZTSAVE	ENQ!
ZTSAVE(	EN+18*
ZTSK	EN+23, EN+24, ENQ!, TSK+7
ZTSTOP	FINDERR+4~, FINDERR+7, FINDERR+8, FINDERR+9, FINDERR+12, OUTPUT+12, DUP+3, DUP+4*

Name

Field # of Occurrence

%H

EN+20, ENQ!

%T

EN+20, ENQ!

A

EN+4~, EN+18*

BEGDATE

EN+4~, EN+13*, EN+14, EN+15, TSK+8, OUTPUT+7*, OUTPUT+9

CTR