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

Call Graph Total: 16

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  ($$CNVTD,TRIGR)^GMRCIEVT  $$OBR^GMRCISG1  
VA FileMan 3 $$FIND1^DIC  ^DIK  $$GET1^DIQ  
Health Level Seven 2 INIT^HLFNC2  LINK^HLUTIL3  
Registration 2 $$EN^VAFCPID  $$SITE^VASITE  
Master Patient Index VistA 1 ($$GETICN,$$IFLOCAL)^MPIF001  
Toolkit 1 ($$GET,EN)^XPAR  

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: 3

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

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD REQUEUE+6
$$FIND1^DIC EN+66
^DIK EN+33
$$GET1^DIQ EN+69
PTERRMSG^GMRCIERR EN+74
SNDALRT^GMRCIERR EN+47, EN+87, EN+96
$$CNVTD^GMRCIEVT EN+63
TRIGR^GMRCIEVT EN+18, EN+25, EN+43, EN+84, EN+92
$$OBR^GMRCISG1 EN+71
INIT^HLFNC2 EN+50
LINK^HLUTIL3 EN+58
$$GETICN^MPIF001 EN+54
$$IFLOCAL^MPIF001 EN+55
$$EN^VAFCPID EN+56
$$SITE^VASITE EN+73
$$DOW^XLFDT EN+39, EN+81
$$FMADD^XLFDT EN+12, EN+31, EN+36, EN+77, REQUEUE+5
$$FMDIFF^XLFDT GONOGO+13, GONOGO+15
$$FMTH^XLFDT REQUEUE+5
$$NOW^XLFDT EN+8, EN+12, EN+36, EN+77, EN+100, REQUEUE+5, GONOGO+10
$$GET^XPAR EN+29, EN+38, EN+65, EN+80, GONOGO+8, GONOGO+12
EN^XPAR EN+8, EN+100
DELETEA^XQALERT DELALRT+6, GONOGO+18
SETUP^XQALERT GONOGO+23
$$STA^XUAF4 EN+70

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
Routine Call
  • DIC
  • Line Location:
    • EN+66

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.6 - [#123.6] Classic Fileman Calls
^HLCS(870 - [#870] FIND1^DIC,  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+86, EN+91, EN+95
REQUEUE EN+102

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNVDT EN+62~, EN+63*, EN+64, EN+67
DA EN+28~, EN+32*
DIK EN+28~, EN+32*
DIV EN+73~*
DOM EN+49~, EN+69*, EN+74
DOW EN+37~, EN+39*, EN+40, EN+79~, EN+81*, EN+82
DT EN+39, EN+81
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+66*, EN+67*, EN+68, EN+69
GMRCLNK(0 EN+67
GMRCLNK(1 EN+65*, EN+66
GMRCLOG EN+10~, EN+11*, EN+13*, EN+14, EN+24, EN+32, EN+42, EN+46, EN+47, EN+86
, EN+87, EN+91, EN+95, EN+96
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+63, EN+70, EN+71, EN+77, EN+84
, EN+85, EN+90, EN+92, EN+94
GMRCNOW GONOGO+7~, GONOGO+10*, GONOGO+11, GONOGO+13
GMRCPAR EN+37~, EN+38*, EN+40, EN+79~, EN+80*, EN+82
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+79~, EN+82*, EN+83
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+71*, EN+74
PID EN+49~, EN+56*, EN+57*, EN+74
STA EN+49~, EN+70*, EN+73*, EN+74
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+63, EN+70, EN+71, EN+73, EN+77, EN+84, EN+85
, EN+90, EN+92, EN+94
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