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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUSROI

Package: Text Integration Utility

Routine: TIUSROI


Information

TIUSROI ; SLC/JER - TIU/Surgery Interface Routine ; 04/19/2004

Source Information

Source file <TIUSROI.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Text Integration Utility 15 (ALERTDEL,SEND)^TIUALRT  MERGTEXT^TIUEDI1  ($$DELETE,$$ISADDNDM,$$PNAME,$$PTNAME)^TIULC1  GETTIU^TIULD  ($$DATE,$$SIGNAME,$$SIGTITL)^TIULS  $$ISA^TIULX  BROWS1^TIURA2  AUDREASS^TIURB1  
COPYTEXT^TIURC1  $$RETRACT^TIURD2  ES^TIURS  ($$GETCASE,ISSURG)^TIUSROI  ($$FROMTO,$$TARGET,$$TYPE,CHANGE)^TIUSROI1  FILE^TIUSRVP  $$READ^TIUU  
Surgery 2 LIST^SROESTV  (NON,OS)^SROTIUD  
VA FileMan 2 IX^DIC  $$GET1^DIQ  

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

Package Total Caller Graph
Text Integration Utility 14 TIU IS THIS A SURGERY?  TIUEDIM  TIUEDIT  TIUEDITR  TIULP3  TIUPUTS  TIURB2  TIURD  
TIURD3  TIUSROI  TIUSROI1  TIUSRVD  TIUSRVR  ^TIU(8925.1  
Surgery 3 SROARPT  SROESAD  SRONIN  
Enterprise Health Management Platform 2 HMPDJ08  HMPDTIU  
Virtual Patient Record 2 VPRDJ08  VPRDTIU  

Entry Points

Name Comments DBIA/ICR reference
GETOP(TIUY,TIUDA,SROTYP) ; Get Op-Top
GETCASE(DFN,DA) ; Match Operation Report to an open Surgical Case
; Call with: [DFN] - patient file entry number
; Returns: TIUY - Variable pointer to Surgical Case
AGN ; Loop for handling repeated attempts
GETX
BREAK ; Handle prompting
DADSC(DA) ; Get the Surgical Case associated with the parent record
WRITE ; Writes each case
INDEX(TIULIST) ; Build index of list
ISSURG(TIUY,TITLE) ; Boolean RPC to evaluate whether TITLE is a SURGERY REPORT
RBOR(TIUDA) ; Roll back OPERATION REPORT when TIU changes require it
RBPR(TIUDA) ; Roll back NON-O.R. PROC REPORT when TIU changes require it
CLASS(CLNAME) ; What is the TIU Class (or Document Class) for SURGERY REPORTS
ES(TIUDA,TIUDUZ) ; Apply user's e-Sig to Document
ENTEROP(DFN,TIUTYP) ; Re-direct entry of Op and Proc Reports
REASSOP(DFN,TIUODA) ; Re-direct REASSIGNMENT of Op and Proc Reports
REASSOPX
AUTHSTAT(TIUDA,TIUODA,TIUD12) ; Copy Author, update status
SELOP(DFN,TIUTYP,TIUSCRN) ; Select an Op or Proc Report
SELOPX

External References

Name Field # of Occurrence
IX^DIC ENTEROP+18, SELOP+14
$$GET1^DIQ REASSOP+6, REASSOP+7
LIST^SROESTV AGN+7
NON^SROTIUD RBPR+3
OS^SROTIUD RBOR+2
ALERTDEL^TIUALRT REASSOP+69
SEND^TIUALRT REASSOP+67
MERGTEXT^TIUEDI1 REASSOP+53
$$DELETE^TIULC1 REASSOP+59
$$ISADDNDM^TIULC1 AGN+5, REASSOP+6
$$PNAME^TIULC1 ENTEROP+2, REASSOP+5, SELOP+3
$$PTNAME^TIULC1 AGN+10
GETTIU^TIULD REASSOP+52
$$DATE^TIULS WRITE+1
$$SIGNAME^TIULS ES+3
$$SIGTITL^TIULS ES+3
$$ISA^TIULX ISSURG+5
BROWS1^TIURA2 ENTEROP+23
AUDREASS^TIURB1 REASSOP+72, REASSOP+74
COPYTEXT^TIURC1 REASSOP+49
$$RETRACT^TIURD2 REASSOP+45
ES^TIURS ES+4
$$GETCASE^TIUSROI REASSOP+16
ISSURG^TIUSROI AGN+6
$$FROMTO^TIUSROI1 REASSOP+38
$$TARGET^TIUSROI1 REASSOP+25
$$TYPE^TIUSROI1 REASSOP+27
CHANGE^TIUSROI1 REASSOP+3
FILE^TIUSRVP REASSOP+65, AUTHSTAT+5
$$READ^TIUU GETOP+10, ENTEROP+6, ENTEROP+14, ENTEROP+21, REASSOP+8, REASSOP+14, REASSOP+19, REASSOP+23, REASSOP+29, REASSOP+32
, REASSOP+36, REASSOP+40, SELOP+8, SELOP+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETOP+10
Function Call: WRITE
  • Prompt: !,"This action is no longer permitted for SURGICAL REPORTS"
  • Line Location: AGN+6
Function Call: WRITE
  • Prompt: !!,$C(7),"No SURGICAL CASES to Result for ",$$PTNAME^TIULC1(DFN),".",!
  • Line Location: AGN+10
Function Call: WRITE
  • Prompt: !,"You must link your Result to a SURGICAL CASE...",!
  • Line Location: AGN+13
Function Call: WRITE
  • Prompt: !,"The following SURGICAL CASE",$S(+TIUCNT>1:"(S) are",1:" is")," available:"
  • Line Location: AGN+16
Function Call: WRITE
  • Prompt: " ",+TIUX
  • Line Location: AGN+26
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",TIUII
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT"
  • Condition for execution: $D(@TIULIST@(TIUII+1))
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+5
Function Call: WRITE
  • Prompt: !,$J(TIUI,4),"> ",$$DATE^TIULS($P(TIUX,U,3),"AMTH DD, CCYY")
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: " Case #",$P(TIUX,U),?34,$E($P(TIUX,U,2),1,25),?60,$E($P($P(TIUX,U,4),";",2),1,20)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !!,TIUTNM,"s may only be entered through the Surgery Options.",!
  • Line Location: ENTEROP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTEROP+7
Function Call: WRITE
  • Prompt: !!,"No Patient Specified...",!
  • Line Location: ENTEROP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTEROP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTEROP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTEROP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTEROP+24
Function Call: WRITE
  • Prompt: !!,"ADDENDUMs to ",$$GET1^DIQ(8925,TIUODA,.06),"s may not be reassigned.",!
  • Line Location: REASSOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSOP+9
Function Call: WRITE
  • Prompt: !!,TIUTNM,"s may only be created through the Surgery Options..."
  • Line Location: REASSOP+12
Function Call: WRITE
  • Prompt: !,"Reassignment is not allowed.",!
  • Line Location: REASSOP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSOP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSOP+16
Function Call: WRITE
  • Prompt: !!,$C(7),"Okay, no harm done...",!
  • Line Location: REASSOP+18
Function Call: WRITE
  • Prompt: !!,$C(7),"You've selected the original case. No changes made.",!
  • Line Location: REASSOP+22
Function Call: WRITE
  • Prompt: !!,$C(7),"Incompatible document type. No changes made.",!
  • Line Location: REASSOP+28
Function Call: WRITE
  • Prompt: !!,"No Destination Document Selected: Aborting Transaction,",!," No Harm Done...",!
  • Line Location: REASSOP+31
Function Call: WRITE
  • Prompt: !!,$C(7),"You've selected the original case. No changes made.",!
  • Line Location: REASSOP+35
Function Call: WRITE
  • Prompt: !!,"Aborting Transaction, No Harm Done...",!
  • Line Location: REASSOP+39
Function Call: WRITE
  • Prompt: !!,TIUMSG,!,"A RETRACTED copy will be retained.",!
  • Line Location: REASSOP+44
Function Call: WRITE
  • Prompt: !!,"No Patient Specified...",!
  • Line Location: SELOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SELOP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SELOP+11
Function Call: WRITE
  • Prompt: !!,"No "_TIUTNM
  • Line Location: SELOP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: SELOP+19
Routine Call
  • DIC
  • Line Location:
    • ENTEROP+18
    • SELOP+14

Used in RPC

RPC Name Call Tags
TIU IS THIS A SURGERY? ISSURG

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( AGN+25*, BREAK+4
^TIU(8925 - [#8925] GETOP+2, AGN+4, AGN+6, DADSC+1, DADSC+2, RBOR+1, RBPR+1, ES+2, ENTEROP+20, REASSOP+2
, REASSOP+21, REASSOP+49!, REASSOP+50, REASSOP+54!, REASSOP+63!, REASSOP+71, SELOP+17
^TIU(8925.1 - [#8925.1] CLASS+1, CLASS+2
^TMP("SRNOR" GETOP+3
^TMP("SROP" GETOP+3

Label References

Name Line Occurrences
$$CLASS ISSURG+3
$$DADSC AGN+5
@( GETOP+5
AGN AGN+15
AUTHSTAT REASSOP+47
BREAK AGN+20, AGN+23, BREAK+5
GETX AGN+3
INDEX AGN+14
REASSOPX REASSOP+6, REASSOP+11, REASSOP+30, REASSOP+34, REASSOP+38
SELOPX SELOP+6
WRITE AGN+20

Naked Globals

Name Field # of Occurrence
^( BREAK+4
^(0 CLASS+2, SELOP+17
^(12 REASSOP+2, REASSOP+71
^(14 AGN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ENTEROP+10~, SELOP+1~
CLNAME CLASS~, CLASS+1
D ENTEROP+10~, ENTEROP+16*, SELOP+1~, SELOP+10*
D0 ENTEROP+10~, SELOP+1~
DA GETCASE~, AGN+3, AGN+4, AGN+5, DADSC~, DADSC+1, ENTEROP+10~, SELOP+1~
DFN GETCASE~, AGN+2, AGN+7, AGN+10, AGN+25, BREAK+4, ENTEROP~, ENTEROP+11, REASSOP~, REASSOP+3
, REASSOP+16, REASSOP+43, SELOP~, SELOP+5, SELOP+17
DIC ENTEROP+10~, ENTEROP+16*, SELOP+1~, SELOP+10*
DIC("S" ENTEROP+17*, SELOP+13*
DIC("W" ENTEROP+17*, SELOP+12*
DIC(0 ENTEROP+16*, SELOP+10*
>> DIROUT ENTEROP+9
DK ENTEROP+10~, SELOP+1~
DL ENTEROP+10~, SELOP+1~
DTIME BREAK+1
DTOUT SELOP+1~
DUOUT ENTEROP+9, SELOP+1~
DUZ AGN+25, BREAK+4, ES+1
DX ENTEROP+10~, SELOP+1~
IOST GETOP+7
S ENTEROP+10~, SELOP+1~
SEEOP GETOP+8~*, GETOP+9, GETOP+10*
SRODA RBOR+1~*, RBOR+2, RBPR+1~*, RBPR+2, RBPR+3
SROTYP GETOP~, GETOP+2*, GETOP+3, GETOP+5
SROVP GETOP+1~, GETOP+2*, GETOP+3, GETOP+4, REASSOP+16*, REASSOP+17, REASSOP+21, REASSOP+25
SUCCESS ENTEROP+1~, REASSOP+62~, REASSOP+65, AUTHSTAT+1~, AUTHSTAT+5
TITLE ISSURG~, ISSURG+5
TIU REASSOP+51~, REASSOP+52, REASSOP+53
TIUBUF ENTEROP+1~
>> TIUCHNG REASSOP+75*
TIUCLASS ISSURG+1~, ISSURG+3*, ISSURG+4, ISSURG+5
TIUCNT AGN+1~, AGN+11*, AGN+12*, AGN+16
TIUD0 ENTEROP+1~, REASSOP+1~, REASSOP+72, REASSOP+74
TIUD0(0 REASSOP+2*, REASSOP+3, REASSOP+4, REASSOP+42, REASSOP+43, REASSOP+56, REASSOP+59, REASSOP+61
TIUD0(1 REASSOP+71*
TIUD12 REASSOP+1~, REASSOP+47, REASSOP+72, REASSOP+74, AUTHSTAT~
TIUD12(0 REASSOP+2*, AUTHSTAT+4
TIUD12(1 REASSOP+71*
TIUDA GETOP~, GETOP+2, AGN+6, RBOR~, RBOR+1, RBPR~, RBPR+1, ES~, ES+2, ES+4
, ENTEROP+1~, REASSOP+1~, REASSOP+10*, REASSOP+25*, REASSOP+27, REASSOP+30, REASSOP+34, REASSOP+38, REASSOP+47, REASSOP+49
, REASSOP+50, REASSOP+52, REASSOP+53, REASSOP+54, REASSOP+57~, REASSOP+58*, REASSOP+67, REASSOP+71, REASSOP+72, AUTHSTAT~
, AUTHSTAT+5
TIUDADA DADSC+1~*, DADSC+2
TIUDELX REASSOP+57~, REASSOP+59*, REASSOP+60
TIUDUZ ES~, ES+1*, ES+3
TIUER AGN+1~, AGN+15, AGN+17*, AGN+18, AGN+22, AGN+24, BREAK+2*
TIUES ES+1~, ES+3*, ES+4
>> TIUEVNT GETOP+9
TIUFPRIV ENTEROP+10~, SELOP+1~
TIUI AGN+1~, AGN+11*, AGN+17*, AGN+18*, AGN+19, AGN+20, WRITE+1, INDEX+1~*, INDEX+2*, INDEX+3
, ISSURG+1~, ISSURG+2*, ISSURG+3
TIUII AGN+1~, AGN+19*, AGN+23, BREAK+1, BREAK+2
TIULIST AGN+1~, AGN+7, AGN+9, AGN+11, AGN+14, AGN+18, AGN+19, AGN+25, GETX, BREAK+1
, BREAK+2, BREAK+4, BREAK+5, INDEX~, INDEX+2, INDEX+3
TIUMLST AGN+1~
TIUMSG REASSOP+43~*, REASSOP+44
TIUMTSTR AGN+1~
TIUODA REASSOP~, REASSOP+2, REASSOP+3, REASSOP+6, REASSOP+7, REASSOP+21, REASSOP+27, REASSOP+34, REASSOP+38, REASSOP+45
, REASSOP+47, REASSOP+49, REASSOP+58, REASSOP+63, REASSOP+65, REASSOP+69, REASSOP+74, AUTHSTAT~, AUTHSTAT+3
TIUOK AGN+1~, AGN+17*, AGN+18, AGN+25, BREAK+4*, BREAK+6*
TIUOUT AGN+1~, AGN+2*, AGN+15, AGN+21, AGN+22*, AGN+23, AGN+24*, ENTEROP+9, ENTEROP+15*, ENTEROP+22*
, ENTEROP+24*, REASSOP+9*, REASSOP+15*
TIUPRM0 ENTEROP+1~
TIUPRM1 ENTEROP+1~
TIURTCT REASSOP+43~, REASSOP+45*
TIUSCRN REASSOP+1~, SELOP~, SELOP+4*, SELOP+13
TIUTNM ENTEROP+1~, ENTEROP+2*, ENTEROP+4, ENTEROP+5, ENTEROP+20, REASSOP+1~, REASSOP+5*, REASSOP+11, REASSOP+12, REASSOP+38
, SELOP+1~, SELOP+3*, SELOP+16
TIUTYP ENTEROP~, ENTEROP+2, REASSOP+1~, REASSOP+4*, REASSOP+5, SELOP~, SELOP+3, SELOP+17
TIUX AGN+1~, AGN+3, AGN+4*, AGN+5*, AGN+19*, AGN+25*, AGN+26, GETX, BREAK+4*, WRITE+1
, WRITE+2, ENTEROP+1~, REASSOP+62~, REASSOP+65, AUTHSTAT+1~, AUTHSTAT+5
TIUX( REASSOP+64*, AUTHSTAT+2*
TIUX(1202 AUTHSTAT+4*
TIUX(1406 AUTHSTAT+3*
TIUY GETOP~, GETOP+3*, GETOP+6, GETOP+7, GETOP+11, GETOP+12, AGN+1~, AGN+6, GETX*, GETX+1
, DADSC+1~, DADSC+2*, DADSC+3, ISSURG~, ISSURG+1*, ISSURG+2, ISSURG+5*, CLASS+1~*, CLASS+2*, CLASS+3
, SELOP+1~, SELOP+2*, SELOP+20*, SELOPX
U GETOP+2, AGN+4, DADSC+1, DADSC+2, WRITE+1, WRITE+2, RBOR+1, RBPR+1, CLASS+2, ES+3
, REASSOP+3, REASSOP+21, REASSOP+42, REASSOP+43, REASSOP+56, REASSOP+61, AUTHSTAT+4
X AGN+1~, BREAK+1*, BREAK+2, BREAK+3, BREAK+4, BREAK+5, BREAK+6, ENTEROP+10~, ENTEROP+11*, ENTEROP+12
, ENTEROP+20, SELOP+1~, SELOP+5*, SELOP+6
>> XQADATA GETOP+9
>> XWBOS GETOP+7, GETOP+12
Y ENTEROP+10~, ENTEROP+19, ENTEROP+23, SELOP+1~, SELOP+15, SELOP+20
>> ZTQUEUED GETOP+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All