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

INHOU7.m

Go to the documentation of this file.
  1. INHOU7 ;DP; 28 Feb 96 14:58;27 Dec 95 10:39;LIST QUEUED TRANSACTIONS II
  1. ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1. ;COPYRIGHT 1991-2000 SAIC
  1. Q
  1. QUE ;Select que
  1. K QUE1 I X[U S POP=1 Q
  1. I +X<0!(+X>1) K X Q
  1. S QUE1=$S(X=1:"^INLHSCH",X=0:"^INLHDEST",1:"All")
  1. W " ",QUE1 Q:X=""
  1. I $O(@QUE1@(0))'?.N W " is empty" H 1 K X Q
  1. Q
  1. HELP ;
  1. W !,"Select Queue: 1=INLHSCH"
  1. W !," 0=INLHDEST"
  1. W !!,"Press 'Enter' to select all queues"
  1. Q
  1. ;
  1. PRIO ;Priority
  1. I X[U K X S POP=1 Q
  1. Q:X?1.3N
  1. K X
  1. Q
  1. HELP1 ;
  1. W !,"Enter a valid Priority Number or Return for All"
  1. Q
  1. YN ;
  1. I X[U K X S POP=1 Q
  1. S X=$E($$UPCASE^%ZTF(X))
  1. I X]"YN " K X Q
  1. S X=1 S:X="N" X=0
  1. Q
  1. YNH ;
  1. W !,"Enter Yes to see message details or No for message ID only."
  1. Q
  1. P1 ;
  1. W:X="" "Yes"
  1. S ^DIZ(4001.1,INDA,9)=X
  1. Q
  1. ;Get begining and ending dates.
  1. S %DT("B")="Today"
  1. W ! S %DT("A")="Starting Date: ",%DT="ATE" D ^%DT Q:Y<0 S INBEG=+Y
  1. W ! S %DT("A")=" Ending Date: ",%DT="ATE" D ^%DT Q:Y<0 S INEND=+Y
  1. ;Direction
  1. W !! N INO S INO="IiOo"
  1. D ^UTSRD("Direction: ;1A;;;O;;;;I $F(INO,X)<1 K X;DIRC","Enter In or Out")
  1. I DIRC[U S POP=1 Q
  1. S DIRC=$$UPCASE^%ZTF(DIRC)
  1. W $S(DIRC="O":"ut",1:"n")
  1. DES ;Get multiple destinations
  1. W ! K X,X2,IN1 S X2=""
  1. F I=1:1 D W:Y=-1&(X2="") "ALL" Q:Y=-1
  1. .D ^DIC Q:+Y<1
  1. .S X(+Y)=$P(^INRHD(+Y,0),U)
  1. .S IN1(X(+Y))="",X2=X2_(+Y)_","
  1. W ! Q:POP
  1. ;
  1. DET ;Detail yes/no
  1. W ! S DET=$$YN^UTSRD("Detailed: ;N")
  1. I DET[U S POP=1 Q
  1. INT ;Read time interval
  1. W @IOF,!," Priority: ",PRIO
  1. W !," From: ",$$CDATASC^%ZTFDT($E(INBEG,1,12),3,1)
  1. W !," To: ",$$CDATASC^%ZTFDT($E(INEND,1,12),3,1)
  1. W !," Queue: ",QUE1
  1. W !," Direction: ",$S(DIRC="I":"In",1:"Out")
  1. W !," Detail: ",$S(DET=1:"Yes",1:"No"),!
  1. W !,"Destination: " I $L(X2)=0 W "All "
  1. E F I=1:1:$L(X2,",")-1 W ?13,$P(^INRHD($P(X2,",",I),0),U),!
  1. W ! S Z=$$CR^UTSRD
  1. I Z S POP=1 Q
  1. ; taskman variables
  1. ; X2 = destination list (IEN,...)
  1. ; INBEG = beginning date@time
  1. ; INEND = ending date@time
  1. ;
  1. S INBEG=$$CDATF2H^%ZTFDT(INBEG) S:PRIO="All" PRIO=""
  1. S INEND=$$CDATF2H^%ZTFDT(INEND)
  1. S INLOAD=DET_U_X2_U_INBEG_U_INEND_U_DIRC_U_QUE_U_PRIO
  1. W !
  1. Q
  1. ;