RORP037 ;ALB/MAF - CCR PRE/POST-INSTALL PATCH 37 ;31 AUG 2020 1:07 PM
Source file <RORP037.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ROR(798.1 - [#798.1] | GET1^DIQ |
^ROR(798.9 - [#798.9] | Classic Fileman Calls |