Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: INHOU5

INHOU5.m

Go to the documentation of this file. 
  1. INHOU5 ;DP; 7 May 96 11:41;Interface Message Requeue Utilities 
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  ;
  1. GOHOT1(INSELECT,INLSTNAM) ; Hot Key #1 execution code
  1.  ; MODULE NAME: GOHOT1 ( HotKey #1 execution code )
  1.  ; DESCRIPTION: Requeue using existing priorities and time to process
  1.  ;              for each message
  1.  ; RETURN = none
  1.  ; PARAMETERS:
  1.  ;          INSELECT = Array of selected items from List Processor
  1.  ;                     (DWLMK or DWLMK1)
  1.  ;          INLSTNAM = Array of IEN's into ^INTHU to be Queued for
  1.  ;                     processing
  1.  N INNODE,INREQIEN,INPRIO,INTTPROC
  1.  S INNODE="",INABORT=0
  1.  F  S INNODE=$O(INSELECT(INNODE)) Q:'INNODE!(INABORT>1)  D
  1.  .S INREQIEN=$G(@INLSTNAM@(INNODE,0)) Q:'INREQIEN
  1.  .S INABORT=$$FINDQUE^INHOU1(INREQIEN,.INMSG) Q:INABORT>1
  1.  .S $P(INSELECT(INNODE),U,2)=INMSG Q:INABORT
  1.  .S INABORT=$$GETPT^INHOU5(1,INREQIEN,.INPRIO,.INTTPROC) Q:INABORT
  1.  .D DOREQ^INHOU1(INREQIEN,INPRIO,INTTPROC)
  1.  Q
  1.  ;
  1. GOHOT2(INSELECT,INLSTNAM) ; Hot Key #2 execution code
  1.  ; MODULE NAME: GOHOT2 ( HotKey #2 execution code )
  1.  ; DESCRIPTION: Requeue using one priority and time to process for all
  1.  ;              messages
  1.  ; See GOHOT1^INHOU5 for Parameter information
  1.  N INNODE,INREQIEN,INPRIO,INTTPROC
  1.  ;Prompt for priority and time to process first, then loop through
  1.  ;all selected transactions
  1.  Q:$$GETPT(2,"",.INPRIO,.INTTPROC)  S INNODE="",INABORT=0
  1.  F  S INNODE=$O(INSELECT(INNODE)) Q:'INNODE!(INABORT>1)  D
  1.  .S INREQIEN=$G(@INLSTNAM@(INNODE,0)) Q:'INREQIEN
  1.  .S INABORT=$$FINDQUE^INHOU1(INREQIEN,.INMSG) Q:INABORT>1
  1.  .S $P(INSELECT(INNODE),U,2)=INMSG Q:INABORT
  1.  .D DOREQ^INHOU1(INREQIEN,INPRIO,INTTPROC)
  1.  Q
  1.  ;
  1. GOHOT3(INSELECT,INLSTNAM) ; Hot Key #3 execution code
  1.  ; MODULE NAME: GOHOT3 ( HotKey #3 execution code )
  1.  ; DESCRIPTION: Requeue using unique priorities and time to process for each message
  1.  ; See GOHOT1^INHOU5 for Parameter information
  1.  ; CODE BEGINS
  1.  N INNODE,INREQIEN,INPRIO,INTTPROC
  1.  S INNODE="",INABORT=0
  1.  F  S INNODE=$O(INSELECT(INNODE)) Q:'INNODE!(INABORT>1)  D
  1.  .S INREQIEN=$G(@INLSTNAM@(INNODE,0)) Q:'INREQIEN
  1.  .S INABORT=$$FINDQUE^INHOU1(INREQIEN,.INMSG) I INABORT D  Q
  1.  ..;following sets second piece if msg is to not requeue,
  1.  ..;but leaves it blank if user had entered "^" 
  1.  ..S:INABORT=1 $P(INSELECT(INNODE),U,2)=INMSG
  1.  .S INABORT=$$GETPT^INHOU5(1,INREQIEN,.INPRIO,.INTTPROC) Q:INABORT
  1.  .S $P(INSELECT(INNODE),U,2)=INMSG
  1.  .D DOREQ^INHOU1(INREQIEN,INPRIO,INTTPROC)
  1.  Q
  1. GETPT(INHOTOPT,INREQIEN,INPRIO,INTTPROC) ; Prompt for new prior. and time-to-proc.
  1.  ; MODULE NAME: GETPT ( acquire the priority and time-to-process msg)
  1.  ; DESCRIPTION: Depending on the INHOTOPT parameter, the message prio-
  1.  ;              ity and time-to-process is returned for the message
  1.  ;              in ^INTHU(INREQIEN.
  1.  ; RETURN = PASS/FAIL (0/2)
  1.  ; PARAMETERS:
  1.  ;          INHOTOPTP = Option selector.
  1.  ;          INREQIEN = The IEN of the message of interest.
  1.  ;          INPRIO = (Ref.) The priority is returned here.
  1.  ;          INTTPROC = (Ref.) The Time-to-Process is returned here.
  1.  N INQUIT,INABORT
  1.  S INABORT=0
  1.  I INHOTOPT=1 D  Q 0
  1.  . ; get the priority and time to process from the original message
  1.  .S INPRIO=+$P(^INTHU(INREQIEN,0),U,16)
  1.  .S INTTPROC=$P(^INTHU(INREQIEN,0),U,19)
  1.  . S:'$L(INTTPROC) INTTPROC=$H
  1.  ; for option 3 kill the prio and ttproc and use option 2 to get
  1.  I INHOTOPT=3 K INPRIO,INTTPROC S (INPRIO,INTTPROC)=""
  1.  ; for option 2 prompt for input only if prio and ttproc are not defined
  1.  I INHOTOPT=2!(INHOTOPT=3) D
  1.  . D CLEAR^DW
  1.  . ; get the priority and time to process from the user on the first
  1.  . ; pass and then use the passed value from then on.
  1.  . I '$G(INPRIO)!('$G(INTTPROC)) D
  1.  ..  S INQUIT=0 F  D  Q:INQUIT  K X,Y
  1.  ...   W:$G(INREQIEN) "Message:",!,$$INMSGSTR^INHMS2(INREQIEN)
  1.  ...   ; handle initial user input for time-to-process
  1.  ...   K X W ! D ^UTSRD("Time to process: ;;;;NOW;","Enter the Time-to-process the message.")
  1.  ...   I X["^"!(X="") S (INQUIT,INABORT)=2 Q
  1.  ...   S X=$$CASECONV^UTIL(X,"U")
  1.  ...   ; handle the different error/exit conditions
  1.  ...   I X="STAT" S INTTPROC="00000,00000",INQUIT=1 Q
  1.  ...   ; let DT handle all other input checks for time to process
  1.  ...   S %DT="ET" D ^%DT S INTTPROC=$$CDATF2H^UTDT(Y) I Y>-1 S INQUIT=1
  1.  ..  Q:INABORT
  1.  ..  S INPRIO=0 W ! D ^UTSRD("PRIORITY: ;;;;0;0,10","Enter the New Priority.") S INPRIO=+X
  1.  ..  I X["^"!(X="") S (INQUIT,INABORT)=2
  1.  . Q:INABORT
  1.  . ; default the Priority and Time to Process if STILL not defined
  1.  . S:'INPRIO INPRIO=0 S:'$L(INTTPROC) INTTPROC=$H
  1.  Q INABORT