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