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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BMC4E

Package: Referred Care Information System

Routine: BMC4E


Information

BMC4E ;IHS/OIT/FCJ - BMC 4.0 PATCH 13 -ENV INSTALL ; 16 Feb 2011 2:54 PM

Source Information

Source file <BMC4E.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 HOME^%ZIS  ENDR^%ZISS  $$FMADD^XLFDT  ($$CJ,$$LJ,$$RJ)^XLFSTR  ($$VERSION,BMES,MES)^XPDUTL  
VA Fileman 4 (,IX)^DIC  $$GET1^DID  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
INTROE ; Intro text during KIDS Environment check.
AUDR ; EP- KIDS ;Restore the file data audit values to their original values.
SINGLE(K) ; Get holders of a single key K.
RSLT(%)
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP) ; Check versions needed.
;
INSTALLD(BMC) ; Determine if patch BMC was installed, where BMC is
; the name of the INSTALL. E.g "AVA*93.2*12".
INTROI ; Intro text during KIDS Install.
GREET ;;To add to mail message.
SORRY(X) ;
MAIL ; EP
AUDS ;EP - From KIDS.

External References

Name Field # of Occurrence
HOME^%ZIS BMC4E+4
ENDR^%ZISS BMC4E+15
^DIC INSTALLD+11, INSTALLD+15
IX^DIC BMC4E+37, INSTALLD+7
$$GET1^DID AUDR+6
$$GET1^DIQ BMC4E+9
^DIR BMC4E+29, BMC4E+32
$$DIR^XBDIR BMC4E+46, BMC4E+47
HELP^XBHELP BMC4E+45, BMC4E+47
$$FMADD^XLFDT AUDS+3
$$CJ^XLFSTR BMC4E+10, BMC4E+11, BMC4E+39, BMC4E+40, BMC4E+43, BMC4E+44, SORRY+3, VCHK+5, VCHK+7, INSTALLD+17
, INSTALLD+18
$$LJ^XLFSTR AUDS+8, AUDR+6
$$RJ^XLFSTR AUDS+8, AUDR+6
^XMD MAIL+10
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL MAIL+1, AUDS+1, AUDR+1
MES^XPDUTL MAIL+12, AUDS+2, AUDS+8, AUDS+10, AUDR+6, AUDR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BMC4E+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BMC4E+6
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BMC4E+10
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM),!
  • Line Location: BMC4E+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: BMC4E+28
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4E+31
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4E+33
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""BMC"" prefix.",IOM)
  • Line Location: BMC4E+39
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: BMC4E+40
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"You will need to update package(s) before proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: BMC4E+43
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BMC4E+44
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....Need to update package!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(BMCCOMP="<":"at least ",1:"")_BMCPRE_" v "_BMCVER_"....."_BMCPRE_" v "_BMCV_" Present",IOM)
  • Line Location: VCHK+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_"....."_BMC_" Present",IOM)
  • Line Location: INSTALLD+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_".....",IOM)
  • Line Location: INSTALLD+18
Routine Call
  • %ZIS
  • Line Location:
    • BMC4E+4
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
Routine Call
  • DIR
  • Line Location:
    • BMC4E+29
    • BMC4E+32
Routine Call
  • DIC
  • Line Location:
    • BMC4E+37
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( AUDS+7, AUDS+9*, AUDR+5*, AUDR+6
^DIC(9.4 - [#9.4] BMC4E+38
^TMP("BMC4P13" MAIL+3!, MAIL+11!, RSLT
^XTMP("BMC4P13" AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+7!
^XTMP("XPDI" MAIL+7, AUDS+6, AUDS+8
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$INSTALLD BMC4E+21, BMC4E+22, BMC4E+23, BMC4E+24, BMC4E+25, BMC4E+26, BMC4E+30, BMC4E+33
$$VCHK BMC4E+17, BMC4E+18, BMC4E+19, BMC4E+20, BMC4E+27
RSLT MAIL+4, MAIL+5, MAIL+7
SINGLE MAIL+9
SORRY BMC4E+5, BMC4E+6, BMC4E+7, BMC4E+21, BMC4E+22, BMC4E+23, BMC4E+24, BMC4E+25, BMC4E+26, BMC4E+30
, BMC4E+33, BMC4E+41, BMC4E+46, BMC4E+47, VCHK+6, VCHK+8

Naked Globals

Name Field # of Occurrence
^( MAIL+7, RSLT*
^(0 RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~
BMC INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18, AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7
, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5, AUDR+6
BMCCOMP VCHK~, VCHK+5, VCHK+7, VCHK+8
BMCPRE VCHK~, VCHK+3, VCHK+5, VCHK+7
BMCQUIT BMC4E+21*, BMC4E+22*, BMC4E+23*, BMC4E+24*, BMC4E+25*, BMC4E+26*, BMC4E+30*, BMC4E+33*, VCHK~, VCHK+6
, VCHK+8
BMCV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5, VCHK+7, VCHK+8
BMCVER VCHK~, VCHK+5, VCHK+7, VCHK+8
>> D BMC4E+36*, INSTALLD+6*
DA BMC4E+35~
DIC BMC4E+35~, BMC4E+36*, INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, INSTALLD+16
DIC(0 BMC4E+36*, INSTALLD+6*
DIFQ SORRY+1!
DIFROM MAIL+2~
>> DIR("A" BMC4E+29*, BMC4E+32*
>> DIR(0 BMC4E+29*, BMC4E+32*
DT AUDS+3
DUZ BMC4E+5, BMC4E+9, MAIL+8
DUZ(0 BMC4E+6, BMC4E+7
IOM BMC4E+4, BMC4E+10, BMC4E+11, BMC4E+39, BMC4E+40, BMC4E+43, BMC4E+44, SORRY+3, VCHK+5, VCHK+7
, INSTALLD+17, INSTALLD+18
IORVOFF BMC4E+13~, BMC4E+40, BMC4E+43
IORVON BMC4E+13~, BMC4E+40, BMC4E+43
K SINGLE~, SINGLE+3, SINGLE+4
P INSTALLD+3~, INSTALLD+16*
X BMC4E+9*, BMC4E+10, BMC4E+14*, BMC4E+36*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*
, INSTALLD+16
XMDUZ MAIL+2~, MAIL+8*
XMSUB MAIL+2~, MAIL+8*
XMTEXT MAIL+2~, MAIL+8*
XMY MAIL+2~
XMY( MAIL+8*, SINGLE+4*
XMY(1 MAIL+8*
>> XPDA MAIL+7, AUDS+6, AUDS+8
>> XPDBLD MAIL+7
>> XPDDIQ("XPZ1" BMC4E+47*
>> XPDDIQ("XPZ2" BMC4E+47*
>> XPDENV BMC4E+47
>> XPDQUIT BMC4E+43, SORRY+2*
Y BMC4E+30, BMC4E+33, BMC4E+38, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16*, INSTALLD+17
, INSTALLD+18, INSTALLD+19, SINGLE+1~, SINGLE+2*, SINGLE+4*
>> ZTQUEUED BMC4E+7

Marked Items

Name Field # of Occurrence
$T( BMC4E+11, MAIL+8, AUDS+3
$T(GREET+% MAIL+5
$T(GREET+%+1 MAIL+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All