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

RTT21.m

Go to the documentation of this file.
  1. RTT21 ;ISC-ALBANY/PKE-Record Transaction Option cont; ; 9/10/90 14:24 ;
  1. ;;v 2.0;Record Tracking;;10/22/91
  1. ;set up check-in pending cut-off positive logic reverts to origial
  1. ;if no pending checkin parameters set
  1. INI S RTCHKDT=$S(RTMV0'["CHECK-IN":RTWND(Y),1:$S((RTWND(Y)>DT):DT,1:RTWND(Y)))
  1. S X1=RTCHKDT,X2=-1 D C^%DTC S RTCHKDT=X
  1. S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
  1. ;
  1. ;S RTCHKDT=$S(RTMV0'["CHECK-IN":(RTWND(Y)-1),1:$S((RTWND(Y)>DT):(DT-1),1:(RTWND(Y)-1)))
  1. ;S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
  1. ;dtm=dt-1,winm=rtwnd(y)-1