Routine: SD44AUDI

Package	Total	Call Graph
VA FileMan	3	^%DT EN1^DIP ^DIR
Kernel	2	(,HOME)^%ZIS ($$FMTE,$$HTE)^XLFDT

Package	Total	Caller Graph
Scheduling	1	SD CLINIC EDIT LOG

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point from option
GETSORT	;Prompt for sorting order for report
PRINT	;Print report using fileman EN1^DIP
CLINM	;Clinic name
CLINIEN	;section added in 616
SEQ	;retain sequence number
STCODE(FLD)	;Get AMIS Stop Code #
RPTHDR	;report header
DTRNG	;report date range
DTREP
EXPORT()	;Function indicates if report output is going to a device or to the screen in exportable format - API added in patch 616
EXPDISP	;Displays report in exportable format. API added in patch 616

External References

Name	Field # of Occurrence
^%DT	DTREP, DTREP+3
^%ZIS	EXPDISP+8
HOME^%ZIS	PRINT+23
EN1^DIP	PRINT+15
^DIR	GETSORT+4, PRINT+18, PRINT+22, EXPORT+5
$$FMTE^XLFDT	DTREP+2, DTREP+9
$$HTE^XLFDT	RPTHDR+4

Interaction Calls

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+11
Function Call: WRITE	Prompt: $E($P($G(^SC(+X,0)),"^"),1,30) Line Location: CLINM+2
Function Call: WRITE	Prompt: +X Line Location: CLINIEN+1
Function Call: WRITE	Prompt: $E(STCODE,1,18) Line Location: STCODE+9
Function Call: WRITE	Prompt: $E(^DIA(44,D0,FLD),1,30) 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",?90,"FIELD NAME",?101,"OLD VALUE",!,?101,"NEW VALUE",! Line Location: RPTHDR+6
Function Call: WRITE	Prompt: LN,! Line Location: RPTHDR+7
Function Call: WRITE	Prompt: ! Line Location: EXPORT+2
Function Call: WRITE	Prompt: !!,"Gathering data for export..." Line Location: EXPORT+7
Function Call: WRITE	Prompt: !!,"To ensure all data is captured during the export:" Line Location: EXPDISP+2
Function Call: WRITE	Prompt: !!,"1. Select 'Logging...' from the File Menu. Select your file, and where to save." Line Location: EXPDISP+3
Function Call: WRITE	Prompt: !,"2. On the Setup menu, select 'Display...',then 'screen' tab and modify 'columns'",!," setting to at least 225 characters." Line Location: EXPDISP+4
Function Call: WRITE	Prompt: !,"3. The DEVICE input for the columns should also contain a large enough",!," parameter (e.g. 225). The DEVICE prompt is defaulted to 0;225;99999 for you.",!," You may change it if need be." Line Location: EXPDISP+5
Function Call: WRITE	Prompt: !,"Example: DEVICE: 0;225;99999 *Where 0 is your screen, 225 is the margin width",!?17,"and 99999 is the screen length." Line Location: EXPDISP+6
Function Call: WRITE	Prompt: !!,"NOTE: In order for all number fields, such as SSN and Feeder Key, to be",!,"displayed correctly in the spreadsheet, these fields must be formatted as Text",!,"when importing the data into the spreadsheet.",! Line Location: EXPDISP+7
Routine Call	DIR Line Location: GETSORT+4 PRINT+18 PRINT+22 EXPORT+5
Routine Call	%ZIS Line Location: EXPDISP+8
Routine Call	%ZIS Line Location: PRINT+23

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIA - [#1.1]	PRINT+16
^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

Label References

Name	Line Occurrences
$$EXPORT	EN+10
DTREP	DTREP+5, DTREP+7
DTRNG	EN+9
EXPDISP	PRINT+14
GETSORT	EN+8
PRINT	EN+12
SEQ	STCODE+1

Naked Globals

Name	Field # of Occurrence
^(0	SEQ+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DTRNG+1~, DTREP, DTREP+3
%DT("A"	DTREP, DTREP+3
%DT(0	DTREP, DTREP+3
%ZIS	EXPDISP+1~, EXPDISP+8*
%ZIS("B"	EXPDISP+8*
BY	PRINT+1~, PRINT+11, PRINT+13
D0	EN+2~, SEQ+1, SEQ+2, STCODE+3, STCODE+5, STCODE+8, STCODE+11
DHD	PRINT+1~, PRINT+9*
DIA	PRINT+1~
DIC	PRINT+1~, PRINT+3*
DIOBEG	PRINT+1~, PRINT+3*
DIR	GETSORT+1~, PRINT+1~, EXPORT+1~, EXPDISP+1~
DIR("?"	EXPORT+3*
DIR("A"	GETSORT+3, PRINT+22, EXPORT+4*
DIR("B"	GETSORT+3, EXPORT+4
DIR(0	GETSORT+2, PRINT+18, PRINT+22, EXPORT+4
DIROUT	EXPORT+1~
DIRUT	GETSORT+1~, GETSORT+5, EXPORT+1~, EXPORT+6, EXPDISP+1~
DTOUT	EXPORT+1~, EXPDISP+1~
DUOUT	EXPORT+1~, EXPDISP+1~
ECDT	DTRNG+1~
FLD	STCODE~, STCODE+3, STCODE+5, STCODE+8, STCODE+11
FLDS	PRINT+1~, PRINT+5, PRINT+6, PRINT+8*
FLDS(1	PRINT+7*
FR	PRINT+1~, PRINT+11, PRINT+13
I	EXPDISP+1~
IOM	EXPDISP+8
ION	EXPDISP+1~, EXPDISP+8
IOP	PRINT+1~, PRINT+14, EXPDISP+8*
IOSL	EXPDISP+8
IOST	PRINT+18
L	PRINT+1~, PRINT+3*
LN	RPTHDR+1~, RPTHDR+7*
PG	PRINT+1~, RPTHDR+2*, RPTHDR+3
POP	EXPDISP+1~, EXPDISP+8
QFLG	EN+2~, EN+4, EN+8, EN+9, GETSORT+5, DTREP+1, DTREP+4
SDDT	EN+2~, DTREP+2*, DTREP+5, DTREP+7
SDED	EN+2~, PRINT+11, PRINT+13, RPTHDR+4, DTREP+9*
SDFIL	PRINT+1~, PRINT+2*, PRINT+3, PRINT+16
SDFLG	PRINT+1~, PRINT+2, PRINT+16, RPTHDR+2
SDNAM	EN+2~
SDNAME	EN+2~
SDSD	EN+2~, PRINT+11, PRINT+13, 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~
SDXPORT	EN+2~, EN+10*, EN+11, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+14, PRINT+18, PRINT+19
SORT	EN+2~, GETSORT+6*, PRINT+10, PRINT+12
STCODE	EN+2~, STCODE+3, STCODE+5, STCODE+6, STCODE+8, STCODE+9
TO	PRINT+1~, PRINT+11, PRINT+13
U	STCODE+5
VAL	EXPORT+1~, EXPORT+6*, EXPORT+7, EXPORT+8
X	GETSORT+1~, CLINM+1, CLINM+2, CLINIEN+1, DTRNG+1~, EXPORT+1~, EXPDISP+1~
Y	GETSORT+1~, GETSORT+6, DTRNG+1~, DTREP+1, DTREP+2, DTREP+4, DTREP+5, DTREP+7, DTREP+9, EXPORT+1~ , EXPORT+6, EXPDISP+1~

Customize PDF page

Package: Scheduling

Routine: SD44AUDI

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: