TIUPEFIX ; SLC/JER - Resolve Filing errors for TIU Documents ;11/01/03
Source file <TIUPEFIX.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 11 | MERGTEXT^TIUEDI1 $$GETRECNW^TIUEDI3 $$ASKTITLE^TIULA3 ($$IDATE,$$NOW)^TIULC ($$PNAME,$$POSTFILE,DOCPRM)^TIULC1 GETTIU^TIULD SETPARM^TIULE $$STRIP^TIULS (ALERTDEL,MAIN,RESOLVE)^TIUPEVNT BUFPURGE^TIUPUTC ($$CANEDIT,$$WHATITLE,$$WHATYPE)^TIUPUTU |
VA FileMan | 3 | $$EZBLD^DIALOG ^DIC FILE^DIE |
Kernel | 1 | $$NOW^XLFDT |
List Manager | 1 | EN^VALM |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
MAKE(SUCCESS,DFN,TITLE,TIU,TIUBUF) | ; File new TIU Document
; SUCCESS = (by ref) SUCCESS Returns TIU DOCUMENT # (PTR to 8925) ; = 0^Explanatory message if no SUCCESS ; DFN = Patient (#2) ; TITLE = Pointer to TIU Document Definition (#8925.1) ; TIU = Array of demographic and visit attributes ; TIUBUF = Record number (ien) of entry in TIU Buffer file (#8925.2) |
|
MAKEX | ||
LOADTIUX(TIUARR,TIUBUF) | ; Load TIUX array with header and text
|
|
STUFREC(DA,DFN,PARENT,TIU) | ; Stuff fixed field data
|
|
REQVER(VPARM) | ; Evaluate whether verification is required
|
|
MAKEADD(TIUDADD,TIUDA,TIUBUF) | ; Create an addendum record
|
|
FILE(SUCCESS,TIUDA,TIUX,RTYPE) | ; Call FM Filer to commit updates to DB
|
|
TRNSFRM(RTYPE,FLD,X) | ; Executes Transform code for a given header field
|
|
TRNSFRMX |
Name | Field # of Occurrence |
---|---|
$$EZBLD^DIALOG | MAKE+13, MAKE+25 |
^DIC | MAKEADD+6 |
FILE^DIE | STUFREC+34, FILE+4 |
MERGTEXT^TIUEDI1 | MAKE+41, MAKEADD+16 |
$$GETRECNW^TIUEDI3 | MAKE+24 |
$$ASKTITLE^TIULA3 | MAKE+19 |
$$IDATE^TIULC | STUFREC+27 |
$$NOW^TIULC | STUFREC+8, STUFREC+30 |
$$PNAME^TIULC1 | MAKEADD+10 |
$$POSTFILE^TIULC1 | MAKE+42, MAKEADD+17 |
DOCPRM^TIULC1 | MAKE+22 |
GETTIU^TIULD | MAKEX+5, MAKEADD+9 |
SETPARM^TIULE | LOADTIUX+1 |
$$STRIP^TIULS | LOADTIUX+7, LOADTIUX+21 |
ALERTDEL^TIUPEVNT | MAKEX |
MAIN^TIUPEVNT | LOADTIUX+8, FILE+7 |
RESOLVE^TIUPEVNT | MAKEX+1 |
BUFPURGE^TIUPUTC | MAKEX+2 |
$$CANEDIT^TIUPUTU | MAKE+26 |
$$WHATITLE^TIUPUTU | MAKEADD+4 |
$$WHATYPE^TIUPUTU | LOADTIUX+7 |
EN^VALM | MAKEX+6 |
$$NOW^XLFDT | STUFREC+24 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925 - [#8925] | MAKE+32, MAKE+37!, MAKE+39*, MAKEX+3!, MAKEX+4, STUFREC+13, STUFREC+14, STUFREC+18, STUFREC+19, STUFREC+20 , STUFREC+21, STUFREC+22, STUFREC+23, MAKEADD+3, MAKEADD+13!, MAKEADD+14*, MAKEADD+20! |
^TIU(8925.1 - [#8925.1] | MAKE+15, MAKE+16, LOADTIUX+9, LOADTIUX+16, LOADTIUX+18, LOADTIUX+20, FILE+7, TRNSFRM+2, TRNSFRM+4 |
^TIU(8925.2 - [#8925.2] | LOADTIUX+3, LOADTIUX+4, LOADTIUX+13, LOADTIUX+14, LOADTIUX+28, LOADTIUX+30 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | STUFREC~, STUFREC+2, MAKEADD+1~ |
DFN | MAKE~, MAKE+13, MAKE+24, MAKE+32, STUFREC~, STUFREC+4, MAKEADD+11 |
DIC | MAKEADD+1~, MAKEADD+5* |
DIC(0 | MAKEADD+5* |
DIE | MAKEADD+1~ |
DLAYGO | MAKEADD+1~, MAKEADD+5* |
DR | MAKEADD+1~ |
DUZ(2 | STUFREC+10 |
>> ERRDA | MAKEX+1 |
FDA | STUFREC+1~, FILE+1~, FILE+7 |
FDARR | STUFREC+1~, STUFREC+2*, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+9, STUFREC+10, STUFREC+11 , STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22 , STUFREC+23, STUFREC+24, STUFREC+31, STUFREC+33, FILE+1~, FILE+2*, FILE+3 |
FLAGS | STUFREC+1~, STUFREC+2*, STUFREC+34, FILE+1~, FILE+2*, FILE+4 |
FLD | TRNSFRM~, TRNSFRM+2*, TRNSFRM+3, TRNSFRM+4 |
HAPPY | MAKE+10~, MAKE+40 |
IENS | STUFREC+1~, STUFREC+2*, FILE+1~, FILE+2* |
LDT | MAKE+10~ |
NEWREC | MAKE+10~, MAKE+24 |
PARENT | STUFREC~, STUFREC+3, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21 , STUFREC+22, STUFREC+23 |
RTYPE | FILE~, FILE+7, TRNSFRM~, TRNSFRM+2, TRNSFRM+4 |
SUCCESS | MAKE~, MAKE+12*, MAKE+13*, MAKE+25*, MAKE+27*, MAKE+28*, MAKEADD+15, FILE~, FILE+6*, FILE+8* |
TITLE | MAKE~, MAKE+19*, MAKE+20, MAKE+21, MAKE+22, MAKE+42 |
TIU | MAKE~, MAKE+13, MAKE+24, MAKE+32, MAKE+41, MAKEX+5~, STUFREC~, MAKEADD+1~, MAKEADD+9, MAKEADD+11 , MAKEADD+16 |
TIU("AD#" | STUFREC+7 |
TIU("DOCTYP" | MAKEADD+10* |
TIU("EDT" | STUFREC+6, STUFREC+17, STUFREC+29 |
TIU("INST" | STUFREC+10 |
TIU("LDT" | STUFREC+7, STUFREC+17, STUFREC+25, STUFREC+26 |
TIU("LOC" | STUFREC+9 |
TIU("SVC" | STUFREC+11 |
TIU("TS" | STUFREC+8 |
TIU("VISIT" | STUFREC+4 |
TIU("VLOC" | STUFREC+9 |
TIU("VSTR" | STUFREC+29 |
>> TIUADD | MAKE+27 |
TIUARR | LOADTIUX~ |
TIUARR( | LOADTIUX+21*, LOADTIUX+22*, LOADTIUX+23*, LOADTIUX+24! |
TIUARR("TEXT" | LOADTIUX+30* |
TIUATYP | MAKEADD+1~, MAKEADD+4*, MAKEADD+5, MAKEADD+10, MAKEADD+15 |
TIUBGN | LOADTIUX+1~, LOADTIUX+2*, LOADTIUX+11, LOADTIUX+14, LOADTIUX+25 |
TIUBUF | MAKE~, MAKE+27, MAKE+33, MAKEX, MAKEX+2, LOADTIUX~, LOADTIUX+3, LOADTIUX+4, LOADTIUX+8, LOADTIUX+13 , LOADTIUX+14, LOADTIUX+28, LOADTIUX+30, MAKEADD~, MAKEADD+12, FILE+7 |
TIUCAN | MAKEADD+1~ |
TIUCAP | LOADTIUX+12~, LOADTIUX+15*, LOADTIUX+16 |
TIUCLASS | MAKE+10~, MAKE+17*, MAKE+18, MAKE+19 |
TIUD1 | LOADTIUX+6~, LOADTIUX+9* |
TIUD4 | LOADTIUX+6~, LOADTIUX+9* |
TIUDA | MAKE+10~, MAKE+24*, MAKE+25, MAKE+26, MAKE+27, MAKE+32, MAKE+37, MAKE+39, MAKE+40, MAKE+41 , MAKE+43, MAKEX+3, MAKEX+4, MAKEX+5, MAKEADD~, MAKEADD+3, MAKEADD+9, MAKEADD+11, FILE~, FILE+2 , FILE+8 |
TIUDADD | MAKEADD~, MAKEADD+7*, MAKEADD+8*, MAKEADD+11, MAKEADD+13, MAKEADD+14, MAKEADD+15, MAKEADD+16, MAKEADD+18, MAKEADD+20 |
TIUDFLT | MAKE+11~, MAKE+18*, MAKE+19 |
TIUDICDT | STUFREC+27*, STUFREC+28, STUFREC+29*, STUFREC+30, STUFREC+32! |
TIUDPRM | MAKE+10~, MAKE+22, MAKE+24 |
TIUDPRM(0 | STUFREC+5, STUFREC+15 |
TIUDTTL | MAKEADD+2~, MAKEADD+3*, MAKEADD+17 |
TIUDTYP | MAKE+10~, MAKE+16*, MAKE+17 |
TIUFLD | LOADTIUX+12~, LOADTIUX+18*, LOADTIUX+19, LOADTIUX+21, LOADTIUX+22, LOADTIUX+23, LOADTIUX+24 |
TIUFPRIV | MAKEADD+1~* |
TIUHSIG | LOADTIUX+1~, LOADTIUX+2*, LOADTIUX+5 |
TIUI | LOADTIUX+1~, LOADTIUX+3*, LOADTIUX+4, LOADTIUX+11, LOADTIUX+13*, LOADTIUX+14, LOADTIUX+27, LOADTIUX+28*, LOADTIUX+30 |
TIUJ | LOADTIUX+26~*, LOADTIUX+29*, LOADTIUX+30 |
TIULINE | LOADTIUX+1~, LOADTIUX+4*, LOADTIUX+5, LOADTIUX+7, LOADTIUX+11, LOADTIUX+14*, LOADTIUX+15, LOADTIUX+21, LOADTIUX+25 |
TIUMSG | STUFREC+1~, FILE+1~, FILE+5, FILE+7 |
TIUMSG("DIERR" | FILE+6 |
TIUN | LOADTIUX+12~, LOADTIUX+16*, LOADTIUX+17, LOADTIUX+18, LOADTIUX+20 |
TIUPOST | MAKE+10~, MAKE+42*, MAKE+44, MAKEADD+2~, MAKEADD+17*, MAKEADD+19 |
>> TIUPRM0 | LOADTIUX+1, LOADTIUX+2 |
TIURDT | STUFREC+1~, STUFREC+25*, STUFREC+30*, STUFREC+33 |
TIUREC | MAKE+11~, MAKEADD+2~ |
TIUREC("#" | MAKE+43*, MAKEADD+18* |
TIUREQ | LOADTIUX+12~*, LOADTIUX+20*, LOADTIUX+23 |
TIUTYP | MAKE+10~, MAKE+21*, MAKE+40 |
TIUTYP(1 | MAKE+21*, MAKE+24 |
>> TIUTYPE | MAKE+13, MAKE+15, MAKE+16, MAKE+17, MAKE+18, STUFREC+31 |
TIUX | MAKE+10~, MAKE+33, MAKE+40, MAKEADD+1~, MAKEADD+12, MAKEADD+15, FILE~, FILE+3 |
TIUX( | MAKE+37!, MAKE+38!, MAKEADD+13! |
TIUX("TEXT" | MAKE+39!, MAKEADD+14! |
TIUX(1205 | MAKE+38! |
TIUX(1211 | MAKE+38! |
TIUX(1405 | MAKEADD+13! |
TYPE | LOADTIUX+1~, LOADTIUX+10*, LOADTIUX+16, LOADTIUX+18, LOADTIUX+20, LOADTIUX+22 |
U | MAKE+16, MAKE+21, MAKE+32, LOADTIUX+2, LOADTIUX+18, LOADTIUX+20, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7 , STUFREC+8, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+17, STUFREC+18, STUFREC+19 , STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23, STUFREC+29, MAKEADD+10, FILE+6, FILE+7 |
VPARM | REQVER~, REQVER+1 |
X | LOADTIUX+1~, LOADTIUX+7*, LOADTIUX+8, MAKEADD+1~, MAKEADD+5*, TRNSFRM~, TRNSFRMX |
XFORM | TRNSFRM+1~, TRNSFRM+4*, TRNSFRM+5, TRNSFRM+6 |
>> XQADATA | MAKEX+1 |
Y | LOADTIUX+1~, LOADTIUX+7*, LOADTIUX+8, LOADTIUX+9, LOADTIUX+10, MAKEADD+1~, MAKEADD+7, MAKEADD+8 |