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: INHOQT1

Package: IHS Generic Interface System

Routine: INHOQT1


Information

INHOQT1 ; FRW/JMB ; 01 Oct 1999 14:49 ; Show top entries in queues, cont.

Source Information

Source file <INHOQT1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Generic Interface System 2 INIARR^INHOQT  ($$FORMAT,$$FT0,$$FT1,$$QUIT,$$TDIF)^INHUTS  
Kernel 2 ^%ZISC  ($$CDATH2F,$$NOW)^%ZTFDT  
Uncategorized 1 ($$CDATASC,$$NOW)^UTDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Generic Interface System 2 INHOA  INHOQT  

Entry Points

Name Comments DBIA/ICR reference
DISP ;Display Report
EN ;Initialize report variables
HDR ;Diplay header
Q1(GL,INQ,P) ;Determine top entry (stat and/or non-stat) for priority P
PENDQ1(GL,INQ) ;Get the first entry for the pending queue
; Note: no concept of priority in the pending queues
TOP(GL,P,H) ;Get top entry from queue
STAT(INQ,P,H,DATA) ;Build statistics
; INQ - subscript (usually ien) of queue in INDAT array
; NAME - name of queue
; DATA - queue entry data
; format: DATA = record# ^ transaction type# ^ message ID
INIT ;Initialize INDAT array for next scan
; Kill data, leave queue name intact (INDAT(INQ,"NAME")=Queue Name)
FTR ;Display footer
EXIT ;Primary exit point
CHK(INQ,INIEN,INCO) ;Recalculate top entry
L1
ENRPT ;Repeat entry point
QUIT() ;Determine if program should quit
OV(INQ,IN1) ;Handle overflow
QUEUE(GL,INQ) ;Store top entry in queue

External References

Name Field # of Occurrence
^%ZISC EXIT+2
$$CDATH2F^%ZTFDT STAT+13
$$NOW^%ZTFDT STAT+13
INIARR^INHOQT EN+11
$$FORMAT^INHUTS HDR+3, HDR+5
$$FT0^INHUTS STAT+11
$$FT1^INHUTS STAT+14, STAT+15
$$QUIT^INHUTS QUIT+9
$$TDIF^INHUTS STAT+14, STAT+15, HDR+3
$$CDATASC^UTDT HDR+9, HDR+10
$$NOW^UTDT HDR+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,INDAT(INQ,"NAME")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,$J(P,3),?TAB(1),$J(INDAT(INQ,P,T),10)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: ?TAB(2),$J(INDAT(INQ,P,T,"DIFF"),7)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: ?TAB(3),$J($E(INDAT(INQ,P,T,"MSGID"),1,10),10)
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?TAB(4),$J(INDAT(INQ,P,T,"DA"),9)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: ?TAB(5),$E(INDAT(INQ,P,T,"TT"),1,29)
  • Line Location: DISP+14
Function Call: READ
  • Timeout: 1
  • Variable: *%
  • Line Location: OV+6
Function Call: WRITE
  • Prompt: !!,"More..."
  • Line Location: OV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "Top Entries"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: " by priority"
  • Condition for execution: INPAR("DETAIL")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?55,$$CDATASC^UTDT($$NOW^UTDT,1,1)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?5,"Start Time: ",$$CDATASC^UTDT(INPAR("START"),1,1),?40," Number of Iterations: ",INITER
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?5," Run Time: ",INRUNASC,?40,"Avg Time per Iteration: ",INRUNAVG
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Background Process"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !," Prio",?TAB(1),"Scheduled",?TAB(2)," Age",?TAB(3),"Message Id"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?TAB(4)," Record",?TAB(5),"Transaction Type"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !," ----",?TAB(1),"----------",?TAB(2),"-------",?TAB(3),"----------",?TAB(4),"---------",?TAB(5),"-----------------------------"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,"Press any key to exit: "
  • Line Location: FTR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^INLHFTSK - [#4000.1] L1+6, PENDQ1+10
^INRHT - [#4000] STAT+21
^INTHU - [#4001] L1+5, PENDQ1+9, CHK+8

Label References

Name Line Occurrences
$$CHK L1+4
$$QUEUE ENRPT+6, ENRPT+8, ENRPT+11
$$QUIT ENRPT+18, ENRPT+19
$$TOP L1+2
DISP ENRPT+15
ENRPT ENRPT+21
EXIT ENRPT+6, ENRPT+8, ENRPT+12, ENRPT+18, ENRPT+20
FTR DISP+17
HDR DISP+3, OV+7
INIT ENRPT+4
L1 L1+4, L1+9
OV DISP+7, DISP+15
PENDQ1 Q1+2
Q1 QUEUE+11
STAT L1+7, PENDQ1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OV+6*
BP EN+2~
BP0 EN+2~
BPC EN+3~, ENRPT+10*, ENRPT+11*
DATA EN+3~, STAT~, STAT+17, STAT+19, STAT+21
GL EN+3~, QUEUE~, QUEUE+11, Q1~, Q1+2, L1+1, L1+2, PENDQ1~, PENDQ1+5, PENDQ1+6
, PENDQ1+7, PENDQ1+8, TOP~, TOP+2
H EN+3~, Q1+3~, Q1+4*, L1, L1+1*, L1+2, L1+4*, L1+7, L1+9, PENDQ1+3~
, PENDQ1+4*, PENDQ1+8*, PENDQ1+11, TOP~, TOP+2, STAT~, STAT+8, STAT+10, STAT+11, STAT+13
HT EN+3~, Q1+3~, L1*, L1+4
IN1 DISP+1~, OV~, OV+9
INBPN PENDQ1+3~, PENDQ1+4*, PENDQ1+5*, PENDQ1+6, PENDQ1+7, PENDQ1+8
INC EN+3~, Q1+3~, Q1+4*, L1+4, L1+9*, PENDQ1+3~, PENDQ1+4*
INCO EN+3~, CHK~, CHK+6*, CHK+9
INDAT EN+2~
INDAT( STAT+10*, STAT+11*, STAT+14*, STAT+15*, STAT+17*, STAT+19*, STAT+21*, DISP+7, DISP+8, DISP+9
, DISP+10, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15, OV+9, INIT+3, INIT+4!
INDEST EN+2~
INDEST( ENRPT+11
INEXIT EN+3~, EN+7*, ENRPT+11, ENRPT+12, ENRPT+19, ENRPT+20, QUEUE+12, QUIT+9*, QUIT+10
INH STAT+7~, STAT+13*, STAT+14, STAT+15
INIEN EN+3~, Q1+3~, L1+2*, L1+4, L1+5, L1+6, PENDQ1+3~, PENDQ1+8*, PENDQ1+9, PENDQ1+10
, CHK~, CHK+7, CHK+8
INITER EN+3~, EN+7*, ENRPT+4*, HDR+5, HDR+10
INNOW STAT+7~, STAT+13*, STAT+14, STAT+15
>> INPAR("DETAIL" QUEUE+11, L1+8, HDR+8
>> INPAR("ITERT" CHK+9
>> INPAR("REPAINT" ENRPT+19, OV+6
>> INPAR("START" EN+7*, HDR+3, HDR+10
INQ EN+2~, QUEUE~, QUEUE+11, Q1~, Q1+2, L1+4, L1+5, L1+6, L1+7, PENDQ1~
, PENDQ1+9, PENDQ1+10, PENDQ1+11, CHK~, CHK+7, CHK+8, STAT~, STAT+10, STAT+11, STAT+14
, STAT+15, STAT+17, STAT+19, STAT+21, DISP+1~, DISP+7*, DISP+8, DISP+9, DISP+10, DISP+11
, DISP+12, DISP+13, DISP+14, DISP+15, OV~, OV+9, INIT+2~, INIT+3*, INIT+4
INQUEUE EN+3~, ENRPT+4*
INRUN EN+3~, HDR+3*, HDR+5
INRUNASC EN+4~, HDR+3*, HDR+11
INRUNAVG EN+4~, HDR+5*, HDR+11
INSEQ PENDQ1+3~, PENDQ1+4*, PENDQ1+6*, PENDQ1+7, PENDQ1+8
INSIZE EN+4~
INTOTAL EN+4~, ENRPT+4*
INZE Q1+3~, L1+5*, L1+6*, PENDQ1+3~, PENDQ1+9*, PENDQ1+10*
IOF HDR+7
IOSL OV+5
M EN+5~, TOP+1~, TOP+2*, TOP+3
P EN+5~, QUEUE+9~, QUEUE+10*, QUEUE+11*, Q1~, Q1+2, L1+1, L1+2, L1+7, PENDQ1+11
, TOP~, TOP+2, STAT~, STAT+8, STAT+10, STAT+11, STAT+14, STAT+15, STAT+17, STAT+19
, STAT+21, DISP+8*, DISP+9, DISP+10, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15, INIT+2~
, INIT+4*
SAR EN+5~
SOP EN+5~
T EN+5~, STAT+10*, STAT+11*, STAT+14, STAT+15, STAT+17, STAT+19, STAT+21, DISP+9*, DISP+10
, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15
TAB EN+5~
TAB(1 EN+9*, DISP+10, HDR+15, HDR+17
TAB(2 EN+9*, DISP+11, HDR+15, HDR+17
TAB(3 EN+9*, DISP+12, HDR+15, HDR+17
TAB(4 EN+9*, DISP+13, HDR+16, HDR+17
TAB(5 EN+9*, DISP+14, HDR+16, HDR+17
TOP EN+5~, L1+2*, L1+5*, L1+6*, L1+7, PENDQ1+7*, PENDQ1+8, PENDQ1+9*, PENDQ1+10*, PENDQ1+11
U ENRPT+11, L1+5, L1+6, PENDQ1+9, PENDQ1+10, STAT+17, STAT+19, STAT+21
>> X ENRPT+19*, OV+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All