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

Package: Clinical Case Registries

Routine: RORREP01


Information

RORREP01 ;HOIFO/BH - REGISTRY COMPARISON REPORT ; 12/21/05 11:55am

Source Information

Source file <RORREP01.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Clinical Case Registries 5 IMRDEV^IMREDIT  ACESSERR^IMRERR  ($$NEXTPAT,$$PATITER)^RORAPI01  PRNT^RORREP02  $$XOR^RORUTL03  
Kernel 4 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  H^XUS  
VA FileMan 3 DD^%DT  $$VFILE^DILFD  $$GET1^DIQ  
Master Patient Index VistA 1 $$GETICN^MPIF001  

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

Package Total Caller Graph
Clinical Case Registries 1 RORICR VERSION COMPARISON  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
DEV
REP ; Get Data
CLOSE
KILL
EN1 ;
VTHREE ; Make array of version 3 patients
VTWO ; Make array of version 2.1 patients
VTWO1(PAT,ENCODE) ;
INTWO ; Patients in version 2.1 and not in three or in both
INTHREE ; Patients in version 3.0 and not in two OR in both
DATE21(ENCODE) ; Get date added to ICR 2.1
PEND(IEN) ;
RULE(IEN) ; Get earliest selction rule

External References

Name Field # of Occurrence
DD^%DT DATE21+12, RULE+30
HOME^%ZIS KILL+3
^%ZISC CLOSEKILL
^%ZTLOAD DEV+6
$$VFILE^DILFD BEGIN+1
$$GET1^DIQ VTWO+20, VTWO1+2, VTWO1+12, INTWO+3, INTWO+4, INTHREE+3, INTHREE+4, RULE+13, RULE+20
IMRDEV^IMREDIT DEV
ACESSERR^IMRERR BEGIN+3
$$GETICN^MPIF001 VTHREE+8, VTWO1+9
$$NEXTPAT^RORAPI01 VTHREE+5
$$PATITER^RORAPI01 VTHREE+3
PRNT^RORREP02 REP+5
$$XOR^RORUTL03 VTWO+8
H^XUS BEGIN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ICR v2.1 is not installed in this account!",!
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,?10,"####################################################"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,?10,"#",?20,"Local ICR Version Comparison Report #",?61
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !,?10,"####################################################"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: ENCODE_"***"
  • Line Location: VTWO1+8
Routine Call
  • %ZIS
  • Line Location:
    • KILL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^RORDATA(798 - [#798] GET1^DIQ
^ROR(798.2 - [#798.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] VTHREE+10, VTWO+13, VTWO+15, VTWO1+11
^IMR(158 VTWO+3, VTWO+4, DATE21+3, DATE21+4
^RORDATA(798 - [#798] PEND+3, PEND+4, RULE+3, RULE+10, RULE+11, RULE+22
^TMP("RORREP01" KILL+1!, EN1+1!, VTHREE+7*, VTHREE+11*, VTWO+7*, VTWO+11*, VTWO+17, VTWO+18*, VTWO+22*, VTWO+26
VTWO+28, VTWO+29, VTWO+32!, VTWO1+4*, VTWO1+6*, VTWO1+7*, VTWO1+13*, INTWO+2, INTWO+5, INTWO+6
INTWO+7*, INTWO+9*, INTHREE+2, INTHREE+5*, INTHREE+8, INTHREE+10*, INTHREE+11, INTHREE+12*, RULE+6*, RULE+25*
, RULE+27*
^XUSEC("IMRA" BEGIN+3

Label References

Name Line Occurrences
$$DATE21 INTWO+5, INTHREE+11
$$PEND INTHREE+9
$$RULE INTWO+8, INTHREE+7
EN1 REP+2
INTHREE EN1+7
INTWO EN1+6
KILL DEV+1, DEV+3
REP DEV+2
VTHREE EN1+3
VTWO EN1+4
VTWO1 VTWO+24, VTWO+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I KILL+2!
%ZIS CLOSE!
A KILL+2!
BUFF RULE+19~, RULE+24*, RULE+25
CNT REP+3!, EN1+2*, VTWO+6*, VTWO+7, VTWO+10*, VTWO+11, VTWO+21*, VTWO+22, VTWO1+3*, VTWO1+4
INTHREE+5*, RULE+5*, RULE+6, RULE+18*
D KILL+2!
DATA RULE+8~, RULE+11*, RULE+12, RULE+14
DATE1 RULE+8~, RULE+28*, RULE+29, RULE+30*, RULE+31
DATE21 INTWO+1~, INTWO+5*, INTWO+7, INTWO+9, INTHREE+1~, INTHREE+11*, INTHREE+12
DIRUT KILL+2!
DISYS KILL+2!
DTOUT KILL+2!
DUZ BEGIN+3
ENC VTWO+27~, VTWO+29*, VTWO+30
ENCODE VTWO+1~, VTWO+4*, VTWO+5, VTWO+8, VTWO+11, VTWO+18, VTWO+24, VTWO1~, VTWO1+4, VTWO1+7
, VTWO1+8, DATE21~, DATE21+3
EVID RULE+19~, RULE+22*, RULE+23, RULE+26
I KILL+2!
ICN VTHREE+1~, VTHREE+8*, VTHREE+9, VTWO1+1~, VTWO1+9*, VTWO1+10
IDSC VTHREE+1~, VTHREE+3, VTHREE+5
IEN INTWO+1~*, INTWO+2*, INTWO+3, INTWO+4, INTWO+5, INTWO+6, INTWO+8, INTHREE+1~*, INTHREE+2*, INTHREE+3
INTHREE+4, INTHREE+5, INTHREE+7, INTHREE+8, INTHREE+9, INTHREE+11, PEND~, PEND+3, RULE~, RULE+3
, RULE+6, RULE+25, RULE+27
IMRARR DATE21+1~, DATE21+9
IMRARR( DATE21+5*, DATE21+6*, DATE21+7*, DATE21+8*, DATE21+11
IMRCAT1 DATE21+1~, DATE21+5*
IMRCAT2 DATE21+1~, DATE21+6*
IMRCAT3 DATE21+1~, DATE21+7*
IMRCAT4 DATE21+1~, DATE21+8*
IMRDTE KILL+2!, DATE21+1~, DATE21+10*, DATE21+11*, DATE21+12*, DATE21+13
IMRFLG KILL+2!
IMRHED KILL+2!
IMRIEN VTWO+1~, VTWO+2*, VTWO+3*, VTWO+4, VTWO+7, DATE21+1~, DATE21+2*, DATE21+3*, DATE21+4
IMRLOC BEGIN+3*!
IMRNODE DATE21+1~, DATE21+4*, DATE21+5, DATE21+6, DATE21+7, DATE21+8
IMRPG KILL+2!
IMRRPG KILL+2!
IO REP+1
IO("Q" DEV+2, DEV+3
IOF DEV+2
IOM DEV+5
ION DEV+5
IOP CLOSE!
IOSL DEV+5
J KILL+2!
NAME VTHREE+1~, VTHREE+10*, VTHREE+11, VTWO1+11*, VTWO1+13, INTWO+1~, INTWO+3*, INTWO+7, INTWO+9, INTHREE+1~
INTHREE+3*, INTHREE+5, INTHREE+10, INTHREE+12
NEWIEN VTWO+14~, VTWO+15*, VTWO+16, VTWO+17, VTWO+18
NME RULE+19~, RULE+20*, RULE+24, RULE+27
PAT VTHREE+1~, VTHREE+6*, VTHREE+7, VTHREE+8, VTHREE+10, VTHREE+11, VTWO+1~, VTWO+8*, VTWO+9, VTWO+13
VTWO+15, VTWO+20, VTWO+22, VTWO+24, VTWO1~, VTWO1+2, VTWO1+6, VTWO1+7, VTWO1+8, VTWO1+9
, VTWO1+11, VTWO1+12, VTWO1+13
PEND PEND+1~, PEND+2*, PEND+5*, PEND+6
PENDING INTHREE+1~, INTHREE+9*, INTHREE+10
POP DEV+1, KILL+2!
RC VTHREE+1~, VTHREE+3*, VTHREE+4, VTHREE+5*, VTHREE+6
>> RES PEND+4*, PEND+5
RORIEN PEND+1~, PEND+2*, PEND+3*, PEND+4, RULE+1~, RULE+2*, RULE+3*, RULE+4, RULE+10, RULE+11
, RULE+20, RULE+22
RORSRIEN RULE+8~, RULE+9*, RULE+10*, RULE+11
RULE INTWO+1~, INTWO+8*, INTWO+9, INTHREE+1~, INTHREE+7*, INTHREE+10, INTHREE+12, RULE+8~, RULE+12*, RULE+13*
, RULE+15
RULE1 RULE+8~, RULE+29*, RULE+31
SELARR RULE+8~, RULE+17
SELARR( RULE+15*, RULE+28, RULE+29
SELDATE RULE+8~, RULE+14*, RULE+15
SSN VTWO1+1~, VTWO1+12*, VTWO1+13, INTWO+1~, INTWO+4*, INTWO+7, INTWO+9, INTHREE+1~, INTHREE+4*, INTHREE+10
INTHREE+12
SUB4 VTWO+27~*, VTWO+28*, VTWO+29, VTWO+30
U VTWO+4, RULE+22
VAERR KILL+2!
VAROOT KILL+2!
VTHREE VTHREE+2!
X KILL+2!
X0 KILL+2!
X1 KILL+2!
Y KILL+2!, DATE21+12*, RULE+30*
Z KILL+2!
ZTDESC DEV+4*, DEV+6!
>> ZTIO DEV+5*
>> ZTQUEUED CLOSE+1
>> ZTREQ CLOSE+1*
ZTRTN DEV+4*, DEV+6!
ZTSAVE DEV+6!
ZTSAVE("*" DEV+5*
ZTSK DEV+6!
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