Routine: RORP036

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

Customize PDF page

Package: Clinical Case Registries

Routine: RORP036

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items