Routine: AG71A11

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR ($$PATCH,$$VERSION)^XPDUTL
IHS Patient Registration	1	SEXELIG^AGUTL

Entry Points

Name	Comments	DBIA/ICR reference
PCHK(AGPAT,AGQUIT)	; Check specific patch
VCHK(AGPRE,AGVER,AGQUIT)	; Check version level ;
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
SORRY(X)	;
POST	; EP FR KIDS ; UPDATE ALL PT ELIGIBILITY SEX FIELDS
VCHK2(AGPRE,AGVER,AGQUIT)	; Check patch level

Name	Field # of Occurrence
SEXELIG^AGUTL	POST+7
$$CJ^XLFSTR	AG71A11+8, AG71A11+9, AG71A11+17, AG71A11+19, SORRY+3, VCHK+4, VCHK2+4, PCHK+3
$$PATCH^XPDUTL	PCHK+2
$$VERSION^XPDUTL	VCHK+3, VCHK2+2, LAST+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG71A11+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG71A11+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AG71A11+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: AG71A11+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AG71A11+17
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AG71A11+19
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_DPTCH_" Present",IOM) Line Location: VCHK2+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Patch "_AGPAT_" is "_$S(AGP<1:"NOT ",1:"")_"installed.",IOM) Line Location: PCHK+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	POST+5, POST+6
^DIC(9.4 - [#9.4]	LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^DPT - [#2]	POST+3, POST+4
^VA(200 - [#200]	AG71A11+7

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

Name	Field # of Occurrence
AGP	PCHK+1~, PCHK+2*, PCHK+3, PCHK+4
AGPAT	PCHK~, PCHK+2, PCHK+3
AGPATDFN	POST+2~, POST+3*, POST+4, POST+5, POST+6, POST+7
AGPRE	VCHK~, VCHK+3, VCHK+4, VCHK2~, VCHK2+2, VCHK2+3, VCHK2+4
AGQUIT	VCHK~, VCHK+5, VCHK2~, VCHK2+5, VCHK2+6, PCHK~, PCHK+4
AGV	VCHK+2~, VCHK+3, VCHK+4, VCHK+5, VCHK2+1~, VCHK2+2, VCHK2+3, VCHK2+4, VCHK2+5, VCHK2+6
AGVER	VCHK~, VCHK+4, VCHK+5, VCHK2~, VCHK2+4, VCHK2+5, VCHK2+6
DIFQ	SORRY+1!, VCHK+5!, VCHK2+5!, VCHK2+6!, PCHK+4!
>> DPTCH	VCHK2+3*, VCHK2+4
DUZ	AG71A11+3, AG71A11+7
DUZ(0	AG71A11+5
IOM	AG71A11+8, AG71A11+9, AG71A11+17, AG71A11+19, SORRY+3, VCHK+4, VCHK2+4, PCHK+3
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
>> PTCH	VCHK2+3*, VCHK2+6
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	AG71A11+7, LAST+8, LAST+9, LAST+10, POST+6
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	AG71A11+7*, AG71A11+8, SORRY~, SORRY+2
>> XPDQUIT	AG71A11+17, SORRY+2, VCHK+5, VCHK2+5, VCHK2+6, PCHK+4*

Name	Field # of Occurrence
$T(	AG71A11+9