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 "AVA93.212".
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

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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHS31P6

Call Graph Total: 13