| 1 | TIUFJ ; SLC/MAM - LM Template J (Objects) INIT ;10/26/95 15:33
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; -- 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")
|
|---|
| 15 | ENX Q
|
|---|
| 16 | ;
|
|---|
| 17 | HDR ; -- 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)
|
|---|
| 26 | HDRX ;
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | INIT ; -- init variables and list array. Called by Template J
|
|---|
| 30 | D INIT^TIUFA
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | EXIT ; -- 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 | ;
|
|---|
