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

Package: Text Integration Utility

Routine: TIUPUTS


Information

TIUPUTS ; SLC/JER - Surgery Look-up, etc. ; 04/19/2004

Source Information

Source file <TIUPUTS.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Text Integration Utility 14 (AUDIT,MERGTEXT)^TIUEDI1  $$PATIENT^TIULA  ($$CHKSUM,$$IDATE,$$NOW)^TIULC  ($$PERSNAME,$$POSTFILE,$$WHOCOSIG,$$WHOSIGNS)^TIULC1  GETTIU^TIULD  ($$DATE,$$NAME)^TIULS  $$ISA^TIULX  (FILE,LOADTIUX,MAKEADD)^TIUPEFIX  
(ALERTDEL,RESOLVE)^TIUPEVNT  BUFPURGE^TIUPUTC  $$MAKEADD^TIUPUTU  $$CLASS^TIUSROI  RELEASE^TIUT  $$READ^TIUU  
VA Fileman 3 (,IX)^DIC  FILE^DIE  EN^DIQ  
Kernel 1 $$NOW^XLFDT  
Surgery 1 ONE^SROESTV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUHL7P3  

Entry Points

Name Comments DBIA/ICR reference
FIXX
COPYDAD(DA,PARENT) ; copy fixed field data for addenda
FINDCASE(DFN,TIUODT) ; Find Surgical Case for Pt & Dt, if unique
LOOKUPX
FIX ; Filing error resolution code for Operation Reports
CANEDIT(DA) ; Check whether or not document is released
DICS(TIUDA) ; Filter IX^DIC list
CALLDIC(TIUX) ; Call ^DIC to get the IEN for the TIU DOCUMENT
LOOKUP ; Look-up code used by router/filer
; Required: TIUSRCN, TIUSDA, TIUSSN, TIUODT
GETSDA(TIUSRCN) ; Get Op Report for Case
FOLLOWUP(TIUDA) ; Post-filing code for Operation Reports
DICW(TIUDA) ; Write identifiers

External References

Name Field # of Occurrence
^DIC CALLDIC+2
IX^DIC FIX+16
FILE^DIE COPYDAD+15, FOLLOWUP+7, FOLLOWUP+9
EN^DIQ FIX+21
ONE^SROESTV DICW+9
AUDIT^TIUEDI1 FOLLOWUP+11
MERGTEXT^TIUEDI1 FIX+41
$$PATIENT^TIULA LOOKUP+6, FIX+7
$$CHKSUM^TIULC FOLLOWUP+11
$$IDATE^TIULC LOOKUP+8, LOOKUP+24, COPYDAD+12
$$NOW^TIULC COPYDAD+10
$$PERSNAME^TIULC1 DICW+4
$$POSTFILE^TIULC1 FIX+42
$$WHOCOSIG^TIULC1 FOLLOWUP+6
$$WHOSIGNS^TIULC1 FOLLOWUP+5
GETTIU^TIULD FOLLOWUP+3, FIX+40
$$DATE^TIULS DICW+4
$$NAME^TIULS DICW+4
$$ISA^TIULX DICS+3, DICS+4
FILE^TIUPEFIX FIX+39
LOADTIUX^TIUPEFIX FIX+34
MAKEADD^TIUPEFIX FIX+31
ALERTDEL^TIUPEVNT FIXX
RESOLVE^TIUPEVNT FIXX+1
BUFPURGE^TIUPUTC FIXX+2
$$MAKEADD^TIUPUTU LOOKUP+28
$$CLASS^TIUSROI DICS+3, DICS+4
RELEASE^TIUT FOLLOWUP+10
$$READ^TIUU FIX+10, FIX+19, FIX+22
$$NOW^XLFDT COPYDAD+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time Out of O.R. has not yet been entered for Surgical Case #",TIUSRCN
  • Line Location: LOOKUP+14
Function Call: WRITE
  • Prompt: !,"the Surgical Service must complete this step before the Operation"
  • Line Location: LOOKUP+15
Function Call: WRITE
  • Prompt: !,"Report can be uploaded..."
  • Line Location: LOOKUP+16
Function Call: WRITE
  • Prompt: !,"Existing document may not be edited...Creating Addendum."
  • Line Location: LOOKUP+27
Function Call: WRITE
  • Prompt: !!,"Okay, no harm done...",!
  • Line Location: FIX+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+21
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+22
Function Call: WRITE
  • Prompt: !!,"Existing document may not be edited...Creating Addendum.",!
  • Line Location: FIX+30
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: FIXX+3
Function Call: WRITE
  • Prompt: ?35,"Dated: ",$$DATE^TIULS(+TIUD13,"MM/DD/CCYY@HR:MIN"),?62,"By: ",$E($$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),"LAST,FI MI"),1,13)
  • Line Location: DICW+4
Function Call: WRITE
  • Prompt: !?11,"Case #: ",TIUD14," ",$P(@TIUPRNM@(TIUD14),U,2)
  • Line Location: DICW+12
Routine Call
  • DIC
  • Line Location:
    • CALLDIC+2
Routine Call
  • DIE
  • Line Location:
    • COPYDAD+15
    • FOLLOWUP+7
    • FOLLOWUP+9
Routine Call
  • DIC
  • Line Location:
    • FIX+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] LOOKUP+10, LOOKUP+13, LOOKUP+18, FINDCASE+3, GETSDA+1, GETSDA+2
^SRF("B" FINDCASE+2
^TIU(8925 - [#8925] LOOKUP+18, CANEDIT+1, COPYDAD+2, FOLLOWUP+8, FIX+18, FIX+28, FIX+36!, FIX+38*, FIX+41!, DICW+3
, DICS+2

Label References

Name Line Occurrences
$$CALLDIC LOOKUP+25
$$CANEDIT LOOKUP+26, FIX+29
$$FINDCASE LOOKUP+8
$$GETSDA LOOKUP+10
COPYDAD LOOKUP+29
FIXX FIX+29
LOOKUPX LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+9, LOOKUP+11, LOOKUP+20, LOOKUP+22, LOOKUP+24

Naked Globals

Name Field # of Occurrence
^(12 COPYDAD+2, FOLLOWUP+8, DICW+3
^(13 DICW+3
^(14 COPYDAD+2, DICW+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A FIX+6~
>> BUFDA FIX+26
D FIX+6~, FIX+12*
D0 FIX+6~
DA CANEDIT~, CANEDIT+1, COPYDAD~, COPYDAD+3, CALLDIC+1~, FIX+6~, FIX+21*, FIX+23
DFN LOOKUP+2~, LOOKUP+6*, LOOKUP+7, LOOKUP+8, LOOKUP+20, LOOKUP+22, FINDCASE~, FINDCASE+2
DIC CALLDIC+1~, CALLDIC+2*, FIX+6~, FIX+12*
DIC("S" FIX+15*
DIC("W" FIX+14*
DIC(0 CALLDIC+2*, FIX+12*
>> DIROUT FIX+5, FIX+24
DK FIX+6~
DL FIX+6~
DTOUT FIX+2~, FIX+24
DUOUT FIX+2~, FIX+5, FIX+24
DX FIX+6~
>> ERRDA FIXX+1
FDA COPYDAD+1~, FOLLOWUP+1~
FDARR COPYDAD+1~, COPYDAD+3*, COPYDAD+4, COPYDAD+5, COPYDAD+6, COPYDAD+7, COPYDAD+8, COPYDAD+9, COPYDAD+10, COPYDAD+11
, COPYDAD+14, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+9
FLAGS COPYDAD+1~, COPYDAD+3*, COPYDAD+15, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+7, FOLLOWUP+9
IENS COPYDAD+1~, COPYDAD+3*, FOLLOWUP+1~, FOLLOWUP+2*
PARENT COPYDAD~, COPYDAD+2, COPYDAD+6
S FIX+6~
SRODT LOOKUP+2~
SUCCESS FIX+1~, FIX+32*, FIX+39
TIU FOLLOWUP+1~, FOLLOWUP+3, FIX+2~, FIX+40, FIX+41
TIU("EDT" FOLLOWUP+4
TIUADD FIX+2~, FIX+31, FIX+32
TIUBUF FIX+1~, FIX+26*, FIX+31, FIX+34, FIXX, FIXX+2
>> TIUCLASS DICW+6
TIUCN FINDCASE+1~*, FINDCASE+2*, FINDCASE+3, FINDCASE+6
TIUD0 LOOKUP+2~, LOOKUP+18*, LOOKUP+22, COPYDAD+1~, COPYDAD+2*, COPYDAD+4, COPYDAD+5, COPYDAD+6, FIX+1~, FIX+28*
, DICW+2~, DICW+3*, DICS+1~, DICS+2*, DICS+3, DICS+4
TIUD12 COPYDAD+1~, COPYDAD+2*, COPYDAD+11, DICW+2~, DICW+3*, DICW+4
TIUD13 DICW+2~, DICW+3*, DICW+4
TIUD14 COPYDAD+1~, COPYDAD+2*, COPYDAD+7, COPYDAD+8, DICW+2~, DICW+3*, DICW+7*, DICW+8, DICW+9, DICW+10
, DICW+12
TIUDA FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+8, FOLLOWUP+10, FOLLOWUP+11, FIX+1~, FIX+23*
, FIX+24, FIX+28, FIX+29, FIX+31, FIX+36, FIX+38, FIX+39, FIX+40, FIX+41, FIX+43
, DICW~, DICW+3, DICS~, DICS+2
TIUDAD LOOKUP+2~, LOOKUP+28*, LOOKUP+29
>> TIUDONE FIXX+4*
TIUFPRIV FIX+6~
>> TIUHDR( LOOKUP+17!
>> TIUHDR(1405 LOOKUP+17!
TIUHIT FINDCASE+1~*, FINDCASE+5, FINDCASE+6*, FINDCASE+7, FIX+1~, FIX+3*, FIX+21*
TIUMSG COPYDAD+1~, FOLLOWUP+1~
TIUODT LOOKUP+3, LOOKUP+8, LOOKUP+24, COPYDAD+12, FINDCASE~, FINDCASE+4
TIUOPDT COPYDAD+1~, COPYDAD+12*, COPYDAD+13
TIUOUT FIX+1~, FIX+5, FIX+11*, FIX+20*, FIX+22*, FIX+23
TIUPOP FINDCASE+1~*, FINDCASE+2, FINDCASE+5*, FINDCASE+7
>> TIUPOST FIX+42*, FIX+44
TIUPRM0 FIX+1~
TIUPRM1 FIX+1~
TIUPRNM DICW+2~, DICW+9, DICW+10, DICW+12
TIURDT COPYDAD+1~, COPYDAD+13*, COPYDAD+14
>> TIUREC("#" FIX+43*
TIUS0 DICW+10~*, DICW+11
TIUSDA LOOKUP+10*, LOOKUP+11, LOOKUP+18, LOOKUP+25, LOOKUPX!
TIUSR0 LOOKUP+2~, LOOKUP+18*, LOOKUP+20, LOOKUP+24, FINDCASE+3~*, FINDCASE+4
TIUSRCN LOOKUP+8*, LOOKUP+9, LOOKUP+10, LOOKUP+13, LOOKUP+14, LOOKUP+18, LOOKUPX!, COPYDAD+9, GETSDA~, GETSDA+1
, GETSDA+2
>> TIUSSN LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+6
TIUTYP FIX+2~, FIX+28*, FIX+39, FIX+42
TIUX CALLDIC~, CALLDIC+2, FIX+1~, FIX+34, FIX+39
TIUX( FIX+36!, FIX+37!
TIUX("TEXT" FIX+38!
TIUX(1205 FIX+37!
TIUX(1211 FIX+37!
TIUX(1405 FIX+37!
TIUY FINDCASE+1~*, FINDCASE+7*, FINDCASE+8, GETSDA+1~*, GETSDA+2*, GETSDA+3, DICS+1~*, DICS+3*, DICS+4*, DICS+5
U LOOKUP+22, LOOKUP+24, CANEDIT+1, COPYDAD+4, COPYDAD+5, COPYDAD+6, COPYDAD+7, COPYDAD+8, COPYDAD+11, FINDCASE+4
, GETSDA+1, GETSDA+2, FOLLOWUP+4, FOLLOWUP+8, DICW+4, DICW+7, DICW+12
VA DICW+2~
VADM DICW+2~
VAERR DICW+2~
X CALLDIC+1~, CALLDIC+2*, FIX+6~, FIX+7*, FIX+8, FIX+18, DICW+2~
>> XQADATA FIX+26, FIXX+1
Y LOOKUP+3*, LOOKUP+5*, LOOKUP+7*, LOOKUP+9*, LOOKUP+12*, LOOKUP+20*, LOOKUP+22*, LOOKUP+24*, LOOKUP+25*, LOOKUP+26
, LOOKUP+28*, LOOKUP+29, CALLDIC+1~, CALLDIC+3, FIX+6~, FIX+17, FIX+21, DICW+2~
>> ZTQUEUED LOOKUP+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All