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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUPUTCN

Package: Text Integration Utility

Routine: TIUPUTCN


Information

TIUPUTCN ; SLC/JER - Uploading Consult Results ;4/18/03

Source Information

Source file <TIUPUTCN.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Text Integration Utility 11 SENDADD^TIUALRT  $$CLASS^TIUCNSLT  AUDIT^TIUEDI1  $$GETRECNW^TIUEDI3  ($$CHKSUM,$$IDATE,$$NOW)^TIULC  ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1  MAIN^TIUMOVE  $$WHATITLE^TIUPUTU  
QUE^TIUPXAP1  RELEASE^TIUT  MAIN^TIUVSIT  
Consult Request Tracking 2 $$CPPAT^GMRCCP  GET^GMRCTIU  
VA FileMan 2 ^DIC  (,FILE)^DIE  
Kernel 1 $$FMADD^XLFDT  

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: 1

Package Total Caller Graph
Text Integration Utility 1 ^TIU(8925.1  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP ; Lookup Method for Consults document definition
; Required: TIUSSN, TIUVDT,TIUCNNBR
LOOKUPX
ILOC(LOCATION) ; Get pointer to file 44
CANEDIT(DA) ; Check if document is not released yet
MAKEADD() ; Create an addendum record
STUFREC(DA,PARENT) ; Stuff look-up header data, etc.
; Stuff look-up data, data derived from look-up data, and all other
DELTEXT(DA) ; Delete existing text in preparation for replacement
WHATYPE(X) ; Identify document type
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
WHATYPX
WHATITLE(X) ; Identify document title
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
WHATITX
FOLLOWUP(TIUDA) ; Post-filing code for CONSULTS

External References

Name Field # of Occurrence
^DIC ILOC+2, MAKEADD+5, WHATYPE+6, WHATITLE+7
^DIE MAKEADD+7, DELTEXT+2
FILE^DIE STUFREC+31, FOLLOWUP+6, FOLLOWUP+8
$$CPPAT^GMRCCP LOOKUP+21
GET^GMRCTIU FOLLOWUP+16
SENDADD^TIUALRT LOOKUP+36
$$CLASS^TIUCNSLT WHATITLE+4
AUDIT^TIUEDI1 FOLLOWUP+10
$$GETRECNW^TIUEDI3 LOOKUP+24
$$CHKSUM^TIULC FOLLOWUP+10
$$IDATE^TIULC LOOKUP+10, LOOKUP+18, STUFREC+28
$$NOW^TIULC STUFREC+13, STUFREC+25
$$DIVISION^TIULC1 LOOKUP+9
$$DOCCLASS^TIULC1 MAKEADD+7
$$PNAME^TIULC1 LOOKUP+23, FOLLOWUP+13
$$WHOCOSIG^TIULC1 FOLLOWUP+5
$$WHOSIGNS^TIULC1 FOLLOWUP+3
DOCPRM^TIULC1 LOOKUP+22
MAIN^TIUMOVE LOOKUP+15
$$WHATITLE^TIUPUTU MAKEADD+3
QUE^TIUPXAP1 FOLLOWUP+26
RELEASE^TIUT FOLLOWUP+9
MAIN^TIUVSIT LOOKUP+16, FOLLOWUP+24
$$FMADD^XLFDT LOOKUP+10, FOLLOWUP+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$PNAME^TIULC1(+$G(^TIU(8925,+TIUDA,0)))," #: ",TIUDA
  • Line Location: FOLLOWUP+13
Function Call: WRITE
  • Prompt: " now Linked to Consult Request #: ",TIUCDA,".",!
  • Line Location: FOLLOWUP+14
Routine Call
  • DIC
  • Line Location:
    • ILOC+2
    • MAKEADD+5
    • WHATYPE+6
    • WHATITLE+7
Routine Call
  • DIE
  • Line Location:
    • MAKEADD+7
    • DELTEXT+2
Routine Call
  • DIE
  • Line Location:
    • STUFREC+31
    • FOLLOWUP+6
    • FOLLOWUP+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] LOOKUP+8, LOOKUP+14
^TIU(8925 - [#8925] LOOKUP+30, CANEDIT+1, STUFREC+18, STUFREC+19, STUFREC+21, STUFREC+22, STUFREC+23, STUFREC+24, FOLLOWUP+4, FOLLOWUP+7
, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+19

Label References

Name Line Occurrences
$$CANEDIT LOOKUP+29
$$ILOC LOOKUP+7
$$MAKEADD LOOKUP+32
$$WHATITLE LOOKUP+12
DELTEXT LOOKUP+30
LOOKUPX LOOKUP+3, LOOKUP+5, LOOKUP+6, LOOKUP+8, LOOKUP+17, LOOKUP+18, LOOKUP+21, LOOKUP+25
STUFREC LOOKUP+35

Naked Globals

Name Field # of Occurrence
^(12 FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+6*, MAKEADD+7, MAKEADD+9, STUFREC~, STUFREC+7, DELTEXT~
, FOLLOWUP+12~
DFN LOOKUP+2~, LOOKUP+15, LOOKUP+16, LOOKUP+17, LOOKUP+21, LOOKUP+24, STUFREC+9, FOLLOWUP+1~, FOLLOWUP+20*, FOLLOWUP+23
, FOLLOWUP+24
DIC ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+4*, MAKEADD+7, WHATYPE+3~, WHATYPE+4*, WHATITLE+3~, WHATITLE+4*
DIC("S" WHATYPE+5*, WHATYPE+6!, WHATITLE+6*, WHATITLE+7!
DIC(0 ILOC+2*, MAKEADD+4*, WHATYPE+4*, WHATITLE+4*
DIE MAKEADD+1~, MAKEADD+7*, DELTEXT+1~, DELTEXT+2*
DLAYGO MAKEADD+1~, MAKEADD+4*
DR MAKEADD+1~, MAKEADD+7*, DELTEXT+1~, DELTEXT+2*
FDA STUFREC+6~, FOLLOWUP+1~
FDARR STUFREC+6~, STUFREC+7*, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+18
, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23, STUFREC+24, STUFREC+25, STUFREC+26, STUFREC+27, STUFREC+28
, STUFREC+29, STUFREC+30, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+8
FLAGS STUFREC+6~, STUFREC+7*, STUFREC+31, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+6, FOLLOWUP+8
IENS STUFREC+6~, STUFREC+7*, FOLLOWUP+1~, FOLLOWUP+2*
LOCATION ILOC~, ILOC+2
PARENT STUFREC~, STUFREC+8, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23, STUFREC+24
SCREEN WHATITLE+3~, WHATITLE+5*, WHATITLE+6
TIU LOOKUP+2~, LOOKUP+15, LOOKUP+16, LOOKUP+17, LOOKUP+24, FOLLOWUP+1~, FOLLOWUP+24
TIU("EDT" LOOKUP+18, STUFREC+11
TIU("INST" STUFREC+27
TIU("LDT" STUFREC+12
TIU("LOC" STUFREC+14, STUFREC+26
TIU("SVC" STUFREC+16
TIU("VISIT" STUFREC+9
TIU("VLOC" STUFREC+14
TIU("VSTR" FOLLOWUP+17, FOLLOWUP+25
TIUATYP MAKEADD+1~, MAKEADD+3*, MAKEADD+4, MAKEADD+7
TIUCDA FOLLOWUP+12~*, FOLLOWUP+14, FOLLOWUP+16
TIUCLASS WHATITLE+3~, WHATITLE+4*, WHATITLE+5
>> TIUCNNBR LOOKUP+6, LOOKUP+21
TIUD0 FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+20
TIUD12 FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+21, FOLLOWUP+22
TIUDA FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+10, FOLLOWUP+11, FOLLOWUP+12
, FOLLOWUP+13, FOLLOWUP+16, FOLLOWUP+19
TIUDAD LOOKUP+2~, LOOKUP+32*, LOOKUP+35, LOOKUP+36
>> TIUDDT STUFREC+28
TIUDPRM LOOKUP+2~, LOOKUP+22, LOOKUP+24
TIUEDIT LOOKUP+2~, LOOKUP+29*, LOOKUP+30, LOOKUP+32
TIUEDT LOOKUP+2~, LOOKUP+10*, LOOKUP+11, LOOKUP+15, LOOKUP+16, FOLLOWUP+18~, FOLLOWUP+20*, FOLLOWUP+21, FOLLOWUP+23, FOLLOWUP+24
TIUFPRIV MAKEADD+1~*, WHATYPE+3~*, WHATITLE+3~*
>> TIUHDR( LOOKUP+39!, MAKEADD+8!
>> TIUHDR(1301 LOOKUP+39!
TIUHLOC FOLLOWUP+18~, FOLLOWUP+21*, FOLLOWUP+22
>> TIUINST LOOKUP+9*
TIULDT LOOKUP+2~, LOOKUP+10*, LOOKUP+15, LOOKUP+16, FOLLOWUP+18~, FOLLOWUP+21*, FOLLOWUP+23, FOLLOWUP+24
>> TIULOC LOOKUP+7*, LOOKUP+8, LOOKUP+9, LOOKUP+14, LOOKUP+15, LOOKUP+16
TIUMSG STUFREC+6~, FOLLOWUP+1~
TIUNEW LOOKUP+2~, LOOKUP+24, LOOKUP+28
>> TIUSSN LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+15, LOOKUP+16
>> TIUTITLE LOOKUP+12
>> TIUTYP(1 LOOKUP+23*, LOOKUP+24
TIUTYPE LOOKUP+2~, LOOKUP+12*, LOOKUP+13, LOOKUP+22, LOOKUP+23
>> TIUVDT LOOKUP+3, LOOKUP+10, LOOKUP+18
TIUVLOC FOLLOWUP+18~, FOLLOWUP+22*, FOLLOWUP+23, FOLLOWUP+24
TIUXCRP LOOKUP+2~
U LOOKUP+14, LOOKUP+23, CANEDIT+1, STUFREC+9, STUFREC+11, STUFREC+12, STUFREC+14, STUFREC+16, STUFREC+18, STUFREC+19
, STUFREC+21, STUFREC+22, STUFREC+23, STUFREC+24, STUFREC+26, STUFREC+27, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+11, FOLLOWUP+12
, FOLLOWUP+20, FOLLOWUP+21, FOLLOWUP+22
X ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+4*, DELTEXT+1~, WHATYPE~, WHATITLE~
Y LOOKUP+3*, LOOKUP+5*, LOOKUP+6*, LOOKUP+8*, LOOKUP+11*, LOOKUP+13*, LOOKUP+17*, LOOKUP+18*, LOOKUP+21*, LOOKUP+24*
, LOOKUP+25, LOOKUP+29, LOOKUP+30, LOOKUP+32*, LOOKUP+33, LOOKUP+35, LOOKUP+36, ILOC+1~, ILOC+3, MAKEADD+1~
, MAKEADD+6, DELTEXT+1~, WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All