Routine: AG71A12

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP FR KIDS
VCHK(AGPRE,AGVER,AGPAT)	; Check patch level
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
SORRY(X)	;
PCHK(PKG,VER,PAT)	; Check specific patch
DISP(AGPRE,AGVER,AGPAT,AGV,AGP,AGR)	; Display requirement checking results
POST	; EP FR KIDS

Name	Field # of Occurrence
IX^DIC	AG71A12+19
$$DIR^XBDIR	AG71A12+36
$$CJ^XLFSTR	AG71A12+8, AG71A12+9, AG71A12+21, AG71A12+22, AG71A12+26, AG71A12+28, SORRY+3, PCHK+9, DISP+6
$$VERSION^XPDUTL	VCHK+2, LAST+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG71A12+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG71A12+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG71A12+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),! Line Location: AG71A12+9
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AG"" prefix.",IOM) Line Location: AG71A12+21
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AG71A12+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AG71A12+26
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AG71A12+28
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AGS,IOM) Line Location: PCHK+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AGS,IOM) Line Location: DISP+6
Routine Call	DIC Line Location: AG71A12+19

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	AG71A12+20, PCHK+5, PCHK+6, PCHK+7, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200]	AG71A12+7

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

Name	Field # of Occurrence
AGP	VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+4
AGPAT	VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, DISP~, DISP+3
AGPRE	VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3, DISP+4
AGR	DISP~, DISP+5
AGS	PCHK+1~, PCHK+3, PCHK+8, PCHK+9, DISP+2~, DISP+3, DISP+4, DISP+5*, DISP+6
AGV	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+4
AGVER	VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3
>> D	AG71A12+18*
DA	AG71A12+17~
DIC	AG71A12+17~, AG71A12+18*
DIC(0	AG71A12+18*
DIFQ	SORRY+1!, VCHK+3!, VCHK+6!
DUZ	AG71A12+3, AG71A12+7
DUZ(0	AG71A12+5
IOM	AG71A12+8, AG71A12+9, AG71A12+21, AG71A12+22, AG71A12+26, AG71A12+28, SORRY+3, PCHK+9, DISP+6
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PAT	PCHK~, PCHK+2*, PCHK+3, PCHK+7
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PATIEN	PCHK+1~, PCHK+7*, PCHK+8, PCHK+10
PKG	PCHK~, PCHK+2*, PCHK+3, PCHK+5, LAST~, LAST+3, LAST+4
PKGIEN	PCHK+1~, PCHK+5, PCHK+6, PCHK+7, LAST+2~, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	AG71A12+7, LAST+8, LAST+9, LAST+10
VER	PCHK~, PCHK+2, PCHK+3, PCHK+6, LAST~, LAST+3, LAST+5
VERIEN	PCHK+1~, PCHK+6, PCHK+7, LAST+2~, LAST+5, LAST+7, LAST+8, LAST+9
X	AG71A12+7, AG71A12+8, AG71A12+18, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	AG71A12+33*
>> XPDDIQ("XPZ2"	AG71A12+33*
>> XPDENV	AG71A12+30
>> XPDQUIT	AG71A12+11, AG71A12+12, AG71A12+13, AG71A12+14, AG71A12+15, AG71A12+26, SORRY+2
>> Y	AG71A12+20

Name	Field # of Occurrence
$T(	AG71A12+9