| [613] | 1 | TIUTHLP ; SLC/JER - Help for Transcription ;4/18/03
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**21,113**;Jun 20, 1997
|
|---|
| 3 | MAIN ; Control branching
|
|---|
| 4 | N DIC,DTOUT,DUOUT,X,Y,TIUFPRIV S TIUFPRIV=1
|
|---|
| 5 | I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE
|
|---|
| 6 | S DIC=8925.1,DIC(0)="AEMQZ",DIC("A")="Select DOCUMENT DEFINITION: "
|
|---|
| 7 | S DIC("B")=$G(^DISV(+DUZ,"^TIU(8925.1,"))
|
|---|
| 8 | D ^DIC I $D(DTOUT) W " Timed out..." Q
|
|---|
| 9 | I +Y'>0 D Q
|
|---|
| 10 | . I $D(DUOUT) Q
|
|---|
| 11 | . W !!,"Required information for UPLOAD help not set up for this document."
|
|---|
| 12 | I $P(TIUPRM0,U,16)="D" D DHDR(.Y,TIUPRM0,TIUPRM1)
|
|---|
| 13 | E I $P(TIUPRM0,U,16)="C" D CHDR(.Y,TIUPRM0,TIUPRM1)
|
|---|
| 14 | E W !!,"Required information for UPLOAD help not set up for this report type."
|
|---|
| 15 | Q
|
|---|
| 16 | DHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Delimited String Header
|
|---|
| 17 | N TIUA,TIUI,TIUHSIG,TIUESTR,TIUHSTR,TIULIM,TIUTYP,TIUITEM
|
|---|
| 18 | N TIUNODE
|
|---|
| 19 | S TIUHSIG=$P(TIUPRM0,U,10),TIULIM=$P(TIUPRM0,U,13),TIUTYP=$P(TIUX(0),U,2)
|
|---|
| 20 | S TIUA=+TIUX,TIUI=2,(TIUHSTR,TIUESTR)=TIUHSIG_TIULIM_TIUTYP
|
|---|
| 21 | F S TIUI=$O(^TIU(8925.1,TIUA,"ITEM",TIUI)) Q:+TIUI'>0 D
|
|---|
| 22 | . S TIUNODE=$G(^TIU(8925.1,TIUA,"ITEM",TIUI,0))
|
|---|
| 23 | . S $P(TIUHSTR,TIULIM,TIUI)=$P(TIUNODE,U,2)
|
|---|
| 24 | . S $P(TIUESTR,TIULIM,TIUI)=$P(TIUNODE,U,5)
|
|---|
| 25 | W !!,"Header line example:"
|
|---|
| 26 | W !!,TIUESTR ;header string with example of data
|
|---|
| 27 | W !!,"Report format:"
|
|---|
| 28 | W !!,TIUHSTR ;Header string with data description
|
|---|
| 29 | D RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
|
|---|
| 30 | Q
|
|---|
| 31 | CHDR(TIUX,TIUPRM0,TIUPRM1) ; Display Captioned Header
|
|---|
| 32 | N TIUA,TIUI,TIUNODE
|
|---|
| 33 | S TIUA=+TIUX
|
|---|
| 34 | W !!,$P(TIUPRM0,U,10),":",?40,$P(TIUX(0),U)
|
|---|
| 35 | S TIUI=0
|
|---|
| 36 | F S TIUI=$O(^TIU(8925.1,TIUA,"HEAD",TIUI)) Q:+TIUI'>0 D
|
|---|
| 37 | . S TIUNODE=$G(^TIU(8925.1,TIUA,"HEAD",TIUI,0))
|
|---|
| 38 | . W !,$P(TIUNODE,U)_":",?40,$S($P(TIUNODE,U,5)]"":$P(TIUNODE,U,5),1:"""field entry""")
|
|---|
| 39 | W !,$P(TIUPRM0,U,12)
|
|---|
| 40 | D RESTHDR(.TIUX,TIUPRM0,TIUPRM1)
|
|---|
| 41 | Q
|
|---|
| 42 | RESTHDR(TIUX,TIUPRM0,TIUPRM1) ;Header info that is same for both types
|
|---|
| 43 | W !?2,$P(TIUX(0),U)," Text"
|
|---|
| 44 | W !,$P(TIUPRM0,U,11)
|
|---|
| 45 | W !!,"*** File should be ASCII with width no greater than 80 columns."
|
|---|
| 46 | W !,"*** Use ","""",$P(TIUPRM1,U,6),""""," for ","""BLANKS"""
|
|---|
| 47 | W " (word or phrase in dictation that isn't understood)."
|
|---|
| 48 | Q
|
|---|
| 49 | DIV ; Display user log-on division
|
|---|
| 50 | W $C(7),!!,"You are currently logged into DIVISION: "
|
|---|
| 51 | W $P($$NS^XUAF4(+$G(DUZ(2))),U),!!,"If a hospital location cannot be"
|
|---|
| 52 | W " determined for an uploaded document,",!,"the document's division"
|
|---|
| 53 | W " may be loaded with your log-in division."
|
|---|
| 54 | Q
|
|---|
