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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | 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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All