Routine: RORP033

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 PSN4 ; : EFAVIRENZ/LAMIVUDINE/TENOFOVIR DISOPROXIL FUMARATE - "EFAVIRENZ/LAMIVUDINE/TENOFOVIR" Released in PSN4 ; : LAMIVUDINE/TENOFOVIR DISOPROXIL FUMARATE - "LAMIVUDINE/TENOFOVIR" Released in PSN4
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

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

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

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(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!

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

Customize PDF page

Package: Clinical Case Registries

Routine: RORP033

Information

Source Information

Call Graph

Call Graph Total: 17

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+32, UPDLIST+2, UPDLIST+5
$T(@RORTAG	LOINC+7
$T(ICDPROC+RORI	UPDPROC+5