Routine: SD44AUDI

Package	Total	Call Graph
VA Fileman	3	^%DT EN1^DIP ^DIR
Kernel	1	($$FMTE,$$HTE)^XLFDT

Package	Total	Caller Graph
Scheduling	1	SD CLINIC EDIT LOG

Entry Points

Name	Comments	DBIA/ICR reference
DTRNG	;report date range
EN	;entry point from option
SEQ	;retain sequence number
RPTHDR	;report header
DTREP
STCODE(FLD)	;Get AMIS Stop Code #
PRINT	;Print report using fileman EN1^DIP
CLINM	;Clinic name
GETSORT	;Prompt for sorting order for report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option prints a log of the changes made to Clinic Locations" Line Location: EN+5
Function Call: WRITE	Prompt: !!," REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY " Line Location: EN+9
Function Call: WRITE	Prompt: $E($P($G(^SC(+X,0)),"^"),1,18) Line Location: CLINM+2
Function Call: WRITE	Prompt: $E(STCODE,1,18) Line Location: STCODE+9
Function Call: WRITE	Prompt: $E(^DIA(44,D0,FLD),1,18) Line Location: STCODE+11
Function Call: WRITE	Prompt: "CLINIC EDIT LOG ",?115,"Page ",PG,! Line Location: RPTHDR+3
Function Call: WRITE	Prompt: "Printed on ",$$HTE^XLFDT($H)," for ",SDSD," to ",SDED,! Line Location: RPTHDR+4
Function Call: WRITE	Prompt: "USER NAME",?24,"DATE/TIME CHANGED",?46,"CLINIC IEN",?58 Line Location: RPTHDR+5
Function Call: WRITE	Prompt: "CLINIC NAME",?78,"FIELD NAME",?89,"OLD VALUE",?109,"NEW VALUE",! Line Location: RPTHDR+6
Function Call: WRITE	Prompt: LN,! Line Location: RPTHDR+7
Routine Call	DIR Line Location: GETSORT+4 PRINT+14

Name	Line Occurrences (* Changed, ! Killed)
^DIA - [#1.1]	PRINT+12
^DIA(44	SEQ+3, SEQ+4, STCODE+3, STCODE+5, STCODE+8, STCODE+11
^DIC(40.7 - [#40.7]	STCODE+6
^SC - [#44]	CLINM+2

Name	Field # of Occurrence
^(0	SEQ+4

Name	Field # of Occurrence
%DT	DTRNG+1~, DTREP, DTREP+3
%DT("A"	DTREP, DTREP+3
%DT(0	DTREP, DTREP+3
BY	PRINT+1~, PRINT+8, PRINT+10
D0	EN+2~, SEQ+1, SEQ+2, STCODE+3, STCODE+5, STCODE+8, STCODE+11
DHD	PRINT+1~, PRINT+6*
DIA	PRINT+1~
DIC	PRINT+1~, PRINT+3*
DIOBEG	PRINT+1~, PRINT+3*
DIR	GETSORT+1~, PRINT+1~
DIR("A"	GETSORT+3*
DIR("B"	GETSORT+3*
DIR(0	GETSORT+2, PRINT+14
DIRUT	GETSORT+1~, GETSORT+5
ECDT	DTRNG+1~
FLD	STCODE~, STCODE+3, STCODE+5, STCODE+8, STCODE+11
FLDS	PRINT+1~, PRINT+4, PRINT+5
FR	PRINT+1~, PRINT+8, PRINT+10
IOST	PRINT+14
L	PRINT+1~, PRINT+3*
LN	RPTHDR+1~, RPTHDR+7*
PG	PRINT+1~, RPTHDR+2*, RPTHDR+3
QFLG	EN+2~, EN+4, EN+8, EN+10, GETSORT+5, DTREP+1, DTREP+4
SDDT	EN+2~, DTREP+2*, DTREP+5, DTREP+7
SDED	EN+2~, PRINT+8, PRINT+10, RPTHDR+4, DTREP+9*
SDFIL	PRINT+1~, PRINT+2*, PRINT+3, PRINT+12
SDFLG	PRINT+1~, PRINT+2, PRINT+12, RPTHDR+2
SDNAM	EN+2~
SDNAME	EN+2~
SDSD	EN+2~, PRINT+8, PRINT+10, RPTHDR+4, DTREP+2*
SDSEQ	EN+2~, SEQ+2*, SEQ+3, SEQ+4
SDST	EN+2~, SEQ+1, SEQ+5, STCODE+4
SDX	EN+2~
SORT	EN+2~, GETSORT+6*, PRINT+7, PRINT+9
STCODE	EN+2~, STCODE+3, STCODE+5, STCODE+6, STCODE+8, STCODE+9
TO	PRINT+1~, PRINT+8, PRINT+10
U	STCODE+5
X	GETSORT+1~, CLINM+1, CLINM+2, DTRNG+1~
Y	GETSORT+1~, GETSORT+6, DTRNG+1~, DTREP+1, DTREP+2, DTREP+4, DTREP+5, DTREP+7, DTREP+9