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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMRCTIUE

Package: Consult Request Tracking

Routine: GMRCTIUE


Information

GMRCTIUE ;SLC/DCM,DLT,JFR - Complete/Update TIU notes ;07/10/03 15:26

Source Information

Source file <GMRCTIUE.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Consult Request Tracking 9 ($$LOCK,UNLOCK)^GMRCA1  SELECT^GMRCA2  COMP^GMRCAAC  $$READ^GMRCACMT  EXAC^GMRCADC  ARMED^GMRCAR  ($$VALID,TEAM,VALIDU)^GMRCAU  $$CPACTM^GMRCCP  
($$SELR,GETLIST,SHOWTIU)^GMRCTIUL  
Text Integration Utility 3 EXSTNOTE^TIUBR1  MAIN^TIUEDIT  ADDEND1^TIURA1  
VA FileMan 3 $$FIND1^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 $$CJ^XLFSTR  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Consult Request Tracking 1 GMRCTIU  

Entry Points

Name Comments DBIA/ICR reference
ENTER(GMRCO) ; Enter a note in TIU for the consult result
MED(GMRCO) ;allow med results if appropriate
SAUSER() ; admin user?
CHKSTS ;Check the order status before allowing entry of a note
EDITNOTE(GMRCTUFN) ;use TIU LM for an existing note
SINGLE(GMRCVF) ;Get the single result entry from the list for the file type
GETTUFN(GMRCSELR) ;Get the result entry from the selected entry
NEW ;Enter a new result through TIU if implemented or old Completion logic
CLASS(CPSTAT) ; Get TIU doc def for CONSULTS OR clinical procedures
GETLIST(GMRCDFN,GMRCO,GMRCLIST) ;
ADDEND(GMRCO) ; Make an addendum action for a selected consult
ADDEND1(TIUDA) ;Add an addendum
EDEX ;
PAUSE ; Pause for user
CPGUI ;it's GUI way or no way

External References

Name Field # of Occurrence
$$FIND1^DIC CLASS+3, CLASS+5
$$GET1^DIQ CLASS+6
^DIR ENTER+10, ENTER+35, ENTER+48, ENTER+66, ENTER+71, ENTER+85, MED+9
$$LOCK^GMRCA1 ENTER+11, ADDEND+20
UNLOCK^GMRCA1 EDEX+1
SELECT^GMRCA2 ENTER+4, ADDEND+4
COMP^GMRCAAC ENTER+27, ENTER+38, NEW+5
$$READ^GMRCACMT ADDEND+36
EXAC^GMRCADC ADDEND+9, CPGUI+3
ARMED^GMRCAR MED+12
$$VALID^GMRCAU ENTER+22, ADDEND+8
TEAM^GMRCAU SAUSER+6
VALIDU^GMRCAU SAUSER+4, SAUSER+6
$$CPACTM^GMRCCP ENTER+18, NEW+1
$$SELR^GMRCTIUL ENTER+79, ADDEND+43
GETLIST^GMRCTIUL GETLIST+4
SHOWTIU^GMRCTIUL ENTER+64, ENTER+76, ADDEND+27, ADDEND+40
EXSTNOTE^TIUBR1 EDITNOTE+2
MAIN^TIUEDIT NEW+8
ADDEND1^TIURA1 ADDEND1+2
FULL^VALM1 ENTER+14, ENTER+54, MED+5, ADDEND1+2
$$CJ^XLFSTR ENTER+26, ENTER+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The requesting facility may not complete an inter-facility "
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: "consult."
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("- Proceeding with Administrative Complete -",80)
  • Line Location: ENTER+26
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("- Proceeding with Administrative Complete -",80)
  • Line Location: ENTER+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+46
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+49
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+71
Function Call: WRITE
  • Prompt: !,"This order has been "
  • Line Location: CHKSTS+3
Function Call: WRITE
  • Prompt: $S(STATUS=1:"DISCONTINUED",1:"CANCELLED")
  • Line Location: CHKSTS+4
Function Call: WRITE
  • Prompt: ". A note cannot be entered."
  • Line Location: CHKSTS+5
Function Call: WRITE
  • Prompt: !,"A note #"_+GMRCTUFN_" is linked to the consult,"
  • Line Location: EDITNOTE+5
Function Call: WRITE
  • Prompt: !," but the note is no longer in TIU!"
  • Line Location: EDITNOTE+6
Function Call: WRITE
  • Prompt: !!,$C(7),"Consult Resulting through TIU is not yet implemented."
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !,"Proceeding with Administrative Complete."
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: !,"This consult does not yet have an associated note."
  • Line Location: ADDEND+16
Function Call: WRITE
  • Prompt: !," Use the Complete action to enter a new note."
  • Line Location: ADDEND+17
Function Call: WRITE
  • Prompt: !,"You may not addend to the incomplete associated note."
  • Line Location: ADDEND+34
Function Call: WRITE
  • Prompt: !,"You are not the author of the existing note."
  • Line Location: ADDEND+35
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue: "
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: " (timeout)"
  • Line Location: PAUSE+2
Routine Call
  • DIC
  • Line Location:
    • CLASS+3
    • CLASS+5
Routine Call
  • DIR
  • Line Location:
    • ENTER+10
    • ENTER+35
    • ENTER+48
    • ENTER+66
    • ENTER+71
    • ENTER+85
    • MED+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] ENTER+6, ENTER+22, ENTER+24, ENTER+25, ENTER+32, ENTER+33, ENTER+53, MED+3, MED+4, SAUSER+2
, SAUSER+3, CHKSTS+1, ADDEND+8, ADDEND+14
^GMR(123.3 - [#123.3] MED+4
^GMR(123.5 - [#123.5] SAUSER+3
^TIU(8925 - [#8925] EDITNOTE+1
^TMP("GMRC50" SINGLE+3, ADDEND+30, ADDEND+31
^TMP("GMRC50R" GETTUFN+2

Label References

Name Line Occurrences
$$CLASS NEW+1
$$GETLIST ENTER+55, ADDEND+15
$$GETTUFN ENTER+88, ADDEND+45
$$MED ENTER+24, ENTER+32, ENTER+42
$$SINGLE ENTER+67, ADDEND+25
ADDEND1 ADDEND+32, ADDEND+47
CHKSTS ENTER+13
CPGUI ENTER+56, ENTER+62
EDEX ENTER+6, ENTER+11, ENTER+13, ENTER+25, ENTER+28, ENTER+30, ENTER+44, ENTER+55, ENTER+72, ENTER+80
, ENTER+81, ENTER+92, ADDEND+18, ADDEND+20, ADDEND+24, ADDEND+44, ADDEND+47, ADDEND+49
EDITNOTE ENTER+68, ENTER+90, ADDEND+33
NEW ENTER+57, ENTER+71, ENTER+87, ADDEND+36
PAUSE CHKSTS+6, EDITNOTE+7, ADDEND+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUTHOR ADDEND+28~
CPSTAT CLASS~, CLASS+2
DIR ENTER+7~, ENTER+45~, ENTER+63~, ENTER+83~, MED+6~, MED+10!
DIR("A" ENTER+34*, ENTER+47*, ENTER+65*, ENTER+70*, ENTER+84*, MED+8*
DIR("B" ENTER+47*, ENTER+65*, ENTER+70*, ENTER+85*, MED+7*
DIR(0 ENTER+10*, ENTER+34*, ENTER+47*, ENTER+65*, ENTER+69*, ENTER+84*, MED+7*
DIROUT ENTER+45~, ENTER+63~, MED+6~
DIRUT ENTER+31~, ENTER+35, ENTER+45~, ENTER+63~
DTIME PAUSE+2
DTOUT ENTER+45~, ENTER+63~, ENTER+86!, MED+6~
DUOUT ENTER+45~, ENTER+63~, ENTER+86!, MED+6~
DUZ SAUSER+3, SAUSER+6, ADDEND+33
ERR CLASS+1~
GMRCACT ADDEND+1~
GMRCADUS SAUSER+1~, SAUSER+5*, SAUSER+6, SAUSER+7
GMRCADUZ ADDEND+1~
GMRCAU ENTER+21~, ENTER+22*, ENTER+23, ENTER+30
GMRCCP ENTER+17~, ENTER+18*, ENTER+24, ENTER+32, ENTER+42, ENTER+56, ENTER+62
GMRCDFN ENTER+53*, ENTER+55, EDITNOTE+2, NEW+8, GETLIST~, ADDEND+1~, ADDEND+14*, ADDEND+15, EDEX+2!
GMRCDTYP CLASS+1~, CLASS+6*, CLASS+7
GMRCLCK ENTER+2~, ENTER+12*, ADDEND+2~, ADDEND+21*, EDEX+1
GMRCLIST GETLIST~
GMRCMC ENTER+3~, ENTER+24*, ENTER+25, ENTER+32*, ENTER+33, ENTER+42*, ENTER+44
GMRCMED MED+2~*, MED+11*, MED+13
GMRCO ENTER~, ENTER+4, ENTER+5, ENTER+6, ENTER+11, ENTER+18, ENTER+22, ENTER+24, ENTER+25, ENTER+27
, ENTER+32, ENTER+33, ENTER+38, ENTER+42, ENTER+53, ENTER+55, MED~, MED+3, MED+4, SAUSER+2
, SAUSER+3, CHKSTS+1, NEW+1, NEW+5, GETLIST~, GETLIST+4, ADDEND~, ADDEND+4, ADDEND+5, ADDEND+8
, ADDEND+14, ADDEND+15, ADDEND+20, EDEX+1, EDEX+2!
GMRCQIT ENTER+30, ENTER+35*, ENTER+38*, ENTER+44, ENTER+48*, MED+2~, EDEX+2!
GMRCQUT ENTER+2!, ENTER+5, ENTER+13, ENTER+80, CHKSTS+6*, ADDEND+3!, ADDEND+5, ADDEND+44, EDEX+2!
GMRCSEL EDEX+2!
GMRCSELR ENTER+79*, ENTER+81, ENTER+88, GETTUFN~, GETTUFN+2, ADDEND+43*, ADDEND+44, ADDEND+45
GMRCSS SAUSER+1~, SAUSER+2*
GMRCTIDA NEW+7~, NEW+8
GMRCTIUC ENTER+55, ENTER+79, GETLIST+4, ADDEND+1~, ADDEND+15, ADDEND+43
GMRCTIUC( ENTER+61, GETLIST+6, ADDEND+24
GMRCTUFN ENTER+67*, ENTER+68, ENTER+88*, ENTER+90, EDITNOTE~, EDITNOTE+1, EDITNOTE+2, EDITNOTE+5, ADDEND+25*, ADDEND+26
, ADDEND+29, ADDEND+32, ADDEND+33, ADDEND+45*, ADDEND+47, EDEX+2!
GMRCTX ADDEND+1~
GMRCVF ENTER+60*, ENTER+61, ENTER+67, SINGLE~, SINGLE+4, GETLIST+2~, GETLIST+5*, GETLIST+6, ADDEND+23*, ADDEND+24
, ADDEND+25, ADDEND+29
GMRCVP SINGLE+1~, SINGLE+2*, SINGLE+3, SINGLE+4*, SINGLE+5, ADDEND+28~, ADDEND+29*, ADDEND+30, ADDEND+31
GMRCY CLASS+1~, CLASS+3*, CLASS+4, CLASS+5*, CLASS+6, CLASS+7*, CLASS+8
MSG CPGUI+1~, CPGUI+2*, CPGUI+3
RSLT SINGLE+1~, SINGLE+2*, SINGLE+3*, SINGLE+4, GETTUFN+1~, GETTUFN+2*, GETTUFN+3
RSLTIEN ADDEND+2~, ADDEND+30*, ADDEND+31
RSLTINFO ADDEND+1~, ADDEND+28~, ADDEND+31*, ADDEND+32, ADDEND+33
STATUS CHKSTS+1~*, CHKSTS+2, CHKSTS+4
TIUCLASS ENTER+2~, NEW+1*, NEW+2, NEW+8
TIUDA ENTER+2~, ADDEND+1~, ADDEND1~
U ENTER+6, ENTER+22, ENTER+24, ENTER+25, ENTER+32, ENTER+33, MED+3, MED+4, ADDEND+8
>> VALM ENTER+14, ENTER+54
X ENTER+45~, ENTER+63~, ENTER+83~, ENTER+86!, MED+6~, PAUSE+2~*
Y ENTER+36, ENTER+45~, ENTER+48, ENTER+63~, ENTER+66, ENTER+71, ENTER+83~, ENTER+86!, MED+6~, MED+9

Marked Items

Name Field # of Occurrence
$T(VALIDU^GMRCAU SAUSER+4, SAUSER+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All