Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
590 bytes
|
Rev | Line | |
---|
[613] | 1 | RTT21 ;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
|
---|
| 5 | INI 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.