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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RORP032

Package: Clinical Case Registries

Routine: RORP032


Information

RORP032 ;ALB/SJA - CCR PRE/POST-INSTALL PATCH 32 ;18 Apr 2017 1:38 PM

Source Information

Source file <RORP032.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 7 BLD^DIALOG  ^DIC  UPDATE^DIE  ^DIK  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Clinical Case Registries 6 DBS^RORERR  $$MSG^RORERR20  ^RORSET02  XTMPHDR^RORUTL01  $$REGIEN^RORUTL02  TASK^RORUTL22  
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 ; --- Pre-Install routine for Patch 32
; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST ; --- Post-Install routine for Patch 32
NEWREG ; --- Update ROR LIST ITEM file (#799.1) for new registriesList of new registries to initialize
UPDPROC ; --- Update ROR LIST ITEM file (#799.1) for new registriesAdds 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
UPDLIST
LISTITEM ; --- Entries to add to ROR LIST ITEM file (#799.1) text^group^code
GENDRG ; --- Delete entry in ROR GENERIC DRUG with unresolved pointers
; clean up 799.51 if pointers are bad
; HEP C registry : GLECAPREVIR/PIBRENTASVIR - Released in PSN*4*536
; HIV registry : DOLUTEGRAVIR/RILPIVIRINE - Released in PSN*4*545
POSQ3(DIR)
POSQ4(DIR)
POSQ5(DIR) ; --- Updates the DIR array from the post-install question #5 (schedule time for ROR INITIALIZE task)

External References

Name Field # of Occurrence
RTN^%ZTLOAD PRE+16
STAT^%ZTLOAD PRE+18
BLD^DIALOG POSQ3+3, POSQ4+6
^DIC UPDPROC+3, GENDRG+8
UPDATE^DIE POST+34, ADD7985+2, UPDLIST+12
^DIK UPDPROC+4, GENDRG+10
CLEAN^DILF POST+51, UPDPROC+26
$$GET1^DIQ PRE+37
^DIR PRE+41
DBS^RORERR POST+38, ADD7985+6
$$MSG^RORERR20 PRE+22
^RORSET02 POST+47
XTMPHDR^RORUTL01 PRE+32
$$REGIEN^RORUTL02 PRE+34, POST+21, UPDLIST+3
TASK^RORUTL22 POST+50
$$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+14, PRE+22, PRE+23, PRE+42, POST+3
, POST+6, POST+9, POST+11, POST+13, POST+15, POST+17, POST+49, POST+50, POST+52, GENDRG+11
MES^XPDUTL PRE+28, POST+27, POST+46, ADD7985+14, UPDLIST+22
OWNSKEY^XUSRB PRE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+41
Routine Call
  • DIALOG
  • Line Location:
    • POSQ3+3
    • POSQ4+6
Routine Call
  • DIC
  • Line Location:
    • UPDPROC+3
    • GENDRG+8
Routine Call
  • DIE
  • Line Location:
    • POST+34
    • ADD7985+2
    • UPDLIST+12
Routine Call
  • DIR
  • Line Location:
    • PRE+41

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.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
^XTMP("ROR_NO_INIT" PRE+31!, PRE+42!, PRE+43*, POST+23, POST+48!

Label References

Name Line Occurrences
ADD7985 UPDPROC+9, UPDPROC+12, UPDPROC+25
GENDRG POST+7
UPDLIST POST+14
UPDPROC POST+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T(@(5) PRE+33, POST+20, 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 |  Local Variables |  Marked Items  | All