1 | TIUFIX2 ; SLC/JER,MAM - Resolve Upload Filing Errors Library Two ;05/06/02
|
---|
2 | ;;1.0;TEXT INTEGRATION UTILITIES;**131**;Jun 20, 1997
|
---|
3 | ;
|
---|
4 | BUFFER(TIUEVNT) ; Return 8925.2 Upload Buffer IEN
|
---|
5 | ; Gets Buffer for UNRESOLVED upload errors. (Returns error msg
|
---|
6 | ;for resolved filing errors, where buffer is 0.)
|
---|
7 | ; Requires [TIUEVNT] - Upload Log Event IEN (8925.4)
|
---|
8 | N TIUBUF
|
---|
9 | I '$D(^TIU(8925.4,TIUEVNT,0)) S TIUBUF="0^Invalid Upload Log event." G BUFX
|
---|
10 | S TIUBUF=+$P($G(^TIU(8925.4,TIUEVNT,0)),U,5)
|
---|
11 | I TIUBUF'>0 S TIUBUF="0^Upload Buffer record is missing from Upload Log event." G BUFX
|
---|
12 | I '$D(^TIU(8925.2,TIUBUF,0)) S TIUBUF="0^Upload Log event references an invalid Upload Buffer record."
|
---|
13 | BUFX Q TIUBUF
|
---|
14 | ;
|
---|
15 | LOADHDR(TIUARR,TIUBUF,TIUPRM0,TIUTYPE) ; Load array with header data
|
---|
16 | ;from upload buffer
|
---|
17 | ; Requires [TIUARR] - Array of header data. Loaded and passed back
|
---|
18 | ; [TIUBUF] - 8925.2 Upload Buffer IEN
|
---|
19 | ; [TIUPRM0] - Header signal, etc. See SETPARM^TIULE
|
---|
20 | ; [TIUTYPE] - IEN of Docmt Def whose Filing Error
|
---|
21 | ; Resolution Code is being invoked
|
---|
22 | ;NOTE: LOADHDR does NOT kill ANY nodes of TIUARR.
|
---|
23 | ; (LOADTIUX^TIUPEFIX does kill certain nodes.)
|
---|
24 | ; See warning in MAKE^TIUFIX1 concerning possible
|
---|
25 | ; need to kill nodes of array.
|
---|
26 | N TIUI,TIUHSIG,TIUBGN,TIULINE
|
---|
27 | S TIUHSIG=$P(TIUPRM0,U,10),TIUBGN=$P(TIUPRM0,U,12)
|
---|
28 | S TIUI=0 F S TIUI=$O(^TIU(8925.2,+TIUBUF,"TEXT",TIUI)) Q:+TIUI'>0 D
|
---|
29 | . S TIULINE=$G(^TIU(8925.2,+TIUBUF,"TEXT",TIUI,0))
|
---|
30 | . I TIULINE[TIUHSIG D
|
---|
31 | . . F D Q:TIULINE[TIUBGN!(+TIUI'>0)
|
---|
32 | . . . N TIUN,TIUCAP,TIUFLD,TIUREQ S TIUREQ=0
|
---|
33 | . . . S TIUI=$O(^TIU(8925.2,+TIUBUF,"TEXT",TIUI)) Q:+TIUI'>0
|
---|
34 | . . . S TIULINE=$G(^TIU(8925.2,+TIUBUF,"TEXT",TIUI,0)) Q:TIULINE[TIUBGN
|
---|
35 | . . . S TIUCAP=$P(TIULINE,":") Q:TIUCAP']""
|
---|
36 | . . . ; -- Get upload header definition data for transcribed
|
---|
37 | . . . ; caption:
|
---|
38 | . . . S TIUN=$O(^TIU(8925.1,TIUTYPE,"HEAD","B",TIUCAP,0))
|
---|
39 | . . . Q:+TIUN'>0
|
---|
40 | . . . S TIUFLD=$P(^TIU(8925.1,TIUTYPE,"HEAD",+TIUN,0),U,3)
|
---|
41 | . . . ; -- Ignore caption if hdr def does not associate a
|
---|
42 | . . . ; field number with it:
|
---|
43 | . . . Q:TIUFLD']""
|
---|
44 | . . . S TIUREQ=$P(^TIU(8925.1,TIUTYPE,"HEAD",+TIUN,0),U,7)
|
---|
45 | . . . S TIUARR(TIUFLD)=$$STRIP^TIULS($P(TIULINE,":",2,99))
|
---|
46 | . . . S TIUARR(TIUFLD)=$$TRNSFRM(TIUTYPE,TIUFLD,TIUARR(TIUFLD))
|
---|
47 | . . . ; -- If caption has no data, and hdr def requires data,
|
---|
48 | . . . ; set node to create missing field msg in FILE^TIUFIX1.
|
---|
49 | . . . ; For most fields, "** REQUIRED FIELD MISSING FROM
|
---|
50 | . . . ; UPLOAD**" will be invalid data and will not file.
|
---|
51 | . . . ; If field is free text so that it does file, at
|
---|
52 | . . . ; least it's intelligible.
|
---|
53 | . . . I +TIUREQ,TIUARR(TIUFLD)="" S TIUARR(TIUFLD)="** REQUIRED FIELD MISSING FROM UPLOAD **"
|
---|
54 | ; -- Leave missing captions fix til later; TIUPUTC1?? needs
|
---|
55 | ; same change 4/21/02:
|
---|
56 | ; -- Set nodes for any captions required in upload hdr
|
---|
57 | ; def but missing from buffer. Check only captions that
|
---|
58 | ; do NOT have Lookup variables, since that info is supplied
|
---|
59 | ; by user and is not a missing field. Even if set here,
|
---|
60 | ; message will be created only for nodes not killed before
|
---|
61 | ; filing.
|
---|
62 | ;N TIUCAP,TIUREQ,TIUFLD,LOOKV
|
---|
63 | ;S TIUCAP=""
|
---|
64 | ;S TIUCAP=$O(^TIU(8925.1,TIUTYPE,"HEAD","B",TIUCAP)) Q:TIUCAP="" D
|
---|
65 | ;. S TIUN=$O(^TIU(8925.1,TIUTYPE,"HEAD","B",TIUCAP,0))
|
---|
66 | ;. S TIUREQ=$P(^TIU(8925.1,TIUTYPE,"HEAD",+TIUN,0),U,7)
|
---|
67 | ;. Q:'TIUREQ
|
---|
68 | ;. S TIUFLD=$P(^TIU(8925.1,TIUTYPE,"HEAD",+TIUN,0),U,3)
|
---|
69 | ;. Q:'TIUFLD
|
---|
70 | ;. S LOOKV=$P(^TIU(8925.1,TIUTYPE,"HEAD",+TIUN,0),U,4)
|
---|
71 | ;. Q:LOOKV]""
|
---|
72 | ;. I '$D(TIUARR(TIUFLD)) S TIUARR(TIUFLD)="** REQUIRED CAPTION MISSING FROM UPLOAD **"
|
---|
73 | Q
|
---|
74 | TRNSFRM(RTYPE,FLD,X) ; Executes Transform code for a given header field
|
---|
75 | N XFORM
|
---|
76 | S FLD=$O(^TIU(8925.1,+RTYPE,"HEAD","D",+FLD,0))
|
---|
77 | I +FLD'>0 G TRNSFRMX
|
---|
78 | S XFORM=$G(^TIU(8925.1,+RTYPE,"HEAD",+FLD,1))
|
---|
79 | I XFORM']"" G TRNSFRMX
|
---|
80 | X XFORM
|
---|
81 | TRNSFRMX Q X
|
---|