Routine: ABMENVCK

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$CJ^XLFSTR ($$PATCH,$$VERSION,BMES)^XPDUTL
IHS VA Utilities	1	$$DIR^XBDIR
Third Party Billing	1	$$LAST^ABMENVCK
VA Fileman	1	(,IX)^DIC

Package	Total	Caller Graph
Third Party Billing	5	ABMDBAN ABMENVCK ABMP2514 ABMPUEXT ABMURCON
IHS Accounts Receivable	1	BARBAN

Entry Points

Name	Comments	DBIA/ICR reference
VCHK(ABMPRE,ABMVER,ABMQUIT)	; Check versions needed. ;
SORRY(X)	;
LAST(PKG,VER)	;EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
INSTALLD(ABMINSTL)	;EP - Determine if patch ABMINSTL was installed, where ABMINSTL is ; the name of the INSTALL. E.g "ABM2.56".
OPTSAV(ABMM)	;

External References

Name	Field # of Occurrence
$$LAST^ABMENVCK	ABMENVCK+73
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	ABMENVCK+99, INSTALLD+7
$$DIR^XBDIR	ABMENVCK+117, SORRY+3
$$FMADD^XLFDT	OPTSAV+3
$$CJ^XLFSTR	ABMENVCK+21, ABMENVCK+22, ABMENVCK+38, ABMENVCK+39, ABMENVCK+67, ABMENVCK+74, ABMENVCK+79, ABMENVCK+83, ABMENVCK+93, ABMENVCK+101 , ABMENVCK+102, ABMENVCK+103, ABMENVCK+115, SORRY+3, VCHK+4, VCHK+5
$$PATCH^XPDUTL	ABMENVCK+37, ABMENVCK+66, ABMENVCK+78, ABMENVCK+82, ABMENVCK+90
$$VERSION^XPDUTL	VCHK+3, LAST+3
BMES^XPDUTL	OPTSAV+1, OPTSAV+2, OPTSAV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ABMENVCK+16
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ABMENVCK+18
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ABMENVCK+21
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: ABMENVCK+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUM v9.1 Patch 4 NOT INSTALLED",IOM) Line Location: ABMENVCK+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUM v9.1 Patch 4 installed.",IOM) Line Location: ABMENVCK+31
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 26 NOT INSTALLED",IOM) Line Location: ABMENVCK+38
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUPN v99.1 Patch 26 installed.",IOM) Line Location: ABMENVCK+39
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ABM v2.6 Patch 4 NOT INSTALLED",IOM) Line Location: ABMENVCK+47
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ABM v2.6 Patch 4 installed.",IOM) Line Location: ABMENVCK+48
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need Third Party Billing v2.6 Patch "_I_"..... "_$S(ABM=0:"NOT ",1:"")_"Present",IOM) Line Location: ABMENVCK+67
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AUT v98.1 Patch 14 NOT INSTALLED",IOM) Line Location: ABMENVCK+74
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("KERNEL v8.0 Patch 1013 NOT INSTALLED",IOM) Line Location: ABMENVCK+79
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("XU Patch 1013 installed.",IOM) Line Location: ABMENVCK+80
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("KERNEL v8.0 Patch 1014 NOT INSTALLED",IOM) Line Location: ABMENVCK+83
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("XU Patch 1014 installed.",IOM) Line Location: ABMENVCK+84
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need BCSV IHS Code Set Versioning v1.0 Patch "_I_"..... "_$S(ABM=0:"NOT ",1:"")_"Present",IOM) Line Location: ABMENVCK+91
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ABMENVCK+115
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ABMPRE_" v "_ABMVER_"....."_ABMPRE_" v "_ABMV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: 7,!,$$CJ^XLFSTR("^^^^NEEDS FIXED*^^^^",IOM) Line Location: VCHK+5
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: ABMENVCK+99 INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	OPTSAV+5, OPTSAV+8
^DIC(9.4 - [#9.4]	ABMENVCK+100, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200]	ABMENVCK+20
^XTMP("ABMENVCK"	OPTSAV+2, OPTSAV+3, OPTSAV+8

Label References

Name	Line Occurrences
$$VCHK	ABMENVCK+26, ABMENVCK+33, ABMENVCK+42, ABMENVCK+71, ABMENVCK+76
OPTSAV	ABMENVCK+110
SORRY	ABMENVCK+16, ABMENVCK+18, ABMENVCK+113, ABMENVCK+117

Naked Globals

Name	Field # of Occurrence
^(0	LAST+8, LAST+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	OPTSAV+4~, OPTSAV+7, OPTSAV+8
ABM	ABMENVCK+51~, ABMENVCK+52, ABMENVCK+67, ABMENVCK+68, ABMENVCK+87~, ABMENVCK+88, ABMENVCK+92, ABMENVCK+93, ABMENVCK+94
ABMINSTL	INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
ABMM	OPTSAV~, OPTSAV+1, OPTSAV+2, OPTSAV+5, OPTSAV+6, OPTSAV+8
ABMPRE	VCHK~, VCHK+3, VCHK+4
ABMQUIT	VCHK~
ABMV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ABMVER	VCHK~, VCHK+4, VCHK+5
>> D	ABMENVCK+98, INSTALLD+6
DA	ABMENVCK+97~
DIC	ABMENVCK+97~, ABMENVCK+98, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12
DIC(0	ABMENVCK+98, INSTALLD+6
DIFQ	SORRY+1!
DT	OPTSAV+3
DUZ	ABMENVCK+16, ABMENVCK+20
DUZ(0	ABMENVCK+18
I	ABMENVCK+51~, ABMENVCK+65, ABMENVCK+66, ABMENVCK+67, ABMENVCK+87~, ABMENVCK+89, ABMENVCK+90, ABMENVCK+93, OPTSAV+4~, OPTSAV+5* , OPTSAV+6, OPTSAV+8
IOM	ABMENVCK+21, ABMENVCK+22, ABMENVCK+38, ABMENVCK+39, ABMENVCK+67, ABMENVCK+74, ABMENVCK+79, ABMENVCK+83, ABMENVCK+93, ABMENVCK+101 , ABMENVCK+102, ABMENVCK+103, ABMENVCK+115, SORRY+3, VCHK+4, VCHK+5
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	ABMENVCK+20, ABMENVCK+74, OPTSAV+3, OPTSAV+8, LAST+8, LAST+9, LAST+10
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	ABMENVCK+20, ABMENVCK+21, ABMENVCK+36!, ABMENVCK+37, ABMENVCK+38, ABMENVCK+39, ABMENVCK+51~, ABMENVCK+66, ABMENVCK+67, ABMENVCK+73 , ABMENVCK+74, ABMENVCK+77!, ABMENVCK+78, ABMENVCK+79, ABMENVCK+81!, ABMENVCK+82, ABMENVCK+83, ABMENVCK+87~, ABMENVCK+90, ABMENVCK+92 , ABMENVCK+98, SORRY~, SORRY+2, INSTALLD+4~, INSTALLD+5, INSTALLD+9, INSTALLD+12*
>> XPDDIQ("XPZ1"	ABMENVCK+109*
>> XPDDIQ("XPZ2"	ABMENVCK+109*
>> XPDENV	ABMENVCK+106
>> XPDQUIT	ABMENVCK+24, ABMENVCK+26, ABMENVCK+33, ABMENVCK+38, ABMENVCK+42, ABMENVCK+68, ABMENVCK+71, ABMENVCK+74, ABMENVCK+76, ABMENVCK+79 , ABMENVCK+83, ABMENVCK+94, ABMENVCK+100, ABMENVCK+113, SORRY+2
Y	ABMENVCK+100, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12, INSTALLD+14
>> ZTQUEUED	SORRY+3

Customize PDF page

Package: Third Party Billing

Routine: ABMENVCK

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items