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

Package: CPT Files

Routine: ACPTENV


Information

ACPTENV ; IHS/SD/SDR - Environment checker for ACPT V2.07 ; 5/7/2003 2:03:41 PM [ 02/03/2004 12:28 PM ]

Source Information

Source file <ACPTENV.m>

Call Graph

Call Graph Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
INSTALLD(ACPTINST) ;EP - Determine if patch ACPTINST was installed, where ACPTINST is
; the name of the INSTALL. E.g "AG*6.0*10".
VCHK(ACPTPRE,ACPTVER,ACPTQUIT) ; Check versions needed.
;
SORRY(X) ;

External References

Name Field # of Occurrence
^DIC INSTALLD+10, INSTALLD+13
IX^DIC ACPTENV+24, INSTALLD+7
$$DIR^XBDIR ACPTENV+35, SORRY+3
$$CJ^XLFSTR ACPTENV+8, ACPTENV+9, ACPTENV+26, ACPTENV+27, ACPTENV+28, ACPTENV+33, SORRY+3, VCHK+4, VCHK+5
$$VERSION^XPDUTL VCHK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: ACPTENV+3
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: ACPTENV+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: ACPTENV+8
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: ACPTENV+9
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACPT"" prefix.",IOM)
  • Line Location: ACPTENV+26
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: ACPTENV+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: ACPTENV+28
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: ACPTENV+33
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_ACPTPRE_" v "_ACPTVER_"....."_ACPTPRE_" v "_ACPTV_" Present",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("^^^^**NEEDS FIXED**^^^^",IOM)
  • Line Location: VCHK+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+10
    • INSTALLD+13
Routine Call
  • DIC
  • Line Location:
    • ACPTENV+24
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] ACPTENV+25
^VA(200 - [#200] ACPTENV+7

Label References

Name Line Occurrences
$$VCHK ACPTENV+13, ACPTENV+15, ACPTENV+17, ACPTENV+20
SORRY ACPTENV+3, ACPTENV+5, ACPTENV+31, ACPTENV+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACPTINST INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
ACPTPRE VCHK~, VCHK+3, VCHK+4
ACPTQUIT ACPTENV+11~, ACPTENV+12*, ACPTENV+13*, ACPTENV+15*, ACPTENV+17*, ACPTENV+20*, ACPTENV+25*, ACPTENV+31, VCHK~
ACPTV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ACPTVER VCHK~, VCHK+4, VCHK+5
>> D ACPTENV+23*, INSTALLD+6*
DA ACPTENV+22~
DIC ACPTENV+22~, ACPTENV+23*, INSTALLD+4~, INSTALLD+6*, INSTALLD+9*, INSTALLD+12*
DIC(0 ACPTENV+23*, INSTALLD+6*
DIFQ SORRY+1!
DUZ ACPTENV+3, ACPTENV+7
DUZ(0 ACPTENV+5
IOM ACPTENV+8, ACPTENV+9, ACPTENV+26, ACPTENV+27, ACPTENV+28, ACPTENV+33, SORRY+3, VCHK+4, VCHK+5
U ACPTENV+7
X ACPTENV+7*, ACPTENV+8, ACPTENV+23*, SORRY~, SORRY+2, INSTALLD+4~, INSTALLD+5*, INSTALLD+9*, INSTALLD+12*
>> XPDQUIT SORRY+2*
Y ACPTENV+25, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED SORRY+3

Marked Items

Name Field # of Occurrence
$T( ACPTENV+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