source: WorldVistAEHR/trunk/r/RECORD_TRACKING-RT/RTT21.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 590 bytes
Line 
1RTT21 ;ISC-ALBANY/PKE-Record Transaction Option cont; ; 9/10/90 14:24 ;
2 ;;v 2.0;Record Tracking;;10/22/91
3 ;set up check-in pending cut-off positive logic reverts to origial
4 ;if no pending checkin parameters set
5INI S RTCHKDT=$S(RTMV0'["CHECK-IN":RTWND(Y),1:$S((RTWND(Y)>DT):DT,1:RTWND(Y)))
6 S X1=RTCHKDT,X2=-1 D C^%DTC S RTCHKDT=X
7 S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
8 ;
9 ;S RTCHKDT=$S(RTMV0'["CHECK-IN":(RTWND(Y)-1),1:$S((RTWND(Y)>DT):(DT-1),1:(RTWND(Y)-1)))
10 ;S RTDT=$S(RTMV0'["CHECK-IN":DT,1:$S((RTWND(Y)>DT):RTWND(Y),1:DT))
11 ;dtm=dt-1,winm=rtwnd(y)-1
Note: See TracBrowser for help on using the repository browser.