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

TIUSRVE.m

Go to the documentation of this file. 
  1. TIUSRVE ; SLC/JER - Get Upload Events for Display ;21-OCT-1999 10:54:57
  1.  ;;1.0;TEXT INTEGRATION UTILITIES;**56,81**;Jun 20, 1997
  1. GET(TIUDA,HUSH) ; Build ^TMP("TIUEVENT",$J,
  1.  N TIUI,TIUJ,TIUL,TIUREC,X S TIUI=0,HUSH=+$G(HUSH)
  1.  N DA,DIC,DIQ,DR,TIUNAME K ^TMP("TIUEVENT",$J)
  1.  I '$D(IOINORM) S X="IOINORM;IOIHI;IORVON;IORVOFF;IOUON;IOUOFF;IOBON;IOBOFF" D ENDR^%ZISS
  1.  S:'$D(VALMAR) VALMAR="^TMP(""TIUEVENT"",$J)"
  1.  S VALMEVL=+$G(VALMEVL)
  1.  I '$D(^TIU(8925.4,+TIUDA,0)) S VALMQUIT=1 Q
  1.  S DIC=8925.4,DIQ="TIUREC(",DA=TIUDA
  1.  S DR=".01:.08"
  1.  D EN^DIQ1
  1.  S TIUI="" F  S TIUI=$O(TIUREC(8925.4,+TIUDA,TIUI)) Q:+TIUI'>0  D
  1.  . I $G(TIUREC(8925.4,+TIUDA,TIUI))']"" S TIUREC(8925.4,+TIUDA,TIUI)="None"
  1.  I $D(TIUREC)>9 D
  1.  . S ^TMP("TIUEVENT",$J,0)=$G(TIUREC(8925.4,TIUDA,.08))
  1.  . D EVENT(.TIUREC,HUSH),FIELDS(TIUDA,.VALMCNT),HEADER(TIUDA,.VALMCNT)
  1.  ; The following line was Removed with TIU*1*56
  1.  ;S:+$G(VALMCNT)<$G(VALM("LINES")) VALMCNT=$G(VALM("LINES"))
  1.  Q
  1. EVENT(TIUREC,HUSH) ; Load Source Information
  1.  N OFFSET,START
  1.  S OFFSET=2,START=1
  1.  W:'+$G(HUSH) !!,"Opening "_TIUREC(8925.4,+TIUDA,.08)_" record for review..."
  1.  D SET(START,OFFSET," Event Description ",IORVON,IORVOFF)
  1.  D SET(START+1,OFFSET,$G(TIUREC(8925.4,TIUDA,.04)))
  1.  D SET(START+2,OFFSET,"  Event Date/time: "_$G(TIUREC(8925.4,TIUDA,.01)))
  1.  D SET(START+3,OFFSET,"        User Name: "_$G(TIUREC(8925.4,TIUDA,.02)))
  1.  D SET(START+4,OFFSET,"       Event Type: "_$G(TIUREC(8925.4,TIUDA,.08)))
  1.  D SET(START+5,OFFSET,"    Document Type: "_$G(TIUREC(8925.4,TIUDA,.03)))
  1.  D SET(START+6,OFFSET,"Resolution Status: "_$G(TIUREC(8925.4,TIUDA,.06)))
  1.  D SET(START+7,OFFSET,"  Resolution Date: "_$G(TIUREC(8925.4,TIUDA,.07)))
  1.  S VALMCNT=7
  1.  Q
  1. FIELDS(TIUDA,TIUJ) ; Get missing fields
  1.  N TIUK,TIUFLD S TIUK=0
  1.  S TIUJ=+$G(TIUJ)+1
  1.  D BLANK(TIUJ) S TIUJ=+$G(TIUJ)+1
  1.  D SET(TIUJ,2," Missing Fields ",IORVON,IORVOFF) S TIUJ=TIUJ+1
  1.  D BLANK(TIUJ)
  1.  F  S TIUK=$O(^TIU(8925.4,+TIUDA,1,TIUK)) Q:+TIUK'>0  D
  1.  . N DIC,DIQ,DA,DR S DA=TIUK,DIC="^TIU(8925.4,"_+TIUDA_",1,"
  1.  . S DR=".01:.04",DIQ="TIUFLD(" D EN^DIQ1 Q:$D(TIUFLD)'>9
  1.  . I $$FIXED^TIUPEVN1(8925,+$G(TIUFLD(8925.42,DA,.02)),+$G(TIUFLD(8925.42,DA,.03)))=1 Q  ; P81, don't display fixed missing flds; moved from TIUPEVNT
  1.  . S TIUJ=+$G(TIUJ)+1
  1.  . D SET(TIUJ,2,"  File Number: "_$G(TIUFLD(8925.42,DA,.01)))
  1.  . D SET(TIUJ,40,"Record Number: "_$G(TIUFLD(8925.42,DA,.02)))
  1.  . S TIUJ=+$G(TIUJ)+1
  1.  . D SET(TIUJ,2," Field Number: "_$G(TIUFLD(8925.42,DA,.03)))
  1.  . D SET(TIUJ,40," Failed Value: "_$G(TIUFLD(8925.42,DA,.04)))
  1.  Q
  1.  S TIUJ=+$G(TIUJ)+1
  1.  D BLANK(TIUJ) S TIUJ=+$G(TIUJ)+1
  1.  D SET(TIUJ,2," Header Text ",IORVON,IORVOFF)
  1.  ; D BLANK(TIUJ) S TIUJ=TIUJ+1
  1.  D HDRTEXT(TIUDA,.TIUJ)
  1.  Q
  1. HDRTEXT(TIUDA,TIUJ) ; Get Header Text for filing errors
  1.  N TIUKID,TIUDADT,TIUI S TIUI=0
  1.  F  S TIUI=$O(^TIU(8925.4,+TIUDA,"HEAD",TIUI)) Q:+TIUI'>0  D
  1.  . S TIUJ=+$G(TIUJ)+1
  1.  . D SET(TIUJ,2,$G(^TIU(8925.4,+TIUDA,"HEAD",+TIUI,0)))
  1.  Q
  1. SET(LINE,COL,TEXT,ON,OFF) ; -- set display info in array
  1.  D:'$D(@VALMAR@(LINE,0)) BLANK(.LINE)
  1.  D SET^VALM10(.LINE,$$SETSTR^VALM1(.TEXT,@VALMAR@(LINE,0),.COL,$L(TEXT)))
  1.  D:$G(ON)]""!($G(OFF)]"") CNTRL^VALM10(.LINE,.COL,$L(TEXT),$G(ON),$G(OFF))
  1.  W:'(LINE#5)&'+$G(HUSH) "."
  1.  Q
  1.  ;
  1. BLANK(LINE) ; -- build blank line
  1.  D SET^VALM10(.LINE,$J("",80))
  1.  Q