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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: RORP031

Package: Clinical Case Registries

Routine: RORP031


Information

RORP031 ;ALB/TK ENV CK, PRE and POST INSTALL - PATCH 31 ; 04 Aug 2015 6:28 PM

Source Information

Source file <RORP031.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 7 BLD^DIALOG  ^DIC  (FILE,UPDATE)^DIE  ^DIK  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Clinical Case Registries 5 DBS^RORERR  $$MSG^RORERR20  ^RORSET02  XTMPHDR^RORUTL01  $$REGIEN^RORUTL02  
Kernel 4 (RTN,STAT)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  OWNSKEY^XUSRB  

Entry Points

Name Comments DBIA/ICR reference
ENV ; Environment check
PRE ; Patch pre-install
; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST ; Patch post-install
NEWREG ; List of new registries to initialize
UPDPROC ; Adds ICD dx/procedure codes and CPT codes to the new registries in ROR ICD file
; Delete if already there
ADD7985(RORFDA,RORIEN,RORREG) ; Adds procedures to the entries in the files
ICDPROC ; Registry name^PTF ICD Procedure codes, separated by commas^PTF CPT codes, separated by commas^ ICD DIAGNOSIS codes
POSQ3(DIR) ;
UPDLIST
LISTITEM ; Entries to add to file 799.1 text^group^code
POSQ4(DIR) ;
POSQ5(DIR) ;
UPDPANEL ; --- Add new Age Range panel #21 to all reports following the Birth Sex panel #23
UP799P1 ; --- Rename 'HIV WB' entry of the VA HIV Registry in the ROR LIST ITEM file (#799.1) to 'HIV Confirm'
GENDRG ; --- Delete entry in ROR GENERIC DRUG with unresolved pointers
; clean up 799.51 if pointers are bad

External References

Name Field # of Occurrence
RTN^%ZTLOAD PRE+17
STAT^%ZTLOAD PRE+19
BLD^DIALOG POSQ3+3, POSQ4+6
^DIC UPDPROC+3, GENDRG+4
FILE^DIE UP799P1+3
UPDATE^DIE POST+38, ADD7985+2, UPDLIST+12, UPDPANEL+10
^DIK UPDPROC+4, GENDRG+6
CLEAN^DILF POST+55, UPDPROC+26
$$GET1^DIQ PRE+38, UPDPANEL+4, UP799P1+3
^DIR PRE+42
DBS^RORERR POST+42, ADD7985+6, UPDPANEL+13
$$MSG^RORERR20 PRE+23
^RORSET02 POST+51
XTMPHDR^RORUTL01 PRE+33
$$REGIEN^RORUTL02 PRE+35, POST+25, UPDLIST+3
$$FMADD^XLFDT POSQ5+4
$$FMTE^XLFDT POSQ5+9
$$NOW^XLFDT POSQ5+4
BMES^XPDUTL PRE+3, PRE+7, PRE+8, PRE+9, PRE+10, PRE+15, PRE+23, PRE+24, PRE+43, POST+4
, POST+6, POST+8, POST+10, POST+13, POST+15, POST+17, POST+19, POST+21, POST+53, POST+56
, UPDPANEL+6, GENDRG+7
MES^XPDUTL PRE+29, POST+31, POST+50, ADD7985+14, UPDLIST+22, UPDPANEL+21
OWNSKEY^XUSRB PRE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+42
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+42
Routine Call
  • DIALOG
  • Line Location:
    • POSQ3+3
    • POSQ4+6
Routine Call
  • DIC
  • Line Location:
    • UPDPROC+3
    • GENDRG+4
Routine Call
  • DIE
  • Line Location:
    • UP799P1+3
Routine Call
  • DIE
  • Line Location:
    • POST+38
    • ADD7985+2
    • UPDLIST+12
    • UPDPANEL+10
Routine Call
  • DIR
  • Line Location:
    • PRE+42

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ROR(798.1 - [#798.1] GET1^DIQ
^ROR(798.5 - [#798.5] Classic Fileman Calls
^ROR(799.1 - [#799.1] GET1^DIQ
^ROR(799.34 - [#799.34] GET1^DIQ
^ROR(799.51 - [#799.51] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ROR(798.1 - [#798.1] UPDPROC+9
^ROR(799.1 - [#799.1] UPDLIST+6, UP799P1+2
^ROR(799.34 - [#799.34] UPDPANEL+2, UPDPANEL+16
^XTMP("ROR_NO_INIT" PRE+32!, PRE+43!, PRE+44*, POST+27, POST+52!

Label References

Name Line Occurrences
ADD7985 UPDPROC+9, UPDPROC+12, UPDPROC+25
GENDRG POST+11
UP799P1 POST+7
UPDLIST POST+18
UPDPANEL POST+7
UPDPROC POST+14

Naked Globals

Name Field # of Occurrence
^( UP799P1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT POST+1~, POST+22~, POST+48*, POST+49*, UPDPROC+2~, UPDPROC+11*, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*, ADD7985+4~
, ADD7985+12*, ADD7985+13*, UPDLIST+1~, UPDLIST+20*, UPDLIST+21*, UPDPANEL+1~, UPDPANEL+19*, UPDPANEL+20*
DA UPDPROC+2~, UPDPROC+4*, GENDRG+3~, GENDRG+6*
DIC UPDPROC+3*, GENDRG+3~, GENDRG+4*
DIC(0 UPDPROC+3*, GENDRG+4*
DIERR POST+22~, POST+39, ADD7985+1~, ADD7985+3, UPDLIST+1~, UPDLIST+7!, UPDLIST+13, UPDPANEL+1~, UPDPANEL+11
DIK UPDPROC+2~, UPDPROC+4*, GENDRG+3~, GENDRG+6*
DIR PRE+31~, PRE+42!, POSQ3~, POSQ3+1!, POSQ3+2, POSQ4~, POSQ4+1!, POSQ4+2, POSQ5~, POSQ5+1
DIR("A" PRE+40*, PRE+41*, POSQ4+3*
DIR("B" PRE+41*, POSQ5+9*
DIR(0 PRE+40*, POSQ4+5*, POSQ5+8*
DUZ PRE+4
FDA UP799P1+1~
FDA( UP799P1+3*
I1 UPDPROC+2~, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*
NODE UP799P1+1~, UP799P1+2*
P1 UPDPANEL+1~, UPDPANEL+8*, UPDPANEL+9
P2 UPDPANEL+1~, UPDPANEL+8*, UPDPANEL+9
RC PRE+13~, PRE+16*, PRE+18*, PRE+21, PRE+23
REGIEN PRE+31~, PRE+35*, PRE+36, PRE+38, PRE+40, PRE+44, POST+1~, POST+25*, POST+26, POST+27
, POST+28, POST+35, POST+36, POST+37, POST+42, POST+45, UPDLIST+1~, UPDLIST+3*, UPDLIST+4, UPDLIST+6
, UPDLIST+10, UPDLIST+15
RORBUF PRE+13~
RORBUF( PRE+18
RORDA UP799P1+1~, UP799P1+2*, UP799P1+3
RORDATA UPDPROC+2~, UPDPROC+5*, UPDPROC+6, UPDPROC+15, UPDPROC+16, UPDPROC+18, UPDPROC+19, UPDPROC+21, UPDPROC+22, UPDLIST+1~
, UPDLIST+5*, UPDLIST+6, UPDLIST+8, UPDLIST+9, UPDLIST+11, UPDLIST+17, UPDPANEL+1~, UPDPANEL+4*, UPDPANEL+5, UPDPANEL+8
ROREDT POSQ5+2~, POSQ5+4*, POSQ5+6*, POSQ5+8, POSQ5+9
RORERR POST+22~, POST+31, POST+32!, POST+34!, POST+40!, POST+41*, POST+43, POST+44!, POST+50, ADD7985+4~
, ADD7985+5*, ADD7985+7, ADD7985+8!, ADD7985+14, UPDLIST+1~, UPDLIST+7!, UPDLIST+14!, UPDLIST+22, UPDPANEL+1~, UPDPANEL+12!
, UPDPANEL+14, UPDPANEL+15!, UPDPANEL+21
RORERR( POST+48*, POST+49*, ADD7985+12*, ADD7985+13*, UPDLIST+20*, UPDLIST+21*, UPDPANEL+19*, UPDPANEL+20*
RORERR(1 POST+28*, POST+45*, ADD7985+9*, UPDLIST+15*, UPDPANEL+16*
RORERR(2 POST+29*, POST+46*, ADD7985+10*, UPDLIST+16*, UPDPANEL+17*
RORERR(3 POST+30*, POST+47*, ADD7985+11*, UPDLIST+17*, UPDPANEL+18*
RORERR(4 UPDLIST+18*
RORERR(5 UPDLIST+19*
RORFDA POST+34!, UPDPROC+2~, UPDPROC+9, UPDPROC+25, ADD7985~, UPDLIST+1~, UPDLIST+7!, UPDPANEL+1~, UPDPANEL+7!
RORFDA( POST+35*, POST+36*, POST+37*, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*, UPDLIST+8*, UPDLIST+9*, UPDLIST+10*, UPDLIST+11*
, UPDPANEL+9*
RORFDA1 UPDPROC+2~, UPDPROC+10!, UPDPROC+12, UPDPROC+14!
RORFDA1( UPDPROC+11*
RORI PRE+31~, PRE+34*, POST+1~, POST+24*, UPDPROC+2~, UPDPROC+3*, UPDPROC+5*, UPDLIST+1~, UPDLIST+2*
RORI1 UPDLIST+1~, UPDLIST+5*
RORIEN UPDPROC+2~, UPDPROC+9, UPDPROC+11*, UPDPROC+12, UPDPROC+14!*, UPDPROC+17, UPDPROC+20, UPDPROC+23, UPDPROC+25, ADD7985~
RORIEN( UPDPROC+13
RORIEN(0 UPDPROC+13
RORKEYOK PRE+2~, PRE+4
RORKEYOK(0 PRE+5
RORKIDS POST+22~, POST+23*
RORMES PRE+13~, PRE+22!, PRE+29
RORMES(1 PRE+25*
RORMES(2 PRE+26*
RORMES(3 PRE+27*
RORMES(4 PRE+28*
RORMSG POST+34!, POST+41, POST+43*, ADD7985+1~, ADD7985+5, ADD7985+7*, UPDLIST+1~, UPDLIST+7!, UPDPANEL+1~, UPDPANEL+7!
, UPDPANEL+14*
RORMSG("DIERR" POST+48, ADD7985+12, UPDLIST+20, UPDPANEL+19
RORPARM POST+2~
RORPARM("DEVELOPER" PRE+30*, POST+3*
RORPROC UPDPROC+2~, UPDPROC+16*, UPDPROC+17, UPDPROC+19*, UPDPROC+20, UPDPROC+22*, UPDPROC+23
RORREG PRE+31~, PRE+34*, PRE+35, PRE+40, POST+1~, POST+24*, POST+25, POST+28, POST+45, UPDPROC+2~
, UPDPROC+6*, UPDPROC+7, UPDPROC+11, UPDPROC+12, UPDPROC+25, ADD7985~, ADD7985+6, ADD7985+9, UPDLIST+1~, UPDLIST+2*
, UPDLIST+3, UPDLIST+15
RORRPT UPDPANEL+1~, UPDPANEL+2*, UPDPANEL+4, UPDPANEL+6, UPDPANEL+9, UPDPANEL+13, UPDPANEL+16
U PRE+34, POST+24, UPDPROC+6, UPDPROC+9, UPDPROC+15, UPDPROC+16, UPDPROC+18, UPDPROC+19, UPDPROC+21, UPDPROC+22
, UPDLIST+2, UPDLIST+6, UPDLIST+8, UPDLIST+9, UPDLIST+11, POSQ5+8, UPDPANEL+16, GENDRG+5
X PRE+31~, UPDPROC+2~, UPDPROC+3*, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*, UPDPANEL+1~, GENDRG+3~, GENDRG+4*
>> XPDABORT PRE+6*, PRE+21*, PRE+34, PRE+43*
>> XPDNM PRE+23
>> XPDNOQUE ENV+1*
>> XPDQUES("POSQ2" POSQ3+1, POSQ4+1
Y PRE+31~, PRE+43, PRE+44, UPDPROC+2~, UPDPROC+3, UPDPROC+4, UPDPANEL+1~, GENDRG+3~, GENDRG+6
Y(0 GENDRG+5
Z PRE+31~, PRE+38*, PRE+39, POST+1~, POST+48*, UPDPROC+2~, UPDPROC+13*, UPDPROC+14, ADD7985+4~, ADD7985+12*
, UPDLIST+1~, UPDLIST+20*, UPDPANEL+1~, UPDPANEL+19*
ZTSK PRE+13~, PRE+18*, PRE+25
ZTSK(1 PRE+18

Marked Items

Name Field # of Occurrence
$T(@(5) PRE+34, POST+24, UPDLIST+2, UPDLIST+5
$T(ICDPROC+RORI UPDPROC+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All