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

Package: DRG Grouper

Routine: ICD002E


Information

ICD002E ;IHS/OIT/FCJ - ICD*18.0*1002 Env Check FOR IHS patch 1002 ;07/01/2011

Source Information

Source file <ICD002E.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 HOME^%ZIS  ENDR^%ZISS  $$CJ^XLFSTR  $$VERSION^XPDUTL  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
VA Fileman 2 (,IX)^DIC  $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
INTROE ; Intro text during KIDS Environment check.
ENV ;
CHK ;
INTROI ; Intro text during KIDS Install.
SORRY(X) ;
VCHK(ICDPRE,ICDVER,ICDQUIT,ICDCOMP) ; Check versions needed.
;
INSTALLD(ICD) ;EP; Determine if patch was installed, where ICD is
; the name of the INSTALL. E.g "AVA*93.2*12".

External References

Name Field # of Occurrence
HOME^%ZIS ENV+1
ENDR^%ZISS ENV+12
^DIC INSTALLD+11, INSTALLD+15
IX^DIC CHK+9, INSTALLD+7
$$GET1^DIQ ENV+6
$$DIR^XBDIR CHK+18, CHK+19
HELP^XBHELP CHK+17, CHK+19
$$CJ^XLFSTR ENV+7, ENV+8, CHK+11, CHK+12, CHK+15, CHK+16, SORRY+3, VCHK+4, INSTALLD+17, INSTALLD+18
$$VERSION^XPDUTL VCHK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: ENV+2
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: ENV+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: ENV+7
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+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: CHK+15
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: CHK+16
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(ICDCOMP="<":"at least ",1:"")_ICDPRE_" v "_ICDVER_"....."_ICDPRE_" v "_ICDV_" Present",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_ICD_"....."_ICD_" Present",IOM)
  • Line Location: INSTALLD+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_ICD_".....",IOM)
  • Line Location: INSTALLD+18
Routine Call
  • %ZIS
  • Line Location:
    • ENV+1
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
Routine Call
  • DIC
  • Line Location:
    • CHK+9
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] CHK+10

Label References

Name Line Occurrences
$$INSTALLD CHK+1, CHK+4, CHK+5
$$VCHK CHK+2, CHK+3
SORRY ENV+2, ENV+3, ENV+4, CHK+13, CHK+18, CHK+19, VCHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D CHK+8*, INSTALLD+6*
DA CHK+7~
DIC CHK+7~, CHK+8*, INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, INSTALLD+16
DIC(0 CHK+8*, INSTALLD+6*
DIFQ SORRY+1!
DUZ ENV+2, ENV+6
DUZ(0 ENV+3, ENV+4
ICD INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18
ICDCOMP VCHK~, VCHK+4, VCHK+5
ICDPRE VCHK~, VCHK+3, VCHK+4
ICDQUIT VCHK~, VCHK+5
ICDV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ICDVER VCHK~, VCHK+4, VCHK+5
IOM ENV+1, ENV+7, ENV+8, CHK+11, CHK+12, CHK+15, CHK+16, SORRY+3, VCHK+4, INSTALLD+17
, INSTALLD+18
IORVOFF ENV+10~, CHK+12, CHK+15
IORVON ENV+10~, CHK+12, CHK+15
>> P INSTALLD+16*
X ENV+6*, ENV+7, ENV+11*, CHK+8*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*
, INSTALLD+16
>> XPDDIQ("XPZ1" CHK+19*
>> XPDDIQ("XPZ2" CHK+19*
>> XPDENV CHK+19
>> XPDQUIT CHK+1*, CHK+4*, CHK+5*, CHK+15, SORRY+2*
Y CHK+10, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16*, INSTALLD+17, INSTALLD+18, INSTALLD+19
>> ZTQUEUED ENV+4

Marked Items

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