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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call