Routine: ZAGMU2

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ZAGMU2+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ZAGMU2+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ZAGMU2+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: ZAGMU2+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Pre-init: Setting AG Package file entry to '7.1' from '"_ZAGPV_"'",IOM) Line Location: ZAGMU2+24
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: ZAGMU2+27
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ZAGMU2+29
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: DISP+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Post-init: Setting AG Package file entry back to '"_$P(ZAGPV,"PREV",2)_"' from '"_+ZAGPV_"'",IOM) Line Location: POST+8