source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFIX2.m@ 862

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

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1TIUFIX2 ; SLC/JER,MAM - Resolve Upload Filing Errors Library Two ;05/06/02
2 ;;1.0;TEXT INTEGRATION UTILITIES;**131**;Jun 20, 1997
3 ;
4BUFFER(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."
13BUFX Q TIUBUF
14 ;
15LOADHDR(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
74TRNSFRM(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
81TRNSFRMX Q X
Note: See TracBrowser for help on using the repository browser.