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

Package: Clinical Information Resource Network

Routine: RGMTUT01


Information

RGMTUT01 ;BIR/CML-MPI/PD Compile and Correct Data Validation Data for Local Sites ;08/12/02

Source Information

Source file <RGMTUT01.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Clinical Information Resource Network 2 REIND^RGMTUT02  ^RGMTUT03  
Kernel 2 ($$DOW,$$FMADD,$$FMTE,$$NOW)^XLFDT  $$NS^XUAF4  
Registration 2 (DELETE,FILE)^VAFCTFU  $$SITE^VASITE  
VA FileMan 2 NOW^%DTC  ^DIR  
Master Patient Index VistA 1 $$UPDATE^MPIFAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Information Resource Network 1 RGMTSTAT  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
BEGIN ;
TFCHK ; Get totals for duplicates in TF file (#391.91)
START ;
STARTQ ;pick up here for queued job
EN1 ;Use this entry point to get only display diagnostics for development team
EN2 ;Use this entry point from remote query
EN3 ;Use this entry point for site menu option [RG NATIONAL ICN STATISTICS] to omit
TF ; Get totals for unique sites in the TF file (#391.91)
BY ;use this call to bypass check to prohibit primetime run
CMOR ; Check "ACMOR" xref for:
; - existence of a TF entry for the CMOR in the TF file #391.91
; - existence of a TF for the local site (if not the CMOR)
; - CMOR totals by site

External References

Name Field # of Occurrence
NOW^%DTC STARTQ+1, STARTQ+21
^DIR START+21
$$UPDATE^MPIFAPI CMOR+28
REIND^RGMTUT02 STARTQ+17
^RGMTUT03 START+10, STARTQ+23
DELETE^VAFCTFU TFCHK+22, TFCHK+28, TFCHK+36
FILE^VAFCTFU CMOR+35, CMOR+41
$$SITE^VASITE CMOR+16, TF+5, TFCHK+12
$$DOW^XLFDT STARTQ+4
$$FMADD^XLFDT STARTQ+13
$$FMTE^XLFDT START+13
$$NOW^XLFDT STARTQ+4, STARTQ+13
$$NS^XUAF4 CMOR+26, CMOR+44, TF+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Stat Report is currently being compiled."
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !!,"This option provides the following statistics:"
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: !?3,"1. Total patients assigned to each unique COORDINATING MASTER OF"
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !?3," RECORD (CMOR)."
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !?3,"2. Total patients shared with each unique entry in the TREATING"
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !?3," FACILITY LIST (#391.91) file."
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: !?3,"3. Totals for national ICNs, local ICNs, and patients with no ICN."
  • Line Location: BEGIN+18
Function Call: WRITE
  • Prompt: !?3,"4. Total CMOR assignments missing a matching Treating Facility."
  • Line Location: BEGIN+20
Function Call: WRITE
  • Prompt: !?3,"5. Total patients with NATIONAL ICN and missing local Treating Facility."
  • Line Location: BEGIN+21
Function Call: WRITE
  • Prompt: !?3,"6. Total number of patients with duplicate entries in the TREATING"
  • Line Location: BEGIN+22
Function Call: WRITE
  • Prompt: !?3," FACILITY LIST file (#391.91)."
  • Line Location: BEGIN+23
Function Call: WRITE
  • Prompt: !?3,"7. Patient File xref problems for ""AICN"", ""AICNL"", and ""SSN""."
  • Line Location: BEGIN+24
Function Call: WRITE
  • Prompt: !?3,"8. Total number of patients with a no ICN but have a CMOR assignment."
  • Line Location: BEGIN+25
Function Call: WRITE
  • Prompt: !?3,"9. Total number of patients with a no ICN but have TF assignments."
  • Line Location: BEGIN+26
Function Call: WRITE
  • Prompt: !?3,"10. Total number of patients with a local ICN but have remote TFs."
  • Line Location: BEGIN+27
Function Call: WRITE
  • Prompt: !!,"No data is currently available."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"===> NOTE <==="
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Recompiling data..."
  • Line Location: STARTQ+11
Function Call: WRITE
  • Prompt: !?3,"DFN #",DFN," has no ICN and a CMOR of ",$P($$NS^XUAF4(CMOR),"^")
  • Line Location: CMOR+26
Function Call: WRITE
  • Prompt: $$UPDATE^MPIFAPI(DFN,"LOC")
  • Line Location: CMOR+28
Function Call: WRITE
  • Prompt: !,"Check #1 - Complete"
  • Line Location: CMOR+49
Function Call: WRITE
  • Prompt: !,"Check #2 - Complete"
  • Line Location: TF+13
Function Call: WRITE
  • Prompt: !,"Check #3 - Complete"
  • Line Location: TFCHK+41
Routine Call
  • DIR
  • Line Location:
    • START+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSCH("TASK" BEGIN+4, BEGIN+5
^DGCN(391.91 - [#391.91] CMOR+30, CMOR+36, TF+6, TF+9, TFCHK+13, TFCHK+15, TFCHK+20, TFCHK+25, TFCHK+30
^DPT - [#2] CMOR+22, CMOR+32, CMOR+33, CMOR+38, CMOR+39, TFCHK+16, TFCHK+33
^DPT("ACMOR" CMOR+18, CMOR+20
^XTMP("RGMT" BEGIN+2, BEGIN+10!, START+2, START+10, START+12, STARTQ+13*, STARTQ+14!, STARTQ+15*, STARTQ+22*, CMOR+11!
, CMOR+12!, CMOR+13!, CMOR+14!, CMOR+27*, CMOR+34*, CMOR+40*, CMOR+45*, CMOR+46*, CMOR+47*, CMOR+48*
, TF+4!, TF+12*, TFCHK+10!, TFCHK+21*, TFCHK+27*, TFCHK+35*, TFCHK+38*, TFCHK+39*, TFCHK+40*

Label References

Name Line Occurrences
BEGIN EN1+6, EN2+1, EN3+2
CMOR STARTQ+18
QUIT BEGIN+2, START+2, START+10, STARTQ+6
START BEGIN+19
STARTQ BEGIN+12
TF STARTQ+18
TFCHK STARTQ+18

Naked Globals

Name Field # of Occurrence
^(0 TFCHK+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STARTQ+7, STARTQ+15, STARTQ+22, QUIT+1!
BYPASS EN1+6*, EN2+1*, EN3+2*, BY+1*, STARTQ+4*, STARTQ+6, QUIT+1!
CHKTIME STARTQ+7*, STARTQ+8, QUIT+1!
CMOR CMOR+18*, CMOR+19, CMOR+20, CMOR+26, CMOR+29, CMOR+30, CMOR+34, CMOR+35, CMOR+36, CMOR+40
, CMOR+43*, CMOR+44, CMOR+45, CMOR+50!
CMOR( CMOR+19*, CMOR+29*, CMOR+43, CMOR+45
CMORNM CMOR+44*, CMOR+45, CMOR+50!
CMORSTA CMOR+44*, CMOR+45, CMOR+50!
CNT CMOR+15*, CMOR+21*, CMOR+50!, TF+4*, TF+7*, TF+14!
DFN CMOR+20*, CMOR+22, CMOR+26, CMOR+27, CMOR+28, CMOR+30, CMOR+32, CMOR+33, CMOR+34, CMOR+35
, CMOR+36, CMOR+38, CMOR+39, CMOR+40, CMOR+41, CMOR+50!, TFCHK+13*, TFCHK+15, TFCHK+16, TFCHK+20
, TFCHK+21, TFCHK+25, TFCHK+27, TFCHK+30, TFCHK+33, TFCHK+35, TFCHK+42!
DIR START+21!
DIR("?" START+17*, START+18*, START+19*, START+20*
DIR("A" START+16*
DIR("B" START+16*
DIR(0 START+16*
DT STARTQ+13
DUPCNT TFCHK+11*, TFCHK+32*, TFCHK+38, TFCHK+42!
ICN CMOR+22*, CMOR+23, CMOR+24, CMOR+34, CMOR+40, CMOR+50!, TFCHK+16*, TFCHK+18, TFCHK+24, TFCHK+42!
LAST START+12*, START+13*, START+14, QUIT+1!
LOC QUIT+1!
LOC( CMOR+28*
LOCICN TFCHK+11*, TFCHK+26*, TFCHK+40, TFCHK+42!
MPI0 TFCHK+16*, TFCHK+42!
NAME CMOR+33*, CMOR+34, CMOR+39*, CMOR+40, CMOR+50!
NM TFCHK+34*, TFCHK+35, TFCHK+42!
NOICN CMOR+15*, CMOR+25*, CMOR+48, CMOR+50!, TFCHK+11*, TFCHK+19*, TFCHK+39, TFCHK+42!
PRT BEGIN+1*, START+10, START+11*, START+15*, START+23*, STARTQ+20, QUIT+1!
PTCNT TFCHK+11*, TFCHK+14*, TFCHK+42!
QFLG BEGIN+1*, BEGIN+2, BEGIN+8*, BEGIN+10, START+1*, START+10, START+22*, QUIT+1!
QUIT STARTQ+5*, STARTQ+6, STARTQ+8*, QUIT+1!
>> RGHLMQ BEGIN+9, BEGIN+12, STARTQ+8, STARTQ+11, CMOR+5, CMOR+21, CMOR+26, CMOR+49, TF+1, TF+7
, TF+13, TFCHK+4, TFCHK+14, TFCHK+41
RGROU BEGIN+1!, BEGIN+5*, BEGIN+6, QUIT+1!
SITE TF+5*, TF+14!
SITEDA CMOR+16*, CMOR+36, CMOR+41, CMOR+50!, TFCHK+12*, TFCHK+24, TFCHK+42!
SITEOPT EN1+6*, EN2+1*, EN3+2*, BY+1*, BEGIN+19, START+2, START+5, START+15, QUIT+1!
SITESTA CMOR+16*, CMOR+23, CMOR+50!, TFCHK+12*, TFCHK+24, TFCHK+42!
SSN CMOR+32*, CMOR+34, CMOR+38*, CMOR+40, CMOR+50!, TFCHK+33*, TFCHK+35, TFCHK+42!
TASK BEGIN+4*, BEGIN+5, BEGIN+7, QUIT+1!
TF TF+6*, TF+8, TF+9, TF+10*, TF+11, TF+12, TF+14!, TFCHK+15*, TFCHK+20, TFCHK+24
, TFCHK+25, TFCHK+30, TFCHK+35, TFCHK+42!
TFCNT TF+4!, TF+14!, TFCHK+30*, TFCHK+31*, TFCHK+42!
TFCNT( TF+8*, TF+9*, TF+10, TF+12
TFIEN TF+9*, TF+14!, TFCHK+20*, TFCHK+21, TFCHK+22, TFCHK+25*, TFCHK+27, TFCHK+28, TFCHK+30*, TFCHK+35
, TFCHK+36, TFCHK+42!
TFNM TF+11*, TF+12, TF+14!
TFSTA TF+11*, TF+12, TF+14!
TODAY STARTQ+4*, QUIT+1!
TOTMISSC CMOR+15*, CMOR+31*, CMOR+46, CMOR+50!
TOTMISSL CMOR+15*, CMOR+37*, CMOR+47, CMOR+50!
Y START+22, START+23, QUIT+1!
>> ZTSK BEGIN+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All