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

Package: Kernel

Routine: XU8P1018


Information

XU8P1018 ;IHS/OIT/FBD - XU V8.0 PATCH 1018 ;

Source Information

Source file <XU8P1018.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  ENDR^%ZISS  $$CJ^XLFSTR  ($$VERSION,BMES,MES)^XPDUTL  ^ZTMGRSET  
VA Fileman 3 (,IX)^DIC  ^DIE  ENALL^DIK  
IHS VA Utilities 2 $$DIR^XBDIR  ^XBFIXPT  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
IMES ;
SINGLE(K) ; Get holders of a single key K.
VCHK(AUPNPRE,AUPNVER,AUPNQUIT) ; Check versions needed.
;
SORRY(X) ;
ENV ;ENVIROMENT CHECK
INSTALLD(AUPNSTAL) ;EP - Determine if patch AUPNSTAL was installed, where
; AUPNSTAL is the name of the INSTALL. E.g "AG*6.0*11".
POST ;EP - XU V8.0 PATCH 1018 POST-INIT

External References

Name Field # of Occurrence
HOME^%ZIS ENV+1
ENDR^%ZISS ENV+13
^DIC INSTALLD+9, INSTALLD+12
IX^DIC ENV+27, INSTALLD+6
^DIE POST+10, POST+30, POST+45
ENALL^DIK POST+20
$$DIR^XBDIR ENV+40
^XBFIXPT POST+49
$$CJ^XLFSTR ENV+8, ENV+9, ENV+29, ENV+30, ENV+34, ENV+38, SORRY+4, VCHK+4, POST+2, POST+4
, POST+7, POST+12, POST+23, POST+33, POST+36, POST+39, POST+48, IMES+1
^XMD POST+60
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL POST+2, POST+4, POST+52
MES^XPDUTL ENV+3, ENV+5, POST+7, POST+12, POST+23, POST+33, POST+36, POST+39, POST+48, IMES+1
^ZTMGRSET POST+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: ENV+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: ENV+9
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM)
  • Line Location: ENV+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: ENV+30
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: ENV+34
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: ENV+38
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM)
  • Line Location: VCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • ENV+1
Routine Call
  • DIE
  • Line Location:
    • POST+10
    • POST+30
    • POST+45
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
Routine Call
  • DIC
  • Line Location:
    • ENV+27
    • INSTALLD+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] ENV+28
^DIE - [#.402] POST+27, POST+35
^DIE("B" POST+26, POST+41
^TMP("XU8P1018" POST+54!, POST+55*, POST+57*, POST+61!
^VA(200 - [#200] ENV+7
^XMB(3.8 - [#3.8] POST+13!, POST+15
^XTMP("XPDI" POST+57
^XTV(8989.3 - [#8989.3] POST+34
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$INSTALLD ENV+20, ENV+21, ENV+22, ENV+23
$$VCHK ENV+15, ENV+16, ENV+17, ENV+18
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
SINGLE POST+59
SORRY ENV+3, ENV+5, ENV+20, ENV+21, ENV+22, ENV+23, ENV+31, ENV+40, VCHK+5

Naked Globals

Name Field # of Occurrence
^( POST+57

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % POST+56*, POST+57*, POST+59*
AUPNPRE VCHK~, VCHK+3, VCHK+4
AUPNQUIT VCHK~, VCHK+5
AUPNSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUPNV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER VCHK~, VCHK+4, VCHK+5
AUPNY INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D ENV+26*, INSTALLD+5*
DA ENV+25~, POST+8!, POST+9*, POST+16!, POST+21!, POST+28!, POST+29*, POST+42!, POST+43*
DA(1 POST+19*
DIC ENV+25~, ENV+26*, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*
DIC(0 ENV+26*, INSTALLD+5*
DIE POST+8!, POST+9*, POST+28!, POST+29*, POST+42!, POST+43*
DIFQ SORRY+1!
DIFROM POST+53~
DIK POST+16!, POST+17*, POST+21!
DIK(1 POST+18*
DR POST+8!, POST+9*, POST+28!, POST+29*, POST+42!, POST+44*
DUZ ENV+3, ENV+7, POST+58
DUZ(0 ENV+5
IOM ENV+1, ENV+8, ENV+9, ENV+29, ENV+30, ENV+34, ENV+38, SORRY+4, VCHK+4, IMES+1
IORVOFF ENV+11~, ENV+30, ENV+34
IORVON ENV+11~, ENV+30, ENV+34
K SINGLE~, SINGLE+3, SINGLE+4
U ENV+7, POST+27, POST+34
X ENV+7*, ENV+8, ENV+12*, ENV+26*, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*
, INSTALLD+11*
XMDUZ POST+53~, POST+58*
XMSUB POST+53~, POST+58*
XMTEXT POST+53~, POST+58*
XMY POST+53~
XMY( POST+58*, SINGLE+4*
XMY(1 POST+58*
>> XPDA POST+57
>> XPDBLD POST+57
>> XPDDIQ("XPI1" ENV+36*
>> XPDDIQ("XPO1" ENV+36*
>> XPDDIQ("XPZ1" ENV+36*
>> XPDDIQ("XPZ2" ENV+36*
>> XPDENV ENV+36
>> XPDQUIT ENV+34, SORRY+2*, SORRY+3*
>> XUMG POST+14*, POST+15*, POST+17, POST+19
XUZDA POST+25*, POST+26*, POST+27, POST+29, POST+31!, POST+41*, POST+44, POST+46!
XUZTEMP POST+24*, POST+26, POST+31!, POST+34*, POST+35, POST+40*, POST+41, POST+46!
Y ENV+28, SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13
, IMES+1

Marked Items

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