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

Package: Consult Request Tracking

Routine: GMRCIBKG


Information

GMRCIBKG ;SLC/JFR - IFC BACKGROUND ERROR PROCESSOR; Jan 09, 2025@09:43:28

Source Information

Source file <GMRCIBKG.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$DOW,$$FMADD,$$FMDIFF,$$FMTH,$$NOW)^XLFDT  (DELETEA,SETUP)^XQALERT  $$STA^XUAF4  
VA FileMan 4 $$FIND1^DIC  ^DIE  ^DIK  $$GET1^DIQ  
Consult Request Tracking 3 (PTERRMSG,SNDALRT)^GMRCIERR  ($$CNVTD,TRIGR)^GMRCIEVT  $$OBR^GMRCISG1  
Health Level Seven 3 INIT^HLFNC2  ($$REPROC,$$SETPURG)^HLUTIL  LINK^HLUTIL3  
Registration 3 $$EN^VAFCPID  TFL^VAFCTFU2  $$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
ADDICN(PID,ICN) ;

External References

Name Field # of Occurrence
^%ZTLOAD REQUEUE+6
$$FIND1^DIC EN+124
^DIE EN+52, EN+71
^DIK EN+91
$$GET1^DIQ EN+127
PTERRMSG^GMRCIERR EN+132
SNDALRT^GMRCIERR EN+105, EN+145, EN+154
$$CNVTD^GMRCIEVT EN+121
TRIGR^GMRCIEVT EN+18, EN+24, EN+30, EN+37, EN+83, EN+101, EN+142, EN+150
$$OBR^GMRCISG1 EN+129
INIT^HLFNC2 EN+108
$$REPROC^HLUTIL EN+68
$$SETPURG^HLUTIL EN+49, EN+75
LINK^HLUTIL3 EN+116
$$GETICN^MPIF001 EN+112
$$IFLOCAL^MPIF001 EN+113
$$EN^VAFCPID EN+114
TFL^VAFCTFU2 EN+63
$$SITE^VASITE EN+131
$$DOW^XLFDT EN+97, EN+139
$$FMADD^XLFDT EN+12, EN+24, EN+30, EN+36, EN+43, EN+44, EN+89, EN+94, EN+135, REQUEUE+5
$$FMDIFF^XLFDT GONOGO+13, GONOGO+15
$$FMTH^XLFDT REQUEUE+5
$$NOW^XLFDT EN+8, EN+12, EN+24, EN+30, EN+36, EN+43, EN+44, EN+94, EN+135, EN+158
, REQUEUE+5, GONOGO+10
$$GET^XPAR EN+87, EN+96, EN+123, EN+138, GONOGO+8, GONOGO+12
EN^XPAR EN+8, EN+158
DELETEA^XQALERT DELALRT+6, GONOGO+18
SETUP^XQALERT GONOGO+23
$$STA^XUAF4 EN+128

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+124
Routine Call
  • DIE
  • Line Location:
    • EN+52
    • EN+71

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+37, EN+110
^GMR(123.6 - [#123.6] EN+13, EN+14, EN+81
^HL(772 - [#772] EN+61, EN+66*
^HLMA - [#773] EN+59
^HLMA("C" EN+48, EN+58

Label References

Name Line Occurrences
$$ADDICN EN+66
$$GONOGO EN+5
DELALRT EN+82, EN+100, EN+104, EN+144, EN+149, EN+153
REQUEUE EN+160

Naked Globals

Name Field # of Occurrence
^(0 EN+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNVDT EN+120~, EN+121*, EN+122, EN+125
DA EN+51~, EN+52*, EN+70~, EN+71*, EN+86~, EN+90*
DGKEY EN+56~, EN+63*
DGOUT EN+56~, EN+63
DGOUT( EN+64
DIE EN+51~, EN+52*, EN+70~, EN+71*
DIK EN+86~, EN+90*
DIV EN+131~*
DOM EN+107~, EN+127*, EN+132
DOW EN+95~, EN+97*, EN+98, EN+137~, EN+139*, EN+140
DR EN+51~, EN+52*, EN+70~, EN+71*
DT EN+97, EN+139
EDIPI EN+56~, EN+63*
GMRCBFI GONOGO+7~, GONOGO+12*, GONOGO+13, GONOGO+15
GMRCBST GONOGO+7~, GONOGO+8*, GONOGO+9, GONOGO+11, GONOGO+13, GONOGO+15
GMRCDFN EN+110~*, EN+111, EN+112, EN+113, EN+114
GMRCICN EN+56~, EN+64*, EN+65, EN+66
GMRCIQT EN+107~, EN+109, EN+111*, EN+112*, EN+113*
GMRCLNK EN+107~, EN+116, EN+124*, EN+125*, EN+126, EN+127
GMRCLNK(0 EN+125
GMRCLNK(1 EN+123*, EN+124
GMRCLOG EN+10~, EN+11*, EN+13*, EN+14, EN+52, EN+71, EN+82, EN+90, EN+100, EN+104
, EN+105, EN+144, EN+145, EN+149, EN+153, EN+154
GMRCLOG0 EN+10~, EN+14*, EN+17, EN+18, EN+22, EN+24, EN+28, EN+30, EN+34, EN+36
, EN+37, EN+41, EN+43, EN+44, EN+48, EN+57, EN+78, EN+80, EN+81, EN+83
, EN+85, EN+89, EN+94, EN+101, EN+102, EN+110, EN+116, EN+121, EN+128, EN+129
, EN+135, EN+142, EN+143, EN+148, EN+150, EN+152
GMRCNOW GONOGO+7~, GONOGO+10*, GONOGO+11, GONOGO+13
GMRCPAR EN+95~, EN+96*, EN+98, EN+137~, EN+138*, EN+140
GMRCQT GONOGO+4~, GONOGO+5*, GONOGO+11*, GONOGO+13*, GONOGO+26
GMRCRETN EN+86~, EN+87*, EN+88*, EN+89
GMRCSND EN+95~, EN+98*, EN+99, EN+102, EN+137~, EN+140*, EN+141
GMRCTIM EN+10~, EN+12*, EN+78, EN+89
HL EN+107~, EN+108
HLECH EN+107~
HLFS EN+107~
HLMTIENS EN+48~*, EN+49, EN+75~*
HLQ EN+107~
ICN ADDICN~, ADDICN+5
IEN772 EN+56~, EN+59*, EN+61, EN+66
IEN773 EN+56~, EN+58*, EN+59, EN+68, EN+75
IOF OVERDUE+1
MSGID EN+48~*, EN+56~, EN+57*, EN+58
MSGLOG DELALRT~, DELALRT+5
N EN+56~, EN+61*, EN+64*, EN+66
OBR EN+107~, EN+129*, EN+132
PID EN+56~, EN+61*, EN+62, EN+63, EN+66*, EN+107~, EN+114*, EN+115*, EN+132, ADDICN~
, ADDICN+5*, ADDICN+6
RTNCODE EN+49~*, EN+68~*, EN+75*
STA EN+107~, EN+128*, EN+131*, EN+132
U EN+17, EN+18, EN+22, EN+24, EN+28, EN+30, EN+34, EN+36, EN+37, EN+41
, EN+43, EN+44, EN+48, EN+57, EN+59, EN+63, EN+64, EN+78, EN+80, EN+81
, EN+83, EN+85, EN+89, EN+94, EN+101, EN+102, EN+110, EN+116, EN+121, EN+128
, EN+129, EN+131, EN+135, EN+142, EN+143, EN+148, EN+150, EN+152, ADDICN+5
X ADDICN+4~, ADDICN+5*
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 |  Naked Globals |  Local Variables  | All