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

Package: IHS Changes To Lab

Routine: BLRPRE20


Information

BLRPRE20 ; IHS/ITSC/MKK - ENVIRONMENT CHECK FOR PATCH 20; [ 07/22/2005 ]

Source Information

Source file <BLRPRE20.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 ^%DT  (,FIND)^DIC  DT^DICRW  UPDATE^DIE  ^DIR  
Kernel 4 HOME^%ZIS  ($$CJ,$$REPLACE)^XLFSTR  (BMES,MES)^XPDUTL  SETUP^XQALERT  
IHS VA Utilities 2 ^XBFMK  $$LOC^XBFUNC  

Entry Points

Name Comments DBIA/ICR reference
CHECKLMI() ;
LABFIXLU ;
; Fix issue with strange things occurring when people use FileMan
; to look up Lab Data and want computed values. This is a flaw in the
; lookup routine. Need to change the "NMF" below to "INMF"
; ^DD(63.04,999999901,9.3)=X ^DD(63.04,999999901,9.2) S Y=$P(Y(63.04,999999901,1),
; VU,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y K DIC S DIC="^AUPNPAT(",DIC(0)="NMF" D ^DIC
; S (D,D0)=+Y
ADDBMENU(ADDM,SYNM) ;
OKAY(MSG,TAB)
VERSION ;
CHNGMOFD ;
SORRY(MSG,MODE)
POST ;
LAB60FIX ;
; Fix File 60's invalid Urgency entries. Left over from
; 5.1 to 5.2 Upgrade, I believe.
ENVOK ; If this is just an environ check, end here.

External References

Name Field # of Occurrence
^%DT ENVOK+15
HOME^%ZIS BLRPRE20+20
^DIC CHECKLMI+3
FIND^DIC ADDBMENU+6, ADDBMENU+14
DT^DICRW BLRPRE20+20
UPDATE^DIE ADDBMENU+28
^DIR ENVOK+13
^XBFMK ENVOK+9, ADDBMENU+10
$$LOC^XBFUNC SORRY+14
$$CJ^XLFSTR SORRY+14, SORRY+16, SORRY+18, SORRY+20, SORRY+21, SORRY+23
$$REPLACE^XLFSTR CHNGMOFD+15, CHNGMOFD+31
BMES^XPDUTL BLRPRE20+24, BLRPRE20+26, BLRPRE20+29, BLRPRE20+34, BLRPRE20+38, BLRPRE20+42, BLRPRE20+48, BLRPRE20+55, BLRPRE20+61, VERSION+4
, ENVOK+1, ENVOK+14, ENVOK+16, SORRY+27, POST+7, POST+14, POST+22, LABFIXLU+13, LAB60FIX+4, CHNGMOFD+4
MES^XPDUTL OKAY+4, LAB60FIX+5, LAB60FIX+26, ADDBMENU+3
SETUP^XQALERT SORRY+32, POST+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENVOK+8
Routine Call
  • %ZIS
  • Line Location:
    • BLRPRE20+20
Routine Call
  • DIC
  • Line Location:
    • ADDBMENU+6
    • ADDBMENU+14
Routine Call
  • DIC
  • Line Location:
    • CHECKLMI+3
Routine Call
  • DIR
  • Line Location:
    • ENVOK+13
Routine Call
  • DIE
  • Line Location:
    • ADDBMENU+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND^DIC
^XMB(3.8 - [#3.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL( ENVOK+17*
^DD("DD" ENVOK+15
^DD("VERSION" BLRPRE20+28
^DD(60.03 CHNGMOFD+5, CHNGMOFD+21
^DD(63.04 LABFIXLU+8, LABFIXLU+11, LABFIXLU+14, LABFIXLU+16, LABFIXLU+17*
^DD(90475 BLRPRE20+70
^DD(90475.2 BLRPRE20+74
^DIC(19 - [#19] ADDBMENU+21
^DIC(9.4 - [#9.4] BLRPRE20+33, BLRPRE20+43, BLRPRE20+47, BLRPRE20+53, BLRPRE20+59
^LAB(60 - [#60] LAB60FIX+9, LAB60FIX+10, LAB60FIX+12*
^TMP("DIERR" ADDBMENU+30
^VA(200 - [#200] BLRPRE20+21, ENVOK+16, ENVOK+17
^XPD(9.7 - [#9.7] BLRPRE20+68, BLRPRE20+69, VERSION+5, VERSION+10, VERSION+11

Label References

Name Line Occurrences
$$CHECKLMI BLRPRE20+39
ADDBMENU POST+15, POST+16
CHNGMOFD POST+20
LAB60FIX POST+11
LABFIXLU POST+9
OKAY BLRPRE20+31, BLRPRE20+36, BLRPRE20+40, BLRPRE20+45, BLRPRE20+50, BLRPRE20+63, VERSION+15, POST+17, LABFIXLU+15, LABFIXLU+18
, LAB60FIX+14, ADDBMENU+22, ADDBMENU+33, CHNGMOFD+11, CHNGMOFD+18, CHNGMOFD+27, CHNGMOFD+34, CHNGMOFD+36
SORRY BLRPRE20+16, BLRPRE20+18, BLRPRE20+22, BLRPRE20+30, BLRPRE20+35, BLRPRE20+39, BLRPRE20+44, BLRPRE20+49, BLRPRE20+56, BLRPRE20+62
, BLRPRE20+70, BLRPRE20+74, VERSION+5, VERSION+13, ADDBMENU+18, ADDBMENU+31, CHNGMOFD+8, CHNGMOFD+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BLRPRE20+68*, BLRPRE20+69, VERSION+10*, VERSION+11
>> %DT ENVOK+15*
ADDM ADDBMENU~, ADDBMENU+3, ADDBMENU+14, ADDBMENU+18, ADDBMENU+22, ADDBMENU+31, ADDBMENU+33
BLRIEN ADDBMENU+1~, ADDBMENU+7*, ADDBMENU+21
CNT LAB60FIX+7~, LAB60FIX+8*, LAB60FIX+9, LAB60FIX+14, LAB60FIX+16, LAB60FIX+17, LAB60FIX+21, LAB60FIX+22, LAB60FIX+26
CP BLRPRE20+3~, BLRPRE20+4*, BLRPRE20+68, ENVOK+17, POST+1~, POST+2*, POST+7, POST+22, POST+24
CRLF POST+4~, POST+5*, POST+22, LAB60FIX+17, LAB60FIX+18, LAB60FIX+19, LAB60FIX+22, LAB60FIX+23, LAB60FIX+24
>> DIC CHECKLMI+1*
DIFQ SORRY+8!
>> DIR("A" ENVOK+12*
>> DIR("B" ENVOK+11*
>> DIR(0 ENVOK+10*
>> DIRUT ENVOK+14
DUZ BLRPRE20+16, BLRPRE20+21, ENVOK+16, ENVOK+17
DUZ(0 BLRPRE20+18
ERR ADDBMENU+1~
FDA ADDBMENU+1~
FDA(42 ADDBMENU+24*, ADDBMENU+25*, ADDBMENU+26*
HEREYAGO ADDBMENU+1~, ADDBMENU+11!
HEREYAGO("DILIST" ADDBMENU+7, ADDBMENU+15
IEN LAB60FIX+7~, LAB60FIX+8*, LAB60FIX+9*, LAB60FIX+10, LAB60FIX+12
LASTPTCH VERSION+2~, VERSION+3*, VERSION+4, VERSION+5, VERSION+10, VERSION+13, VERSION+15
>> LINE BLRPRE20+8*
LRSTATUS BLRPRE20+6~, BLRPRE20+67*, BLRPRE20+69*, BLRPRE20+70, BLRPRE20+74, VERSION+8~, VERSION+9*, VERSION+11*, VERSION+12, VERSION+13
MESSAGE SORRY+1~, SORRY+3*, SORRY+6*, SORRY+16, OKAY+1~, OKAY+3*, OKAY+4
MIEN ADDBMENU+1~, ADDBMENU+15*, ADDBMENU+18, ADDBMENU+21, ADDBMENU+25
MODE SORRY~, SORRY+2, SORRY+6, SORRY+30
MSG SORRY~, SORRY+18, SORRY+29, SORRY+30, OKAY~, OKAY+3
SPEC CHNGMOFD+1~, CHNGMOFD+15, CHNGMOFD+20!, CHNGMOFD+31
SPEC( CHNGMOFD+14*, CHNGMOFD+30*
STR SORRY+10~, SORRY+27, LAB60FIX+17*, LAB60FIX+18*, LAB60FIX+19*, LAB60FIX+22*, LAB60FIX+23*, LAB60FIX+24*, LAB60FIX+26, CHNGMOFD+1~
, CHNGMOFD+5*, CHNGMOFD+6, CHNGMOFD+15*, CHNGMOFD+17, CHNGMOFD+21*, CHNGMOFD+22, CHNGMOFD+31*, CHNGMOFD+33
STR(1 SORRY+11*
STR(10 SORRY+20*
STR(11 SORRY+21*
STR(12 SORRY+22*
STR(13 SORRY+23*
STR(14 SORRY+24*
STR(15 SORRY+25*
STR(16 SORRY+26*
STR(2 SORRY+12*, SORRY+25
STR(3 SORRY+13*
STR(4 SORRY+14*
STR(5 SORRY+15*
STR(6 SORRY+16*
STR(7 SORRY+17*
STR(8 SORRY+18*
STR(9 SORRY+19*
SUBSTR CHNGMOFD+1~, CHNGMOFD+6*, CHNGMOFD+7, CHNGMOFD+10, CHNGMOFD+13, CHNGMOFD+14, CHNGMOFD+22*, CHNGMOFD+23, CHNGMOFD+26, CHNGMOFD+29
, CHNGMOFD+30
SYNM ADDBMENU~, ADDBMENU+26
TAB OKAY~, OKAY+2*, OKAY+3
U BLRPRE20+21, BLRPRE20+69, VERSION+11, ENVOK+16, ENVOK+17
WOTDD CHNGMOFD+2~, CHNGMOFD+16*, CHNGMOFD+17, CHNGMOFD+32*, CHNGMOFD+33
>> X BLRPRE20+21*, BLRPRE20+22, BLRPRE20+24, BLRPRE20+28*, BLRPRE20+30, BLRPRE20+31, BLRPRE20+33*, BLRPRE20+35, BLRPRE20+36, BLRPRE20+47*
, BLRPRE20+49, BLRPRE20+50, BLRPRE20+53*, BLRPRE20+54, BLRPRE20+59*, BLRPRE20+60*, BLRPRE20+62, BLRPRE20+63, ENVOK+15*, CHECKLMI+2*
>> XPDABORT BLRPRE20+14*, ENVOK+14*, SORRY+4*
>> XPDDIQ("XPO1" BLRPRE20+13*
>> XPDDIQ("XPZ1" BLRPRE20+12*, ENVOK+5*
>> XPDDIQ("XPZ2" BLRPRE20+12*, ENVOK+5*
>> XPDENV ENVOK+5
>> XPDNOQUE BLRPRE20+9*
>> XQA("G.LMI" SORRY+31*, POST+25*
>> XQAMSG SORRY+29*, SORRY+30*, POST+24*
>> Y ENVOK+14, ENVOK+16, CHECKLMI+4

Marked Items

Name Field # of Occurrence
$T( BLRPRE20+4, BLRPRE20+26, VERSION+3, POST+2
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