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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: INHOU1

Package: IHS Generic Interface System

Routine: INHOU1


Information

INHOU1 ;DJL,DP; 7 Oct 97 12:50;Interface Message Requeue Utilities

Source Information

Source file <INHOU1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Generic Interface System 7 SET^INHD  INKINDA^INHMS  $$INMSGSTR^INHMS2  SETP2^INHOU1  REQONE^INHOU2  ULOG^INHU  $$TIEN^INHUTC  
Kernel 3 ^%ZIS  ^%ZISC  $$DATEOUT^%ZTFDT  
Uncategorized 2 CLEAR^DW  (,$$CR,$$YN)^UTSRD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Generic Interface System 4 INHOU  INHOU1  INHOU5  INHOU8  

Entry Points

Name Comments DBIA/ICR reference
REMQUED(INLIST1,INLIST2) ; remove items in list1 from list1,list2
CONT
SETP2 ; Set up parameter for hot key and List Processor
; construct the structure defining the requeue operations, etc
REQ ;Requeue an Entry for processing
; MODULE NAME: REQ ( Requeue INH message/s )
; DESCRIPTION: Prompts the user for a message to requeue. The user may
; enter any valid indexed message component for a single
; message requeue or '/' to search and requeue multiple
; messages. In either case a List will be displayed which
; allows requeueing THREE different ways. 1)use existing
; information, 2)use one set of info. for all message to
; be requeued, or 3) use unique info. for each message.
; RETURN = none
; PARAMETERS = none
;
REQ1 ; Requeue an entry for processing
; Description: REQ1 performs similar functions as REQ in which it
; allows requeing message in three different ways.
; However, REQ1 does not prompt user for a message to
; requeue. Upon enter REQ1, variable Y contains IEN of
; message to requeue.
;
; RETURN = none
; PARAMETERS = none
;
FINDQUE(INREQIEN,INMSG) ;determines if entry is already on queue
; If entry is already on queue, prompts user if they want
; to requeue.
; INPUT:
; INREQIEN = IEN of entry being requeued
; INMSG = (PBR) message that will be displayed back to user at end
; RETURN = 0 if INREQUIEN is to be requeued
; 1 if user says "no"
; 2 if user enters "^"
1 ;
0 ;
EN2 ;This is the actual working loop of the routine
EN3 ;This is the actual requeue operation
DOREQ(INREQIEN,INPRIO,INTTPROC) ; requeue the transaction
; MODULE NAME: DOREQ ( Requeue the transaction )
; DESCRIPTION: Requeues the transaction INREQIEN with the priority and
; time-to-process passed in INPRIO and INTTPROC
; RETURN None
; PARAMETERS:
; INREQIEN = The message IEN
; INPRIO = The priority of the message
; INTTPROC = The time to process the message
; CODE BEGINS

External References

Name Field # of Occurrence
^%ZIS REMQUED+2, REMQUED+12
^%ZISC REMQUED+12
$$DATEOUT^%ZTFDT FINDQUE+24
^DIC EN2+12
CLEAR^DW EN2+4, EN2+7, EN3+3, REMQUED+2, FINDQUE+22
SET^INHD DOREQ+10
INKINDA^INHMS EN2+14, EN3+2
$$INMSGSTR^INHMS2 FINDQUE+22
SETP2^INHOU1 REQ+14, REQ1+12
REQONE^INHOU2 EN2+13, EN3+1
ULOG^INHU DOREQ+12
$$TIEN^INHUTC EN2+7
^UTSRD EN2+5
$$CR^UTSRD CONT
$$YN^UTSRD FINDQUE+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no entries to requeue."
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REMQUED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !,$$INMSGSTR^INHMS2(INREQIEN)
  • Line Location: FINDQUE+22
Routine Call
  • DIC
  • Line Location:
    • EN2+12
Routine Call
  • %ZIS
  • Line Location:
    • REMQUED+2
    • REMQUED+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INTHU - [#4001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(3 - [#3] DOREQ+12
^INLHDEST( FINDQUE+31!, 1+1
^INLHSCH FINDQUE+30!, 0+1
^INRHD - [#4005] FINDQUE+18
^INTHU - [#4001] FINDQUE+13, DOREQ+10
^INTHU(0 EN2+2

Label References

Name Line Occurrences
@( FINDQUE+21
CONT REMQUED+7, REMQUED+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS REQ+12~, REQ1+10~, REMQUED+2*, REMQUED+12*
DIC REQ+12~, EN2+11*, REQ1+10~
DIC(0 EN2+11*
DIRCP REQ+12~, REQ1+10~
DIRI REQ+12~, REQ1+10~
DLAYGO REQ+12~, REQ1+10~
DUZ DOREQ+12
INABORT REQ+12~, REQ1+10~
INCLRT REQ+12~, REQ1+10~
INCURP FINDQUE+10~, FINDQUE+14*, FINDQUE+24, FINDQUE+30, FINDQUE+31, 0+1, 1+1
INCURT REQ+12~, REQ1+10~, FINDQUE+14*, FINDQUE+24, FINDQUE+30, FINDQUE+31, 0+1, 1+1
INDA REQ+12~, EN2+14, REQ1+10~, EN3+2
INDEST FINDQUE+10~, FINDQUE+14*, FINDQUE+18, FINDQUE+31, 1+1
INDET FINDQUE+10~, FINDQUE+13*, FINDQUE+14, FINDQUE+16
INLIST1 REMQUED~, REMQUED+10!
INLIST1( REMQUED+4, REMQUED+6, REMQUED+8, REMQUED+9!
INLIST2 REMQUED~, REMQUED+9
INMID FINDQUE+10~, FINDQUE+14*, FINDQUE+16, FINDQUE+23, FINDQUE+27, FINDQUE+32
INMSG REQ+12~, REQ1+10~, FINDQUE~, FINDQUE+16*, FINDQUE+27*, FINDQUE+32*
INNODE REMQUED+1~, REMQUED+4*, REMQUED+6, REMQUED+8, REMQUED+9
INPARM2 REQ+12~, EN2+7, EN2+13, REQ1+10~, EN3+1
INPARM2("LIST" SETP2+2*, SETP2+4*, SETP2+6*, SETP2+7*, SETP2+8*, SETP2+9*, SETP2+10*, SETP2+11*
INPRIO DOREQ~, DOREQ+10
INQUE FINDQUE+10~, FINDQUE+18*, FINDQUE+21*, FINDQUE+23, FINDQUE+30
INQUED REQ+12~, REQ1+10~, FINDQUE+10~
INQUEUED REQ+12~, REQ1+10~, FINDQUE+18*, FINDQUE+21, FINDQUE+22, FINDQUE+28, FINDQUE+32, 0+1*, 1+1*
INQUIT REQ+12~, EN2+1*, EN2+2*, EN2+7*, EN2+9*, EN2+13*, REQ1+10~
INREQIEN FINDQUE~, FINDQUE+13, FINDQUE+22, FINDQUE+30, FINDQUE+31, DOREQ~, DOREQ+10, DOREQ+12, 0+1, 1+1
INREQLST REQ+12~, EN2+13, REQ1+10~, EN3+1
INREQLST(1 EN2+13*, EN3+1*
INTTPROC DOREQ~, DOREQ+10
INZ REQ+12~, REQ1+10~
IO REMQUED+2, REMQUED+12, CONT
IO("Q" REMQUED+12!
IO(0 CONT
IOF REMQUED+2, CONT+1
IOP REMQUED+12*!
IOSL REMQUED+7
IOST CONT
OUT FINDQUE+10~, FINDQUE+18*, FINDQUE+26*, FINDQUE+27
POP REQ+12~, REQ1+10~, REMQUED+2, REMQUED+3*, REMQUED+4, REMQUED+7, REMQUED+12!, CONT*
U REMQUED+6, REMQUED+8, FINDQUE+14, FINDQUE+16, FINDQUE+18, DOREQ+10, DOREQ+12
X REQ+12~, EN2+1!, EN2+4!, EN2+7, EN2+8, EN2+9, REQ1+10~, CONT*, FINDQUE+25*, FINDQUE+26
Y REQ+12~, EN2+1!, EN2+12, EN2+13, EN3+1

Marked Items

Name Field # of Occurrence
$T(@INQUE FINDQUE+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All