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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
Consult Request Tracking 3 EXAC^GMRCADC  ^GMRCASV  (GETENTS,PRINT,UPDCRIT)^GMRCSTS1  
VA FileMan 3 C^%DTC  ^DIR  EN^DIWE  

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 GMRCSTSU  

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

External References

Name Field # of Occurrence
C^%DTC GETDTR+7
^%ZIS RETRY+1
^%ZISC GMRCSTS+17, QUEUE+1
^%ZTLOAD QUEUE+6
^DIR START+11, STOP+3, METHOD+14, METHOD+19, VERIFY+5, UPD1+9, RETRY+7, WHATTODO+4, WARNING+6
EN^DIWE UPDCMT+5
EXAC^GMRCADC UNAUTH+6
^GMRCASV GETSRV+1
GETENTS^GMRCSTS1 GMRCSTS+14
PRINT^GMRCSTS1 GMRCSTS+18
UPDCRIT^GMRCSTS1 VERIFY+2
$$DT^XLFDT GETDTR+7

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
Routine Call
  • DIR
  • Line Location:
    • START+11
    • STOP+3
    • METHOD+14
    • METHOD+19
    • VERIFY+5
    • UPD1+9
    • RETRY+7
    • WHATTODO+4
    • WARNING+6
Routine Call
  • %ZIS
  • Line Location:
    • RETRY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+5
^GMR(123 - [#123] START+2, START+4
^GMR(123.5 - [#123.5] GETSRV+2, GETSRV+3, GETSRV+6, GETSRV+7
^TMP("GMRCLS" END!
^TMP("GMRCTMP" UPDCMT+7, UPDCMT+8, UPDCMT+9!

Label References

Name Line Occurrences
$$METHOD GMRCSTS+10
$$UPD1 GMRCSTS+11
$$WARNING QUEUE+1
$$WHATTODO GMRCSTS+15
DEVICE GMRCSTS+16
END GMRCSTS+8, GMRCSTS+9, GMRCSTS+10, GMRCSTS+11, GMRCSTS+13, GMRCSTS+15, GMRCSTS+16, GMRCSTS+17, GMRCSTS+19, QUEUE+1
GETDTR GMRCSTS+9
GETSRV GMRCSTS+8, GETSRV+8
QUEUE GMRCSTS+17
RETRY RETRY+3
START GETDTR+8
STOP GETDTR+9
UNAUTH GETSRV+8
UPDCMT GMRCSTS+12
VERIFY GMRCSTS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, RETRY*
%ZIS("A" RETRY*
%ZIS("B" RETRY*
AUTH GETSRV+5~, GETSRV+7*, GETSRV+8
COMMENT UPDCMT~
COMMENT( UPDCMT+8*
DIC UPDCMT+2~, UPDCMT+4*
DIR GMRCSTS+7~, START+1~, STOP+1~, METHOD+1~, VERIFY+3~, UPD1+1~, RETRY+5~, WHATTODO+1~, WARNING+1~
DIR("?" START+10*
DIR("A" START+9*, STOP+2*, METHOD+4*, METHOD+5*, METHOD+6*, METHOD+7*, METHOD+8*, METHOD+9*, METHOD+10*, METHOD+11*
, METHOD+12*, METHOD+18*, VERIFY+4*, UPD1+8*, RETRY+6*, WHATTODO+3*, WARNING+5*
DIR("B" START+6*, START+7, VERIFY+4*, RETRY+7*, WARNING+5*
DIR(0 START+9*, STOP+2*, METHOD+13*, METHOD+17*, VERIFY+4*, UPD1+7*, RETRY+6*, WHATTODO+2*, WARNING+5*
DIROUT GMRCSTS+7~, START+12, STOP+4, METHOD+15, METHOD+20, VERIFY+5, UPD1+9, RETRY+5~, WARNING+1~
DIRUT GMRCSTS+7~, START+12, STOP+4, METHOD+15, METHOD+20, VERIFY+5, UPD1+9, RETRY+5~, RETRY+7, WHATTODO+4
, WARNING+1~, WARNING+6
DIWEPSE UPDCMT+2~, UPDCMT+4*
DTOUT GMRCSTS+7~, START+12, STOP+4, METHOD+15, METHOD+20, VERIFY+5, UPD1+9, RETRY+5~, WARNING+1~
DUOUT GMRCSTS+7~, START+12, STOP+4, METHOD+15, METHOD+20, VERIFY+5, UPD1+9, RETRY+5~, WARNING+1~
DUZ GETSRV+3, GETSRV+6, GETSRV+7
DWLW UPDCMT+2~, UPDCMT+4*
DWPK UPDCMT+2~, UPDCMT+4*
END GETDTR+6~, GETDTR+7*, START+9, STOP+2
FIRST START+1~, START+5*, START+6
GMRCCVT GMRCSTS+7~, GMRCSTS+11*, GMRCSTS+18, VERIFY+2, DEVICE+3
GMRCDG GMRCSTS+6~, GMRCSTS+8, GETSRV+1, GETSRV+2, GETSRV+3, GETSRV+7, GETSRV+8*, UNAUTH+5*
GMRCDO GMRCSTS+7~, GMRCSTS+15*, GMRCSTS+18, QUEUE+1
GMRCEND GMRCSTS+6~, GMRCSTS+9, GMRCSTS+10, GMRCSTS+11, GMRCSTS+13, GMRCSTS+16, GETDTR+5*, GETDTR+8, GETDTR+9, START+12*
STOP+4*, METHOD+15*, METHOD+20*, VERIFY+5*, UPD1+9*, RETRY+2*, RETRY+7*
GMRCGRP GMRCSTS+6~
GMRCIEN START+1~, START+2*, START+3, START+4
GMRCM GMRCSTS+7~, GMRCSTS+10*, GMRCSTS+14, GMRCSTS+18, VERIFY+2
GMRCMSG UNAUTH+1~, UNAUTH+3*, UNAUTH+6
GMRCMSG(1 UNAUTH+4*
GMRCMT GMRCSTS+7~, GMRCSTS+12, GMRCSTS+18, VERIFY+2
GMRCSTOP GMRCSTS+6~, GMRCSTS+14, GMRCSTS+18, STOP+5*, STOP+6*, VERIFY+2
GMRCSTRT GMRCSTS+6~, GMRCSTS+14, GMRCSTS+18, START+13*, STOP+5*, VERIFY+2
GMRCSVC GMRCSTS+6~, GMRCSTS+14, GMRCSTS+18, GETSRV+2*, VERIFY+2
GMRCSVCN GMRCSTS+6~, GETSRV+2*, UNAUTH+4
GMRCTO GMRCSTS+6~
INDEX UPDCMT+2~, UPDCMT+6*, UPDCMT+7*, UPDCMT+8
>> IO("Q" GMRCSTS+17, WARNING+2
ION QUEUE+4
IOST RETRY+3
ORDER START+1~, START+2*
PARENT GETSRV+5~, GETSRV+7*
POP DEVICE+1~, RETRY+2
U GETSRV+2, GETSRV+6, GETSRV+7, START+4
X GETDTR+6~, GETDTR+7!, STOP+1~, METHOD+1~, UPD1+1~
X1 GETDTR+6~, GETDTR+7*
X2 GETDTR+6~, GETDTR+7*
Y START+1~, START+4*, START+5, START+12, START+13, STOP+1~, STOP+4, STOP+5, STOP+6, METHOD+1~
, METHOD+16, METHOD+20, METHOD+21, VERIFY+5, UPD1+1~, UPD1+9, UPD1+10, RETRY+3, WHATTODO+4, WHATTODO+5
, WARNING+6*, WARNING+7
ZTDESC QUEUE+2~, QUEUE+3*
ZTDTH QUEUE+2~
ZTIO QUEUE+2~, QUEUE+4*
ZTRTN QUEUE+2~, QUEUE+3*
ZTSAVE QUEUE+2~
ZTSAVE("GMRC*" QUEUE+5*
ZTSAVE("^TMP(""GMRCLS"",$J," QUEUE+5*
ZTSK QUEUE+2~, QUEUE+6, QUEUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All