Changeset 572 for ccr/trunk/p/C0CBAT.m
- Timestamp:
- Oct 13, 2009, 1:54:39 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CBAT.m
r508 r572 85 85 ;F S C0CBCUR=$O(@C0CBH@(C0CBCUR),-1) Q:C0CBCUR="" D ; HOT LIST LATEST FIRST 86 86 F S C0CBCUR=$O(@C0CBH@(C0CBCUR)) Q:(C0CSTOP)!(C0CBCUR="") D ; HOT LIST FIRST 87 . D ANALYZE^C0CRIMA(C0CBCUR,1,"LABLIMIT:T- 760^VITLIMIT:T-760")87 . D ANALYZE^C0CRIMA(C0CBCUR,1,"LABLIMIT:T-900^VITLIMIT:T-900") 88 88 . I $G(C0CCHK) D ; 89 89 . . D PUTRIM^C0CFM2(C0CBCUR)
Note:
See TracChangeset
for help on using the changeset viewer.