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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BPMENVC

Package: IHS Patient Merge

Routine: BPMENVC


Information

BPMENVC ; IHS/OIT/NKD - Environment checker for BPM - 7/23/12 ;

Source Information

Source file <BPMENVC.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 $$CJ^XLFSTR  ($$PATCH,$$VERSION)^XPDUTL  
IHS VA Utilities 1 $$DIR^XBDIR  

Entry Points

Name Comments DBIA/ICR reference
LAST(PKG,VER) ;EP - returns last patch applied for a Package, PATCH^DATE
; Patch includes Seq # if Released
SORRY(X) ;
VCHK(BPMPRE,BPMVER,BPMQUIT) ; Check versions needed.
;
VCHK2(BPMPRE,BPMVER,BPMQUIT) ; Check patch level

External References

Name Field # of Occurrence
$$DIR^XBDIR SORRY+3
$$CJ^XLFSTR BPMENVC+9, BPMENVC+10, BPMENVC+19, BPMENVC+20, BPMENVC+21, BPMENVC+22, BPMENVC+27, SORRY+3, VCHK+4, VCHK+5
, VCHK2+3, VCHK2+5, VCHK2+6
$$PATCH^XPDUTL BPMENVC+18
$$VERSION^XPDUTL VCHK+3, VCHK2+2, LAST+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BPMENVC+4
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BPMENVC+6
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BPMENVC+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM),!
  • Line Location: BPMENVC+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ERROR: BADE*1.0*1 is installed but BADEMRG routine not present.",IOM)
  • Line Location: BPMENVC+19
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This may be due to an unofficial release of BADE*1.0*1.",IOM)
  • Line Location: BPMENVC+20
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("The official November 2011 patch of BADE*1.0*1 must be installed to continue.",IOM)
  • Line Location: BPMENVC+21
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("^^^^**NEEDS TO BE FIXED**^^^^",IOM)
  • Line Location: BPMENVC+22
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BPMENVC+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BPMPRE_" v "_BPMVER_"....."_BPMPRE_" v "_BPMV_" Present",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("^^^^**NEEDS FIXED**^^^^",IOM)
  • Line Location: VCHK+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BPMPRE_" v "_BPMVER_"....."_BPMPRE_" Not Installed",IOM),*7,!,$$CJ^XLFSTR("^^^^**NEEDS TO BE FIXED**^^^^",IOM)
  • Line Location: VCHK2+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BPMPRE_" v "_BPMVER_"....."_BPMPRE_" v "_BPMV_DPTCH_" Present",IOM)
  • Line Location: VCHK2+5
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("^^^^**NEEDS TO BE FIXED**^^^^",IOM)
  • Line Location: VCHK2+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" BPMENVC+18
^DIC(9.4 - [#9.4] LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200] BPMENVC+8

Label References

Name Line Occurrences
$$LAST VCHK2+4
$$VCHK BPMENVC+14, BPMENVC+16
$$VCHK2 BPMENVC+13, BPMENVC+15
SORRY BPMENVC+4, BPMENVC+6, BPMENVC+25

Naked Globals

Name Field # of Occurrence
^(0 LAST+8, LAST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPMPRE VCHK~, VCHK+3, VCHK+4, VCHK2~, VCHK2+2, VCHK2+3, VCHK2+4, VCHK2+5
BPMQUIT BPMENVC+12*, VCHK~, VCHK+5, VCHK2~, VCHK2+3, VCHK2+6
BPMV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5, VCHK2+1~, VCHK2+2*, VCHK2+3, VCHK2+4, VCHK2+5, VCHK2+6
BPMVER VCHK~, VCHK+4, VCHK+5, VCHK2~, VCHK2+3, VCHK2+5, VCHK2+6
DIFQ SORRY+1!, VCHK2+6!
>> DPTCH VCHK2+4*, VCHK2+5
DUZ BPMENVC+4, BPMENVC+8
DUZ(0 BPMENVC+6
IOM BPMENVC+9, BPMENVC+10, BPMENVC+19, BPMENVC+20, BPMENVC+21, BPMENVC+22, BPMENVC+27, SORRY+3, VCHK+4, VCHK+5
, VCHK2+3, VCHK2+5, VCHK2+6
LATEST LAST+2~, LAST+6*, LAST+8*, LAST+9, LAST+10
PATCH LAST+2~, LAST+6*, LAST+8*, LAST+9*, LAST+10
PKG LAST~, LAST+3, LAST+4
PKGIEN LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
>> PTCH VCHK2+4*, VCHK2+6
SUBIEN LAST+2~, LAST+6*, LAST+7*, LAST+8, LAST+9
U BPMENVC+8, LAST+8, LAST+9, LAST+10
VER LAST~, LAST+3*, LAST+5
VERIEN LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X BPMENVC+8*, BPMENVC+9, BPMENVC+18~*, SORRY~, SORRY+2
>> XPDQUIT BPMENVC+12*, BPMENVC+23*, BPMENVC+25, SORRY+2*, VCHK+5*, VCHK2+3*, VCHK2+6*
>> ZTQUEUED SORRY+3

Marked Items

Name Field # of Occurrence
$T( BPMENVC+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All