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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRCACMT

Package: Consult Request Tracking

Routine: GMRCACMT


Information

GMRCACMT ;SLC/DLT,DCM,MA,JFR - Comment Action and alerting ;8/19/03 07:27

Source Information

Source file <GMRCACMT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Consult Request Tracking 3 EXAC^GMRCADC  ($$ORTX,$$VALID)^GMRCAU  (AUDIT,MSG,STATUS)^GMRCP  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$NOW^XLFDT  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Consult Request Tracking 3 GMRCA1  GMRCASF  GMRCTIUE  

Entry Points

Name Comments DBIA/ICR reference
END ;kill off variables and exit
COMMENT(GMRCO) ;Add a comment without changing the status
NAMELIST(GMRCP,GMRCOLD,GMRCDELR) ;manage the list of recipients
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL) ;read logic
WHOTO ;Get the users who should receive an alert
NAMEHELP ;Help for the recipient list logic
SENDMSG(NOTIF,GMRCO,GMRCATM) ;Send the alert
PROCALRT(GMRCORTX,GMRCDELR,ACTION,GMRCO) ;Process alert for comments
ANDTO ;Ask for additional recipients

External References

Name Field # of Occurrence
^DIC NAMELIST+17
^DIR READ+17
EXAC^GMRCADC COMMENT+9
$$ORTX^GMRCAU SENDMSG+10
$$VALID^GMRCAU WHOTO+5
AUDIT^GMRCP COMMENT+4
MSG^GMRCP SENDMSG+11
STATUS^GMRCP COMMENT+19
FULL^VALM1 COMMENT+2
$$NOW^XLFDT COMMENT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The ordering provider for this inter-facility consult will"
  • Line Location: COMMENT+13
Function Call: WRITE
  • Prompt: " automatically be ",!,"notified.",!
  • Line Location: COMMENT+14
Function Call: WRITE
  • Prompt: !,"Processing Alerts..."
  • Line Location: SENDMSG+3
Function Call: WRITE
  • Prompt: !,"Service update users will be notified.",!
  • Line Location: WHOTO+8
Function Call: WRITE
  • Prompt: !,"Requesting provider will be notified.",!
  • Line Location: WHOTO+11
Function Call: WRITE
  • Prompt: !,"Requesting provider and service update users will be notified.",!
  • Line Location: WHOTO+14
Function Call: WRITE
  • Prompt: " already in the list."
  • Line Location: NAMELIST+23
Function Call: WRITE
  • Prompt: " added to the list."
  • Line Location: NAMELIST+24
Function Call: WRITE
  • Prompt: " can't delete this name from the list."
  • Line Location: NAMELIST+27
Function Call: WRITE
  • Prompt: " not currently in the list."
  • Line Location: NAMELIST+28
Function Call: WRITE
  • Prompt: " deleted from the list."
  • Line Location: NAMELIST+29
Function Call: WRITE
  • Prompt: " Name not found."
  • Line Location: NAMELIST+31
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+16
Function Call: WRITE
  • Prompt: !,"Enter the name of the user to send the alert to,"
  • Line Location: NAMEHELP+2
Function Call: WRITE
  • Prompt: !," or put a '-' in front of a name to delete from the list."
  • Line Location: NAMEHELP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAMEHELP+4
Function Call: WRITE
  • Prompt: !," Example:"
  • Line Location: NAMEHELP+5
Function Call: WRITE
  • Prompt: !," SMITH,FRED -> to add Fred to the list."
  • Line Location: NAMEHELP+6
Function Call: WRITE
  • Prompt: !," -SMITH,FRED -> to delete Fred from the list."
  • Line Location: NAMEHELP+7
Function Call: WRITE
  • Prompt: !,"Already selected: "
  • Line Location: NAMEHELP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NAMEHELP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NAMEHELP+13
Routine Call
  • DIC
  • Line Location:
    • NAMELIST+17
Routine Call
  • DIR
  • Line Location:
    • READ+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] COMMENT+4, COMMENT+12, SENDMSG+4, SENDMSG+8, WHOTO+4, WHOTO+5
^TMP("GMRC" END+4
^VA(200 - [#200] NAMEHELP+11

Label References

Name Line Occurrences
$$READ NAMELIST+12
END COMMENT+9, COMMENT+20
NAMELIST ANDTO+1
PROCALRT COMMENT+15
SENDMSG PROCALRT+12
WHOTO PROCALRT+6

Naked Globals

Name Field # of Occurrence
^("MENU" END+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION PROCALRT~, PROCALRT+10
DIC NAMELIST+7~, NAMELIST+17*
DIC(0 NAMELIST+17*
DIR READ+10~
DIR("?" READ+15*
DIR("A" READ+13*
DIR("B" READ+14*
DIR(0 READ+12*
DIROUT END+2, END+3!, READ+10~, READ+18
DIRUT END+3!, READ+10~, READ+18
DTOUT END+2, END+3!, READ+10~, READ+18
DUOUT END+3!, READ+10~, READ+18
DUZ WHOTO+5, WHOTO+6, WHOTO+9
GMRC END+1!
GMRC0 READ~, READ+11, READ+12
GMRCA COMMENT+1~, COMMENT+4*, END+1!, READ~, READ+13
>> GMRCAD COMMENT+3*
GMRCADD NAMELIST+7~, NAMELIST+14*, NAMELIST+15*, NAMELIST+22, NAMELIST+26
GMRCADUZ PROCALRT+2~, SENDMSG+2*, SENDMSG+11, ANDTO+1
GMRCADUZ( WHOTO+10*, WHOTO+13*
GMRCALT PROCALRT+9~
GMRCANS PROCALRT+2~, WHOTO+3~
GMRCATM SENDMSG~, SENDMSG+11
GMRCB READ~, READ+14
GMRCDELR PROCALRT~, ANDTO+1, NAMELIST~, NAMELIST+10
GMRCDFN SENDMSG+1~, SENDMSG+4*, SENDMSG+11
GMRCDR COMMENT+17~, COMMENT+18*
GMRCDUZ NAMELIST+7~, NAMEHELP+1~, NAMEHELP+10*, NAMEHELP+11, NAMEHELP+12
GMRCERMS COMMENT+9, END+1!
GMRCERR COMMENT+9, END+1!
GMRCH READ~, READ+15
GMRCL READ~, READ+16
GMRCLINE READ+10~, READ+16*
GMRCMSG COMMENT+9*, END+1!
GMRCNEW NAMELIST+7~, NAMELIST+9*, NAMELIST+33
GMRCNEW( NAMELIST+23, NAMELIST+24*, NAMELIST+28, NAMELIST+29!, NAMEHELP+10
>> GMRCNOW COMMENT+3*
GMRCNT NAMELIST+7~, NAMELIST+11*, NAMELIST+12, NAMELIST+24*, NAMELIST+29*
GMRCO COMMENT~, COMMENT+4, COMMENT+12, COMMENT+15, PROCALRT~, PROCALRT+12, SENDMSG~, SENDMSG+4, SENDMSG+8, SENDMSG+10
, SENDMSG+11, END+1!, WHOTO+4, WHOTO+5
GMRCOLD NAMELIST~, NAMELIST+9, NAMELIST+10!*, NAMELIST+33*
GMRCOLD( NAMELIST+27, NAMEHELP+12
GMRCOM COMMENT+4*, COMMENT+11, END+1!
GMRCORTX PROCALRT~, SENDMSG+5, SENDMSG+8*, SENDMSG+9*, SENDMSG+10*, SENDMSG+11, END+1!
GMRCP NAMELIST~, NAMELIST+12
>> GMRCPROV COMMENT+4*
GMRCQ NAMELIST+7~
GMRCQIT COMMENT+1!, PROCALRT+2~, END+2*
GMRCQUT COMMENT+1!, END+1!
GMRCRP WHOTO+3~, WHOTO+4*, WHOTO+6, WHOTO+9, WHOTO+10, WHOTO+13
GMRCSTS COMMENT+17~, COMMENT+18*
GMRCTM PROCALRT+2~, PROCALRT+12, WHOTO+7*, WHOTO+12, WHOTO+13*
GMRCUPD WHOTO+3~, WHOTO+5*, WHOTO+9, WHOTO+12
GMRCUSER NAMELIST+7~, NAMELIST+11, NAMELIST+12*, NAMELIST+13*, NAMELIST+14*, NAMELIST+17, NAMELIST+31
GMRCUT END+1!
>> IOBM COMMENT+2
>> IOSTBM COMMENT+2
>> IOTM COMMENT+2
NOTIF PROCALRT+2~, PROCALRT+10*, PROCALRT+12, SENDMSG~, SENDMSG+11
TXT SENDMSG+6~, SENDMSG+7*, SENDMSG+8, SENDMSG+9
U COMMENT+12, SENDMSG+8, WHOTO+4, WHOTO+5, NAMELIST+11, NAMELIST+13, READ+11, READ+18, NAMEHELP+11
X NAMELIST+7~, NAMELIST+17*
>> XQORM("HIJACK" END+4*
Y NAMELIST+7~, NAMELIST+19, NAMELIST+23, NAMELIST+24, NAMELIST+27, NAMELIST+28, NAMELIST+29, READ+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All