Routine: INHRTH1

Information

INHRTH1 ;DP; 2 Apr 98 16:16;27 Dec 95 10:39;Throughput analyzer report II

Source Information

Source file <INHRTH1.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIC
Kernel	1	($$CDATASC,$$CDATF2H)^%ZTFDT
Uncategorized	1	(,$$CR,$$YN)^UTSRD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Generic Interface System	1	INHRTH

Entry Points

Name	Comments	DBIA/ICR reference
GETDATE(INASTART,INAEND,INSTART,INEND)	; setup the date/time ; Description: Set the start and end times appropriately ; Return: None ; Parameters: ; INASTART = The asking start date from user ; INAEND = The asking end date from user ; ( must be passed in by reference because they will ; be adjusted, i.e. INAEND=T will become INAEND=T@2400 ) ; INSTART = The reference start date to be searched in ^INTHU ; INEND = The reference end date to be searched in ^INTHU
INT	;Read time interval
PARM()	;Get parameters
DES	;Get multiple destinations
DET	;Detail yes/no
ST	;Display status list
STU	;Build status string
ST0
ST1	;get the status string to be printed as part of the header. ; INLN(3) = line 1 ; INLN(4) = line 2
IEN(IEN,ASK)	;read date
GETRNG(START,STOP)	;get start & stop dates
PAGES	;Calculate number of pages for the report ; time periods * destenations * number of statuses * number of days \ 55

External References

Name	Field # of Occurrence
^%DT	IEN+2
$$CDATASC^%ZTFDT	INT+7, INT+8
$$CDATF2H^%ZTFDT	PAGES+5
^DIC	DES+3
^UTSRD	INT+1, ST+1
$$CR^UTSRD	INT+12, ST0+3
$$YN^UTSRD	DET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "ALL" Line Location: PARM+7
Function Call: WRITE	Prompt: ! Line Location: DET+1
Function Call: WRITE	Prompt: @IOF,!,"Destination: " Line Location: INT+3
Function Call: WRITE	Prompt: "All " Line Location: INT+3
Function Call: WRITE	Prompt: ?13,$P(^INRHD($P(X2,",",I),0),U),! Line Location: INT+4
Function Call: WRITE	Prompt: ?13,$P($P(X3,";",I),":",2),! Line Location: INT+5
Function Call: WRITE	Prompt: !,"Status(s): " Line Location: INT+6
Function Call: WRITE	Prompt: ?13,$P($P(X3,$E(ST,I)_":",2),";"),! Line Location: INT+6
Function Call: WRITE	Prompt: !,"From: ",$$CDATASC^%ZTFDT($E(INABEG,1,12),3,1) Line Location: INT+7
Function Call: WRITE	Prompt: !," To: ",$$CDATASC^%ZTFDT($E(INAEND,1,12),3,1),! Line Location: INT+8
Function Call: WRITE	Prompt: !,"Detail: ",$S(DET=1:"Yes",1:"No"),! Line Location: INT+9
Function Call: WRITE	Prompt: !,"Time intervals: ",INTM Line Location: INT+10
Function Call: WRITE	Prompt: $S(INTM["H":"r",1:"Minutes") Line Location: INT+10
Function Call: WRITE	Prompt: $S(INTM["H":"r",1:"Minutes") Line Location: INT+10
Function Call: WRITE	Prompt: "This report is about ",PAGES," page" Line Location: INT+11
Function Call: WRITE	Prompt: "s" Condition for execution: PAGES>1 Line Location: INT+11
Function Call: WRITE	Prompt: " long",!! Line Location: INT+11
Function Call: WRITE	Prompt: ! Line Location: INT+23
Function Call: WRITE	Prompt: ! Line Location: STU+4
Function Call: WRITE	Prompt: ! Line Location: ST+1
Function Call: WRITE	Prompt: " ",$P($P(X3,";",($F(X1,C)-1)),":",2) Line Location: ST+8
Function Call: WRITE	Prompt: !,"Please select from:" Line Location: ST0+0
Function Call: WRITE	Prompt: !," ",$P($P(X3,";",I),":")," ",$P($P(X3,";",I),":",2) Line Location: ST0+1
Function Call: WRITE	Prompt: !," ALL" Line Location: ST0+2
Routine Call	DIC Line Location: DES+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(4001	STU+2, ST1+4
^INRHD - [#4005]	DES+4, INT+4
^INRHD(0	PAGES+4
^INTHU("B"	GETDATE+31, GETDATE+32

Label References

Name	Line Occurrences
$$GETRNG	PARM+5
$$IEN	GETRNG+3, GETRNG+7
DES	PARM+3
DET	PARM+8
GETDATE	GETRNG+11
PAGES	INT+2
ST	STU+4
STU	PARM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	IEN+2*
>> %DT("A"	IEN+2*
ASK	IEN~, IEN+2
C	STU+1~, STU+4, ST+2, ST+3, ST+4, ST+6*, ST+7, ST+8
>> DET	DET+1*, DET+2, INT+9, INT+22, PAGES+3
>> DIC	PARM+2*
>> DIC(0	PARM+2*
DT	GETDATE+14
I	DES+2, INT+4, INT+6, STU+1~, STU+3, STU+4, ST0~, ST0+1, ST1+3~, ST1+6* , ST1+8*
IEN	IEN~
IN1	DES+1!
IN1(	DES+5*
>> INABEG	GETRNG+6*, GETRNG+11, INT+7, INT+22
INAEND	GETRNG+9, GETRNG+11, INT+8, INT+22, GETDATE~, GETDATE+13, GETDATE+21, GETDATE+22, GETDATE+25, GETDATE+26*
INASTART	GETDATE~, GETDATE+13, GETDATE+19, GETDATE+27
>> INBEG	PARM+4*, PARM+5, INT+22, PAGES+5
INEND	PARM+4, PARM+5, INT+22, PAGES+5, GETDATE~, GETDATE+13, GETDATE+14, GETDATE+16, GETDATE+17, GETDATE+19 , GETDATE+21, GETDATE+22, GETDATE+25, GETDATE+26, GETDATE+32, GETDATE+35, GETDATE+38
>> INLN(3	ST1+9*
>> INLN(4	ST1+9*
>> INLOAD	INT+22*
INSTART	GETDATE~, GETDATE+13, GETDATE+16, GETDATE+17, GETDATE+19, GETDATE+20, GETDATE+27, GETDATE+30, GETDATE+31, GETDATE+35* , GETDATE+38
INTEMP	GETDATE+12~, GETDATE+19*, GETDATE+21, GETDATE+22
>> INTM	INT+1, INT+10, INT+22, PAGES+2
IOF	INT+3
IOM	ST1+7, ST1+8
>> PAGES	INT+11, PAGES+6*
>> POP	PARM+3, PARM+6, PARM+8, DES+2, DES+3, DET+2, INT+1, INT+13, STU+4, ST+1 , ST+3, ST0+3
>> ST	PARM+7, INT+6, INT+22, STU+1, ST+4, ST+6, ST+7, ST+8*, ST1+6, PAGES+3
START	GETRNG~, GETRNG+2*, GETRNG+3, GETRNG+11
STOP	GETRNG~, GETRNG+2*, GETRNG+7, GETRNG+11
U	DES+3, DES+4, DET+2, INT+4, INT+22, STU+2, ST+3, ST1+4, PAGES+4
X	DES+1!, DES+3, ST+2, ST1+4, ST1+6, PAGES+2, PAGES+3, PAGES+4, PAGES+5*, PAGES+6
X(	DES+4*, DES+5
>> X1	PARM+7, STU+1, STU+3, ST+4, ST+8, ST0+1
X2	DES+1!, DES+2, DES+5, INT+3, INT+4, INT+22, PAGES+4
>> X3	INT+6, STU+2, STU+3, ST+8, ST0+1, ST1+4, ST1+6, ST1+7, ST1+8, ST1+9
>> X4	ST1+4, ST1+7, ST1+8*, ST1+9
>> Y	PARM+3, DES+2, DES+3, DES+4, DES+5, GETRNG+6, GETRNG+9, IEN+2
>> Z	INT+12*, INT+13

Customize PDF page

Package: IHS Generic Interface System

Routine: INHRTH1

Call Graph Total: 4

Caller Graph Total: 1