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

Package: Clinical Case Registries

Routine: RORP036


Information

RORP036 ;ALB/MAF - CCR PRE/POST-INSTALL PATCH 36 ;26 MAY 2020 1:07 PM

Source Information

Source file <RORP036.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 7 BLD^DIALOG  ^DIC  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 36
; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST ; --- Post-Install routine for Patch 36
GENDRG ; --- Delete entry in ROR GENERIC DRUG with unresolved pointers
; clean up 799.51 if pointers are bad
; New HIV registry Drugs : DORAVIRINE - DORAVIRINE/LAMIVUDINE/TENOFORVIR - DOLUTEGRAVIR/LAMIVUDINE
;
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"
TEST
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

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 UPDPROC+3
UPDATE^DIE POST+39, ADD7985+2, UPDLIST+12
^DIK UPDPROC+4
CLEAN^DILF POST+57, TEST+1
$$GET1^DIQ PRE+57
^DIR PRE+61
DBS^RORERR POST+43, ADD7985+6
$$MSG^RORERR20 PRE+23, PRE+42
^RORSET02 POST+52
XTMPHDR^RORUTL01 PRE+52
$$REGIEN^RORUTL02 PRE+54, POST+26, 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+14, POST+16, POST+18, POST+20, POST+22, POST+54, POST+58
MES^XPDUTL PRE+29, PRE+48, POST+32, POST+51, 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:
    • UPDPROC+3
Routine Call
  • DIE
  • Line Location:
    • POST+39
    • 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

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+51!, PRE+62!, PRE+63*, POST+28, POST+52, POST+53!

Label References

Name Line Occurrences
ADD7985 UPDPROC+9, UPDPROC+12, TEST
UPDLIST POST+19
UPDPROC POST+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT POST+1~, POST+23~, POST+49*, POST+50*, 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*
>> DIC UPDPROC+3*
>> DIC(0 UPDPROC+3*
DIERR POST+23~, POST+40, ADD7985+1~, ADD7985+3, UPDLIST+1~, UPDLIST+7!, UPDLIST+13
DIK 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
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+26*, POST+27, POST+28
POST+29, POST+36, POST+37, POST+38, POST+43, POST+46, UPDLIST+1~, UPDLIST+3*, UPDLIST+4, UPDLIST+6
UPDLIST+10, UPDLIST+15
RORBUF PRE+12~, PRE+16, PRE+17, PRE+19, PRE+32!, PRE+33, PRE+35, PRE+38
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+23~, POST+32, POST+33!, POST+35!, POST+41!, POST+42*, POST+44, POST+45!, POST+51, ADD7985+4~
, ADD7985+5*, ADD7985+7, ADD7985+8!, ADD7985+14, UPDLIST+1~, UPDLIST+7!, UPDLIST+14!, UPDLIST+22
RORERR( POST+49*, POST+50*, ADD7985+12*, ADD7985+13*, UPDLIST+20*, UPDLIST+21*
RORERR(1 POST+29*, POST+46*, ADD7985+9*, UPDLIST+15*
RORERR(2 POST+30*, POST+47*, ADD7985+10*, UPDLIST+16*
RORERR(3 POST+31*, POST+48*, ADD7985+11*, UPDLIST+17*
RORERR(4 UPDLIST+18*
RORERR(5 UPDLIST+19*
RORFDA POST+35!, UPDPROC+2~, UPDPROC+9, TEST, ADD7985~, UPDLIST+1~, UPDLIST+7!
RORFDA( POST+36*, POST+37*, POST+38*, 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+25*, 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, TEST, ADD7985~
RORIEN( UPDPROC+13
RORIEN(0 UPDPROC+13
RORKEYOK PRE+2~, PRE+4
RORKEYOK(0 PRE+5
RORKIDS POST+23~, POST+24*
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+35!, POST+42, POST+44*, ADD7985+1~, ADD7985+5, ADD7985+7*, UPDLIST+1~, UPDLIST+7!
RORMSG("DIERR" POST+49, ADD7985+12, UPDLIST+20
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+25*, POST+26, POST+29, POST+46, UPDPROC+2~
UPDPROC+6*, UPDPROC+7, UPDPROC+11, UPDPROC+12, TEST, ADD7985~, ADD7985+6, ADD7985+9, UPDLIST+1~, UPDLIST+2*
UPDLIST+3, UPDLIST+15
U PRE+53, POST+25, 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~, 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, UPDPROC+2~, UPDPROC+3, UPDPROC+4
Z PRE+50~, PRE+57*, PRE+58, POST+1~, POST+49*, UPDPROC+2~, UPDPROC+13*, UPDPROC+14, ADD7985+4~, ADD7985+12*
UPDLIST+1~, UPDLIST+20*
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+25, 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