Routine: ACHS3114

Information

ACHS3114 ;IHS/OIT/FCJ - ACHS 3.1 PATCH 14 ; JUL 10, 2008

Source Information

Source file <ACHS3114.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	$$FMADD^XLFDT ($$LJ,$$RJ)^XLFSTR $$ADD^XPDMENU ($$NEWCP,BMES,MES)^XPDUTL
VA Fileman	4	(,IX)^DIC $$GET1^DID ^DIE (,ENALL)^DIK
IHS VA Utilities	1	EN2^XBKD
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
NONREG	;EP - from KIDS.
AUDR	; Restore the file data audit values to their original values.
SINGLE(K)	; Get holders of a single key K.
GREET	;;To add to mail message.
DENOPT	; check for 638 facility, and add options if 638
P6	;EP - from KIDS
AUDS	;EP - From KIDS.
PRE	;EP - From KIDS.
INSTALLD(ACHS)	; Determine if patch ACHS was installed, where ACHS is ; the name of the INSTALL. E.g "AVA93.212".
P4	;EP - from KIDS.
P12	;EP-from KIDS
P13	;EP-from KIDS
V145DD	;EP - From KIDS
P14	;EP-from KIDS
DCIS	;EP-From kids PATCH 14
P6OPT	;EP - FROM KIDS.
P7	;EP-from KIDS
RSLT(%)
P5	;EP - from KIDS
P7OPT	;EP -FROM KIDS
DELFLD	;
DENREV	;EP - From KIDS.
POST	;EP - From KIDS. ; ---Patches 4,5,6,7 Checks installs are done in Install Questions. ; ---Question for 3 was removed, need "C" index for lookup of non-registered patients.
HHS	;
M278	;
UFMS	;EP-from KIDS PATCH 13
LIST	;
MAIL	;
SSC	;ADD NAICS CODES TO SSC

External References

Name	Field # of Occurrence
^DIC	INSTALLD+11, INSTALLD+15, UFMS+7, DCIS+3, SSC+19
IX^DIC	INSTALLD+7
$$GET1^DID	AUDR+6
^DIE	UFMS+11, DCIS+7
^DIK	DELFLD+21
ENALL^DIK	NONREG+7, P4+8
EN2^XBKD	V145DD+4
$$FMADD^XLFDT	AUDS+3
$$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, P7OPT+4, P7OPT+5, P7OPT+6, P7OPT+7, P7OPT+8 , P7OPT+9, P7OPT+11, P7OPT+12, P7OPT+13, HHS+5
$$NEWCP^XPDUTL	PRE+1, POST+4, POST+6, POST+9, POST+12, POST+16, POST+20, POST+24, POST+28, POST+32 , P5+5, P5+9, P5+13, P5+17, P6+5, P6+9, P6+13, P7+5, P7+9, P12+3 , P12+6, P13+3, P14+3
BMES^XPDUTL	MAIL+1, AUDS+1, AUDR+1, DELFLD+16, DENOPT+1, M278+1, P6OPT+2, NONREG+1, P7OPT+3, HHS+1 , P4+2
MES^XPDUTL	MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, DELFLD+19, DELFLD+23, DENOPT+5, DENOPT+6 , DENOPT+7, M278+2, M278+3, M278+4, P6OPT+3, P6OPT+4, P6OPT+5, NONREG+8, P7OPT+4, P7OPT+6 , P7OPT+10, P7OPT+12, P7OPT+13, P7OPT+14, P7OPT+15, HHS+5, HHS+6, P4+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ZISH SEND PARAMETER FOR THE ACHS UFMS ENTRY COULD NOT BE ADDED, YOU WILL NEED TO THROUGH FILEMAN" Line Location: UFMS+8
Function Call: WRITE	Prompt: !,"ZISH SEND PARAMETER FOR THE ACHS WEBFRS ENTRY COULD NOT BE ADDED, YOU WILL NEED TO EDIT USING FILEMAN" Line Location: DCIS+4
Routine Call	DIE Line Location: UFMS+11 DCIS+7
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15 UFMS+7 DCIS+3 SSC+19
Routine Call	DIC Line Location: INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^ACHS(3.1 - [#9002063.1]	Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	SSC+2, SSC+3, SSC+20, SSC+21*
^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, HHS+4, UFMS+4*
^ACHSF("B"	UFMS+2, UFMS+3
^DD(	AUDS+7, AUDS+9, AUDR+5, AUDR+6
^TMP("ACHS3114"	MAIL+3!, MAIL+11!, RSLT
^UTILITY("XBDSET"	V145DD+2!
^XTMP("ACHS3114"	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
$$INSTALLD	P12+1, P13+1, P14+1
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9

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+3, POST+4, POST+5, POST+6, POST+8, POST+9, POST+11, POST+12, POST+15, POST+16 , POST+19, POST+20, POST+23, POST+24, POST+27, POST+28, POST+31, POST+32, 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, P6+4, P6+5, P6+8, P6+9, P6+12, P6+13, P7+4, P7+5, P7+8* , P7+9, P12+2, P12+3, P12+5, P12+6, P13+2, P13+3, P14+2, P14+3
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!
ACHSDA	DENREV+3, DENREV+6, DENREV+7*, DENREV+8, DENREV+9, DENREV+10, DENREV+11!
>> ACHSDSTA	DENREV+8*, DENREV+10
>> ACHSFAC	SSC+1, SSC+2, SSC+3, SSC+20, SSC+21
ACHSI	HHS+2~, HHS+3, HHS+4
>> ACHSSSC	SSC+3*, SSC+5, SSC+6, SSC+7, SSC+8, SSC+9, SSC+10, SSC+11, SSC+12, SSC+13 , SSC+14, SSC+15, SSC+16, SSC+17, SSC+20
D	INSTALLD+6*, UFMS+12!, DCIS+8!
D0	UFMS+12!, DCIS+8!
D1	UFMS+12!, DCIS+8!
DA	DELFLD+17~, DELFLD+20, NONREG+2~, UFMS+9, UFMS+12!, DCIS+5*, DCIS+8!, P4+3~
DA(1	DELFLD+20, NONREG+6, P4+7*
DI	UFMS+12!, DCIS+8!
DIADD	UFMS+12!, DCIS+8!
DIC	INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14, UFMS+6, UFMS+9, UFMS+12!, DCIS+2, DCIS+5, DCIS+8! , SSC+19
DIC(0	INSTALLD+6, UFMS+6, DCIS+2*
DICR	UFMS+12!, DCIS+8!
DIE	UFMS+9, UFMS+12!, DCIS+5, DCIS+8!
DIFROM	MAIL+2~
DIK	DELFLD+17~, DELFLD+20, NONREG+2~, NONREG+6, P4+3~, P4+7*
DIK(1	NONREG+7, P4+8
DINUM	UFMS+12!, DCIS+8!
DLAYGO	UFMS+12!, DCIS+8!
DQ	UFMS+12!, DCIS+8!
DR	UFMS+10, UFMS+12!, DCIS+6, DCIS+8!
DT	AUDS+3
DUZ	MAIL+8
K	SINGLE~, SINGLE+3, SINGLE+4
U	DELFLD+19, DELFLD+20, DENOPT+4, DENREV+8, DENREV+10, HHS+4, UFMS+4, SSC+21
X	INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14, DELFLD+18, DELFLD+19, DELFLD+20, UFMS+2, UFMS+3, UFMS+6 , DCIS+1~, DCIS+2, SSC+4, SSC+5, SSC+6, SSC+7, SSC+8, SSC+9, SSC+10, SSC+11* , SSC+12, SSC+13, SSC+14, SSC+15, SSC+16, SSC+17, SSC+18, SSC+20*, SSC+21
>> X1	UFMS+3*, UFMS+4
XBBPI	V145DD+3*, V145DD+4!
XBBPIX	V145DD+3*, V145DD+4!
XBBPIY	V145DD+3*, V145DD+4!
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
>> XPDQUES("POS12"	P7+1
>> XPDQUES("POS4"	P4+1
>> XPDQUES("POS5"	P5+1
>> XPDQUES("POS9"	P6+1
Y	SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16, UFMS+8 , UFMS+9, DCIS+1~, DCIS+4, DCIS+5, SSC+21

Name	Field # of Occurrence
$T(	MAIL+8, AUDS+3
$T(DELFLD+ACHS	DELFLD+18
$T(GREET+%	MAIL+5
$T(GREET+%+1	MAIL+5
$T(LIST+XBBPI	V145DD+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHS3114

Call Graph Total: 10