Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.2 - [#8925.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call