Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUTHLP

TIUTHLP.m

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