Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUPUTC

Package: Text Integration Utility

Routine: TIUPUTC


Information

TIUPUTC ; SLC/JER - Document filer - captioned header ;07/12/16 13:04

Source Information

Source file <TIUPUTC.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Text Integration Utility 12 $$CHKFILE^TIUADCL  MERGTEXT^TIUEDI1  LOADDFLT^TIUEDI4  ($$ISADDNDM,$$POSTFILE)^TIULC1  GETTIU^TIULD  SETPARM^TIULE  $$REQCOSIG^TIULP  $$TRNSFRM^TIULX  
MAIN^TIUPEVNT  $$DADTYPE^TIUPUTC  GETREC^TIUPUTC1  $$STRIP^TIUUPLD  
VA FileMan 2 FILE^DIE  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Text Integration Utility 9 TIUCPFIX  TIUFIX1  TIUPEFIX  TIUPEVN1  TIUPUTA  TIUPUTC  TIUPUTS  TIUTSK  
TIUUPLD  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; ---- Controls branching.
; Attempts to file upload documents in the target file.
; Requires DA = IEN of 8925.2 upload buffer entry.
LOCATE(LINE,REC) ; ---- Locate line in boilerplate text
STUFREC(HEADER,TIURECD) ; ---- Stuffs record with known fixed fields;
; Checks for missing fields.
CKEXPCOS(NEWMISS) ; check if Exp Cos is a missing field. Requires some vars from STUFREC
BOILRPLT(TIUREC) ; ---- Execute/Interleave Boilerplates w/uploaded text
SETROOT(LINECNT,RECORD) ; ---- Sets root of WP field
BUFPURGE(DA) ; ---- Call ^DIK to purge buffer record when all's well
PREPROC(DA) ; ---- Strip controls & white space from headers
DADTYPE(DA) ; ---- Get type of original document for addenda
FINISH ; ---- Finish document: feedback, postfile code, merge boil,
; log file event

External References

Name Field # of Occurrence
FILE^DIE STUFREC+12, CKEXPCOS+11
^DIK BUFPURGE+1
$$CHKFILE^TIUADCL STUFREC+10
MERGTEXT^TIUEDI1 FINISH+14
LOADDFLT^TIUEDI4 BOILRPLT+3
$$ISADDNDM^TIULC1 STUFREC+10, CKEXPCOS+3, FINISH+4, FINISH+9
$$POSTFILE^TIULC1 FINISH+10
GETTIU^TIULD BOILRPLT+2, FINISH+13
SETPARM^TIULE MAIN+6
$$REQCOSIG^TIULP CKEXPCOS+7
$$TRNSFRM^TIULX STUFREC+11, CKEXPCOS+10
MAIN^TIUPEVNT MAIN+8, MAIN+9, STUFREC+18, CKEXPCOS+13, FINISH+16
$$DADTYPE^TIUPUTC CKEXPCOS+3
GETREC^TIUPUTC1 MAIN+24
$$STRIP^TIUUPLD PREPROC+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTALS FOR CURRENT BATCH:",!
  • Line Location: MAIN+54
Function Call: WRITE
  • Prompt: !?14,"TOTAL Document(s) RECEIVED: ",$J((+$G(^TMP("TIUPUTC",$J,"SUCC"))+$G(^("MISS"))+$G(^("FAIL"))),5),!
  • Line Location: MAIN+55
Function Call: WRITE
  • Prompt: !?18," Document(s) NOT FILED: ",$J(+$G(^TMP("TIUPUTC",$J,"FAIL")),5)
  • Line Location: MAIN+56
Function Call: WRITE
  • Prompt: !?3,"Document(s) FILED with MISSING FIELDS: ",$J(+$G(^TMP("TIUPUTC",$J,"MISS")),5),!
  • Line Location: MAIN+57
Function Call: WRITE
  • Prompt: !,">>> ",$S(ISADDNDM:"Addendum",1:"Document")," Filed Successfully.",!
  • Line Location: FINISH+6
Routine Call
  • DIE
  • Line Location:
    • STUFREC+12
    • CKEXPCOS+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.2 - [#8925.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] MAIN+39*, LOCATE+2, LOCATE+3, CKEXPCOS+2, CKEXPCOS+4, CKEXPCOS+5, DADTYPE+2, DADTYPE+3, FINISH+15!
^TIU(8925.1 - [#8925.1] MAIN+36, STUFREC+18, CKEXPCOS+13, FINISH+16
^TIU(8925.2 - [#8925.2] MAIN+13, MAIN+14, MAIN+33!, MAIN+41!, MAIN+45!, MAIN+47!, MAIN+48!, MAIN+51, PREPROC+2, PREPROC+3
, PREPROC+5*
^TMP("TIUPRFUP" FINISH+11!
^TMP("TIUPUTC" MAIN+5!, MAIN+53, MAIN+55, MAIN+56, MAIN+57, MAIN+58!, STUFREC+19*, STUFREC+22*, CKEXPCOS+15*

Label References

Name Line Occurrences
$$DADTYPE FINISH+5, FINISH+9
$$LOCATE MAIN+37
BOILRPLT MAIN+34
BUFPURGE MAIN+51
CKEXPCOS STUFREC+20
FINISH MAIN+23, MAIN+50
PREPROC MAIN+11
SETROOT FINISH+3
STUFREC MAIN+26

Naked Globals

Name Field # of Occurrence
^("FAIL" MAIN+55
^("MISS" MAIN+55

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BTXT LOCATE+1~, LOCATE+3*, LOCATE+4
DA MAIN+8, MAIN+9, MAIN+11, MAIN+13, MAIN+14, MAIN+33, MAIN+41, MAIN+45, MAIN+47, MAIN+48
, MAIN+51, STUFREC+18, CKEXPCOS+13, BUFPURGE~, PREPROC~, PREPROC+2, PREPROC+3, PREPROC+5, DADTYPE~, DADTYPE+2
, FINISH+16
DIK BUFPURGE+1~*
DT SETROOT+1
FDARR STUFREC+2~, STUFREC+4*, STUFREC+10, STUFREC+11, CKEXPCOS+10
FLAGS STUFREC+2~, STUFREC+4*, STUFREC+12, CKEXPCOS+11
HEADER STUFREC~, CKEXPCOS+1~
HEADER( STUFREC+7, STUFREC+11, CKEXPCOS+8*, CKEXPCOS+10
HIT LOCATE+1~*, LOCATE+2, LOCATE+4*
IENS STUFREC+2~, STUFREC+3*, STUFREC+4
ISADDNDM FINISH+2~*, FINISH+4*, FINISH+5, FINISH+6
LINE LOCATE~, LOCATE+4
LINECNT SETROOT~, SETROOT+1
NEWMISS STUFREC+2~, STUFREC+13*, STUFREC+19*, STUFREC+20, CKEXPCOS~, CKEXPCOS+15
REC LOCATE~, LOCATE+2, LOCATE+3
RECORD SETROOT~
RECORD("TROOT" SETROOT+1
TIU BOILRPLT+1~, BOILRPLT+2, FINISH+13~, FINISH+14
TIU12 CKEXPCOS+1~, CKEXPCOS+5*, CKEXPCOS+6
TIU13 CKEXPCOS+1~, CKEXPCOS+5*, CKEXPCOS+6
TIUAUTH CKEXPCOS+1~, CKEXPCOS+6*, CKEXPCOS+7
TIUBGN MAIN+3~, MAIN+7*, MAIN+9, MAIN+35, MAIN+42, MAIN+47, MAIN+48, PREPROC+4
TIUD0 CKEXPCOS+1~, CKEXPCOS+4*
TIUDA MAIN+3~
TIUDAD CKEXPCOS+1~, CKEXPCOS+4*, DADTYPE+1~, DADTYPE+2*, DADTYPE+3
TIUDONE MAIN+4~, FINISH+8*
TIUDTDIC CKEXPCOS+1~, CKEXPCOS+6*, CKEXPCOS+7
TIUEC CKEXPCOS+1~, CKEXPCOS+6*
TIUECMSG STUFREC+2~, STUFREC+21, CKEXPCOS+12, CKEXPCOS+13
TIUFDA STUFREC+2~, STUFREC+12, STUFREC+18, CKEXPCOS+1~, CKEXPCOS+13
TIUFDT MAIN+3~, MAIN+12*, MAIN+16, MAIN+17*, MAIN+24, MAIN+35
TIUFRST MAIN+20~*, MAIN+30
TIUHDR MAIN+20~, MAIN+24, MAIN+26
TIUHLIN PREPROC+1~*, PREPROC+4*, PREPROC+5
TIUHSIG MAIN+3~, MAIN+7*, MAIN+8, MAIN+16, MAIN+18, MAIN+35, MAIN+42, MAIN+47, PREPROC+4
TIUI MAIN+3~, MAIN+12*, MAIN+13*, MAIN+14, MAIN+20, MAIN+30, MAIN+41, MAIN+45, MAIN+47, MAIN+48
, STUFREC+2~, STUFREC+6*, STUFREC+7*, STUFREC+10, STUFREC+11, CKEXPCOS+1~, CKEXPCOS+8*, CKEXPCOS+10, PREPROC+1~*, PREPROC+2*
, PREPROC+3, PREPROC+5
TIUINST MAIN+5~
TIUJ MAIN+20~, MAIN+30*, MAIN+33, LOCATE+1~*, LOCATE+2*, LOCATE+3, LOCATE+5
TIULCNT MAIN+3~, MAIN+23, MAIN+29*, MAIN+37*, MAIN+38*, MAIN+39, MAIN+43*, MAIN+50, FINISH+3
TIULIM MAIN+3~
TIULINE MAIN+3~, MAIN+14*, MAIN+16, MAIN+18, MAIN+24, MAIN+35, MAIN+36, MAIN+37, MAIN+39, MAIN+42
, MAIN+43, MAIN+47, MAIN+48
TIUMSG STUFREC+2~, STUFREC+14, STUFREC+18, STUFREC+21
TIUPC STUFREC+2~
TIUPOST MAIN+3~, FINISH+10*, FINISH+11
>> TIUPRM0 MAIN+6, MAIN+7, MAIN+11
>> TIUPRM1 MAIN+6
TIUREC MAIN+3~, MAIN+24!, MAIN+26, MAIN+34, BOILRPLT~, FINISH+3
TIUREC("#" MAIN+25, MAIN+27, MAIN+34, MAIN+37, MAIN+39, MAIN+47, BOILRPLT+2, BOILRPLT+3, FINISH+4, FINISH+5
, FINISH+9, FINISH+13, FINISH+14, FINISH+15
TIUREC("BOILON" MAIN+34, MAIN+35, MAIN+42, FINISH+12
TIUREC("FILE" MAIN+34, MAIN+35, FINISH+12
TIUREC("ROOT" MAIN+25, MAIN+27
TIUREC("TEXT" MAIN+27
TIUREC("TROOT" MAIN+23, MAIN+27*, MAIN+28, MAIN+29, MAIN+42, MAIN+43, MAIN+47, MAIN+50
TIUREC("TYPE" BOILRPLT+3, FINISH+5, FINISH+9, FINISH+16
TIURECD STUFREC~, STUFREC+11, CKEXPCOS+10
TIURECD("#" STUFREC+3, STUFREC+10, CKEXPCOS+2, CKEXPCOS+3, CKEXPCOS+4, CKEXPCOS+5
TIURECD("FILE" STUFREC+4
TIURECD("TYPE" STUFREC+10, STUFREC+18, CKEXPCOS+13
TIUTITL CKEXPCOS+1~, CKEXPCOS+2*, CKEXPCOS+3*, CKEXPCOS+4*, CKEXPCOS+7
TIUTYPE MAIN+5~, FINISH+5*, FINISH+9*, FINISH+10
U MAIN+7, MAIN+11, MAIN+29, STUFREC+18, CKEXPCOS+4, CKEXPCOS+6, CKEXPCOS+13, DADTYPE+2, FINISH+16
X PREPROC+1~, PREPROC+3*, PREPROC+4, PREPROC+5
Y DADTYPE+1~, DADTYPE+3*, DADTYPE+4
>> ZTQUEUED MAIN+53, FINISH+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All