source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUTHLP.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1TIUTHLP ; SLC/JER - Help for Transcription ;4/18/03
2 ;;1.0;TEXT INTEGRATION UTILITIES;**21,113**;Jun 20, 1997
3MAIN ; 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
16DHDR(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
31CHDR(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
42RESTHDR(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
49DIV ; 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
Note: See TracBrowser for help on using the repository browser.