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

Package: Clinical Case Registries

Routine: RORP033


Information

RORP033 ;ALB/MAF - CCR PRE/POST-INSTALL PATCH 33 ;18 Apr 2018 1:38 PM

Source Information

Source file <RORP033.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  (EN,TASK)^RORUTL22  
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 32
; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST ; --- Post-Install routine for Patch 32
GENDRG ; --- Delete entry in ROR GENERIC DRUG with unresolved pointers
; clean up 799.51 if pointers are bad
; HIV registry : BICTEGRAVIR/EMTRICITABINE/TENOFOVIR ALAFENAMIDE - "BICTEGRAVIR/EMTRICITABINE/TENOFOVIRQW" Released in PSN*4*
; : EFAVIRENZ/LAMIVUDINE/TENOFOVIR DISOPROXIL FUMARATE - "EFAVIRENZ/LAMIVUDINE/TENOFOVIR" Released in PSN*4*
; : LAMIVUDINE/TENOFOVIR DISOPROXIL FUMARATE - "LAMIVUDINE/TENOFOVIR" Released in PSN*4*
LOINC ;Add new LOINC codes to the VA HIV lab search criterion in
HIV ;
UPDPANEL ;
; For parameter panel field, add 29, after ,24, right below the Additional Identifiers panel for
; Combined Meds and Labs (REPORT CODE=12)
; Hepatitis A Vaccine or Immunity (REPORT CODE=24)
; Hepatitis B Vaccine of Immunity (REPORT CODE=25)
; Liver Score by Range (REPORT CODE=19)
; Registry Lab Tests by Range (REPORT CODE=10)
; Renal Function by Range (REPORT CODE=20)
; BMI by Range (REPORT CODE=18)
POSQ3(DIR)
POSQ4(DIR)
POSQ5(DIR) ; --- Updates the DIR array from the post-install question #5 (schedule time for ROR INITIALIZE task)
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

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 GENDRG+10, UPDPROC+3
UPDATE^DIE POST+46, LOINC+13, UPDPANEL+23, ADD7985+2, UPDLIST+12
^DIK GENDRG+12, UPDPROC+4
CLEAN^DILF POST+19, POST+64, UPDPROC+26
$$GET1^DIQ PRE+57
^DIR PRE+61
DBS^RORERR POST+50, UPDPANEL+26, ADD7985+6
$$MSG^RORERR20 PRE+23, PRE+42
^RORSET02 POST+59
XTMPHDR^RORUTL01 PRE+52
$$REGIEN^RORUTL02 PRE+54, POST+33, UPDLIST+3
EN^RORUTL22 POST+62
TASK^RORUTL22 POST+63
$$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+15, POST+16
POST+18, POST+21, POST+23, POST+25, POST+27, POST+29, POST+61, POST+62, POST+63, POST+65
GENDRG+13, UPDPANEL+19
MES^XPDUTL PRE+29, PRE+48, POST+39, POST+58, UPDPANEL+34, ADD7985+14, UPDLIST+22
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:
    • GENDRG+10
    • UPDPROC+3
Routine Call
  • DIE
  • Line Location:
    • POST+46
    • LOINC+13
    • UPDPANEL+23
    • ADD7985+2
    • UPDLIST+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.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(798.9 - [#798.9] LOINC+5, LOINC+10
^ROR(799.1 - [#799.1] UPDLIST+6
^ROR(799.34 - [#799.34] UPDPANEL+15, UPDPANEL+16, UPDPANEL+29
^XTMP("ROR_NO_INIT" PRE+51!, PRE+62!, PRE+63*, POST+35, POST+60!

Label References

Name Line Occurrences
ADD7985 UPDPROC+9, UPDPROC+12, UPDPROC+25
GENDRG POST+17
LOINC POST+7
UPDLIST POST+26
UPDPANEL POST+11
UPDPROC POST+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT POST+1~, POST+30~, POST+56*, POST+57*, UPDPANEL+14~, UPDPANEL+32*, UPDPANEL+33*, UPDPROC+2~, UPDPROC+11*, UPDPROC+17*
UPDPROC+20*, UPDPROC+23*, ADD7985+4~, ADD7985+12*, ADD7985+13*, UPDLIST+1~, UPDLIST+20*, UPDLIST+21*
DA GENDRG+7~, GENDRG+12*, UPDPROC+2~, UPDPROC+4*
DIC GENDRG+7~, GENDRG+8*, UPDPROC+3*
DIC(0 GENDRG+8*, UPDPROC+3*
DIERR POST+30~, POST+47, UPDPANEL+14~, UPDPANEL+24, ADD7985+1~, ADD7985+3, UPDLIST+1~, UPDLIST+7!, UPDLIST+13
DIK GENDRG+7~, GENDRG+12*, UPDPROC+2~, UPDPROC+4*
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
HEPCIEN LOINC+4~
HIVIEN LOINC+4~, LOINC+5*, LOINC+10, LOINC+11, LOINC+12
I LOINC+4~, LOINC+7*
I1 UPDPROC+2~, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*
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+33*, POST+34, POST+35
POST+36, POST+43, POST+44, POST+45, POST+50, POST+53, UPDLIST+1~, UPDLIST+3*, UPDLIST+4, UPDLIST+6
UPDLIST+10, UPDLIST+15
ROR LOINC+4~, LOINC+7*, LOINC+8
RORBUF PRE+12~, PRE+16, PRE+17, PRE+19, PRE+32!, PRE+33, PRE+35, PRE+38
RORDATA LOINC+4~, LOINC+14!, 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
RORDATA(1 LOINC+11*, LOINC+12*
ROREDT POSQ5+2~, POSQ5+4*, POSQ5+6*, POSQ5+8, POSQ5+9
RORERR POST+30~, POST+39, POST+40!, POST+42!, POST+48!, POST+49*, POST+51, POST+52!, POST+58, UPDPANEL+14~
UPDPANEL+25!, UPDPANEL+27, UPDPANEL+28!, UPDPANEL+34, ADD7985+4~, ADD7985+5*, ADD7985+7, ADD7985+8!, ADD7985+14, UPDLIST+1~
UPDLIST+7!, UPDLIST+14!, UPDLIST+22
RORERR( POST+56*, POST+57*, UPDPANEL+32*, UPDPANEL+33*, ADD7985+12*, ADD7985+13*, UPDLIST+20*, UPDLIST+21*
RORERR(1 POST+36*, POST+53*, UPDPANEL+29*, ADD7985+9*, UPDLIST+15*
RORERR(2 POST+37*, POST+54*, UPDPANEL+30*, ADD7985+10*, UPDLIST+16*
RORERR(3 POST+38*, POST+55*, UPDPANEL+31*, ADD7985+11*, UPDLIST+17*
RORERR(4 UPDLIST+18*
RORERR(5 UPDLIST+19*
RORFDA POST+42!, UPDPANEL+14~, UPDPANEL+17!, UPDPANEL+22, UPDPROC+2~, UPDPROC+9, UPDPROC+25, ADD7985~, UPDLIST+1~, UPDLIST+7!
RORFDA( POST+43*, POST+44*, POST+45*, UPDPANEL+21*, 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+50~, PRE+53*, POST+1~, POST+32*, 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+30~, POST+31*
RORLOINC LOINC+4~, LOINC+8*, LOINC+10, LOINC+11
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+42!, POST+49, POST+51*, UPDPANEL+14~, UPDPANEL+17!, UPDPANEL+27*, ADD7985+1~, ADD7985+5, ADD7985+7*, UPDLIST+1~
UPDLIST+7!
RORMSG("DIERR" POST+56, UPDPANEL+32, ADD7985+12, UPDLIST+20
RORMSG1 LOINC+4!, LOINC+14!
RORMSG2 LOINC+4!, LOINC+14!
RORNAME GENDRG+7~, GENDRG+9*, GENDRG+10
RORPAN UPDPANEL+14~, UPDPANEL+15*
RORPARM POST+2~
RORPARM("DEVELOPER" PRE+49*, POST+3*
RORPROC UPDPROC+2~, UPDPROC+16*, UPDPROC+17, UPDPROC+19*, UPDPROC+20, UPDPROC+22*, UPDPROC+23
RORREG PRE+50~, PRE+53*, PRE+54, PRE+59, POST+1~, POST+32*, POST+33, POST+36, POST+53, 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+14~, UPDPANEL+15*, UPDPANEL+16, UPDPANEL+21, UPDPANEL+26, UPDPANEL+29
RORTAG LOINC+4~, LOINC+7*
U PRE+53, POST+32, GENDRG+11, UPDPANEL+15, UPDPANEL+29, POSQ5+8, 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
X PRE+50~, GENDRG+7~, GENDRG+10*, UPDPROC+2~, UPDPROC+3*, UPDPROC+17*, UPDPROC+20*, UPDPROC+23*
>> 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, GENDRG+7~, GENDRG+10, GENDRG+12, UPDPROC+2~, UPDPROC+3, UPDPROC+4
Y(0 GENDRG+11
Z PRE+50~, PRE+57*, PRE+58, POST+1~, POST+56*, UPDPANEL+14~, UPDPANEL+32*, UPDPROC+2~, UPDPROC+13*, UPDPROC+14
, ADD7985+4~, ADD7985+12*, UPDLIST+1~, UPDLIST+20*
Z1 UPDPANEL+14~, UPDPANEL+16*, UPDPANEL+18, UPDPANEL+20, UPDPANEL+21
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+32, UPDLIST+2, UPDLIST+5
$T(@RORTAG LOINC+7
$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