Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: INHRTH1

Package: IHS Generic Interface System

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All