Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
491 bytes
|
Rev | Line | |
---|
[628] | 1 | TIURTITH ; SLC/JER - Review Screen Header ;4/20/94 16:18
|
---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
|
---|
| 3 | HDR ; 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.