TIUFJ.m

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 ---TIUFJ   1383     printed  Mar 13, 2025@21:45:51                                                                                                                                                                                                       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       ;