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

Package: Consult Request Tracking

Routine: GMRCIBKG


Information

GMRCIBKG ;SLC/JFR - IFC BACKGROUND ERROR PROCESSOR; 07/02/03 13:54

Source Information

Source file <GMRCIBKG.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$DOW,$$FMADD,$$FMDIFF,$$FMTH,$$NOW)^XLFDT  (DELETEA,SETUP)^XQALERT  $$STA^XUAF4  
Consult Request Tracking 3 (PTERRMSG,SNDALRT)^GMRCIERR  TRIGR^GMRCIEVT  $$OBR^GMRCISG1  
Health Level Seven 2 INIT^HLFNC2  LINK^HLUTIL3  
Registration 2 $$EN^VAFCPID  $$SITE^VASITE  
VA Fileman 2 ^DIK  $$GET1^DIQ  
Toolkit 1 ($$GET,EN)^XPAR  
Uncategorized 1 ($$GETICN,$$IFLOCAL)^MPIF001  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Consult Request Tracking 3 GMRC IFC BACKGROUND STARTUP  GMRCIEVT  GMRCINC  

Entry Points

Name Comments DBIA/ICR reference
GONOGO() ; determine if background job should run or not
DELALRT(MSGLOG) ;delete obsolete alerts for an entry
; Input:
; MSGLOG = ien from file 123.6
EN ;process file 123.6 and take action
REQUEUE ;task job to start up again one hour after completing
OVERDUE ; write message for alert to tell IRM job is overdue

External References

Name Field # of Occurrence
^%ZTLOAD REQUEUE+6
^DIK EN+33
$$GET1^DIQ EN+60
PTERRMSG^GMRCIERR EN+64
SNDALRT^GMRCIERR EN+47, EN+77, EN+86
TRIGR^GMRCIEVT EN+18, EN+25, EN+43, EN+74, EN+82
$$OBR^GMRCISG1 EN+62
INIT^HLFNC2 EN+50
LINK^HLUTIL3 EN+58
$$GETICN^MPIF001 EN+54
$$IFLOCAL^MPIF001 EN+55
$$EN^VAFCPID EN+56
$$SITE^VASITE EN+63
$$DOW^XLFDT EN+39, EN+71
$$FMADD^XLFDT EN+12, EN+31, EN+36, EN+67, REQUEUE+5
$$FMDIFF^XLFDT GONOGO+13, GONOGO+15
$$FMTH^XLFDT REQUEUE+5
$$NOW^XLFDT EN+8, EN+12, EN+36, EN+67, EN+90, REQUEUE+5, GONOGO+10
$$GET^XPAR EN+29, EN+38, EN+70, GONOGO+8, GONOGO+12
EN^XPAR EN+8, EN+90
DELETEA^XQALERT DELALRT+6, GONOGO+18
SETUP^XQALERT GONOGO+23
$$STA^XUAF4 EN+61

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OVERDUE+1
Function Call: WRITE
  • Prompt: !,"The Inter-facility Consults background job is overdue."
  • Line Location: OVERDUE+2
Function Call: WRITE
  • Prompt: !,"This is likely due to an error while the job runs. It is suggested"
  • Line Location: OVERDUE+3
Function Call: WRITE
  • Prompt: !,"that you check the systems for errors. If the errors are resolved"
  • Line Location: OVERDUE+4
Function Call: WRITE
  • Prompt: !,"the background job will catch up and run normally. There is a "
  • Line Location: OVERDUE+5
Function Call: WRITE
  • Prompt: !,"remote possibility that the GMRC IFC BACKGROUND... parameters have"
  • Line Location: OVERDUE+6
Function Call: WRITE
  • Prompt: !,"been edited and are out of synch."
  • Line Location: OVERDUE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.6 - [#123.6] Classic Fileman Calls
^HLCS(870 - [#870] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] EN+52
^GMR(123.6 - [#123.6] EN+13, EN+14, EN+23

Label References

Name Line Occurrences
$$GONOGO EN+5
DELALRT EN+24, EN+42, EN+46, EN+76, EN+81, EN+85
REQUEUE EN+92

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+28~, EN+32*
DIK EN+28~, EN+32*
DIV EN+63~*
DOM EN+49~, EN+60*, EN+64
DOW EN+37~, EN+39*, EN+40, EN+69~, EN+71*, EN+72
DT EN+39, EN+71
GMRCBFI GONOGO+7~, GONOGO+12*, GONOGO+13, GONOGO+15
GMRCBST GONOGO+7~, GONOGO+8*, GONOGO+9, GONOGO+11, GONOGO+13, GONOGO+15
GMRCDFN EN+52~*, EN+53, EN+54, EN+55, EN+56
GMRCIQT EN+49~, EN+51, EN+53*, EN+54*, EN+55*
GMRCLNK EN+49~, EN+58, EN+59*, EN+60
GMRCLNK(0 EN+59
GMRCLOG EN+10~, EN+11*, EN+13*, EN+14, EN+24, EN+32, EN+42, EN+46, EN+47, EN+76
, EN+77, EN+81, EN+85, EN+86
GMRCLOG0 EN+10~, EN+14*, EN+17, EN+18, EN+20, EN+22, EN+23, EN+25, EN+27, EN+31
, EN+36, EN+43, EN+44, EN+52, EN+58, EN+61, EN+62, EN+67, EN+74, EN+75
, EN+80, EN+82, EN+84
GMRCNOW GONOGO+7~, GONOGO+10*, GONOGO+11, GONOGO+13
GMRCPAR EN+37~, EN+38*, EN+40, EN+69~, EN+70*, EN+72
GMRCQT GONOGO+4~, GONOGO+5*, GONOGO+11*, GONOGO+13*, GONOGO+26
GMRCRETN EN+28~, EN+29*, EN+30*, EN+31
GMRCSND EN+37~, EN+40*, EN+41, EN+44, EN+69~, EN+72*, EN+73
GMRCTIM EN+10~, EN+12*, EN+20, EN+31
HL EN+49~, EN+50
HLECH EN+49~
HLFS EN+49~
HLQ EN+49~
IOF OVERDUE+1
MSGLOG DELALRT~, DELALRT+5
OBR EN+49~, EN+62*, EN+64
PID EN+49~, EN+56*, EN+57*, EN+64
STA EN+49~, EN+61*, EN+63*, EN+64
U EN+17, EN+18, EN+20, EN+22, EN+23, EN+25, EN+27, EN+31, EN+36, EN+43
, EN+44, EN+52, EN+58, EN+61, EN+62, EN+67, EN+74, EN+75, EN+80, EN+82
, EN+84
XQA GONOGO+17~
XQA("G.IFC TE CH ERRORS" , GONOGO+19*
XQAID DELALRT+4~, DELALRT+5*, GONOGO+17~, GONOGO+18*, GONOGO+21*
XQAKILL DELALRT+4~, DELALRT+5*, OVERDUE+8*, GONOGO+17~, GONOGO+18*
XQAMSG GONOGO+17~, GONOGO+20*
XQAROU GONOGO+17~, GONOGO+22*
ZTDESC REQUEUE+1~, REQUEUE+2*
ZTDTH REQUEUE+1~, REQUEUE+5*
ZTIO REQUEUE+1~, REQUEUE+3*
>> ZTQUEUED EN+2
>> ZTREQ EN+2*
ZTRTN REQUEUE+1~, REQUEUE+4*
ZTSK REQUEUE+1~
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 |  All