Routine: BLREXEC4

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLREXEC4

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items