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

RMPFEA3.m

Go to the documentation of this file.
  1. RMPFEA3 ;DDC/KAW-AUTOQUEUE MANAGER FOR TRANSMISSION BATCHES [ 06/16/95 3:06 PM ]
  1. ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
  1. ;; input: RMPFBT
  1. ;;output: None
  1. ;;Set queue time if transmission parameter set to auto-queue
  1. Q:'$D(RMPFBT) Q:$P(RMPFSYS,U,3)'="A"
  1. S TM=$P(RMPFSYS,U,4) I TM="" S TM=.22
  1. S X="NOW",%DT="T" D ^%DT
  1. S A="."_$P(TM,".",2),B="."_$P(Y,".",2),ZTDTH=$P(DT,".",1)_A
  1. I A-B<0 S X1=$P(DT,".",1),X2=1 D C^%DTC S ZTDTH=$P(X,".",1)_A
  1. QUE S ZTIO="",ZTDESC="AUTO-QUEUE ROES TRANSMISSION",ZTSAVE("RMPFBT")=""
  1. S ZTSAVE("RMPFSTAP")="",ZTSAVE("RMPFMENU")="",ZTSAVE("RMPFSYS")=""
  1. S ZTRTN="CLOSE^RMPFEB" D ^%ZTLOAD
  1. S $P(^RMPF(791812,RMPFBT,0),U,10)=ZTSK
  1. END K TM,X,Y,A,B,ZTDTH,ZTIO,ZTDESC,ZTSAVE,ZTRTN,ZTSK Q
  1. REQUE ;;Reschedule the closing and transmission of a batch
  1. ;; input: RMPFBT
  1. ;;output: None
  1. Q:'$D(RMPFBT) Q:'$D(^RMPF(791812,RMPFBT,0)) S ZTSK=$P(^(0),U,10)
  1. I 'ZTSK W !!,$C(7),"*** THIS BATCH HAS NOT BEEN SCHEDULED FOR TRANSMISSION ***" G REQUEE
  1. S X="NOW",%DT="T" D ^%DT S ZTDTH=Y D REQ^%ZTLOAD
  1. I ZTSK(0)'=1 W !!,"*** TASK NOT REQUEUED ***"
  1. REQUEE K X,Y,ZTSK Q
  1. EMER ;;Queue or requeue emergency batch
  1. ;; input: RMPFBT,RMPFCAT
  1. ;;output: None
  1. W !!,"This order has a delivery category of: "
  1. W $S(RMPFCAT="E":"EMERGENCY",1:"PRIORITY")
  1. W !!,"Do you wish to close the open batch and transmit now? YES// "
  1. D READ Q:$D(RMPFOUT)
  1. EMER1 I $D(RMPFQUT) W !!,"Enter a <Y> or <RETURN> to close and transmit the batch immediately",!?7,"an <N> to leave the batch for later transmission." G EMER
  1. S:Y="" Y="Y" S Y=$E(Y,1) I "YyNn"'[Y S RMPFQUT="" G EMER1
  1. G EMERE:"Yy"'[Y
  1. I $P(^RMPF(791812,RMPFBT,0),U,10) D REQUE^RMPFEA3 G EMERE
  1. D CLOSE^RMPFEB
  1. EMERE Q
  1. READ K RMPFOUT,RMPFQUT
  1. R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
  1. I Y?1"^".E S (RMPFOUT,Y)="" Q
  1. S:Y?1"?".E (RMPFQUT,Y)=""
  1. Q