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 ;5/20/05

Source Information

Source file <TIUPUTC.m>

Call Graph

Call Graph Total: 12

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

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Text Integration Utility 10 TIUCPFIX  TIUFIX1  TIUPEFIX  TIUPEVN1  TIUPEVNT  TIUPUTA  TIUPUTS  TIURE  
TIUTSK  TIUUPLD  
IHS Electronic Health Record 1 BEHODC  
IHS Mods To Text Integration Utilities 1 BTIUUPL  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTALS FOR CURRENT BATCH:",!
  • Line Location: MAIN+49
Function Call: WRITE
  • Prompt: !?14,"TOTAL Document(s) RECEIVED: ",$J((+$G(^TMP("TIUPUTC",$J,"SUCC"))+$G(^("MISS"))+$G(^("FAIL"))),5),!
  • Line Location: MAIN+50
Function Call: WRITE
  • Prompt: !?18," Document(s) NOT FILED: ",$J(+$G(^TMP("TIUPUTC",$J,"FAIL")),5)
  • Line Location: MAIN+51
Function Call: WRITE
  • Prompt: !?3,"Document(s) FILED with MISSING FIELDS: ",$J(+$G(^TMP("TIUPUTC",$J,"MISS")),5),!
  • Line Location: MAIN+52
Function Call: WRITE
  • Prompt: !,">>> ",$S(ISADDNDM:"Addendum",1:"Document")," Filed Successfully.",!
  • Line Location: FINISH+6
Routine Call
  • DIE
  • Line Location:
    • STUFREC+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+34*, LOCATE+2, LOCATE+3, DADTYPE+2, DADTYPE+3, FINISH+15!
^TIU(8925.1 - [#8925.1] MAIN+31, STUFREC+16, FINISH+16
^TIU(8925.2 - [#8925.2] MAIN+11, MAIN+12, MAIN+28!, MAIN+36!, MAIN+40!, MAIN+42!, MAIN+43!, MAIN+46, PREPROC+2, PREPROC+3
, PREPROC+5*
^TMP("TIUPRFUP" FINISH+11!
^TMP("TIUPUTC" MAIN+4!, MAIN+48, MAIN+50, MAIN+51, MAIN+52, MAIN+53!, STUFREC+17*, STUFREC+19*

Label References

Name Line Occurrences
$$DADTYPE FINISH+5, FINISH+9
$$LOCATE MAIN+32
BOILRPLT MAIN+29
BUFPURGE MAIN+46
FINISH MAIN+18, MAIN+45
PREPROC MAIN+10
SETROOT FINISH+3
STUFREC MAIN+21

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BTXT LOCATE+1~, LOCATE+3*, LOCATE+4
DA MAIN+7, MAIN+8, MAIN+10, MAIN+11, MAIN+12, MAIN+28, MAIN+36, MAIN+40, MAIN+42, MAIN+43
, MAIN+46, STUFREC+16, BUFPURGE~, PREPROC~, PREPROC+2, PREPROC+3, PREPROC+5, DADTYPE~, DADTYPE+2, FINISH+16
DIK BUFPURGE+1~*
DT SETROOT+1
FDA STUFREC+2~, STUFREC+11, STUFREC+16
FDARR STUFREC+2~, STUFREC+4*, STUFREC+9, STUFREC+10
FLAGS STUFREC+2~, STUFREC+4*, STUFREC+11
HEADER STUFREC~
HEADER( STUFREC+7, STUFREC+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
REC LOCATE~, LOCATE+2, LOCATE+3
RECORD STUFREC~, STUFREC+10, SETROOT~
RECORD("#" STUFREC+3
RECORD("FILE" STUFREC+4
RECORD("TROOT" SETROOT+1
RECORD("TYPE" STUFREC+16
TIU BOILRPLT+1~, BOILRPLT+2, FINISH+13~, FINISH+14
TIUBGN MAIN+3~, MAIN+6*, MAIN+8, MAIN+30, MAIN+37, MAIN+42, MAIN+43, PREPROC+4
TIUDA MAIN+3~
TIUDAD DADTYPE+1~, DADTYPE+2*, DADTYPE+3
>> TIUDONE FINISH+8*
TIUFRST MAIN+15~*, MAIN+25
TIUHDR MAIN+15~, MAIN+19, MAIN+21
TIUHLIN PREPROC+1~*, PREPROC+4*, PREPROC+5
TIUHSIG MAIN+3~, MAIN+6*, MAIN+7, MAIN+13, MAIN+30, MAIN+37, MAIN+42, PREPROC+4
TIUI MAIN+3~, MAIN+11*, MAIN+12, MAIN+15, MAIN+25, MAIN+36, MAIN+40, MAIN+42, MAIN+43, STUFREC+2~
, STUFREC+6*, STUFREC+7*, STUFREC+9, STUFREC+10, PREPROC+1~*, PREPROC+2*, PREPROC+3, PREPROC+5
TIUINST MAIN+4~
TIUJ MAIN+15~, MAIN+25*, MAIN+28, LOCATE+1~*, LOCATE+2*, LOCATE+3, LOCATE+5
TIULCNT MAIN+3~, MAIN+18, MAIN+24*, MAIN+32*, MAIN+33*, MAIN+34, MAIN+38*, MAIN+45, FINISH+3
TIULIM MAIN+3~
TIULINE MAIN+3~, MAIN+12*, MAIN+13, MAIN+19, MAIN+30, MAIN+31, MAIN+32, MAIN+34, MAIN+37, MAIN+38
, MAIN+42, MAIN+43
TIUMSG STUFREC+2~, STUFREC+12, STUFREC+16, STUFREC+18
TIUPC STUFREC+2~
TIUPOST MAIN+3~, FINISH+10*, FINISH+11
>> TIUPRM0 MAIN+5, MAIN+6, MAIN+10
>> TIUPRM1 MAIN+5
TIUREC MAIN+3~, MAIN+19!, MAIN+21, MAIN+29, BOILRPLT~, FINISH+3
TIUREC("#" MAIN+20, MAIN+22, MAIN+29, MAIN+32, MAIN+34, MAIN+42, BOILRPLT+2, BOILRPLT+3, FINISH+4, FINISH+5
, FINISH+9, FINISH+13, FINISH+14, FINISH+15
TIUREC("BOILON" MAIN+29, MAIN+30, MAIN+37, FINISH+12
TIUREC("FILE" MAIN+29, MAIN+30, FINISH+12
TIUREC("ROOT" MAIN+20, MAIN+22
TIUREC("TEXT" MAIN+22
TIUREC("TROOT" MAIN+18, MAIN+22*, MAIN+23, MAIN+24, MAIN+37, MAIN+38, MAIN+42, MAIN+45
TIUREC("TYPE" STUFREC+9, BOILRPLT+3, FINISH+5, FINISH+9, FINISH+16
TIUTYPE MAIN+4~, FINISH+5*, FINISH+9*, FINISH+10
U MAIN+6, MAIN+10, MAIN+24, STUFREC+16, DADTYPE+2, FINISH+16
X PREPROC+1~, PREPROC+3*, PREPROC+4, PREPROC+5
Y DADTYPE+1~, DADTYPE+3*, DADTYPE+4
>> ZTQUEUED MAIN+48, 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