Routine: SD53105A

Package	Total	Call Graph
Scheduling	5	(STREEVNT,XMITFLAG)^SCDXFU01 $$DELERR^SCDXFU02 $$DELXMIT^SCDXFU03 $$REPEAT^SCDXUTL1 BULL1^SD53105C
Kernel	3	(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	1	^DIK

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;Remember ending time
FIX	;Entry point to schedule clean up
INTRO	;Print intro text
EN(SCANMODE)	;Main entry point ; Routine deletes entries in the Transmitted Outpatient Encounter file ; (409.73) that do not have a valid pointer to the Outpatient Encounter ; file (#409.68) or the Deleted Outpatient Encounter file (#409.74).
SCAN	;Entry point to scan only (prints what would have been deleted)

External References

Name	Field # of Occurrence
^%ZTLOAD	FIX+12
$$S^%ZTLOAD	EN+87, EN+116, EN+141
^DIK	EN+112
STREEVNT^SCDXFU01	EN+81
XMITFLAG^SCDXFU01	EN+82
$$DELERR^SCDXFU02	EN+137
$$DELXMIT^SCDXFU03	EN+66, EN+73
$$REPEAT^SCDXUTL1	EN+52, EN+104, EN+127
BULL1^SD53105C	EN1+9
$$FMTE^XLFDT	EN+45, EN1+3
$$NOW^XLFDT	EN+40, EN+45, EN1+1, EN1+3
EN^XUTMDEVQ	SCAN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCAN+3
Function Call: WRITE	Prompt: !,"You are running this routine in scan mode, which will only identify" Line Location: SCAN+4
Function Call: WRITE	Prompt: !,"the problems corrected. Please select a device (queueing allowed) so" Line Location: SCAN+5
Function Call: WRITE	Prompt: !,"that a listing of what would have been done can be obtained." Line Location: SCAN+6
Function Call: WRITE	Prompt: !! Line Location: SCAN+7
Function Call: WRITE	Prompt: ! Line Location: FIX+3
Function Call: WRITE	Prompt: !,"Please enter the date/time that you would like this clean up queued to" Line Location: FIX+4
Function Call: WRITE	Prompt: !,"run. A summary of what was done will be sent to you and the" Line Location: FIX+5
Function Call: WRITE	Prompt: !,"recipients of the SCDX AMBCARE TO NPCDB SUMMARY bulletin." Line Location: FIX+6
Function Call: WRITE	Prompt: !! Line Location: FIX+7
Function Call: WRITE	Prompt: !!,"This routine will clean up dangling pointers and orphan entries within" Line Location: INTRO+1
Function Call: WRITE	Prompt: !,"the ACRP transmission files. The following actions/checks will be" Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"performed:" Line Location: INTRO+3
Function Call: WRITE	Prompt: ! Line Location: INTRO+4
Function Call: WRITE	Prompt: !,"(1) Entries in the Transmitted Outpatient Encounter file (409.73)" Line Location: INTRO+5
Function Call: WRITE	Prompt: !," that do not have a valid pointer to the Outpatient Encounter" Line Location: INTRO+6
Function Call: WRITE	Prompt: !," file (#409.68) or the Deleted Outpatient Encounter file" Line Location: INTRO+7
Function Call: WRITE	Prompt: !," (#409.74) are deleted." Line Location: INTRO+8
Function Call: WRITE	Prompt: ! Line Location: INTRO+9
Function Call: WRITE	Prompt: !,"(2) Entries in the Transmitted Outpatient Encounter file that have" Line Location: INTRO+10
Function Call: WRITE	Prompt: !," been rejected by the Austin Automation Center and do not have an" Line Location: INTRO+11
Function Call: WRITE	Prompt: !," entry in the Transmitted Outpatient Encounter Error file" Line Location: INTRO+12
Function Call: WRITE	Prompt: !," (#409.75) are marked for re-transmission." Line Location: INTRO+13
Function Call: WRITE	Prompt: ! Line Location: INTRO+14
Function Call: WRITE	Prompt: !,"(3) Entries in the Deleted Outpatient Encounter file that do not" Line Location: INTRO+15
Function Call: WRITE	Prompt: !," have a corresponding entry in the Transmitted Outpatient" Line Location: INTRO+16
Function Call: WRITE	Prompt: !," Encounter file are deleted." Line Location: INTRO+17
Function Call: WRITE	Prompt: ! Line Location: INTRO+18
Function Call: WRITE	Prompt: !,"(4) Entries in the Transmitted Outpatient Encounter Error file that" Line Location: INTRO+19
Function Call: WRITE	Prompt: !," do not have a valid pointer to the Transmitted Outpatient" Line Location: INTRO+20
Function Call: WRITE	Prompt: !," Encounter file are deleted." Line Location: INTRO+21

Name	Line Occurrences (* Changed, ! Killed)
^SCE - [#409.68]	EN+64
^SD(409.73 - [#409.73]	EN+54, EN+58, EN+78, EN+110, EN+135
^SD(409.74 - [#409.74]	EN+71, EN+106
^SD(409.75 - [#409.75]	EN+79, EN+129, EN+133
^TMP($J	EN+34!, EN+35, EN+36, EN+37, EN+38, EN+40, EN+89, EN+118, EN+143, EN1+1* , EN1+7*, EN1+11!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN+29~, EN+112*!
DELDEL	EN+28~, EN+32, EN+114, EN+118, EN+119
DELPTR	EN+28~, EN+61, EN+70, EN+71, EN+105, EN+106*, EN+110, EN+112, EN+113, EN+116
DELTOT	EN+28~, EN+32, EN+108, EN+118, EN+119
DIK	EN+29~, EN+112*!
ENCPTR	EN+28~, EN+60*, EN+63, EN+64
ERRDEL	EN+29~, EN+32, EN+139, EN+143, EN+144
ERRPTR	EN+28~, EN+128, EN+129, EN+133, EN+137, EN+138, EN+141
ERRTOT	EN+29~, EN+32, EN+131, EN+143, EN+144
NODE	EN+29~, EN+58*, EN+60, EN+61
SCANMODE	EN~, EN+30*, EN+41, EN+48, EN+66, EN+67, EN+73, EN+74, EN+81, EN+82 , EN+83, EN+90, EN+100, EN+112, EN+113, EN+119, EN+123, EN+137, EN+138, EN+144 , EN1+2, EN1+9
TMP	EN+29~, EN+66, EN+73, EN+78, EN+79, EN+137
TXT	FIX+1~
X	EN+29~, EN+112!
XMITDEL	EN+28~
>> XMITDELD	EN+32, EN+75, EN+89, EN+94, EN+96
>> XMITDELE	EN+32, EN+68, EN+89, EN+94, EN+95
XMITPTR	EN+28~, EN+53, EN+54, EN+58, EN+66, EN+67, EN+73, EN+74, EN+78, EN+79 , EN+81, EN+82, EN+83, EN+87, EN+133*, EN+135
XMITTOT	EN+28~, EN+32, EN+56, EN+89, EN+92
XMITXMIT	EN+28~, EN+32, EN+85, EN+89, EN+93
Y	EN+29~, EN+112!
ZTDESC	SCAN+1~, SCAN+9, SCAN+10, FIX+1~, FIX+9
ZTDTH	FIX+1~, FIX+10*
ZTIO	FIX+1~, FIX+11*
>> ZTQUEUED	EN1+12
>> ZTREQ	EN1+12*
ZTRTN	SCAN+1~, SCAN+8, SCAN+10, FIX+1~, FIX+8
ZTSK	FIX+1~, FIX+13, FIX+14
>> ZTSTOP	EN+54, EN+87, EN+98, EN+106, EN+116, EN+121, EN+129, EN+141*, EN1+7

Customize PDF page

Package: Scheduling

Routine: SD53105A

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: