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

Package: Clinical Case Registries

Routine: RORP037


Information

RORP037 ;ALB/MAF - CCR PRE/POST-INSTALL PATCH 37 ;31 AUG 2020 1:07 PM

Source Information

Source file <RORP037.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 8 BLD^DIALOG  ^DIC  FILE^DICN  UPDATE^DIE  ^DIK  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Clinical Case Registries 5 DBS^RORERR  $$MSG^RORERR20  ^RORSET02  XTMPHDR^RORUTL01  $$REGIEN^RORUTL02  
Kernel 4 (OPTION,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 37
; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST ; --- Post-Install routine for Patch 37
UPDMETA ;
; Add 1 new Data Element to file 45 in the ROR METADATA file (delete first if they already exist)
LOINC ;Add new LOINC codes to the VA COVID19 lab search criterion in
GENDRG ; --- Delete entry in ROR GENERIC DRUG with unresolved pointers
; clean up 799.51 if pointers are bad
; New HIV registry Drugs :
;
UPDPANEL ;
; For parameter panel field, add 29, after ,24, right below the Additional Identifiers panel for
; Diagnosis ( REPORT CODE 13)
; Procedure ( REPORT CODE 15)
POSQ3(DIR) ; --- Sets the DIR array from the post-install question #3 (suspension start time)
POSQ4(DIR) ; --- Sets the DIR array from the post-install question #4 (suspension end time)
POSQ5(DIR) ; --- Updates the DIR array from the post-install question #5 (schedule time for ROR INITIALIZE task)
NEWREG ; --- List of new registries to initialize
UPDPROC ; --- Adds ICD dx/procedure codes and CPT codes to the new registries in ROR ICD SEARCH (#798.5)
; Delete if already there ,"COVID19"
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 ; --- Update ROR LIST ITEM file (#799.1) for new registries
LISTITEM ; --- Entries to add to ROR LIST ITEM file (#799.1) text^group^code
COVID19 ;
META45 ; Data added to file 45 PTF
METAVST ; Data added to file 9000010 VISIT
COLO ; Data added to file 798.1 subfile EXTRACTED RESULTS
SELRL ; NEW SELECTION RULE TO ADD
RORERR ; ERROR
COVLOINC ; Adding data to the EXTRACTED RESULTS multiple. adding to the LOINC and SUBSCRIPTS Subfields.
COVSEL ; Adding new selection to the SELECTION RULE multiple of 798.1 for COVID19

External References

Name Field # of Occurrence
OPTION^%ZTLOAD PRE+16, PRE+33
STAT^%ZTLOAD PRE+18, PRE+36
BLD^DIALOG POSQ3+3, POSQ4+6
^DIC UPDMETA+6, UPDMETA+23, COVLOINC+6, COVLOINC+8, COVSEL+6, COVSEL+8
FILE^DICN LOINC+6
UPDATE^DIE POST+43, UPDMETA+17, UPDMETA+34, LOINC+10, LOINC+24, UPDLIST+12, COVLOINC+13, COVSEL+12
^DIK UPDMETA+7, UPDMETA+24, COVLOINC+7, COVSEL+7
CLEAN^DILF POST+59
$$GET1^DIQ PRE+57
^DIR PRE+61
DBS^RORERR POST+47, LOINC+11, RORERR+3
$$MSG^RORERR20 PRE+23, PRE+42
^RORSET02 POST+56
XTMPHDR^RORUTL01 PRE+52
$$REGIEN^RORUTL02 PRE+54, POST+30, 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+14, PRE+23, PRE+24, PRE+31, PRE+42
, PRE+43, PRE+62, POST+4, POST+6, POST+8, POST+10, POST+12, POST+14, POST+16, POST+18
, POST+20, POST+22, POST+24, POST+26, POST+58, POST+60
MES^XPDUTL PRE+29, PRE+48, POST+36, POST+55, UPDLIST+22, RORERR+17
OWNSKEY^XUSRB PRE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+61
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+61
Routine Call
  • DIALOG
  • Line Location:
    • POSQ3+3
    • POSQ4+6
Routine Call
  • DIC
  • Line Location:
    • UPDMETA+6
    • UPDMETA+23
    • COVLOINC+6
    • COVLOINC+8
    • COVSEL+6
    • COVSEL+8
Routine Call
  • DIE
  • Line Location:
    • POST+43
    • UPDMETA+17
    • UPDMETA+34
    • LOINC+10
    • LOINC+24
    • UPDLIST+12
    • COVLOINC+13
    • COVSEL+12
Routine Call
  • DIR
  • Line Location:
    • PRE+61

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ROR(798.1 - [#798.1] GET1^DIQ
^ROR(798.9 - [#798.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ROR(798.1 - [#798.1] COVLOINC+2, COVSEL+2
^ROR(798.9 - [#798.9] LOINC+5, LOINC+16, LOINC+21
^ROR(799.1 - [#799.1] UPDLIST+6
^XTMP("ROR_NO_INIT" PRE+51!, PRE+62!, PRE+63*, POST+32, POST+56, POST+57!

Label References

Name Line Occurrences
COVLOINC POST+15
COVSEL POST+19
LOINC POST+11
RORERR UPDMETA+18, UPDMETA+35, COVLOINC+14, COVSEL+13
UPDLIST POST+23
UPDMETA POST+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COV19IEN LOINC+15~, LOINC+16*, LOINC+21, LOINC+22, LOINC+23
CT POST+1~, POST+27~, POST+53*, POST+54*, UPDMETA+2~, UPDMETA+20~, UPDLIST+1~, UPDLIST+20*, UPDLIST+21*, RORERR+15*
, RORERR+16*, COVLOINC+1~, COVSEL+1~
DA UPDMETA+2~, UPDMETA+7*, UPDMETA+20~, UPDMETA+24*, COVLOINC+1~, COVLOINC+7*, COVSEL+1~, COVSEL+7*
DA(1 UPDMETA+6*, UPDMETA+7*, UPDMETA+23*, UPDMETA+24*, COVLOINC+6*, COVLOINC+7*, COVLOINC+8*, COVSEL+6*, COVSEL+7*, COVSEL+8*
DIC UPDMETA+2~, UPDMETA+6*, UPDMETA+20~, UPDMETA+23*, LOINC+4~, LOINC+6*, LOINC+12!, COVLOINC+6*, COVLOINC+8*, COVSEL+6*
, COVSEL+8*
DIC(0 LOINC+6*
DIERR POST+27~, POST+44, UPDMETA+2~, UPDMETA+18, UPDMETA+20~, UPDMETA+35, LOINC+11, UPDLIST+1~, UPDLIST+7!, UPDLIST+13
, COVLOINC+1~, COVLOINC+14, COVSEL+1~, COVSEL+13
DIK UPDMETA+2~, UPDMETA+7*, UPDMETA+20~, UPDMETA+24*, COVLOINC+7*, COVSEL+7*
DIR PRE+50~, PRE+61!, POSQ3~, POSQ3+1!, POSQ3+2, POSQ4~, POSQ4+1!, POSQ4+2, POSQ5~, POSQ5+1
DIR("A" PRE+59*, PRE+60*, POSQ4+3*
DIR("B" PRE+60*, POSQ5+9*
DIR(0 PRE+59*, POSQ4+5*, POSQ5+8*
DUZ PRE+4
I LOINC+15~, LOINC+18*
RC PRE+12~, PRE+15*, PRE+17*, PRE+21, PRE+23, PRE+32*, PRE+35*, PRE+40, PRE+42
REGIEN PRE+50~, PRE+54*, PRE+55, PRE+57, PRE+59, PRE+63, POST+1~, POST+30*, POST+31, POST+32
, POST+33, POST+40, POST+41, POST+42, POST+47, POST+50, UPDLIST+1~, UPDLIST+3*, UPDLIST+4, UPDLIST+6
, UPDLIST+10, UPDLIST+15
ROR LOINC+15~, LOINC+18*, LOINC+19
RORBUF PRE+12~, PRE+16, PRE+17, PRE+19, PRE+32!, PRE+33, PRE+35, PRE+38
RORDATA UPDMETA+2~, UPDMETA+4*, UPDMETA+5, UPDMETA+6, UPDMETA+8*, UPDMETA+9*, UPDMETA+11, UPDMETA+12, UPDMETA+13, UPDMETA+14
, UPDMETA+15, UPDMETA+16, UPDMETA+20~, UPDMETA+21*, UPDMETA+22, UPDMETA+23, UPDMETA+25*, UPDMETA+26*, UPDMETA+28, UPDMETA+29
, UPDMETA+30, UPDMETA+31, UPDMETA+32, UPDMETA+33, LOINC+15~, LOINC+25!, UPDLIST+1~, UPDLIST+5*, UPDLIST+6, UPDLIST+8
, UPDLIST+9, UPDLIST+11, UPDLIST+17, COVLOINC+1~, COVLOINC+4*, COVLOINC+5, COVLOINC+6, COVSEL+1~, COVSEL+4*, COVSEL+5
, COVSEL+6, COVSEL+11
RORDATA( UPDMETA+5*, UPDMETA+22*, COVLOINC+5*, COVSEL+5*
RORDATA(1 LOINC+22*, LOINC+23*
ROREDT POSQ5+2~, POSQ5+4*, POSQ5+6*, POSQ5+8, POSQ5+9
RORERR POST+27~, POST+36, POST+37!, POST+39!, POST+45!, POST+46*, POST+48, POST+49!, POST+55, UPDMETA+2~
, UPDMETA+20~, UPDLIST+1~, UPDLIST+7!, UPDLIST+14!, UPDLIST+22, RORERR+1!, RORERR+2*, RORERR+4, RORERR+5!, RORERR+17
, COVLOINC+1~, COVSEL+1~
RORERR( POST+53*, POST+54*, UPDLIST+20*, UPDLIST+21*, RORERR+15*, RORERR+16*
RORERR(1 POST+33*, POST+50*, UPDLIST+15*, RORERR+7*, RORERR+9*, RORERR+11*
RORERR(2 POST+34*, POST+51*, UPDLIST+16*, RORERR+12*
RORERR(3 POST+35*, POST+52*, UPDLIST+17*, RORERR+13*
RORERR(4 UPDLIST+18*, RORERR+14*
RORERR(5 UPDLIST+19*
RORFDA POST+39!, UPDMETA+2~, UPDMETA+20~, LOINC+7~, ADD7985~, UPDLIST+1~, UPDLIST+7!, COVLOINC+1~, COVSEL+1~
RORFDA( POST+40*, POST+41*, POST+42*, UPDMETA+11*, UPDMETA+12*, UPDMETA+13*, UPDMETA+14*, UPDMETA+15*, UPDMETA+16*, UPDMETA+28*
, UPDMETA+29*, UPDMETA+30*, UPDMETA+31*, UPDMETA+32*, UPDMETA+33*, LOINC+8*, LOINC+9*, UPDLIST+8*, UPDLIST+9*, UPDLIST+10*
, UPDLIST+11*, COVLOINC+11*, COVLOINC+12*, COVSEL+11*
RORFLG UPDMETA+2~, UPDMETA+18*, RORERR+6
RORFLG1 RORERR+8, COVLOINC+1~, COVLOINC+14*
RORFLG2 RORERR+10, COVSEL+1~, COVSEL+13*
RORI PRE+50~, PRE+53*, POST+1~, POST+29*, UPDMETA+2~, UPDMETA+4*, UPDMETA+5, UPDMETA+9*, UPDMETA+10, UPDMETA+20~
, UPDMETA+21*, UPDMETA+22, UPDMETA+26*, UPDMETA+27, UPDLIST+1~, UPDLIST+2*, COVLOINC+4*, COVLOINC+5, COVSEL+4*, COVSEL+5
RORI1 UPDLIST+1~, UPDLIST+5*
RORIEN UPDMETA+2~, UPDMETA+20~, LOINC+4~, LOINC+5*, LOINC+6*, LOINC+7, LOINC+8, LOINC+9, LOINC+14, ADD7985~
, COVLOINC+1~, COVLOINC+2*, COVLOINC+6, COVLOINC+8, COVLOINC+10, COVSEL+1~, COVSEL+2*, COVSEL+6, COVSEL+7, COVSEL+8
, COVSEL+9, COVSEL+10
RORIEN(1 UPDMETA+8*, UPDMETA+25*, RORERR+3, RORERR+7, COVLOINC+9*, COVSEL+9*
RORIENS UPDMETA+2~, UPDMETA+10*, UPDMETA+11, UPDMETA+12, UPDMETA+13, UPDMETA+14, UPDMETA+15, UPDMETA+16, UPDMETA+20~, UPDMETA+27*
, UPDMETA+28, UPDMETA+29, UPDMETA+30, UPDMETA+31, UPDMETA+32, UPDMETA+33, COVLOINC+1~, COVLOINC+10*, COVLOINC+11, COVLOINC+12
, COVSEL+1~, COVSEL+10*, COVSEL+11
RORKEYOK PRE+2~, PRE+4
RORKEYOK(0 PRE+5
RORKIDS POST+27~, POST+28*
RORLOINC LOINC+15~, LOINC+19*, LOINC+21, LOINC+22
RORMES PRE+12~, PRE+22!, PRE+29, PRE+41!, PRE+48
RORMES(1 PRE+25*, PRE+44*
RORMES(2 PRE+26*, PRE+45*
RORMES(3 PRE+27*, PRE+46*
RORMES(4 PRE+28*, PRE+47*
RORMSG POST+39!, POST+46, POST+48*, UPDMETA+2~, UPDMETA+20~, LOINC+7~, UPDLIST+1~, UPDLIST+7!, RORERR+2, RORERR+4*
, COVLOINC+1~, COVSEL+1~
RORMSG("DIERR" POST+53, UPDLIST+20, RORERR+15
RORMSG1 LOINC+15!, LOINC+25!
RORPARM POST+2~, UPDMETA+2~, COVLOINC+1~, COVSEL+1~
RORPARM("DEVELOPER" PRE+49*, POST+3*, UPDMETA+3*, COVLOINC+3*, COVSEL+3*
RORREG PRE+50~, PRE+53*, PRE+54, PRE+59, POST+1~, POST+29*, POST+30, POST+33, POST+50, ADD7985~
, UPDLIST+1~, UPDLIST+2*, UPDLIST+3, UPDLIST+15
RORTAG LOINC+15~, LOINC+18*
U PRE+53, POST+29, UPDMETA+6, UPDMETA+11, UPDMETA+12, UPDMETA+13, UPDMETA+14, UPDMETA+15, UPDMETA+16, UPDMETA+23
, UPDMETA+28, UPDMETA+29, UPDMETA+30, UPDMETA+31, UPDMETA+32, UPDMETA+33, LOINC+6, POSQ5+8, UPDLIST+2, UPDLIST+6
, UPDLIST+8, UPDLIST+9, UPDLIST+11, COVLOINC+6, COVSEL+6
X PRE+50~, UPDMETA+2~, UPDMETA+6*, UPDMETA+20~, UPDMETA+23*, LOINC+4~, LOINC+6*, LOINC+12!, COVLOINC+1~, COVLOINC+6*
, COVSEL+1~, COVSEL+6*
>> XPDABORT PRE+6*, PRE+21*, PRE+40*, PRE+53, PRE+62*
>> XPDNM PRE+23
>> XPDNOQUE ENV+1*
>> XPDQUES("POSQ2" POSQ3+1, POSQ4+1
Y PRE+50~, PRE+62, PRE+63, UPDMETA+2~, UPDMETA+7, UPDMETA+20~, UPDMETA+24, LOINC+4~, LOINC+6, LOINC+12!
, COVLOINC+1~, COVLOINC+7, COVSEL+1~, COVSEL+7
Z PRE+50~, PRE+57*, PRE+58, POST+1~, POST+53*, UPDMETA+2~, UPDMETA+20~, UPDLIST+1~, UPDLIST+20*, RORERR+15*
, COVLOINC+1~, COVSEL+1~
ZTSK PRE+12~, PRE+17*, PRE+19*, PRE+25, PRE+34*, PRE+35*, PRE+38*, PRE+44
ZTSK(1 PRE+17, PRE+35

Marked Items

Name Field # of Occurrence
$T(@(5) PRE+53, POST+29, UPDLIST+2, UPDLIST+5
$T(@RORTAG LOINC+18
$T(COLO+RORI COVLOINC+4
$T(META45+RORI UPDMETA+4, UPDMETA+9
$T(METAVST+RORI UPDMETA+21, UPDMETA+26
$T(SELRL+RORI COVSEL+4
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