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

Package: Referred Care Information System

Routine: BMC4P


Information

BMC4P ;IHS/ITSC/FCJ - BMC 4.0 INSTALL RTN 1 OF 2;

Source Information

Source file <BMC4P.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  ^DIE  ^DIK  $$GET1^DIQ  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
Referred Care Information System 1 ($$INSTALL,SETVARS)^BMC4P0  

Entry Points

Name Comments DBIA/ICR reference
INTROE ; Intro text during KIDS Environment check.
DELC ;EP;DEL COM FR THE RCIS REF FILE, ie MED HX, BO and Discharge notes
AUDS ;EP - From BMC4P0
ENV1 ;
INTROI ; Intro text during KIDS Install.
DELFLD ;EP
MGR ;****CHECK FOR CHS MANAGER IN PARAMETER, NEEDED TO CONVERT MESSAGES
SORRY(X) ;
RESUF ;TEST AND RESET DUPLICATE SUFFIX VALUES
ENV
NEW ;TEST FOR NEW PACKAGE
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP) ; Check versions needed.
;

External References

Name Field # of Occurrence
HOME^%ZIS BMC4P+3
ENDR^%ZISS BMC4P+6
$$INSTALL^BMC4P0 DELC+2, DELC+3, DELFLD+5, DELFLD+6, RESUF+1, RESUF+2
SETVARS^BMC4P0 DELC+6
IX^DIC ENV+14
^DIE RESUF+20
^DIK DELC+11, DELFLD+12
$$GET1^DIQ ENV
$$DIR^XBDIR ENV1+4, ENV1+6, ENV1+8
HELP^XBHELP ENV1+5, ENV1+8
$$FMADD^XLFDT AUDS+3
$$CJ^XLFSTR BMC4P+7, BMC4P+8, BMC4P+9, ENV+1, ENV+2, ENV+16, ENV+17, ENV1+1, ENV1+3, SORRY+3
, VCHK+4, NEW+2
$$LJ^XLFSTR AUDS+8, DELFLD+10
$$RJ^XLFSTR AUDS+8
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL AUDS+1, DELC+4, DELC+5, DELC+16, DELFLD+7, RESUF+3
MES^XPDUTL AUDS+2, AUDS+8, AUDS+11, DELFLD+10, DELFLD+13, RESUF+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("DUZ UNDEFINED OR 0.",IOM)
  • Line Location: BMC4P+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("DUZ(0) UNDEFINED OR NULL.",IOM)
  • Line Location: BMC4P+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: ENV+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM)
  • Line Location: ENV+2
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: ENV+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: ENV+17
Function Call: WRITE
  • Prompt: !!?5,"In the RCIS Site Parameter File CHS Supervisor is not Entered. This is",!?5,"required for the install."
  • Line Location: MGR+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"You must Fix it Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: ENV1+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: ENV1+3
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR(IORVON_"Sorry....You must fix it before you can install."_IORVOFF,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+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("NEW INSTALL",IOM),!
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELC+13
Routine Call
  • %ZIS
  • Line Location:
    • BMC4P+3
Routine Call
  • DIE
  • Line Location:
    • RESUF+20
Routine Call
  • DIC
  • Line Location:
    • ENV+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCPARM - [#90001.31] MGR+3
^BMCPARM("B" MGR+2
^BMCPROV("S" RESUF+5, RESUF+6, RESUF+8, RESUF+10
^BMCREF - [#90001] DELC+8, DELC+9, DELC+10, DELC+12!
^DD( AUDS+7, AUDS+9*
^DIC(19 - [#19] NEW+2
^DIC(19.1 - [#19.1] NEW+2
^DIC(9.4 - [#9.4] ENV+15, NEW+2
^XTMP("BMC4IN" DELC+7, DELC+14*, DELC+15*, RESUF+11*, RESUF+15, RESUF+16, RESUF+18*
^XTMP("BMC4P0" AUDS+3*, AUDS+7*, AUDS+8
^XTMP("XPDI" AUDS+6, AUDS+8

Label References

Name Line Occurrences
$$VCHK ENV+5, ENV+6, ENV+7, ENV+8, ENV+9
ENV1 ENV+10
NEW ENV+5
SORRY BMC4P+7, BMC4P+8, BMC4P+9, ENV+18, ENV1+4, ENV1+6, ENV1+8, VCHK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, DELC+8*, DELC+9, DELC+10, DELC+11
, DELC+12, DELC+14, DELFLD+9*
BMCCOMP VCHK~, VCHK+4, VCHK+6
>> BMCCT DELC+13*, DELC+14
>> BMCER MGR+1*, MGR+2, MGR+4*, MGR+5
>> BMCIEN RESUF+9*, RESUF+10*, RESUF+11, RESUF+15*, RESUF+16, RESUF+18, RESUF+20
>> BMCINST DELC+6*, DELC+7, DELC+14, DELC+15
>> BMCJOB DELC+7, DELC+14, DELC+15
>> BMCMGR( MGR+3*, MGR+4
>> BMCNEW ENV+4*, ENV+5, ENV+10, NEW+2*
BMCPRE VCHK~, VCHK+3, VCHK+4
BMCQUIT VCHK~, VCHK+6
BMCREF RESUF+4*, RESUF+5*, RESUF+6, RESUF+8, RESUF+10, RESUF+11, RESUF+15, RESUF+16, RESUF+18, RESUF+22!
BMCSUF RESUF+7*, RESUF+8*, RESUF+10, RESUF+11, RESUF+12, RESUF+22!
BMCSUFN RESUF+12*, RESUF+13, RESUF+22!
BMCSUFN1 RESUF+7*, RESUF+13*, RESUF+17*, RESUF+18, RESUF+20, RESUF+22!
BMCV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5*, VCHK+6
BMCVER VCHK~, VCHK+4, VCHK+6
>> CT RESUF+5*, RESUF+10*
>> D ENV+13*
DA ENV+12~, DELC+10*, DELFLD+8~, DELFLD+11*, RESUF+20*, RESUF+21!
DA(1 DELC+11*, DELFLD+11*
DIC ENV+12~, ENV+13*
DIC(0 ENV+13*
DIE RESUF+20*, RESUF+21!
DIFQ SORRY+1!
DIK DELC+11*, DELFLD+8~, DELFLD+11*
DR RESUF+20*, RESUF+21!
DT AUDS+3
DUZ BMC4P+7, ENV
DUZ(0 BMC4P+8, BMC4P+9
>> I DELC+9*, DELC+10, DELC+11, DELC+12
IOM BMC4P+3, BMC4P+7, BMC4P+8, BMC4P+9, ENV+1, ENV+2, ENV+16, ENV+17, ENV1+1, ENV1+3
, SORRY+3, VCHK+4, NEW+2
IORVOFF BMC4P+4~, ENV+17, ENV1+1, SORRY+3
IORVON BMC4P+4~, ENV+17, ENV1+1, SORRY+3
U MGR+3, DELC+7, DELC+14, DELC+15, DELFLD+10, DELFLD+11
X BMC4P+5*, ENV*, ENV+1, ENV+13*, MGR+1*, MGR+2*, MGR+3, MGR+4, SORRY~, SORRY+2
, NEW+1*, NEW+2, DELFLD+9*, DELFLD+10, DELFLD+11, RESUF+21!
>> XPDA AUDS+6, AUDS+8
>> XPDDIQ("XPZ1" ENV1+8*
>> XPDDIQ("XPZ2" ENV1+8*
>> XPDENV ENV1+8
>> XPDQUIT MGR+5*, ENV1+1, SORRY+2*
>> Y ENV+15, NEW+1*, NEW+2
>> ZTQUEUED BMC4P+9

Marked Items

Name Field # of Occurrence
$T( ENV+2, AUDS+3
$T(DELFLD+BMC DELFLD+9
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