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

Call Graph

Call Graph Total: 8

Package Total Call Graph
Text Integration Utility 4 $$CLASS^TIUCNSLT  ($$DELETE,$$HASADDEN,$$ISADDNDM)^TIULC1  $$ISA^TIULX  $$READ^TIUU  
Consult Request Tracking 2 (GET,SEND)^GMRCTIU  ROLLBACK^GMRCTIU1  
Authorization Subscription 1 $$ISA^USRLM  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
Text Integration Utility 26 TIU144  TIUCNFIX  TIUCNSLT  TIUCPCL  TIUHL7U2  TIULA4  TIULC1  TIULD  
TIULP  TIUP134  TIUP188  TIUPNFIX  TIUPS155  TIUPUTCN  TIUPUTPN  TIURA3  
TIURB  TIURB2  TIURS  TIURS1  TIUSRVA  TIUSRVD  TIUSRVLV  TIUSRVP  
TIUSRVPT  TIUSRVR  

Entry Points

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

External References

Name Field # of Occurrence
^DIE CHAGN+4, RETREAT+2, UPDTADD+8, UPDTADD+9, ROLLBACK+3
GET^GMRCTIU POST+4
SEND^GMRCTIU AGN+16
ROLLBACK^GMRCTIU1 ROLLBACK+2
$$CLASS^TIUCNSLT CONSCT+5, CNSCTGUI+5
$$DELETE^TIULC1 REMCNSLT+4
$$HASADDEN^TIULC1 UPDTADD+2
$$ISADDNDM^TIULC1 AGN+12, UPDTADD+6
$$ISA^TIULX ISCNSLT+4, CONSCT+6, CNSCTGUI+6
$$READ^TIUU CONSCT+12
$$ISA^USRLM AGN+15

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
Routine Call
  • DIE
  • Line Location:
    • CHAGN+4
    • RETREAT+2
    • UPDTADD+8
    • UPDTADD+9
    • ROLLBACK+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] AGN+19
^TIU(8925 - [#8925] AGN+8, AGN+11, DADCR+1, DADCR+2, POST+1, POST+3, CHANGE+3, UPDTADD+4, ROLLBACK+1, REMCNSLT+3
^TIU(8925.1 - [#8925.1] CLASS+2, CLASS+3
^TMP("GMRCR" AGN+18, AGN+20, AGN+27, AGN+28, AGN+34, BREAK+1, BREAK+2, BREAK+4

Label References

Name Line Occurrences
$$CLASS ISCNSLT+2
$$DADCR AGN+12
$$GETCNSLT CHAGN+1
AGN AGN+23
BREAK AGN+29, AGN+32, BREAK+4
GETX AGN+3, AGN+11, AGN+12
POST CHAGN+7, RETREAT+5
REMCNSLT CONSCT+14, CNSCTGUI+8
RETREAT CHAGN+3
ROLLBACK CHANGE+6
UPDTADD CHAGN+5
WRITE AGN+29

Naked Globals

Name Field # of Occurrence
^(0 CLASS+3
^(14 AGN+11, CHANGE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA AGN+6, DADCR~, DADCR+1, POST+1~, CHANGE+2~, CHAGN*, CHAGN+4*, RETREAT~, UPDTADD+3~, UPDTADD+4*
, UPDTADD+6, ROLLBACK+1~, ROLLBACK+3*
DFN GETCNSLT~, AGN+2, AGN+8, AGN+16, AGN+19, CHANGE+2~, CHANGE+4*, CHANGE+5, CHAGN+1
DIE CHANGE+2~, CHAGN+4*, RETREAT+1~, RETREAT+2*, UPDTADD+5~, UPDTADD+8*, ROLLBACK+1~, ROLLBACK+3*
DR CHANGE+2~, CHAGN+4*, RETREAT+1~, RETREAT+2*, UPDTADD+5~, UPDTADD+7*, ROLLBACK+1~, ROLLBACK+3*
DTIME BREAK+1
DUZ AGN+15
GMRCDA POST+1~*, POST+2, POST+4, ROLLBACK+1~*, ROLLBACK+2
GMRCO AGN+3, CHANGE+2~, CHANGE+4*, CHANGE+6!, CHAGN+6*, RETREAT+1~, RETREAT+3*
GMRCSTAT CHANGE+2~, CHAGN+6*, CHAGN+7, RETREAT+1~, RETREAT+4*, RETREAT+5
GMRCVP CHANGE+2~, CHAGN+1*, CHAGN+2, CHAGN+3, CHAGN+5, CHAGN+6
GMRCY CLASS+1~, CLASS+2*, CLASS+3*, CLASS+4
STATUS POST~, POST+4
TITLE ISCNSLT~, ISCNSLT+4
TIUAUTH POST+1~, POST+3*, POST+4
TIUCLASS ISCNSLT+1~, ISCNSLT+2*, ISCNSLT+3, ISCNSLT+4, CONSCT+4~, CONSCT+5*, CONSCT+6, CNSCTGUI+4~, CNSCTGUI+5*, CNSCTGUI+6
TIUCNT AGN+1~, AGN+20*, AGN+21*, AGN+25
TIUCPF GETCNSLT~, AGN+16, CHANGE~, CHAGN+1
TIUCVP UPDTADD~
TIUD0 CHANGE+2~, CHANGE+3*, CHANGE+4, CHAGN+6, RETREAT+4
TIUD14 CHANGE+2~, CHANGE+3*, CHANGE+4, CHAGN+3, RETREAT~, RETREAT+3
TIUDA GETCNSLT~, AGN+6*, AGN+8*, AGN+11, AGN+12, POST~, POST+1, POST+3, POST+4, CHANGE~
, CHANGE+3, CHANGE+6, CHAGN, CHAGN+3, CHAGN+4, CHAGN+5, CHAGN+7, RETREAT+5, UPDTADD~, UPDTADD+2
, UPDTADD+4, ROLLBACK~, ROLLBACK+1, ROLLBACK+2, ROLLBACK+3, REMCNSLT~, REMCNSLT+3, CONSCT~, CONSCT+14, CNSCTGUI~
, CNSCTGUI+8
TIUDADA DADCR+1~*, DADCR+2
TIUDELX REMCNSLT+2~, REMCNSLT+4*, REMCNSLT+5
TIUER AGN+1~, AGN+23, AGN+26*, AGN+27, AGN+31, AGN+33, BREAK+2*
TIUI AGN+1~, AGN+20*, AGN+26*, AGN+27*, AGN+28, AGN+29
TIUII AGN+1~, AGN+28*, AGN+32, BREAK+1, BREAK+2
TIUNOCS CHANGE~, CHAGN*, CHAGN+3*
TIUNTTL CONSCT~, CONSCT+6, CNSCTGUI~, CNSCTGUI+6
TIUOK AGN+1~, AGN+26*, AGN+27, AGN+34, BREAK+5*
TIUOTTL CONSCT~, CONSCT+6, CNSCTGUI~, CNSCTGUI+6
TIUOUT AGN+1~, AGN+2*, AGN+23, AGN+30, AGN+31*, AGN+32, AGN+33*
TIUOVR GETCNSLT~, AGN+15*, AGN+16
>> TIUPOP CHAGN+3*
>> TIUQUIT CONSCT+12*, CONSCT+13
TIUTYPE REMCNSLT+2~, REMCNSLT+3*, REMCNSLT+4
TIUX AGN+1~, AGN+3*, AGN+11*, AGN+12*, AGN+28*, AGN+34*, AGN+36, GETX, WRITE
TIUY AGN+1~, GETX*, GETX+1, DADCR+1~, DADCR+2*, DADCR+3, ISCNSLT~, ISCNSLT+3*, ISCNSLT+4*
U AGN+8, AGN+11, AGN+19, DADCR+1, DADCR+2, POST+1, POST+3, CHANGE+4, CHAGN+6, RETREAT+3
, RETREAT+4, ROLLBACK+1, CLASS+3
X AGN+1~, BREAK+1*, BREAK+2, BREAK+3, BREAK+4, BREAK+5
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