Routine: SD53P227

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT
Scheduling	2	PRINT^SD53227 FIND^SD53227P
VA Fileman	2	WAIT^DICD ^DIR
MailMan	1	^XMD

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT

Scheduling

PRINT^SD53227 FIND^SD53227P

VA Fileman

WAIT^DICD ^DIR

MailMan

^XMD

Entry Points

Name	Comments	DBIA/ICR reference
RUN	;Loop the 409.75 Transmitted Outpatient Encounter Error file
ASK()	; Ask user to contuine or not
TITLE	; Screen title
QUEUE	; queue the report
START	;Check for Programmer DUZ(0)="@", then Prompt for Device.
EXIT	;Clean up and quit
MSG	; List information message
MAIL	;Send mail message
REPORT(SDR)	;Select Utility action type

External References

Name	Field # of Occurrence
^%ZIS	START+38
HOME^%ZIS	QUEUE+6
^%ZISC	START+41
^%ZTLOAD	QUEUE+3
WAIT^DICD	RUN+10
^DIR	REPORT+8, ASK+4
PRINT^SD53227	RUN+32
FIND^SD53227P	RUN+29
$$DT^XLFDT	RUN+24
$$FMTE^XLFDT	START+20, START+24
$$HTE^XLFDT	TITLE+4
$$HTFM^XLFDT	RUN+24
$$NOW^XLFDT	RUN+12, EXIT+4
^XMD	RUN+9, MAIL+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"DUZ must be defined to run this utility!" Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: START+34
Function Call: WRITE	Prompt: !!?5,"Unable to schedule Task.",! Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!?5,"Scheduled as Task #: ",ZTSK Line Location: QUEUE+5
Function Call: WRITE	Prompt: !!,$C(7) Line Location: REPORT+8
Function Call: WRITE	Prompt: !!,"This utility will Report on and Clean Up Encounter Date/Time" Line Location: MSG+1
Function Call: WRITE	Prompt: !,"error code 421 entries in the #409.75 and #9000010 files." Line Location: MSG+2
Function Call: WRITE	Prompt: !,"Both options will E-mail a summary report to the user." Line Location: MSG+3
Function Call: WRITE	Prompt: !,"Updated entries will be flagged for Retransmission to the NPCD." Line Location: MSG+4
Function Call: WRITE	Prompt: !!,"The REPORT ONLY option does NOT update any file information." Line Location: MSG+5
Function Call: WRITE	Prompt: !,"You may run the REPORT ONLY option to your CRT or to a device." Line Location: MSG+6
Function Call: WRITE	Prompt: !,"The CLEAN UP & REPORT option MUST be queued to a device." Line Location: MSG+7
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+1
Function Call: WRITE	Prompt: !!,?(80-$L(TITLE)\2),TITLE Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?(80-$L(X)\2),X Line Location: TITLE+5
Routine Call	%ZIS Line Location: QUEUE+6
Routine Call	DIR Line Location: REPORT+8 ASK+4
Routine Call	%ZIS Line Location: START+38

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("SD53P227"	START+10, START+15, START+16, START+22, START+35, RUN+1, RUN+18!, RUN+20, RUN+21, RUN+22! , RUN+27*, EXIT+6

Name	Line Occurrences
$$ASK	START+25
$$REPORT	START+32
EXIT	START+28, START+32, RUN+31, RUN+32
MAIL	RUN+31, RUN+32
MSG	START+31
QUEUE	START+40
RUN	START+41
TITLE	START+3, START+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	START+2~, START+37*
CRT	RUN+11~, RUN+13, RUN+14
DIR	REPORT+1~, REPORT+8!, ASK+1~, ASK+4!
DIR("?"	REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+7*
DIR("A"	REPORT+2, ASK+3
DIR("B"	ASK+3*
DIR(0	REPORT+2, ASK+2
DIRUT	REPORT+1~, REPORT+9, ASK+1~, ASK+5
DTOUT	REPORT+1~, REPORT+9, ASK+1~, ASK+5
DUOUT	REPORT+1~, REPORT+9, ASK+1~, ASK+5
DUZ	START+4, RUN+4, RUN+25, MAIL+3
DUZ(0	START+5
EXIT	START+1~, START+14, START+19, START+25, START+26, START+27, START+28, RUN+11~, RUN+13, RUN+31
FIX	RUN+11~, RUN+13, RUN+15, RUN+26
IO("Q"	START+40
IOF	TITLE+1
IOST	RUN+10, RUN+14
>> POP	START+39
RUNDT	RUN+11~
SDI	RUN+11~, RUN+13, RUN+22
SDL	RUN+11~, RUN+13*
SDMSG	RUN+3~
SDMSG(1	RUN+5*
SDMSG(2	RUN+6*
SDMSG(3	RUN+7*
SDR	REPORT~, REPORT+10*
SDRTYP	START+1~, START+32, START+37, RUN+15, RUN+25, MAIL+2
SDTEMP	RUN+11~, RUN+27*, EXIT+4
TIMESTRT	RUN+11~, RUN+12*, RUN+25, RUN+26, EXIT+3
TITLE	START+1~, RUN+4, TITLE+2*, TITLE+3
TXT	START+1~
U	START+18, START+20, START+24, RUN+24, RUN+25, RUN+26, EXIT+4
X	START+1~, START+16, START+17, START+18, START+20, START+24, RUN+11~, RUN+13, RUN+21, RUN+24 , RUN+25, RUN+26, RUN+27, EXIT+2~, EXIT+4, REPORT+1~, ASK+1~, TITLE+4, TITLE+5
XMDUN	RUN+3~, RUN+4, MAIL+1~, MAIL+3
XMDUZ	RUN+3~, RUN+4, MAIL+1~, MAIL+3
XMSUB	RUN+3~, RUN+4, MAIL+1~, MAIL+2
XMTEXT	RUN+3~, RUN+8, MAIL+1~, MAIL+4
XMY	RUN+3~, MAIL+1~
XMY(	RUN+4, MAIL+3
XMZ	MAIL+1~
Y	START+1~, RUN+11~, REPORT+1~, REPORT+9*, REPORT+10, REPORT+11, ASK+1~, ASK+6
ZTDESC	START+2~, QUEUE+2*
ZTDTH	START+2~
ZTIO	START+2~
ZTQUEUED	START+2~, RUN+10, RUN+14
ZTREQ	START+2~, RUN+33*
ZTRTN	START+2~, QUEUE+2*
ZTSAVE	START+2~
ZTSAVE("SDRTYP"	QUEUE+1*
ZTSAVE("TITLE"	QUEUE+1*
ZTSK	START+2~, QUEUE+4, QUEUE+5

Customize PDF page

Package: Scheduling

Routine: SD53P227

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: