TIUFJ ; SLC/MAM - LM Template J (Objects) INIT ;10/26/95 15:33
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
;
EN ; -- main entry point for Options TIUFJ CREATE OBJECTS MGR/VIEW OBJECTS CLIN
; Requires TIUFWHO, set in above options
N TIUF,TIUFTMPL,TIUFATTR,TIUFAVAL,TIUFSTRT,TIUFVCN1,TIUFXNOD,TIUFREDO
N DTOUT,DIRUT,DIROUT,DUOUT,TIUFLFT
S TIUFTMPL="J",TIUFREDO=0
N TIUFPRIV D SETUP^TIUFL S:$D(DTOUT) VALMQUIT=1 G:$G(VALMQUIT) ENX
S TIUFXNOD="^^Object^"
S TIUFATTR="T^TYPE",TIUFAVAL="O^OBJECT" D SELSTART^TIUFLA
G:$D(DTOUT)!'$D(TIUFSTRT) ENX
I TIUFWHO="C" D EN^VALM("TIUFJ OBJECTS CLIN")
I "MN"[TIUFWHO D EN^VALM("TIUFJ OBJECTS MGR")
ENX Q
;
HDR ; -- header code
; Requires Attribute TIUFATTR="T^TYPE"
; Requires Attribute Value TIUFAVAL="O^OBJECT"
; Requires TIUFSTRT = e.g. " ^ZZZZZZZZ" as set in SELSTART^TIUFLA.
N FROM,TO,HDR3
S FROM=$S($P(TIUFSTRT,U)=" ":"FIRST",1:$P(TIUFSTRT,U))
S TO=$S($P(TIUFSTRT,U)=" ":"LAST",$P(TIUFSTRT,U,2)="ZZZZZZZZ":"LAST",1:$P(TIUFSTRT,U,2))
S HDR3=$S(TIUFSTRT'=" ^ZZZZZZZZ":" from "_FROM_" to "_TO,1:"")
S VALMHDR(1)=$$CENTER^TIUFL("Objects "_HDR3,79)
HDRX ;
Q
;
INIT ; -- init variables and list array. Called by Template J
D INIT^TIUFA
Q
;
EXIT ; -- exit code
K ^TMP("TIUF1",$J),^TMP("TIUFB",$J),^TMP("TIUF1IDX",$J),^TMP("TIUFBIDX",$J),^TMP("TIUF",$J),IOELALL
D CLEAN^VALM10
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFJ 1383 printed Dec 13, 2024@02:40:57 Page 2
TIUFJ ; SLC/MAM - LM Template J (Objects) INIT ;10/26/95 15:33
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ;
EN ; -- main entry point for Options TIUFJ CREATE OBJECTS MGR/VIEW OBJECTS CLIN
+1 ; Requires TIUFWHO, set in above options
+2 NEW TIUF,TIUFTMPL,TIUFATTR,TIUFAVAL,TIUFSTRT,TIUFVCN1,TIUFXNOD,TIUFREDO
+3 NEW DTOUT,DIRUT,DIROUT,DUOUT,TIUFLFT
+4 SET TIUFTMPL="J"
SET TIUFREDO=0
+5 NEW TIUFPRIV
DO SETUP^TIUFL
if $DATA(DTOUT)
SET VALMQUIT=1
if $GET(VALMQUIT)
GOTO ENX
+6 SET TIUFXNOD="^^Object^"
+7 SET TIUFATTR="T^TYPE"
SET TIUFAVAL="O^OBJECT"
DO SELSTART^TIUFLA
+8 if $DATA(DTOUT)!'$DATA(TIUFSTRT)
GOTO ENX
+9 IF TIUFWHO="C"
DO EN^VALM("TIUFJ OBJECTS CLIN")
+10 IF "MN"[TIUFWHO
DO EN^VALM("TIUFJ OBJECTS MGR")
ENX QUIT
+1 ;
HDR ; -- header code
+1 ; Requires Attribute TIUFATTR="T^TYPE"
+2 ; Requires Attribute Value TIUFAVAL="O^OBJECT"
+3 ; Requires TIUFSTRT = e.g. " ^ZZZZZZZZ" as set in SELSTART^TIUFLA.
+4 NEW FROM,TO,HDR3
+5 SET FROM=$SELECT($PIECE(TIUFSTRT,U)=" ":"FIRST",1:$PIECE(TIUFSTRT,U))
+6 SET TO=$SELECT($PIECE(TIUFSTRT,U)=" ":"LAST",$PIECE(TIUFSTRT,U,2)="ZZZZZZZZ":"LAST",1:$PIECE(TIUFSTRT,U,2))
+7 SET HDR3=$SELECT(TIUFSTRT'=" ^ZZZZZZZZ":" from "_FROM_" to "_TO,1:"")
+8 SET VALMHDR(1)=$$CENTER^TIUFL("Objects "_HDR3,79)
HDRX ;
+1 QUIT
+2 ;
INIT ; -- init variables and list array. Called by Template J
+1 DO INIT^TIUFA
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("TIUF1",$JOB),^TMP("TIUFB",$JOB),^TMP("TIUF1IDX",$JOB),^TMP("TIUFBIDX",$JOB),^TMP("TIUF",$JOB),IOELALL
+2 DO CLEAN^VALM10
+3 QUIT
+4 ;
