source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFJ.m@ 975

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1TIUFJ ; SLC/MAM - LM Template J (Objects) INIT ;10/26/95 15:33
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3 ;
4EN ; -- main entry point for Options TIUFJ CREATE OBJECTS MGR/VIEW OBJECTS CLIN
5 ; Requires TIUFWHO, set in above options
6 N TIUF,TIUFTMPL,TIUFATTR,TIUFAVAL,TIUFSTRT,TIUFVCN1,TIUFXNOD,TIUFREDO
7 N DTOUT,DIRUT,DIROUT,DUOUT,TIUFLFT
8 S TIUFTMPL="J",TIUFREDO=0
9 N TIUFPRIV D SETUP^TIUFL S:$D(DTOUT) VALMQUIT=1 G:$G(VALMQUIT) ENX
10 S TIUFXNOD="^^Object^"
11 S TIUFATTR="T^TYPE",TIUFAVAL="O^OBJECT" D SELSTART^TIUFLA
12 G:$D(DTOUT)!'$D(TIUFSTRT) ENX
13 I TIUFWHO="C" D EN^VALM("TIUFJ OBJECTS CLIN")
14 I "MN"[TIUFWHO D EN^VALM("TIUFJ OBJECTS MGR")
15ENX Q
16 ;
17HDR ; -- header code
18 ; Requires Attribute TIUFATTR="T^TYPE"
19 ; Requires Attribute Value TIUFAVAL="O^OBJECT"
20 ; Requires TIUFSTRT = e.g. " ^ZZZZZZZZ" as set in SELSTART^TIUFLA.
21 N FROM,TO,HDR3
22 S FROM=$S($P(TIUFSTRT,U)=" ":"FIRST",1:$P(TIUFSTRT,U))
23 S TO=$S($P(TIUFSTRT,U)=" ":"LAST",$P(TIUFSTRT,U,2)="ZZZZZZZZ":"LAST",1:$P(TIUFSTRT,U,2))
24 S HDR3=$S(TIUFSTRT'=" ^ZZZZZZZZ":" from "_FROM_" to "_TO,1:"")
25 S VALMHDR(1)=$$CENTER^TIUFL("Objects "_HDR3,79)
26HDRX ;
27 Q
28 ;
29INIT ; -- init variables and list array. Called by Template J
30 D INIT^TIUFA
31 Q
32 ;
33EXIT ; -- exit code
34 K ^TMP("TIUF1",$J),^TMP("TIUFB",$J),^TMP("TIUF1IDX",$J),^TMP("TIUFBIDX",$J),^TMP("TIUF",$J),IOELALL
35 D CLEAN^VALM10
36 Q
37 ;
Note: See TracBrowser for help on using the repository browser.