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

INHOU2.m

Go to the documentation of this file. 
  1. INHOU2 ;DJL; 25 Aug 97 11:03;Interface Message Requeue Utilities 
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  ;
  1. BLDHELP(INREQHLP)  ; Construct the array containing the HELP text
  1.  ; MODULE NAME: BLDHELP ( Construct the array of text used for HELP )
  1.  ; DESCRIPTION: Constructs an array on assending numeric nodes containing
  1.  ;              up to 78 characters per line. No realistic limit exists
  1.  ;              on the number of nodes.
  1.  ; RETURN = none
  1.  ; PARAMETERS:
  1.  ;          INREQHLP = The array variable to load the text into.
  1.  ; CODE BEGINS
  1.  ; the following line can be used to limit strings to 78 characters.
  1.  ; HHHHHHHHHHxxxxxxxxxXxxxxxxxxxXxxxxxxxxxxXxxxxxxxxxxXxxxxxxxxxxXxxxxxxxxxxXxxxxxxxxxxXxxxxxxxx
  1.  S INREQHLP(1)="Displayed is a list of the Messages that matched the search criteria"
  1.  S INREQHLP(1,0)=""
  1.  S INREQHLP(2)="you selected in the previous screen. Select only those messages which will"
  1.  S INREQHLP(2,0)=""
  1.  S INREQHLP(3)="be acted upon the same way. Use the HOT KEYS to select the action to be"
  1.  S INREQHLP(3,0)=""
  1.  S INREQHLP(4)="taken for the selected items. Explainations follow for available actions:"
  1.  S INREQHLP(4,0)=""
  1.  S INREQHLP(5)="EXISTING: Processing will continue using existing message information."
  1.  S INREQHLP(5,0)=""
  1.  S INREQHLP(6)="SINGLE: You will be prompted for information used in processing all messages."
  1.  S INREQHLP(6,0)=""
  1.  S INREQHLP(7)="UNIQUE: You will be prompted for information used in processing each message."
  1.  S INREQHLP(7,0)=""
  1.  S INREQHLP(8)="Functionality found in the Interface Message Search tool is also available."
  1.  S INREQHLP(8,0)=""
  1.  S INREQHLP(9)="After processing the selected items you will be returned to an abbreviated"
  1.  S INREQHLP(9,0)=""
  1.  S INREQHLP(10)="list of remaining messages to be processed. The program is terminated when"
  1.  S INREQHLP(10,0)=""
  1.  S INREQHLP(11)="all items have been processed or <RETURN> is entered with no items selected."
  1.  S INREQHLP(11,0)=""
  1.  S INREQHLP(12)="Press <RETURN> to continue:"
  1.  S INREQHLP(12,0)=""
  1.  Q
  1.  ;
  1. REQONE(INLIST,INPARM2) ; display the list processor with one selected item
  1.  ; MODULE NAME: REQONE ( to preselect and display one message )
  1.  ; DESCRIPTION: Displays the message in INLIST as a preselected item
  1.  ;              in the list processor.
  1.  ; RETURN = none
  1.  ; PARAMETERS:
  1.  ;          INLIST = The array variable containing the item to list.
  1.  ;          INPARM2 = Structure containing information about actions
  1.  ;                    available
  1.  ; CODE BEGINS
  1.  N INL,INNODE,DWLHOT,DWLRF,DWLB,DWLR,DWL,DWLMK,DWLMK1,DWLMK2
  1.  Q:'$D(INLIST)
  1.  ; build the displayable array for list processor
  1.  S INNODE=$O(INLIST(""),-1),INL(INNODE,0)=INLIST(INNODE),INL(INNODE)=$$INMSGSTR^INHMS2(INL(INNODE,0)),INL(INNODE,9,0,"MK")="",DWLMK(INNODE)=INNODE
  1.  I '$$SC^INHUTIL1 D  Q
  1.  .D GOHOT2^INHOU5(.INLIST,"INL")
  1.  ; Setup the Hot-Key paramters to be called if set in INPARM2 structure.
  1.  I $D(INPARM2("LIST","HOT"))>9 S INNODE="" F  S INNODE=$O(INPARM2("LIST","HOT",INNODE)) Q:'INNODE  S DWLHOT(INNODE)=INPARM2("LIST","HOT",INNODE)
  1.  I $D(INPARM2("LIST","HOT"))>9 S:$G(INPARM2("LIST","TITLE"))'["HOTTITLE^INHOU2" INPARM2("LIST","TITLE")=$G(INPARM2("LIST","TITLE"))_" D HOTTITLE^INHOU2"
  1.  ; setup the title used in the list processor
  1.  S DWL="FEWK",DWL("TITLE")=INPARM2("LIST","TITLE"),DWLRF="INL",DWLB="0^2^17^78",$P(@DWLRF,U,2)=0
  1.  S:'$L($G(INPARM2("LIST","INHELP"))) DWL=DWL_"H"
  1.  F  D ^DWL Q:$$QUITDWL^INHMS3($G(DWLR))  S:DWL'["K" DWL=DWL_"K" D  Q:$D(DWLMK)<10
  1.  .  I DWLR="E" D EXPAND^INHMS1
  1.  .  I DWLR="?" X INPARM2("LIST","INHELP")
  1.  .  I DWLR["H",$D(INPARM2("LIST","HOT"))>9,($D(DWLMK)) N INHOTOPT S INHOTOPT="" F  S INHOTOPT=$O(INPARM2("LIST","HOT",INHOTOPT)) Q:'INHOTOPT  D
  1.  ..    I DWLR[$P(INPARM2("LIST","HOT",INHOTOPT),U,2) X INPARM2("LIST","HOT",INHOTOPT,"ACTION")
  1.  I DWLR["^" K DWLMK,DWLMK1
  1.  I $D(INPARM2("LIST","HOT"))>9,($D(DWLMK)) N INHOTOPT S INHOTOPT=$O(INPARM2("LIST","HOT","")) X INPARM2("LIST","HOT",INHOTOPT,"ACTION")
  1.  ; Action-Bar to be called if a name was passed.
  1.  ;I $L($G(INPARM2("BAR"))) D ABASK^XGABAR(INPARM2("BAR")) S INPARM2("BAR","XGABESCF")=XGABESCF,INPARM2("BAR","XGABPOP")=XGAB
  1.  Q
  1.  ;
  1. HOTTITLE ; Write a title line from WITHIN the requeue list processor
  1.  N DWLMSG,INTEMPX,INTEMPY
  1.  D HOTSET^DWL S INTEMPX=IOX,INTEMPY=IOY,IOX=0,IOY=23 X IOXY W DWLMSG S IOX=INTEMPX,IOY=INTEMPY X IOXY
  1.  Q
  1.  ;