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

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

Package Total Caller Graph
Text Integration Utility 27 TIU IS THIS A CONSULT?  TIU144  TIUCCRHL7P2  TIUCNFIX  TIUCNSLT  TIUCPCL  TIUHL7U2  TIULA4  
TIULC1  TIULD  TIULP  TIUP134  TIUPNFIX  TIUPUTCN  TIUPUTPN  TIURA3  
TIURB  TIURB2  TIURS  TIURS1  TIUSRVA  TIUSRVD  TIUSRVLV  TIUSRVP  
TIUSRVPT  TIUSRVR  ^TIU(8925.1  
Imaging 4 MAGGNTI  MAGGNTI1  MAGGNTI2  MAGGSIU1  
Enterprise Health Management Platform 2 HMPDJ08  HMPDTIU  
Mental Health 2 YTQCONS  YTQRQAD3  
Virtual Patient Record 2 VPRDJ08  VPRDTIU  

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) ;

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, CHAGNCHAGN+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, GETXWRITE
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