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

Package: IHS Changes To Lab

Routine: BLREXEC3


Information

BLREXEC3 ;IHS/OIT/MKK - IHS Implementation of the Chronic Kidney Disease Epidemiology Collaboration (CKD-EPI) eGFR equation ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLREXEC3.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 $$FIND1^DIC  (UPDATE,WP)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  ($$LJ,$$TRIM,$$UP)^XLFSTR  
IHS Changes To Lab 1 (EEP,HEADERDT,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
NEWDELTA ; EP - Allows users to create new Delta Check utilizing the CKD-EPI function
GQMFDIRR ; Generic "Quit" message for D ^DIR response
JUSTNEW ; EP - Generic RPMS EXCLUSIVE NEW
RACE(DFN) ; EP - Race of patient: defined as black or non-black
BADSTUFF(MSG,TAB) ; EP - Simple Message
EEP ; Ersatz EP
GETSEX(SEX) ; EP - Get Sex function
CKDEPI(CRET) ; EP - Creatinine value is passed in
TESTEQUA ; EP - Debug -- Allows user to TEST the equation
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
GETAGE(AGE) ; EP - Age Function
GETCREAT(CREATININE) ; EP - Creatinine function
MIN(VALUE,MIN) ; EP
DLTADICA(NAME,XCODE,OVER1,DESC) ; EP
MAX(VALUE,MAX) ; EP
GETRACE(RACE,FULLRACE) ; EP - Race Function

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU TESTEQUA+14, GETSEX+1, GETAGE+1, GETRACE+1, GETCREAT+1, NEWDELTA+7, NEWDELTA+20, NEWDELTA+32, NEWDELTA+74
PRESSKEY^BLRGMENU NEWDELTA+78, BADSTUFF+3
$$FIND1^DIC DLTADICA+22
UPDATE^DIE DLTADICA+13, DLTADICA+35
WP^DIE DLTADICA+24, DLTADICA+44
$$GET1^DIQ NEWDELTA+17, NEWDELTA+29, DLTADICA+43
^DIR TESTEQUA+23, GETSEX+10, GETAGE+6, GETRACE+6, GETCREAT+5, NEWDELTA+12, NEWDELTA+24, NEWDELTA+36
^XBFMK TESTEQUA+19, GETSEX+2, GETAGE+2, GETRACE+2, GETCREAT+2, NEWDELTA+9, NEWDELTA+21, NEWDELTA+33, DLTADICA+6
$$NOW^XLFDT DLTADICA+34
$$LJ^XLFSTR NEWDELTA+49
$$TRIM^XLFSTR BADSTUFF+2
$$UP^XLFSTR GETSEX+15, GETRACE+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?9,"For SEX:",SEX,"; AGE:",AGE,"; RACE:",FULLRACE,!
  • Line Location: TESTEQUA+15
Function Call: WRITE
  • Prompt: ?13,"Creatinine:",CREATININE_" mg/dL"
  • Line Location: TESTEQUA+16
Function Call: WRITE
  • Prompt: !!,?14,"CKD-EPI Equation's Estimated GFR = ",$$CKDEPI(CREATININE),!!
  • Line Location: TESTEQUA+17
Function Call: WRITE
  • Prompt: TAB,"Select Age:"
  • Line Location: GETAGE+3
Function Call: WRITE
  • Prompt: TAB,"Select Race:"
  • Line Location: GETRACE+3
Function Call: WRITE
  • Prompt: !!,"Adding "_NAME_" to Delta Check Dictionary.",!
  • Line Location: DLTADICA+4
Function Call: WRITE
  • Prompt: !,?5,NAME_" Delta Check added to Delta Check Dictionary.",!
  • Line Location: DLTADICA+18
Function Call: WRITE
  • Prompt: !!,"Error in adding DESCRIPTION to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+27
Function Call: WRITE
  • Prompt: !,?5,NAME_" Delta Check DESCRIPTION added to Delta Check Dictionary.",!
  • Line Location: DLTADICA+30
Function Call: WRITE
  • Prompt: !!,"Error in adding SITES NOTES DATE to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+38
Function Call: WRITE
  • Prompt: !!,"Error in adding TEXT to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+47
Function Call: WRITE
  • Prompt: !,?5,NAME_" Delta Check TEXT added to Delta Check Dictionary."
  • Line Location: DLTADICA+50
Function Call: WRITE
  • Prompt: !!,?TAB,$$TRIM^XLFSTR(MSG,"LR"," ")," Routine Ends."
  • Line Location: BADSTUFF+2
Routine Call
  • DIE
  • Line Location:
    • DLTADICA+13
    • DLTADICA+35
Routine Call
  • DIC
  • Line Location:
    • DLTADICA+22
Routine Call
  • DIR
  • Line Location:
    • TESTEQUA+23
    • GETSEX+10
    • GETAGE+6
    • GETRACE+6
    • GETCREAT+5
    • NEWDELTA+12
    • NEWDELTA+24
    • NEWDELTA+36
Routine Call
  • DIE
  • Line Location:
    • DLTADICA+24
    • DLTADICA+44

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^LAB(62.1 - [#62.1] FIND1^DIC,  WP^DIE
62.131 WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(10 - [#10] RACE+6
^DPT - [#2] RACE+3
^LAB(62.1 - [#62.1] NEWDELTA+42

Label References

Name Line Occurrences
$$CKDEPI TESTEQUA+17
$$GETAGE TESTEQUA+10
$$GETCREAT TESTEQUA+12
$$GETRACE TESTEQUA+11
$$GETSEX TESTEQUA+9
$$MAX CKDEPI+15
$$MIN CKDEPI+15
$$RACE CKDEPI+8
BADSTUFF NEWDELTA+18, NEWDELTA+30, NEWDELTA+42, DLTADICA+16, DLTADICA+28, DLTADICA+39, DLTADICA+48, GQMFDIRR+1
DLTADICA NEWDELTA+76
GQMFDIRR GETSEX+12, GETAGE+8, GETRACE+8, GETCREAT+7, NEWDELTA+13, NEWDELTA+25, NEWDELTA+37
SETBLRVS NEWDELTA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE CKDEPI+3, CKDEPI+15, TESTEQUA+10, TESTEQUA+15, GETAGE~, GETAGE+10*
>> ALPHA CKDEPI+13*, CKDEPI+15
>> BLRTFLAG CKDEPI+8, TESTEQUA+3*
BLRVERN SETBLRVS+1!, SETBLRVS+3*
BLRVERN2 SETBLRVS+1!, SETBLRVS+4*
>> CHKEPI CKDEPI+15*, CKDEPI+17
>> CKDEPI60 NEWDELTA+16*, NEWDELTA+54
>> CKDEPIDN NEWDELTA+17*, NEWDELTA+18, NEWDELTA+44
>> CREAT60 NEWDELTA+28*, NEWDELTA+30, NEWDELTA+45, NEWDELTA+49
>> CREATDN NEWDELTA+29*, NEWDELTA+30
CREATININE TESTEQUA+12, TESTEQUA+16, TESTEQUA+17, GETCREAT~, GETCREAT+9*
CRET CKDEPI~, CKDEPI+1, CKDEPI+15
DESC NEWDELTA+76, DLTADICA~, DLTADICA+23
DESC(1 NEWDELTA+48*
DESC(10 NEWDELTA+59*
DESC(11 NEWDELTA+60*
DESC(12 NEWDELTA+61*
DESC(13 NEWDELTA+62*
DESC(14 NEWDELTA+63*
DESC(15 NEWDELTA+64*
DESC(16 NEWDELTA+65*
DESC(17 NEWDELTA+66*
DESC(18 NEWDELTA+67*
DESC(19 NEWDELTA+68*
DESC(2 NEWDELTA+49*
DESC(20 NEWDELTA+69*
DESC(21 NEWDELTA+70*
DESC(22 NEWDELTA+71*
DESC(3 NEWDELTA+50*
DESC(4 NEWDELTA+51*
DESC(5 NEWDELTA+52*
DESC(6 NEWDELTA+53*
DESC(7 NEWDELTA+54*
DESC(8 NEWDELTA+55*
DESC(9 NEWDELTA+58*
DFN CKDEPI+8, RACE~, RACE+3
DICT0 DLTADICA+1~
DICT1 DLTADICA+1~, DLTADICA+9*, DLTADICA+10, DLTADICA+11, DLTADICA+12
DIE DLTADICA+7!
>> DILOCKTM TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> DIR("A" TESTEQUA+21*, GETSEX+9*, GETAGE+5*, GETRACE+5*, GETCREAT+4*, NEWDELTA+11*, NEWDELTA+23*, NEWDELTA+35*
>> DIR("B" TESTEQUA+22*
>> DIR("L" GETSEX+4*, GETSEX+5*, GETSEX+6*, GETSEX+7*, GETSEX+8*
>> DIR(0 TESTEQUA+20*, GETSEX+3*, GETAGE+4*, GETRACE+4*, GETCREAT+3*, NEWDELTA+10*, NEWDELTA+22*, NEWDELTA+34*
>> DIRUT GETSEX+12, GETAGE+8, GETRACE+8, GETCREAT+7, NEWDELTA+13, NEWDELTA+25, NEWDELTA+37
>> DISYS TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
DT TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
DTIME TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
DUZ TESTEQUA+1, NEWDELTA+1, DLTADICA+43, JUSTNEW+1
ERRS DLTADICA+1~, DLTADICA+7!, DLTADICA+21!, DLTADICA+33!, DLTADICA+42!
ERRS("DIERR" DLTADICA+15, DLTADICA+26, DLTADICA+37, DLTADICA+46
>> F60PTR NEWDELTA+15*, NEWDELTA+17, NEWDELTA+27*, NEWDELTA+29
FDA DLTADICA+1~, DLTADICA+7!, DLTADICA+33!
FDA( DLTADICA+10*, DLTADICA+11*, DLTADICA+12*, DLTADICA+34*
FULLRACE TESTEQUA+11, TESTEQUA+15, GETRACE~, GETRACE+10*, GETRACE+11
>> HEADER(1 TESTEQUA+5*, NEWDELTA+5*
>> HEADER(2 TESTEQUA+6*, NEWDELTA+6*
HEREYAGO DLTADICA+2~
IENS DLTADICA+7!
IO TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOBS TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOF TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOM TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
ION TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOS TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOSL TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOST TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOT TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOXY TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> K CKDEPI+12*, CKDEPI+15
MAX MAX~, MAX+1
MIN MIN~, MIN+1
MSG BADSTUFF~, BADSTUFF+2
NAME NEWDELTA+39*, NEWDELTA+42, NEWDELTA+76, DLTADICA~, DLTADICA+4, DLTADICA+10, DLTADICA+16, DLTADICA+18, DLTADICA+22, DLTADICA+27
, DLTADICA+30, DLTADICA+38, DLTADICA+47, DLTADICA+50
>> ONGO TESTEQUA+3*, TESTEQUA+8, TESTEQUA+24*, GETSEX+12*, GETAGE+8*, GETRACE+8*, GETCREAT+7*
OVER1 NEWDELTA+46*, NEWDELTA+76, DLTADICA~, DLTADICA+12
>> OVER1STR NEWDELTA+45*, NEWDELTA+46
PTR DLTADICA+1~, DLTADICA+22*, DLTADICA+24, DLTADICA+34, DLTADICA+44
RACE CKDEPI+8*, CKDEPI+10, TESTEQUA+11, GETRACE~, GETRACE+11*
RACEENT RACE+1~, RACE+6*, RACE+7
>> RACEFACT CKDEPI+10*, CKDEPI+15
RACEPTR RACE+1~, RACE+3*, RACE+4, RACE+6
SEX CKDEPI+4, CKDEPI+6, CKDEPI+12, CKDEPI+13, TESTEQUA+9, TESTEQUA+15, GETSEX~, GETSEX+14*, GETSEX+15*
>> SEXFACTR CKDEPI+6*, CKDEPI+15
TAB TESTEQUA+4*, GETSEX+4, GETAGE+3, GETRACE+3, BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3
>> TAB2 TESTEQUA+4*, GETSEX+5, GETSEX+6, GETSEX+7
>> TAB3 TESTEQUA+4*, TESTEQUA+21, GETSEX+9, GETAGE+5, GETRACE+5, GETCREAT+4
TWO SETBLRVS~, SETBLRVS+4
U RACE+3, RACE+6, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
VALUE MIN~, MIN+1, MAX~, MAX+1
WPARRAY DLTADICA+42!
WPARRAY("WP" DLTADICA+23*, DLTADICA+43*
>> X GETSEX+14, GETSEX+15, GETCREAT+7, NEWDELTA+39
XCODE NEWDELTA+44*, NEWDELTA+76, DLTADICA~, DLTADICA+11
>> XPARSYS TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> XQXFLG TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> Y TESTEQUA+24, GETSEX+12, GETAGE+8, GETAGE+10, GETRACE+8, GETRACE+10, GETCREAT+9, NEWDELTA+15, NEWDELTA+16, NEWDELTA+27
, NEWDELTA+28

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+3
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