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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACHS31P6

Package: Contract Health Management Information System

Routine: ACHS31P6


Information

ACHS31P6 ;IHS/SET/FCJ - ACHS 3.1 PATCH 6 ; [ 03/24/2005 8:34 AM ]

Source Information

Source file <ACHS31P6.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 6 HOME^%ZIS  ENDR^%ZISS  $$FMADD^XLFDT  ($$CJ,$$LJ,$$RJ)^XLFSTR  $$ADD^XPDMENU  ($$NEWCP,$$VERSION,BMES,MES)^XPDUTL  
VA Fileman 4 (,IX)^DIC  $$GET1^DID  (,ENALL)^DIK  $$GET1^DIQ  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
INTROE ; Intro text during KIDS Environment check.
P6OPT ;EP - FROM KIDS.
NONREG ;EP - from KIDS.
AUDR ; Restore the file data audit values to their original values.
SINGLE(K) ; Get holders of a single key K.
RSLT(%)
INSTALLD(ACHS) ; Determine if patch ACHS was installed, where ACHS is
; the name of the INSTALL. E.g "AVA*93.2*12".
P4 ;EP - from KIDS.
P5 ;EP - from KIDS
INTROI ; Intro text during KIDS Install.
GREET ;;To add to mail message.
DELFLD ;
DENOPT ; check for 638 facility, and add options if 638
SORRY(X) ;
M278 ;
DENREV ;EP - From KIDS.
MAIL ;
POST ;EP - From KIDS.
VCHK(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP) ; Check versions needed.
;
AUDS ;EP - From KIDS.

External References

Name Field # of Occurrence
HOME^%ZIS ACHS31P6+7
ENDR^%ZISS ACHS31P6+21
^DIC INSTALLD+11, INSTALLD+15
IX^DIC ACHS31P6+27, INSTALLD+7
$$GET1^DID AUDR+6
^DIK DELFLD+21
ENALL^DIK NONREG+7, P4+8
$$GET1^DIQ ACHS31P6+15
$$DIR^XBDIR ACHS31P6+39, ACHS31P6+41
HELP^XBHELP ACHS31P6+38, ACHS31P6+41
$$FMADD^XLFDT AUDS+3
$$CJ^XLFSTR ACHS31P6+16, ACHS31P6+17, ACHS31P6+29, ACHS31P6+30, ACHS31P6+34, ACHS31P6+36, SORRY+3, VCHK+4
$$LJ^XLFSTR AUDS+8, AUDR+6, DELFLD+19
$$RJ^XLFSTR AUDS+8, AUDR+6
^XMD MAIL+10
$$ADD^XPDMENU DENOPT+5, DENOPT+6, M278+2, P6OPT+3, P6OPT+4
$$NEWCP^XPDUTL PRE+1, POST+6, POST+8, POST+12, POST+16, POST+20, POST+24, POST+28, P5+5, P5+9
, P5+13, P5+17
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL MAIL+1, AUDS+1, AUDR+1, DELFLD+16, DENOPT+1, M278+1, NONREG+1, P6OPT+2, P4+2
MES^XPDUTL MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, DELFLD+19, DELFLD+25, DENOPT+5, DENOPT+6
, DENOPT+8, M278+2, M278+3, M278+4, NONREG+9, P6OPT+3, P6OPT+4, P6OPT+5, P4+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: ACHS31P6+9
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: ACHS31P6+11
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: ACHS31P6+16
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: ACHS31P6+17
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACHS"" prefix.",IOM)
  • Line Location: ACHS31P6+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: ACHS31P6+30
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: ACHS31P6+34
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: ACHS31P6+36
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(ACHSCOMP="<":"at least ",1:"")_ACHSPRE_" v "_ACHSVER_"....."_ACHSPRE_" v "_ACHSV_" Present",IOM)
  • Line Location: VCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • ACHS31P6+7
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
Routine Call
  • DIC
  • Line Location:
    • ACHS31P6+27
    • 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)
^ACHSDEF - [#9002066] P4+5, P4+6!
^ACHSDEN - [#9002071] NONREG+4, NONREG+5!, DENREV+5, DENREV+7, DENREV+8, DENREV+9, DENREV+10*
^ACHSDENA("B" DENREV+4
^ACHSF - [#9002080] DENOPT+4
^DD( AUDS+7, AUDS+9*, AUDR+5*, AUDR+6
^DIC(9.4 - [#9.4] ACHS31P6+28
^TMP("ACHS31P6" MAIL+3!, MAIL+11!, RSLT
^XTMP("ACHS31P6" AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+8!
^XTMP("XPDI" MAIL+7, AUDS+6, AUDS+8
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$VCHK ACHS31P6+23
RSLT MAIL+4, MAIL+5, MAIL+7
SINGLE MAIL+9
SORRY ACHS31P6+9, ACHS31P6+11, ACHS31P6+13, ACHS31P6+31, ACHS31P6+39, ACHS31P6+41, VCHK+5

Naked Globals

Name Field # of Occurrence
^( MAIL+7, RSLT*
^(0 RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% POST+5*, POST+6, POST+7*, POST+8, POST+11*, POST+12, POST+15*, POST+16, POST+19*, POST+20
, POST+23*, POST+24, POST+27*, POST+28, MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~, P5+4*
, P5+5, P5+8*, P5+9, P5+12*, P5+13, P5+16*, P5+17
ACHS AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5
, AUDR+6, INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, DELFLD+18*, DENOPT+2~, DENOPT+3*, DENOPT+4*, NONREG+2~
, NONREG+3*, NONREG+4*, NONREG+5, NONREG+6, DENREV+2~, DENREV+3*, DENREV+5*, DENREV+7, DENREV+8, DENREV+9
, DENREV+10, P4+3~, P4+4*, P4+5*, P4+6, P4+7
ACHSASTA DENREV+3*, DENREV+4*, DENREV+10, DENREV+11!
ACHSCOMP VCHK~, VCHK+4, VCHK+5
ACHSDA DENREV+3*, DENREV+6*, DENREV+7*, DENREV+8, DENREV+9, DENREV+10, DENREV+11!
>> ACHSDSTA DENREV+8*, DENREV+10
ACHSPRE VCHK~, VCHK+3, VCHK+4
ACHSQUIT VCHK~, VCHK+5
ACHSV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ACHSVER VCHK~, VCHK+4, VCHK+5
>> D ACHS31P6+26*, INSTALLD+6*
DA ACHS31P6+25~, DELFLD+17~, DELFLD+20*, NONREG+2~, P4+3~
DA(1 DELFLD+20*, NONREG+6*, P4+7*
DIC ACHS31P6+25~, ACHS31P6+26*, INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*
DIC(0 ACHS31P6+26*, INSTALLD+6*
DIFQ SORRY+1!
DIFROM MAIL+2~
DIK DELFLD+17~, DELFLD+20*, NONREG+2~, NONREG+6*, P4+3~, P4+7*
DIK(1 NONREG+7*, P4+8*
DT AUDS+3
DUZ ACHS31P6+9, ACHS31P6+15, MAIL+8
DUZ(0 ACHS31P6+11, ACHS31P6+13
IOM ACHS31P6+7, ACHS31P6+16, ACHS31P6+17, ACHS31P6+29, ACHS31P6+30, ACHS31P6+34, ACHS31P6+36, SORRY+3, VCHK+4
IORVOFF ACHS31P6+19~, ACHS31P6+30, ACHS31P6+34
IORVON ACHS31P6+19~, ACHS31P6+30, ACHS31P6+34
K SINGLE~, SINGLE+3, SINGLE+4
U DELFLD+19, DELFLD+20, DENOPT+4, DENREV+8, DENREV+10
X ACHS31P6+15*, ACHS31P6+16, ACHS31P6+20*, ACHS31P6+26*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*
, DELFLD+18*, DELFLD+19, DELFLD+20
XMDUZ MAIL+2~, MAIL+8*
XMSUB MAIL+2~, MAIL+8*
XMTEXT MAIL+2~, MAIL+8*
XMY MAIL+2~
XMY( MAIL+8*, SINGLE+4*
XMY(1 MAIL+8*
>> XPDA MAIL+7, AUDS+6, AUDS+8
>> XPDBLD MAIL+7
>> XPDDIQ("XPZ1" ACHS31P6+41*
>> XPDDIQ("XPZ2" ACHS31P6+41*
>> XPDENV ACHS31P6+41
>> XPDQUES("POS4" P4+1
>> XPDQUES("POS5" P5+1
>> XPDQUIT ACHS31P6+34, SORRY+2*
Y ACHS31P6+28, SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED ACHS31P6+13

Marked Items

Name Field # of Occurrence
$T( ACHS31P6+17, MAIL+8, AUDS+3
$T(DELFLD+ACHS DELFLD+18
$T(GREET+% MAIL+5
$T(GREET+%+1 MAIL+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All