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
Print Page as PDF
Routine: GMRCSTS

Package: Consult Request Tracking

Routine: GMRCSTS


Information

GMRCSTS ;SLC/DLT,JFR,MA - Group update status of consult and order; 11/25/2000

Source Information

Source file <GMRCSTS.m>

Entry Points

Name Comments DBIA/ICR reference
GETSRV ;Get a service that the user is authorized to update status for
UNAUTH ;Unauthorized to do special update processing for service or its parent.
GETDTR ;Get the date range
START ;Get the start date
STOP ;Get the stop date
METHOD() ;Get method to determine which consults to change
VERIFY ;Verify the criteria is correct
UPD1() ;Determine update status
DEVICE ; device for printout of entries to group update
RETRY
QUEUE ; send task for print and update
UPDCMT(COMMENT) ; get comment to stuff in consult activity
WHATTODO() ;how to handle the update
WARNING() ; If REPORT/UPDATE is being task issue warning message.
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: UNAUTH+2
Function Call: WRITE
  • Prompt: !!,"The first order in Consults has an entry date of "_DIR("B"),!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: !!,"If orders in the date range still have the selected status, this option"
  • Line Location: UPD1+2
Function Call: WRITE
  • Prompt: !,"will change their status in consults, and update the order."
  • Line Location: UPD1+3
Function Call: WRITE
  • Prompt: !!,"You may change the status to COMPLETE or DISCONTINUED."
  • Line Location: UPD1+4
Function Call: WRITE
  • Prompt: !!,"Ordering provider will not receive notification of Group Update."
  • Line Location: UPD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: UPD1+6
Function Call: WRITE
  • Prompt: !!,"The device selected will print a list of entries from file 123 that will be"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"updated to ",$S(+GMRCCVT=1:"DISCONTINUED",1:"COMPLETE"),"."
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,"If you choose to update records, the update of the consult entries will take"
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !,"place upon completion of the report."
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !!,"It is highly advised that a printer be selected!"
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !!,$C(7),"You have not chosen a printer! If you do not choose a printer there will",!,"be no record of the entries that were updated."
  • Line Location: RETRY+4
Function Call: WRITE
  • Prompt: !,"Task # ",ZTSK
  • Line Location: QUEUE+6
Function Call: WRITE
  • Prompt: !,"Unable to queue report! Try again later."
  • Line Location: QUEUE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDCMT+1
Function Call: WRITE
  • Prompt: !,"Enter the Comment to be applied to all selected Consults"
  • Line Location: UPDCMT+3
Function Call: WRITE
  • Prompt: !,"WARNING - Records will automatically be updated since the"
  • Line Location: WARNING+3
Function Call: WRITE
  • Prompt: !,"report is being tasked.",!
  • Line Location: WARNING+4
Info |  Source |  Entry Points |  Interaction Calls