source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURTITH.m@ 1078

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

initial load of WorldVistAEHR

File size: 491 bytes
Line 
1TIURTITH ; SLC/JER - Review Screen Header ;4/20/94 16:18
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3HDR ; Initialize header for clinician's review screen
4 N BY,TIUI,TIUX,SCREEN,STATUS,RANGE,TIUBY,TIUDOCS,XREF
5 I +TIUEDT>1 S RANGE=" from "_$$DATE^TIULS(TIUEDT,"MM/DD/YY")_" to "_$$DATE^TIULS(TIULDT,"MM/DD/YY")
6 S VALMHDR(1)=$$CENTER^TIULS($G(RANGE))
7 S TIUDOCS=$J(+$G(^TMP("TIUR",$J,0)),4)_" documents"
8 S VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$L(TIUDOCS)),$L(TIUDOCS))
9 Q
Note: See TracBrowser for help on using the repository browser.