- RTT21 ;ISC-ALBANY/PKE-Record Transaction Option cont; ; 9/10/90 14:24 ;
- ;;v 2.0;Record Tracking;;10/22/91
- ;set up check-in pending cut-off positive logic reverts to origial
- ;if no pending checkin parameters set
- INI S RTCHKDT=$S(RTMV0'["CHECK-IN":RTWND(Y),1:$S((RTWND(Y)>DT):DT,1:RTWND(Y)))
- S X1=RTCHKDT,X2=-1 D C^%DTC S RTCHKDT=X
- S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
- ;
- ;S RTCHKDT=$S(RTMV0'["CHECK-IN":(RTWND(Y)-1),1:$S((RTWND(Y)>DT):(DT-1),1:(RTWND(Y)-1)))
- ;S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
- ;dtm=dt-1,winm=rtwnd(y)-1
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRTT21 601 printed Jan 18, 2025@03:36:08 Page 2
- RTT21 ;ISC-ALBANY/PKE-Record Transaction Option cont; ; 9/10/90 14:24 ;
- +1 ;;v 2.0;Record Tracking;;10/22/91
- +2 ;set up check-in pending cut-off positive logic reverts to origial
- +3 ;if no pending checkin parameters set
- INI SET RTCHKDT=$SELECT(RTMV0'["CHECK-IN":RTWND(Y),1:$SELECT((RTWND(Y)>DT):DT,1:RTWND(Y)))
- +1 SET X1=RTCHKDT
- SET X2=-1
- DO C^%DTC
- SET RTCHKDT=X
- +2 SET RTDT=$SELECT(RTMV0'["CHECK-IN":DT,1:$SELECT((RTWND(Y)>DT):RTWND(Y),1:DT))
- +3 ;
- +4 ;S RTCHKDT=$S(RTMV0'["CHECK-IN":(RTWND(Y)-1),1:$S((RTWND(Y)>DT):(DT-1),1:(RTWND(Y)-1)))
- +5 ;S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
- +6 ;dtm=dt-1,winm=rtwnd(y)-1