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

Package: Text Integration Utility

Routine: TIUCNSLT


Information

TIUCNSLT ; SLC/JER - Patient movement look-up ;1/7/03 [6/11/04 8:34am]

Source Information

Source file <TIUCNSLT.m>

Entry Points

Name Comments DBIA/ICR reference
GETCNSLT(DFN,TIUCPF,TIUDA,TIUOVR) ; Match consult result
AGN ; Loop for handling repeated attempts
GETX
BREAK ; Handle prompting
DADCR(DA) ; Get the Consult request associated with the parent record
WRITE
POST(TIUDA,STATUS) ; Post status updates to Consult Tracking
ISCNSLT(TIUY,TITLE) ; Boolean RPC to evaluate whether TITLE is a CONSULT
CHANGE(TIUDA,TIUCPF,TIUNOCS) ; Re-direct the TIU Document to a different CT Record
; Passes back TIUNOCS=-1 if pt has no requests or none is selected
CHAGN
RETREAT(DA,TIUD14) ; If Pt has no requests, retreat gracefully
UPDTADD(TIUDA,TIUCVP) ; Addenda for re-linked original are updated
ROLLBACK(TIUDA) ; Roll back CT Record when TIU changes require it
CLASS() ; What is the TIU Class (or Document Class) for CONSULTS
REMCNSLT(TIUDA) ;Remove link to consult if there is one ;*171
CONSCT(TIUDA,TIUOTTL,TIUNTTL) ;
CNSCTGUI(TIUDA,TIUOTTL,TIUNTTL) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"No CONSULT REQUESTS to Result for ",$P($G(^DPT(DFN,0)),U),".",!
  • Line Location: AGN+19
Function Call: WRITE
  • Prompt: !,"You must link this Result to a Consult Request...",!
  • Line Location: AGN+22
Function Call: WRITE
  • Prompt: !,"The following CONSULT REQUEST"
  • Line Location: AGN+24
Function Call: WRITE
  • Prompt: $S(+TIUCNT>1:"(S) are",1:" is")," available:"
  • Line Location: AGN+25
Function Call: WRITE
  • Prompt: " ",+TIUX
  • Line Location: AGN+36
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(^TMP("GMRCR",$J,"TIU",TIUII+1,0))
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+4
Function Call: WRITE
  • Prompt: !,TIUX
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHAGN+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You must select a Consult Request...Restoring record."
  • Line Location: CHAGN+2
Function Call: WRITE
  • Prompt: !,"The Title you selected is not a Consults Title."
  • Line Location: CONSCT+7
Function Call: WRITE
  • Prompt: !," The note is currently linked to a Consults Request,"
  • Line Location: CONSCT+8
Function Call: WRITE
  • Prompt: !," but will be disassociated when the title is changed"
  • Line Location: CONSCT+9
Function Call: WRITE
  • Prompt: !," to a non Consults Title.",!
  • Line Location: CONSCT+10
Function Call: WRITE
  • Prompt: !,"Do you want to continue with this Change Title Action?"
  • Line Location: CONSCT+11
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: CONSCT+13

Used in RPC

RPC Name Call Tags
TIU IS THIS A CONSULT? ISCNSLT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All