Routine: RORP035

Package	Total	Call Graph
Clinical Case Registries	7	DBS^RORERR $$MSG^RORERR20 FINDPEND^RORP035A ^RORSET02 XTMPHDR^RORUTL01 $$REGIEN^RORUTL02 (EN,TASK)^RORUTL22
VA FileMan	7	BLD^DIALOG ^DIC UPDATE^DIE ^DIK CLEAN^DILF $$GET1^DIQ ^DIR
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 35 ; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST	; --- Post-Install routine for Patch 35
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)
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
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
LISTITEM	; --- Entries to add to ROR LIST ITEM file (#799.1) text^group^code

Name	Field # of Occurrence
OPTION^%ZTLOAD	PRE+16, PRE+33
STAT^%ZTLOAD	PRE+18, PRE+36
BLD^DIALOG	POSQ3+3, POSQ4+6
^DIC	GENDRG+9, UPDPROC+3
UPDATE^DIE	POST+43, UPDPANEL+14, ADD7985+2, UPDLIST+12
^DIK	GENDRG+11, UPDPROC+4
CLEAN^DILF	POST+61, TEST+1
$$GET1^DIQ	PRE+57
^DIR	PRE+61
DBS^RORERR	POST+47, UPDPANEL+17, ADD7985+6
$$MSG^RORERR20	PRE+23, PRE+42
FINDPEND^RORP035A	POST+23
^RORSET02	POST+56
XTMPHDR^RORUTL01	PRE+52
$$REGIEN^RORUTL02	PRE+54, POST+30, UPDLIST+3
EN^RORUTL22	POST+59
TASK^RORUTL22	POST+60
$$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+24, POST+26 , POST+58, POST+59, POST+60, POST+62, GENDRG+12, UPDPANEL+10
MES^XPDUTL	PRE+29, PRE+48, POST+36, POST+55, UPDPANEL+25, ADD7985+14, UPDLIST+22
OWNSKEY^XUSRB	PRE+4

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+9 UPDPROC+3
Routine Call	DIE Line Location: POST+43 UPDPANEL+14 ADD7985+2 UPDLIST+12
Routine Call	DIR Line Location: PRE+61

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

Name	Line Occurrences (* Changed, ! Killed)
^ROR(798.1 - [#798.1]	UPDPROC+9
^ROR(799.1 - [#799.1]	UPDLIST+6
^ROR(799.34 - [#799.34]	UPDPANEL+6, UPDPANEL+7, UPDPANEL+20
^XTMP("ROR_NO_INIT"	PRE+51!, PRE+62!, PRE+63*, POST+32, POST+56, POST+57!

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+27~, POST+53, POST+54, UPDPANEL+5~, UPDPANEL+23, UPDPANEL+24, UPDPROC+2~, UPDPROC+11, UPDPROC+17 , UPDPROC+20, UPDPROC+23, ADD7985+4~, ADD7985+12, ADD7985+13, UPDLIST+1~, UPDLIST+20, UPDLIST+21
DA	GENDRG+6~, GENDRG+11, UPDPROC+2~, UPDPROC+4
DIC	GENDRG+6~, GENDRG+7, UPDPROC+3
DIC(0	GENDRG+7, UPDPROC+3
DIERR	POST+27~, POST+44, UPDPANEL+5~, UPDPANEL+15, ADD7985+1~, ADD7985+3, UPDLIST+1~, UPDLIST+7!, UPDLIST+13
DIK	GENDRG+6~, GENDRG+11, 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+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
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+27~, POST+36, POST+37!, POST+39!, POST+45!, POST+46, POST+48, POST+49!, POST+55, UPDPANEL+5~ , UPDPANEL+16!, UPDPANEL+18, UPDPANEL+19!, UPDPANEL+25, ADD7985+4~, ADD7985+5, ADD7985+7, ADD7985+8!, ADD7985+14, UPDLIST+1~ , UPDLIST+7!, UPDLIST+14!, UPDLIST+22
RORERR(	POST+53, POST+54, UPDPANEL+23, UPDPANEL+24, ADD7985+12, ADD7985+13, UPDLIST+20, UPDLIST+21
RORERR(1	POST+33, POST+50, UPDPANEL+20, ADD7985+9, UPDLIST+15*
RORERR(2	POST+34, POST+51, UPDPANEL+21, ADD7985+10, UPDLIST+16*
RORERR(3	POST+35, POST+52, UPDPANEL+22, ADD7985+11, UPDLIST+17*
RORERR(4	UPDLIST+18*
RORERR(5	UPDLIST+19*
RORFDA	POST+39!, UPDPANEL+5~, UPDPANEL+8!, UPDPANEL+13, UPDPROC+2~, UPDPROC+9, TEST, ADD7985~, UPDLIST+1~, UPDLIST+7!
RORFDA(	POST+40, POST+41, POST+42, UPDPANEL+12, 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+29, 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+27~, POST+28*
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, UPDPANEL+5~, UPDPANEL+8!, UPDPANEL+18, ADD7985+1~, ADD7985+5, ADD7985+7*, UPDLIST+1~ , UPDLIST+7!
RORMSG("DIERR"	POST+53, UPDPANEL+23, ADD7985+12, UPDLIST+20
RORNAME	GENDRG+6~, GENDRG+8*, GENDRG+9
RORPAN	UPDPANEL+5~, UPDPANEL+6*
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+29, POST+30, POST+33, POST+50, UPDPROC+2~ , UPDPROC+6, UPDPROC+7, UPDPROC+11, UPDPROC+12, TEST, ADD7985~, ADD7985+6, ADD7985+9, UPDLIST+1~, UPDLIST+2 , UPDLIST+3, UPDLIST+15
RORRPT	UPDPANEL+5~, UPDPANEL+6*, UPDPANEL+7, UPDPANEL+12, UPDPANEL+17, UPDPANEL+20
U	PRE+53, POST+29, GENDRG+10, UPDPANEL+6, UPDPANEL+20, 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+6~, GENDRG+9, 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+6~, GENDRG+9, GENDRG+11, UPDPROC+2~, UPDPROC+3, UPDPROC+4
Y(0	GENDRG+10
Z	PRE+50~, PRE+57, PRE+58, POST+1~, POST+53, UPDPANEL+5~, UPDPANEL+23, UPDPROC+2~, UPDPROC+13, UPDPROC+14 , ADD7985+4~, ADD7985+12, UPDLIST+1~, UPDLIST+20
Z1	UPDPANEL+5~, UPDPANEL+7*, UPDPANEL+9, UPDPANEL+11, UPDPANEL+12
ZTSK	PRE+12~, PRE+17, PRE+19, PRE+25, PRE+34, PRE+35, PRE+38*, PRE+44
ZTSK(1	PRE+17, PRE+35

Customize PDF page

Package: Clinical Case Registries

Routine: RORP035

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@(5)	PRE+53, POST+29, UPDLIST+2, UPDLIST+5
$T(ICDPROC+RORI	UPDPROC+5