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

Package: IHS Changes To Lab

Routine: BLREXEC4


Information

BLREXEC4 ;IHS/OIT/MKK - IHS Implementation of the Creatinine Clearance equation ; 11-Apr-2016 14:39 ; MKK

Source Information

Source file <BLREXEC4.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  ($$CJ,$$LJ,$$TRIM)^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 Creatinine Clearance Delta Check
GF60DATA(PROMPT,F60PTR,F60DESC,F60DN) ; EP - Get File 60 Data
GETURVOL(URINEVOL) ; EP - Urine Volume function
; D HEADERDT^BLRGMENU
GQMFDIRR ; Generic "Quit" message for D ^DIR response
GETURICR(URINECR) ; EP - Urine Creatinine function
; D HEADERDT^BLRGMENU
JUSTNEW ; EP - Generic RPMS EXCLUSIVE NEW
EEP ; Ersatz EP
TESTEQUA ; EP - Debug -- Allows user to TEST the equation
BADSTUFF(MSG,TAB) ; EP - Simple Message
GETCREAT(CREATININE) ; EP - Serum Creatinine function
DLTADICA(NAME,XCODE,DESC) ; EP
GETDNAMT(NAME) ; EP - Get DataName from File 60 Test
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
CREATCLR(CREAT,URINECR,URINEVOL,CREATCLR) ; EP - Standard -- major assumption is 24hr urine

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU TESTEQUA+10, TESTEQUA+15, NEWDELTA+10, NEWDELTA+41
PRESSKEY^BLRGMENU NEWDELTA+45, BADSTUFF+3
$$FIND1^DIC GETDNAMT+2, DLTADICA+21
UPDATE^DIE DLTADICA+12, DLTADICA+34
WP^DIE DLTADICA+23, DLTADICA+43
$$GET1^DIQ GF60DATA+8, GETDNAMT+5, DLTADICA+42
^DIR TESTEQUA+26, NEWDELTA+14, GF60DATA+5, GETCREAT+4, GETURICR+5, GETURVOL+5
^XBFMK TESTEQUA+22, NEWDELTA+11, GF60DATA+2, GETCREAT+1, GETURICR+2, GETURVOL+2, DLTADICA+6
$$NOW^XLFDT DLTADICA+33
$$CJ^XLFSTR TESTEQUA+7, NEWDELTA+8
$$LJ^XLFSTR NEWDELTA+34, NEWDELTA+38
$$TRIM^XLFSTR BADSTUFF+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: TAB,"Serum Creatinine: ",CREATININE_" mg/dL",!
  • Line Location: TESTEQUA+16
Function Call: WRITE
  • Prompt: TAB,"Urine Creatinine: ",URINECR_" mg/dL",!
  • Line Location: TESTEQUA+17
Function Call: WRITE
  • Prompt: TAB," Urine Volume: ",URINEVOL_" mL",!
  • Line Location: TESTEQUA+18
Function Call: WRITE
  • Prompt: TAB,"Time Assumed to be 24 Hours.",!
  • Line Location: TESTEQUA+19
Function Call: WRITE
  • Prompt: !!,TAB2,"Creatinine Clearance Equation = ",$$CREATCLR(CREATININE,URINECR,URINEVOL),!!
  • Line Location: TESTEQUA+20
Function Call: WRITE
  • Prompt: !!,?TAB,$$TRIM^XLFSTR(MSG,"LR"," ")," Routine Ends."
  • Line Location: BADSTUFF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GF60DATA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETCREAT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETURICR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: GETURVOL+10
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+17
Function Call: WRITE
  • Prompt: !!,"Error in adding DESCRIPTION to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+26
Function Call: WRITE
  • Prompt: !,?5,NAME_" Delta Check DESCRIPTION added to Delta Check Dictionary.",!
  • Line Location: DLTADICA+29
Function Call: WRITE
  • Prompt: !!,"Error in adding SITES NOTES DATE to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+37
Function Call: WRITE
  • Prompt: !!,"Error in adding TEXT to "_NAME_" Delta Check in the Delta Check Dictionary."
  • Line Location: DLTADICA+46
Function Call: WRITE
  • Prompt: !,?5,NAME_" Delta Check TEXT added to Delta Check Dictionary."
  • Line Location: DLTADICA+49
Routine Call
  • DIE
  • Line Location:
    • DLTADICA+12
    • DLTADICA+34
Routine Call
  • DIC
  • Line Location:
    • GETDNAMT+2
    • DLTADICA+21
Routine Call
  • DIR
  • Line Location:
    • TESTEQUA+26
    • NEWDELTA+14
    • GF60DATA+5
    • GETCREAT+4
    • GETURICR+5
    • GETURVOL+5
Routine Call
  • DIE
  • Line Location:
    • DLTADICA+23
    • DLTADICA+43

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CREATCLR+17, CREATCLR+18, CREATCLR+19
^LAB(62.1 - [#62.1] NEWDELTA+20

Label References

Name Line Occurrences
$$CREATCLR TESTEQUA+20
$$GETCREAT TESTEQUA+11
$$GETURICR TESTEQUA+12
$$GETURVOL TESTEQUA+13
$$GF60DATA NEWDELTA+22, NEWDELTA+24, NEWDELTA+26, NEWDELTA+28
BADSTUFF NEWDELTA+20, GQMFDIRR+1, GF60DATA+9, DLTADICA+15, DLTADICA+27, DLTADICA+38, DLTADICA+47
DLTADICA NEWDELTA+43
GQMFDIRR NEWDELTA+15, GF60DATA+6, GETCREAT+6, GETURICR+7, GETURVOL+7
SETBLRVS NEWDELTA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRTFLAG TESTEQUA+3*
BLRVERN SETBLRVS+1!, SETBLRVS+3*
BLRVERN2 SETBLRVS+1!, SETBLRVS+4*
CREAT CREATCLR~, CREATCLR+1, CREATCLR+10, CREATCLR+24
CREATCLR CREATCLR~, CREATCLR+16, CREATCLR+17
CREATININE TESTEQUA+11, TESTEQUA+16, TESTEQUA+20, GETCREAT~, GETCREAT+9*
>> CREATSTR NEWDELTA+5*, NEWDELTA+7, NEWDELTA+13, NEWDELTA+22, NEWDELTA+24, NEWDELTA+26, NEWDELTA+28
>> CRECLRDN NEWDELTA+22, NEWDELTA+31
DESC NEWDELTA+43, DLTADICA~, DLTADICA+22
DESC(1 NEWDELTA+33*
DESC(2 NEWDELTA+34*
DESC(3 NEWDELTA+35*
DESC(4 NEWDELTA+36*
DESC(5 NEWDELTA+37*
DESC(6 NEWDELTA+38*
DESC(7 NEWDELTA+39*
DICT0 DLTADICA+1~
DICT1 DLTADICA+1~, DLTADICA+9*, DLTADICA+10, DLTADICA+11
DIE DLTADICA+7!
>> DILOCKTM CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> DIR("A" TESTEQUA+24*, NEWDELTA+13*, GF60DATA+4*, GETCREAT+3*, GETURICR+4*, GETURVOL+4*
>> DIR("B" TESTEQUA+25*
>> DIR(0 TESTEQUA+23*, NEWDELTA+12*, GF60DATA+3*, GETCREAT+2*, GETURICR+3*, GETURVOL+3*
>> DIRUT NEWDELTA+15, GF60DATA+6, GETCREAT+6, GETURICR+7, GETURVOL+7
>> DISYS CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> DNAME GETDNAMT+5*, GETDNAMT+7
DT CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
DTIME CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
DUZ CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1, DLTADICA+42
DUZ(2 CREATCLR+22
ERRS DLTADICA+1~, DLTADICA+7!, DLTADICA+20!, DLTADICA+32!, DLTADICA+41!
ERRS("DIERR" DLTADICA+14, DLTADICA+25, DLTADICA+36, DLTADICA+45
>> F60CCDSC NEWDELTA+22, NEWDELTA+38
>> F60CCLR CREATCLR+17*, CREATCLR+18, CREATCLR+19
>> F60CCPTR NEWDELTA+22
F60DESC GF60DATA~, GF60DATA+11*
F60DN GF60DATA~, GF60DATA+8*, GF60DATA+9
F60IEN GETDNAMT+1~, GETDNAMT+2*, GETDNAMT+3, GETDNAMT+5
F60PTR GF60DATA~, GF60DATA+11*
>> F60SCRD NEWDELTA+24
>> F60SCRP NEWDELTA+24
>> F60UCRD NEWDELTA+26
>> F60UCRP NEWDELTA+26
>> F60UVDSC NEWDELTA+28, NEWDELTA+34
>> F60UVPTR NEWDELTA+28
FDA DLTADICA+1~, DLTADICA+7!, DLTADICA+32!
FDA( DLTADICA+10*, DLTADICA+11*, DLTADICA+33*
>> HEADER(1 TESTEQUA+5*, NEWDELTA+6*
>> HEADER(2 TESTEQUA+6*, NEWDELTA+7*
>> HEADER(3 TESTEQUA+7*, NEWDELTA+8*
HEREYAGO DLTADICA+2~
IENS DLTADICA+7!
IO CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOBS CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOF CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOM CREATCLR+1, TESTEQUA+1, TESTEQUA+7, NEWDELTA+1, NEWDELTA+8, JUSTNEW+1
ION CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOS CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOSL CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
IOST CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOT CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> IOXY CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
MSG BADSTUFF~, BADSTUFF+2
NAME NEWDELTA+17*, NEWDELTA+20, NEWDELTA+43, GETDNAMT~, GETDNAMT+2, DLTADICA~, DLTADICA+4, DLTADICA+10, DLTADICA+15, DLTADICA+17
, DLTADICA+21, DLTADICA+26, DLTADICA+29, DLTADICA+37, DLTADICA+46, DLTADICA+49
>> ONGO TESTEQUA+3*, TESTEQUA+9, TESTEQUA+27*, GETCREAT+6*, GETURICR+7*, GETURVOL+7*
PROMPT GF60DATA~, GF60DATA+4
PTR DLTADICA+1~, DLTADICA+21*, DLTADICA+23, DLTADICA+33, DLTADICA+43
>> SCRDN NEWDELTA+24, NEWDELTA+31
>> SITESPEC CREATCLR+18*, CREATCLR+19
TAB TESTEQUA+4*, TESTEQUA+16, TESTEQUA+17, TESTEQUA+18, TESTEQUA+19, BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3, GETCREAT+3
, GETURICR+4, GETURVOL+4
>> TAB2 TESTEQUA+4*, TESTEQUA+20
>> TAB3 TESTEQUA+4*, TESTEQUA+24
>> TRAILER CREATCLR+14*, CREATCLR+21*, CREATCLR+22*
TWO SETBLRVS~, SETBLRVS+4
U CREATCLR+1, CREATCLR+19, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1, GF60DATA+9, GF60DATA+11
>> UCRDN NEWDELTA+26, NEWDELTA+31
>> UNITS CREATCLR+19*, CREATCLR+22
URINECR CREATCLR~, CREATCLR+1, CREATCLR+11, CREATCLR+24, TESTEQUA+12, TESTEQUA+17, TESTEQUA+20, GETURICR~, GETURICR+10*
URINEVOL CREATCLR~, CREATCLR+1, CREATCLR+12, CREATCLR+24, TESTEQUA+13, TESTEQUA+18, TESTEQUA+20, GETURVOL~, GETURVOL+9*
>> URVOLDN NEWDELTA+28
WPARRAY DLTADICA+41!
WPARRAY("WP" DLTADICA+22*, DLTADICA+42*
>> X NEWDELTA+17, GETCREAT+6, GETURICR+7, GETURVOL+7
XCODE NEWDELTA+31*, NEWDELTA+43, DLTADICA~, DLTADICA+11
>> XPARSYS CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> XQXFLG CREATCLR+1, TESTEQUA+1, NEWDELTA+1, JUSTNEW+1
>> Y TESTEQUA+27, GF60DATA+8, GF60DATA+9, GF60DATA+11, GETCREAT+6, GETCREAT+9, GETURICR+7, GETURICR+10, GETURVOL+7, GETURVOL+9

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