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 |  Caller 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: BLRPR27P

Package: IHS Changes To Lab

Routine: BLRPR27P


Information

BLRPR27P ;IHS/OIT/MKK - IHS Lab PATCH 1027 Post Install Routine ;JUL 06, 2010 3:14 PM

Source Information

Source file <BLRPR27P.m>

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Marked Items

Name Field # of Occurrence
$T(@PKG+I UCHOOSE+10
Info |  Source |  Call Graph |  Caller 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