Routine: AUPN99P7

Information

AUPN99P7 ;IHS/CMI/LAB,GTH,EFG,SDR - AUPN 99.1 PATCH 7 ; [ 05/09/2003 7:58 AM ]

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZTLOAD $$FMTE^XLFDT ($$CJ,$$LJ)^XLFSTR ($$VERSION,BMES,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC ^DIK
IHS Patient	1	POST^AUPN99P5
IHS VA Utilities	1	$$DIR^XBDIR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
ASU(P)	;
DATES	;
MCD	;
SINGLE(K)	; Get holders of a single key K.
RSLT(%)
RRE	;
MCR	;
QUERPT	;
VCHK(AUPNPRE,AUPNVER,AUPNQUIT)	; Check versions needed. ;
ELIGDATS	;EP - From TaskMan or Programmer mode. ; One-time report on Insurance Eligibility records whose Ending date ; preceeds the begin date.
SORRY(X)	;
PVT	;
FMTE(D)	;
MAIL	; Send install mail message.
POST	;EP - From KIDS.
INSTALLD(AUPNSTAL)	;EP - Determine if patch AUPNSTAL was installed, where ; AUPNSTAL is the name of the INSTALL. E.g "AG6.010".
HDR	;

External References

Name	Field # of Occurrence
^%ZTLOAD	QUERPT+4
POST^AUPN99P5	POST+7
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	AUPN99P7+25, INSTALLD+6
^DIK	PRE+5, PRE+6, PRE+7
$$DIR^XBDIR	AUPN99P7+31, AUPN99P7+45, SORRY+3
$$FMTE^XLFDT	FMTE+2
$$CJ^XLFSTR	AUPN99P7+10, AUPN99P7+11, AUPN99P7+19, AUPN99P7+27, AUPN99P7+28, AUPN99P7+29, AUPN99P7+33, AUPN99P7+43, SORRY+3, VCHK+4 , VCHK+5, INSTALLD+14
$$LJ^XLFSTR	MCR+7, MCD+7, RRE+7
^XMD	MAIL+9, ELIGDATS+10
$$VERSION^XPDUTL	AUPN99P7+18, VCHK+3
BMES^XPDUTL	PRE+1, PRE+3, PRE+9, PRE+11, POST+1, POST+6, POST+10, POST+14, MAIL+1, QUERPT+1 , QUERPT+5, QUERPT+6
MES^XPDUTL	POST+6, POST+8, INSTALLD+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUPN99P7+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUPN99P7+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUPN99P7+10
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: AUPN99P7+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least AUT 98.1.....AUT "_X_" Present",IOM) Line Location: AUPN99P7+19
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM) Line Location: AUPN99P7+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AUPN99P7+28
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUPN99P7+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("No 'AUPN' dups in PACKAGE file",IOM) Line Location: AUPN99P7+33
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUPN99P7+43
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM) Line Location: VCHK+5
Function Call: WRITE	Prompt: !,"The results are in your MailMan 'IN' basket." Line Location: ELIGDATS+13
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: AUPN99P7+25 INSTALLD+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+2, MCD+3, MCD+4, MCD+6
^AUPNMCR - [#9000003]	MCR+2, MCR+3, MCR+4
^AUPNPAT - [#9000001]	ASU+3
^AUPNPRVT - [#9000006]	PVT+2, PVT+3, PVT+4, PVT+6
^AUPNRRE - [#9000005]	RRE+2, RRE+3, RRE+4
^AUTTLOC - [#9999999.06]	ASU+3
^DIC(9.4 - [#9.4]	AUPN99P7+26
^TMP("AUPN991P7"	ELIGDATS+5!, ELIGDATS+11!, RSLT
^TMP("AUPN99P7MS"	MAIL+3!, MAIL+4, MAIL+6, MAIL+10!
^VA(200 - [#200]	AUPN99P7+9
^XTMP("XPDI"	MAIL+6
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
$$ASU	MCR+6, MCD+6, RRE+6, PVT+6
$$FMTE	MCR+6, MCD+6, RRE+6, PVT+6
$$INSTALLD	AUPN99P7+21, PRE+2, POST+5
$$VCHK	AUPN99P7+15, AUPN99P7+16, AUPN99P7+17
DATES	ELIGDATS+6
HDR	DATES+32
MAIL	POST+12
MCD	DATES+32
MCR	DATES+32
PVT	DATES+32
QUERPT	POST+3
RRE	DATES+32
RSLT	DATES+31, HDR+1, HDR+2, HDR+3, HDR+4, MCR+7, MCR+8, MCD+7, MCD+8, RRE+7 , RRE+8, PVT+7, PVT+8
SINGLE	MAIL+8, ELIGDATS+8
SORRY	AUPN99P7+5, AUPN99P7+7, AUPN99P7+30, AUPN99P7+35, AUPN99P7+45

Name	Field # of Occurrence
^(	MAIL+6, RSLT*
^(0	MCR+4, MCD+4, RRE+4, PVT+4, RSLT*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIL+5, MAIL+6, MAIL+8, ELIGDATS+8, DATES+31, MCR+8, MCD+8, RRE+8, PVT+8*, RSLT~
A	MCR+1~, MCR+6, MCR+7, MCR+8, MCD+1~, MCD+6, MCD+7, MCD+8, RRE+1~, RRE+6* , RRE+7, RRE+8, PVT+1~, PVT+6*, PVT+7, PVT+8, FMTE+1~
AUPNPRE	VCHK~, VCHK+3, VCHK+4
AUPNQUIT	AUPN99P7+13~, AUPN99P7+14, AUPN99P7+15, AUPN99P7+16, AUPN99P7+17, AUPN99P7+20, AUPN99P7+21, AUPN99P7+35, VCHK~
AUPNSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, INSTALLD+14
AUPNV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER	VCHK~, VCHK+4, VCHK+5
AUPNY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
D	AUPN99P7+24, INSTALLD+5, MCR+1~, MCR+4, MCR+5, MCR+6, MCR+7, MCD+4, MCD+5, MCD+6 , MCD+7, RRE+4, RRE+5, RRE+6, RRE+7, PVT+4, PVT+5, PVT+6, PVT+7, FMTE~ , FMTE+2
DA	AUPN99P7+23~, PRE+5, PRE+6, PRE+7*
DA(1	PRE+5, PRE+6, PRE+7*
DIC	AUPN99P7+23~, AUPN99P7+24, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	AUPN99P7+24, INSTALLD+5
DIFQ	SORRY+1!
DIFROM	MAIL+2~, ELIGDATS+9~
DIK	PRE+4~, PRE+5, PRE+6, PRE+7*
DUZ	AUPN99P7+5, AUPN99P7+9, MAIL+7, ELIGDATS+7
DUZ(0	AUPN99P7+7
I	MCR+1~, MCR+3, MCR+4, MCD+1~, MCD+3, MCD+4, RRE+1~, RRE+3, RRE+4, PVT+1~ , PVT+3, PVT+4, ASU+1~, ASU+3*, FMTE+1~
IOM	AUPN99P7+10, AUPN99P7+11, AUPN99P7+19, AUPN99P7+27, AUPN99P7+28, AUPN99P7+29, AUPN99P7+33, AUPN99P7+43, SORRY+3, VCHK+4 , VCHK+5, INSTALLD+14
J	MCD+1~, PVT+1~, FMTE+1~
K	SINGLE~, SINGLE+3, SINGLE+4
P	MCR+1~, MCR+2, MCR+3, MCR+4, MCR+6, MCD+1~, MCD+2, MCD+3, MCD+4, MCD+6 , RRE+1~, RRE+2, RRE+3, RRE+4, RRE+6, PVT+1~, PVT+2, PVT+3, PVT+4, PVT+6 , ASU~, ASU+3, FMTE+1~
U	AUPN99P7+9, MCR+4, MCR+5, MCR+7, MCR+8, MCD+4, MCD+5, MCD+6, MCD+7, MCD+8 , RRE+4, RRE+5, RRE+7, RRE+8, PVT+4, PVT+5, PVT+6, PVT+7, PVT+8, ASU+3 , FMTE+2
X	AUPN99P7+9, AUPN99P7+10, AUPN99P7+18, AUPN99P7+19, AUPN99P7+20, AUPN99P7+24, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+4 , INSTALLD+8, INSTALLD+11, DATES+31, ASU+1~, ASU+2, ASU+3*, ASU+4, FMTE+1~
XMDUZ	MAIL+2~, MAIL+7, ELIGDATS+4~, ELIGDATS+7
XMSUB	MAIL+2~, MAIL+7, ELIGDATS+4~, ELIGDATS+7
XMTEXT	MAIL+2~, MAIL+7, ELIGDATS+4~, ELIGDATS+7
XMY	MAIL+2~, ELIGDATS+4~
XMY(	MAIL+7, SINGLE+4, ELIGDATS+7*
XMY(1	MAIL+7, ELIGDATS+7
>> XPDA	MAIL+6
>> XPDBLD	MAIL+6
>> XPDDIQ("XPZ1"	AUPN99P7+40*
>> XPDDIQ("XPZ2"	AUPN99P7+40*
>> XPDENV	AUPN99P7+37
>> XPDQUIT	SORRY+2*
Y	AUPN99P7+26, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13 , INSTALLD+14, MCD+1~, PVT+1~, FMTE+1~
>> ZTDESC	QUERPT+3*
>> ZTDTH	QUERPT+3*
>> ZTIO	QUERPT+3*
>> ZTQUEUED	SORRY+3, ELIGDATS+12
>> ZTREQ	ELIGDATS+12*
>> ZTRTN	QUERPT+3*
>> ZTSAVE("DUZ"	QUERPT+3*
>> ZTSK	QUERPT+5, QUERPT+6

Customize PDF page

Package: IHS Patient

Routine: AUPN99P7

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	AUPN99P7+11, MAIL+7
$T(DATES+%	DATES+31