TIUTHLP ; SLC/JER - Help for Transcription ;4/18/03
;;1.0;TEXT INTEGRATION UTILITIES;**21,113**;Jun 20, 1997
MAIN ; Control branching
N DIC,DTOUT,DUOUT,X,Y,TIUFPRIV S TIUFPRIV=1
I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE
S DIC=8925.1,DIC(0)="AEMQZ",DIC("A")="Select DOCUMENT DEFINITION: "
S DIC("B")=$G(^DISV(+DUZ,"^TIU(8925.1,"))
D ^DIC I $D(DTOUT) W " Timed out..." Q
I +Y'>0 D Q
. I $D(DUOUT) Q
. W !!,"Required information for UPLOAD help not set up for this document."
I $P(TIUPRM0,U,16)="D" D DHDR(.Y,TIUPRM0,TIUPRM1)
E I $P(TIUPRM0,U,16)="C" D CHDR(.Y,TIUPRM0,TIUPRM1)
E W !!,"Required information for UPLOAD help not set up for this report type."
Q
DHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Delimited String Header
N TIUA,TIUI,TIUHSIG,TIUESTR,TIUHSTR,TIULIM,TIUTYP,TIUITEM
N TIUNODE
S TIUHSIG=$P(TIUPRM0,U,10),TIULIM=$P(TIUPRM0,U,13),TIUTYP=$P(TIUX(0),U,2)
S TIUA=+TIUX,TIUI=2,(TIUHSTR,TIUESTR)=TIUHSIG_TIULIM_TIUTYP
F S TIUI=$O(^TIU(8925.1,TIUA,"ITEM",TIUI)) Q:+TIUI'>0 D
. S TIUNODE=$G(^TIU(8925.1,TIUA,"ITEM",TIUI,0))
. S $P(TIUHSTR,TIULIM,TIUI)=$P(TIUNODE,U,2)
. S $P(TIUESTR,TIULIM,TIUI)=$P(TIUNODE,U,5)
W !!,"Header line example:"
W !!,TIUESTR ;header string with example of data
W !!,"Report format:"
W !!,TIUHSTR ;Header string with data description
D RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
Q
CHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Captioned Header
N TIUA,TIUI,TIUNODE
S TIUA=+TIUX
W !!,$P(TIUPRM0,U,10),":",?40,$P(TIUX(0),U)
S TIUI=0
F S TIUI=$O(^TIU(8925.1,TIUA,"HEAD",TIUI)) Q:+TIUI'>0 D
. S TIUNODE=$G(^TIU(8925.1,TIUA,"HEAD",TIUI,0))
. W !,$P(TIUNODE,U)_":",?40,$S($P(TIUNODE,U,5)]"":$P(TIUNODE,U,5),1:"""field entry""")
W !,$P(TIUPRM0,U,12)
D RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
Q
RESTHDR(TIUX,TIUPRM0,TIUPRM1) ;Header info that is same for both types
W !?2,$P(TIUX(0),U)," Text"
W !,$P(TIUPRM0,U,11)
W !!,"*** File should be ASCII with width no greater than 80 columns."
W !,"*** Use ","""",$P(TIUPRM1,U,6),""""," for ","""BLANKS"""
W " (word or phrase in dictation that isn't understood)."
Q
DIV ; Display user log-on division
W $C(7),!!,"You are currently logged into DIVISION: "
W $P($$NS^XUAF4(+$G(DUZ(2))),U),!!,"If a hospital location cannot be"
W " determined for an uploaded document,",!,"the document's division"
W " may be loaded with your log-in division."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUTHLP 2385 printed Oct 16, 2024@18:46:52 Page 2
TIUTHLP ; SLC/JER - Help for Transcription ;4/18/03
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**21,113**;Jun 20, 1997
MAIN ; Control branching
+1 NEW DIC,DTOUT,DUOUT,X,Y,TIUFPRIV
SET TIUFPRIV=1
+2 IF '$DATA(TIUPRM0)!'$DATA(TIUPRM1)
DO SETPARM^TIULE
+3 SET DIC=8925.1
SET DIC(0)="AEMQZ"
SET DIC("A")="Select DOCUMENT DEFINITION: "
+4 SET DIC("B")=$GET(^DISV(+DUZ,"^TIU(8925.1,"))
+5 DO ^DIC
IF $DATA(DTOUT)
WRITE " Timed out..."
QUIT
+6 IF +Y'>0
Begin DoDot:1
+7 IF $DATA(DUOUT)
QUIT
+8 WRITE !!,"Required information for UPLOAD help not set up for this document."
End DoDot:1
QUIT
+9 IF $PIECE(TIUPRM0,U,16)="D"
DO DHDR(.Y,TIUPRM0,TIUPRM1)
+10 IF '$TEST
IF $PIECE(TIUPRM0,U,16)="C"
DO CHDR(.Y,TIUPRM0,TIUPRM1)
+11 IF '$TEST
WRITE !!,"Required information for UPLOAD help not set up for this report type."
+12 QUIT
DHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Delimited String Header
+1 NEW TIUA,TIUI,TIUHSIG,TIUESTR,TIUHSTR,TIULIM,TIUTYP,TIUITEM
+2 NEW TIUNODE
+3 SET TIUHSIG=$PIECE(TIUPRM0,U,10)
SET TIULIM=$PIECE(TIUPRM0,U,13)
SET TIUTYP=$PIECE(TIUX(0),U,2)
+4 SET TIUA=+TIUX
SET TIUI=2
SET (TIUHSTR,TIUESTR)=TIUHSIG_TIULIM_TIUTYP
+5 FOR
SET TIUI=$ORDER(^TIU(8925.1,TIUA,"ITEM",TIUI))
if +TIUI'>0
QUIT
Begin DoDot:1
+6 SET TIUNODE=$GET(^TIU(8925.1,TIUA,"ITEM",TIUI,0))
+7 SET $PIECE(TIUHSTR,TIULIM,TIUI)=$PIECE(TIUNODE,U,2)
+8 SET $PIECE(TIUESTR,TIULIM,TIUI)=$PIECE(TIUNODE,U,5)
End DoDot:1
+9 WRITE !!,"Header line example:"
+10 ;header string with example of data
WRITE !!,TIUESTR
+11 WRITE !!,"Report format:"
+12 ;Header string with data description
WRITE !!,TIUHSTR
+13 DO RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
+14 QUIT
CHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Captioned Header
+1 NEW TIUA,TIUI,TIUNODE
+2 SET TIUA=+TIUX
+3 WRITE !!,$PIECE(TIUPRM0,U,10),":",?40,$PIECE(TIUX(0),U)
+4 SET TIUI=0
+5 FOR
SET TIUI=$ORDER(^TIU(8925.1,TIUA,"HEAD",TIUI))
if +TIUI'>0
QUIT
Begin DoDot:1
+6 SET TIUNODE=$GET(^TIU(8925.1,TIUA,"HEAD",TIUI,0))
+7 WRITE !,$PIECE(TIUNODE,U)_":",?40,$SELECT($PIECE(TIUNODE,U,5)]"":$PIECE(TIUNODE,U,5),1:"""field entry""")
End DoDot:1
+8 WRITE !,$PIECE(TIUPRM0,U,12)
+9 DO RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
+10 QUIT
RESTHDR(TIUX,TIUPRM0,TIUPRM1) ;Header info that is same for both types
+1 WRITE !?2,$PIECE(TIUX(0),U)," Text"
+2 WRITE !,$PIECE(TIUPRM0,U,11)
+3 WRITE !!,"*** File should be ASCII with width no greater than 80 columns."
+4 WRITE !,"*** Use ","""",$PIECE(TIUPRM1,U,6),""""," for ","""BLANKS"""
+5 WRITE " (word or phrase in dictation that isn't understood)."
+6 QUIT
DIV ; Display user log-on division
+1 WRITE $CHAR(7),!!,"You are currently logged into DIVISION: "
+2 WRITE $PIECE($$NS^XUAF4(+$GET(DUZ(2))),U),!!,"If a hospital location cannot be"
+3 WRITE " determined for an uploaded document,",!,"the document's division"
+4 WRITE " may be loaded with your log-in division."
+5 QUIT
