Routine: SD5384PT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; process task
LOOP	; loop through encounter file and delete bogus credit stop entries
LOOPQ
DEL(IEN)	; delete encounter and increment counter by location
MAIL	; send bulletin of results
LINE(TEXT)	; add text to mail message
CLINIC	; entry point if a site wants to delete ALL credit stop encounters associated with one (or more) hospital location(s)
QUEUE	; queue process to run
RETRAN	; flag errors of one type to retransmit

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Queuing credit stop encounter cleanup:" Line Location: CLINIC+8
Function Call: WRITE	Prompt: !,"Task number = ",ZTSK Line Location: QUEUE+7
Routine Call	DIR Line Location: RETRAN+3

FileNo	Call Tags
^SCE - [#409.68]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	MAIL+14, MAIL+19
^SCE - [#409.68]	LOOP+23, LOOP+28, DEL+5
^SCE("B"	LOOP+20, LOOP+22
^SD(409.75 - [#409.75]	RETRAN+6

Name	Line Occurrences
DEL	LOOP+26, LOOP+29, LOOP+30
LINE	MAIL+3, MAIL+4, MAIL+5, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+13 , MAIL+14, MAIL+15, MAIL+17, MAIL+18, MAIL+19
LOOP	EN+3
MAIL	EN+4
QUEUE	CLINIC+8
RETRAN	CLINIC+9

Name	Field # of Occurrence
^(	RETRAN+6

Name	Field # of Occurrence
DA	DEL+4~, DEL+8*
>> DIC	CLINIC+6*
>> DIC("S"	CLINIC+6*
DIFROM	MAIL+1~
DIK	DEL+4~, DEL+7*
DIR	RETRAN+1~
DIR(0	RETRAN+2*
DIROUT	RETRAN+1~
DIRUT	RETRAN+1~
DT	LOOP+18
DTOUT	RETRAN+1~
DUOUT	RETRAN+1~
DUZ	MAIL+22
ERROR	RETRAN+1~, RETRAN+5*, RETRAN+7
I	MAIL+14, MAIL+19, QUEUE+1~, QUEUE+4*
IEN	DEL~, DEL+5, DEL+8
LOC	DEL+4~, DEL+5*, DEL+6
SDALL	LOOP+17~, LOOP+19*, LOOP+25
>> SDBEGDT	LOOP+18*, LOOP+19
SDCLINIC	CLINIC+4~
SDCLINIC(	LOOP+26, MAIL+19
SDCLINIC(0	LOOP+19, MAIL+6
SDCOUNT	EN+1~, MAIL+2, LINE+1
SDCOUNT(	DEL+6*, MAIL+14, MAIL+19
SDCOUNT(0	MAIL+15
SDCRED	LOOP+17~, LOOP+27*, LOOP+30
SDDATE	LOOP+17~, LOOP+19, LOOP+20, LOOP+22
SDENC	LOOP+17~, LOOP+21, LOOP+22, LOOP+23, LOOP+26, LOOP+29, LOOP+30
>> SDENDDT	LOOP+18*, LOOP+20
SDLOOP	RETRAN+1~, RETRAN+5, RETRAN+6
SDNODE	LOOP+17~, LOOP+23*, LOOP+24, LOOP+26, LOOP+27, LOOP+28
>> SDNODEL	DEL+9
SDPAR	LOOP+17~, LOOP+28*, LOOP+29, LOOP+30
SDSTART	EN+1~, EN+2*, MAIL+4
SDTEXT	MAIL+1~
SDTEXT(	LINE+1*
TEXT	LINE~, LINE+1
>> VAUTNALL	CLINIC+5*
>> VAUTNI	CLINIC+5*
>> VAUTSTR	CLINIC+5*
>> VAUTVB	CLINIC+5*
X	RETRAN+1~, RETRAN+6*, RETRAN+7
XMDUZ	MAIL+22*, MAIL+24!
XMN	MAIL+20*, MAIL+24!
XMSUB	MAIL+20*, MAIL+24!
XMTEXT	MAIL+21*, MAIL+24!
XMY	MAIL+24!
XMY(	MAIL+22*
Y	CLINIC+8, RETRAN+1~, RETRAN+4, RETRAN+5
ZTDESC	QUEUE+2*, QUEUE+8!
ZTIO	QUEUE+3*, QUEUE+8!
ZTRTN	QUEUE+5*, QUEUE+8!
ZTSAVE	QUEUE+8!
ZTSAVE(	QUEUE+4*
ZTSK	QUEUE+7, QUEUE+8!