Routine: BLRPR27P

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Changes To Lab	4	$$GETDNAM^BLREXECU (EEP,HEADERDT,PRESSKEY)^BLRGMENU OKAY^BLRKIDSU SORRY^BLRPRE27
VA Fileman	4	FIND^DIC (UPDATE,WP)^DIE ^DIK ^DIR
Kernel	3	$$NOW^XLFDT $$TRIM^XLFSTR BMES^XPDUTL
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

IHS Changes To Lab

$$GETDNAM^BLREXECU (EEP,HEADERDT,PRESSKEY)^BLRGMENU OKAY^BLRKIDSU SORRY^BLRPRE27

VA Fileman

FIND^DIC (UPDATE,WP)^DIE ^DIK ^DIR

Kernel

$$NOW^XLFDT $$TRIM^XLFSTR BMES^XPDUTL

IHS VA Utilities

^XBFMK

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRPRE27

Package

Total

Caller Graph

IHS Changes To Lab

BLRPRE27

Entry Points

Name	Comments	DBIA/ICR reference
ADDEAGDC	; EP -- Add Estimated Average Glucose (EAG) to Delta Check dictionary
TESTEAG(A1C)	; EP -- Interactive EAG Results
GETF60(MSG,F60TEST,QFLAG)	; EP
DLTADICA(NAME,XCODE,OVER1,DESC,FRMWHERE)	; EP
MKDELTA(F60TEST1,F60TEST2,FRMWHERE)	; EP
DLTAWARN	; EP -- Warning verbiage
UCHOOSE	; EP - Allows User to select tests to use for EAG Delta Check
EP	; EP

External References

Name	Field # of Occurrence
$$GETDNAM^BLREXECU	MKDELTA+7
EEP^BLRGMENU	EP+1
HEADERDT^BLRGMENU	UCHOOSE+6, UCHOOSE+28, UCHOOSE+36, UCHOOSE+74, GETF60+5
PRESSKEY^BLRGMENU	UCHOOSE+19, UCHOOSE+46, UCHOOSE+57, UCHOOSE+69, UCHOOSE+78, GETF60+13, GETF60+33
OKAY^BLRKIDSU	DLTADICA+18, DLTADICA+30, DLTADICA+48
SORRY^BLRPRE27	DLTADICA+16, DLTADICA+28, DLTADICA+38, DLTADICA+46
FIND^DIC	DLTADICA+22, UCHOOSE+53
UPDATE^DIE	DLTADICA+13, DLTADICA+35
WP^DIE	DLTADICA+25, DLTADICA+43
^DIK	UCHOOSE+66
^DIR	UCHOOSE+16, UCHOOSE+43, GETF60+9, GETF60+23
^XBFMK	DLTADICA+6, UCHOOSE+13, UCHOOSE+40, UCHOOSE+52, UCHOOSE+63, GETF60+6, GETF60+20
$$NOW^XLFDT	DLTADICA+34
$$TRIM^XLFSTR	GETF60+31
BMES^XPDUTL	DLTADICA+4, DLTADICA+49

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Null A1C. Routine Ends.",! Line Location: TESTEAG+3
Function Call: WRITE	Prompt: !,?4,"A1C = ",A1C,?19,"EAG = ",$FN(EAG,"",0),?34,"EAG with decimals=",EAG,! Line Location: TESTEAG+6
Function Call: WRITE	Prompt: $P(X,";",3),! Line Location: UCHOOSE+11
Function Call: WRITE	Prompt: !,"YES not selected. Routine ends.",! Line Location: UCHOOSE+18
Function Call: WRITE	Prompt: !,"The Current EAG will now be deleted.",!! Line Location: UCHOOSE+37
Function Call: WRITE	Prompt: ?5,"YES will delete the current EAG Delta Check.",!! Line Location: UCHOOSE+38
Function Call: WRITE	Prompt: ?5,"NO will stop the process.",!! Line Location: UCHOOSE+39
Function Call: WRITE	Prompt: !!,"Current EAG Delta Check will NOT be deleted. Routine ends.",! Line Location: UCHOOSE+45
Function Call: WRITE	Prompt: !!,"Could not find Current EAG Delta Check. Routine ends.",! Line Location: UCHOOSE+56
Function Call: WRITE	Prompt: !!,"Current EAG Deleted",! Line Location: UCHOOSE+68
Function Call: WRITE	Prompt: ! Line Location: UCHOOSE+75
Function Call: WRITE	Prompt: !,?5,"Exit Selected. Routine ends.",! Line Location: GETF60+12
Function Call: WRITE	Prompt: !,?5,"Test ",TESTDESC," does NOT have a LOCATION (DATA NAME).",!! Line Location: GETF60+19
Function Call: WRITE	Prompt: !!,?5,TESTDESC," (",TESTIEN,") selected as ",WOTNAME,".",!! Line Location: GETF60+32
Routine Call	DIE Line Location: DLTADICA+13 DLTADICA+35
Routine Call	DIC Line Location: DLTADICA+22 UCHOOSE+53
Routine Call	DIR Line Location: UCHOOSE+16 UCHOOSE+43 GETF60+9 GETF60+23
Routine Call	DIE Line Location: DLTADICA+25 DLTADICA+43

FileNo	Call Tags
^LAB(62.1 - [#62.1]	Classic Fileman Calls, FIND^DIC, WP^DIE
62.131	WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	MKDELTA+8, GETF60+29
^LAB(60 - [#60]	GETF60+17

Name	Line Occurrences
$$GETF60	UCHOOSE+29, UCHOOSE+30
DLTADICA	MKDELTA+14
MKDELTA	ADDEAGDC+5, UCHOOSE+76

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A1C	TESTEAG~, TESTEAG+2, TESTEAG+5, TESTEAG+6
A1CDESC	ADDEAGDC+2~, UCHOOSE+2~
A1CIEN	ADDEAGDC+2~, UCHOOSE+2~
A1CTEST	UCHOOSE+3~, UCHOOSE+27, UCHOOSE+29, UCHOOSE+76
CUREAG	UCHOOSE+3~, UCHOOSE+54*, UCHOOSE+55, UCHOOSE+65
>> DA	UCHOOSE+65*
DATANAME	GETF60+1~, GETF60+3, GETF60+4, GETF60+17, GETF60+18, GETF60+29
DESC	ADDEAGDC+1~, MKDELTA+14, DLTADICA~, DLTADICA+24, UCHOOSE+1~
DESC(1	MKDELTA+11*
DESC(2	MKDELTA+12*
DESC(3	MKDELTA+13*
DESC1STR	ADDEAGDC+1~, UCHOOSE+1~
DESC2STR	ADDEAGDC+1~, UCHOOSE+1~
DICT0	DLTADICA+1~
DICT1	DLTADICA+1~, DLTADICA+9*, DLTADICA+10, DLTADICA+11, DLTADICA+12
DIE	DLTADICA+7!
>> DIK	UCHOOSE+64*
>> DIR("A"	UCHOOSE+14, UCHOOSE+41, GETF60+8, GETF60+22
>> DIR(0	UCHOOSE+15, UCHOOSE+42, GETF60+7, GETF60+21
>> DIRUT	GETF60+10
EAG	TESTEAG+1~, TESTEAG+5*, TESTEAG+6
EAGDNAME	MKDELTA+1~, MKDELTA+7, MKDELTA+8, MKDELTA+13
EAGTEST	UCHOOSE+3~, UCHOOSE+27, UCHOOSE+30, UCHOOSE+76
ERRS	DLTADICA+1~, DLTADICA+7!, DLTADICA+21!, DLTADICA+33!, DLTADICA+41!
ERRS("DIERR"	DLTADICA+15, DLTADICA+27, DLTADICA+37, DLTADICA+45
F60TEST	GETF60~, GETF60+29*
F60TEST1	MKDELTA~, MKDELTA+3
F60TEST2	MKDELTA~, MKDELTA+2, MKDELTA+7
FDA	DLTADICA+1~, DLTADICA+7!, DLTADICA+33!
FDA(	DLTADICA+10, DLTADICA+11, DLTADICA+12, DLTADICA+34
FRMWHERE	MKDELTA~, MKDELTA+14, DLTADICA~, DLTADICA+42
HEADER	UCHOOSE+3~, UCHOOSE+21!
HEADER(1	UCHOOSE+5, UCHOOSE+22
HEADER(2	UCHOOSE+23, UCHOOSE+34!, UCHOOSE+35, UCHOOSE+72!, UCHOOSE+73*
HEREYAGO	DLTADICA+2~
HEREYAGO("DILIST"	DLTADICA+23
>> I	UCHOOSE+10*
IENS	DLTADICA+7!
LINE	UCHOOSE+3~
MESSAGE	ADDEAGDC+2~, UCHOOSE+2~
MSG	GETF60~, GETF60+8, GETF60+31
NAME	ADDEAGDC+1~, MKDELTA+6*, MKDELTA+14, DLTADICA~, DLTADICA+4, DLTADICA+10, DLTADICA+16, DLTADICA+18, DLTADICA+22, DLTADICA+28 , DLTADICA+30, DLTADICA+38, DLTADICA+46, DLTADICA+48, DLTADICA+49, UCHOOSE+1~
OUT	UCHOOSE+3~
OUT("DILIST"	UCHOOSE+54
OVER1	ADDEAGDC+1~, MKDELTA+10*, MKDELTA+14, DLTADICA~, DLTADICA+12, UCHOOSE+1~
OVER1STR	ADDEAGDC+1~, MKDELTA+3, MKDELTA+4, MKDELTA+10, UCHOOSE+1~
>> PKG	UCHOOSE+9*
PTR	DLTADICA+1~, DLTADICA+23*, DLTADICA+25, DLTADICA+34, DLTADICA+43
QFLAG	UCHOOSE+3~, UCHOOSE+24, UCHOOSE+27, UCHOOSE+29, UCHOOSE+30, UCHOOSE+32, UCHOOSE+47, UCHOOSE+49, UCHOOSE+58, UCHOOSE+60 , GETF60~, GETF60+4, GETF60+11, GETF60+25*, GETF60+27, GETF60+30, GETF60+35
TARGET	ADDEAGDC+2~, UCHOOSE+2~
TESTDESC	GETF60+1~, GETF60+16*, GETF60+19, GETF60+32
TESTIEN	GETF60+1~, GETF60+15*, GETF60+32
>> WOTNAME	GETF60+31*, GETF60+32
WPARRAY	DLTADICA+41!
WPARRAY("WP"	DLTADICA+24, DLTADICA+42
>> X	UCHOOSE+10*, UCHOOSE+11
XCODE	ADDEAGDC+1~, MKDELTA+9*, MKDELTA+14, DLTADICA~, DLTADICA+11, UCHOOSE+1~
XCODESTR	ADDEAGDC+1~, MKDELTA+2*, MKDELTA+9, UCHOOSE+1~
>> Y	UCHOOSE+17, UCHOOSE+44, GETF60+10, GETF60+15, GETF60+16, GETF60+17, GETF60+24, GETF60+29

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPR27P

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items