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

Package: IHS Patient Registration

Routine: AG71EN4


Information

AG71EN4 ;IHS/SD/EFG - Patient Registration 7.1 PATCH 4 ENVIRONMENT CHECKER ;

Source Information

Source file <AG71EN4.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 $$FMADD^XLFDT  $$CJ^XLFSTR  ($$LAST,$$VERSION,BMES)^XPDUTL  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 (,IX)^DIC  

Entry Points

Name Comments DBIA/ICR reference
CONT ;EP
VCHK(AGPRE,AGVER,AGQUIT) ;Check versions needed.
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
OPTSAV(AGM) ;
SORRY(X) ;
INSTALLD(AGINSTAL) ;EP - Determine if patch AGINSTAL was installed, where AGINSTAL is

External References

Name Field # of Occurrence
^DIC INSTALLD+10, INSTALLD+13
IX^DIC CONT+20, INSTALLD+7
$$DIR^XBDIR CONT+37, SORRY+3
$$FMADD^XLFDT OPTSAV+3
$$CJ^XLFSTR AG71EN4+8, AG71EN4+9, AG71EN4+15, AG71EN4+16, AG71EN4+18, CONT+6, CONT+11, CONT+16, CONT+22, CONT+23
, CONT+24, CONT+35, SORRY+3, VCHK+3, VCHK+4
$$LAST^XPDUTL CONT+3, CONT+5, CONT+10
$$VERSION^XPDUTL AG71EN4+18, VCHK+2
BMES^XPDUTL OPTSAV+1, OPTSAV+2, OPTSAV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AG71EN4+3
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AG71EN4+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AG71EN4+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($P($T(+2),";",5)="":"",1:" Patch "_$P($T(+2),";",5)_"."),IOM),!
  • Line Location: AG71EN4+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least Kernel patch 1009....patch 1009 NOT INSTALLED",IOM)
  • Line Location: AG71EN4+15
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least Kernel patch 1012....patch 1012 Present",IOM)
  • Line Location: AG71EN4+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Version 7.1 Present",IOM)
  • Line Location: AG71EN4+18
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 18 NOT INSTALLED",IOM)
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 20 NOT INSTALLED",IOM)
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AG"" prefix.",IOM)
  • Line Location: CONT+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: CONT+23
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: CONT+24
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: CONT+35
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM)
  • Line Location: VCHK+3
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("^^^^**NEED TO UPGRADE**^^^^",IOM)
  • Line Location: VCHK+4
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+10
    • INSTALLD+13
Routine Call
  • DIC
  • Line Location:
    • CONT+20
    • 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(19 - [#19] OPTSAV+5, OPTSAV+8
^DIC(9.4 - [#9.4] CONT+21, PATCH+3, PATCH+4, PATCH+6, PATCH+7
^VA(200 - [#200] AG71EN4+7
^XTMP("AG71" OPTSAV+2, OPTSAV+3*, OPTSAV+8*

Label References

Name Line Occurrences
$$INSTALLD CONT+15
$$PATCH AG71EN4+15
$$VCHK AG71EN4+19, CONT+1, CONT+8, CONT+13
CONT AG71EN4+18
OPTSAV CONT+30
SORRY AG71EN4+3, AG71EN4+5, AG71EN4+15, CONT+33, CONT+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PATCH+2~, PATCH+7*, PATCH+8
A OPTSAV+4~, OPTSAV+7*, OPTSAV+8*
AGINSTAL INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
AGM OPTSAV~, OPTSAV+1, OPTSAV+2, OPTSAV+5, OPTSAV+6, OPTSAV+8
AGPRE VCHK~, VCHK+2, VCHK+3
AGQUIT AG71EN4+11~, AG71EN4+12*, AG71EN4+19*, CONT+1*, CONT+6*, CONT+8*, CONT+11*, CONT+13*, CONT+16*, CONT+21*
, CONT+33, VCHK~
AGV VCHK+1~, VCHK+2*, VCHK+3, VCHK+4
AGVER VCHK~, VCHK+3, VCHK+4
>> D CONT+19*, INSTALLD+6*
DA CONT+18~
DIC CONT+18~, CONT+19*, INSTALLD+4~, INSTALLD+6*, INSTALLD+9*, INSTALLD+12*
DIC(0 CONT+19*, INSTALLD+6*
DIFQ SORRY+1!
DT OPTSAV+3
DUZ AG71EN4+3, AG71EN4+7
DUZ(0 AG71EN4+5
I OPTSAV+4~, OPTSAV+5*, OPTSAV+6, OPTSAV+8, PATCH+2~, PATCH+3*, PATCH+4, PATCH+6, PATCH+7
IOM AG71EN4+8, AG71EN4+9, AG71EN4+15, AG71EN4+16, AG71EN4+18, CONT+6, CONT+11, CONT+16, CONT+22, CONT+23
, CONT+24, CONT+35, SORRY+3, VCHK+3, VCHK+4
J PATCH+2~, PATCH+4*, PATCH+6, PATCH+7
U AG71EN4+7, CONT+6, CONT+11, OPTSAV+3, OPTSAV+8
X AG71EN4+7*, AG71EN4+8, CONT+3*, CONT+5*, CONT+6, CONT+10*, CONT+11, CONT+19*, SORRY~, SORRY+2
, INSTALLD+4~, INSTALLD+5*, INSTALLD+9*, INSTALLD+12*, PATCH~, PATCH+1, PATCH+3, PATCH+4*, PATCH+6, PATCH+7
, PATCH+8
>> XPDDIQ("XPZ1" CONT+29*
>> XPDDIQ("XPZ2" CONT+29*
>> XPDENV CONT+26
>> XPDQUIT SORRY+2*
Y CONT+21, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED SORRY+3

Marked Items

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