- 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 Jan 18, 2025@03:47:26 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