Routine: AZFMENV

Information

AZFMENV ;IHS/OIT/ENM - PHARMACY ENVIRONMENT CHECK [ 02/13/2006 2:54 PM ]

Name	Comments	DBIA/ICR reference
PGWR
OP2	;
PKGWR
DTFIX
LS	;
ALLPKG	;LOOP ON PACKAGE FILE "B" XREF
PCC2
DOONE	;DO ONE RECORD FOR TESTING ONLY
PFIX
XBC	;XBGL=GLOBAL NAME,XBUF=UNIX DIRECTORY,XBFN=UNIX FILE NAME
OUT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",! Line Location: ALLPKG+2
Function Call: WRITE	Prompt: !,"SITE NAME: ",AZFMSITE_" "_AZASUFAC,! Line Location: ALLPKG+3
Function Call: WRITE	Prompt: !,"SOURCE: Package File - Package Name - Current Version - Last Patch",! Line Location: ALLPKG+4
Function Call: WRITE	Prompt: !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------" Line Location: ALLPKG+5
Function Call: WRITE	Prompt: !,AZFM_"-("_PREFIX_")",?40,AZVER,?50,LPAT Line Location: PKGWR+6
Function Call: WRITE	Prompt: !,?30,"IHS V Files 200 Conversion Done?// ",PCCF200 Line Location: PCC2+2
Function Call: WRITE	Prompt: !!,"END OF PACKAGE FILE PROFILE CHECK!" Line Location: OUT+1
Function Call: WRITE	Prompt: !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",! Line Location: PFIX+1
Function Call: WRITE	Prompt: !,"SITE NAME: ",AZFMSITE,! Line Location: PFIX+2
Function Call: WRITE	Prompt: !,"SOURCE: Package File - Package Name - Current Version - Last Patch",! Line Location: PFIX+3
Function Call: WRITE	Prompt: !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------" Line Location: PFIX+4
Function Call: WRITE	Prompt: !,AZFM1_"-("_PFX_")",?40,AZVER1,?50,LPAT1 Line Location: LS+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	ALLPKG+3
^AUTTSITE(1	PCC2
^AZFMENV(	PKGWR+7*
^DD("DD"	DTFIX+1
^DIC(4 - [#4]	ALLPKG+3, PFIX+2
^DIC(9.4 - [#9.4]	ALLPKG+7, PKGWR+4, PKGWR+5, PFIX+6, PGWR+4, PGWR+5

Name	Field # of Occurrence
>> APAT1	OP2+1, OP2+2
AZASUFAC	ALLPKG+1, ALLPKG+3, PKGWR+7, OUT+2!, XBC+4
AZFM	ALLPKG+6, ALLPKG+7, PKGWR, PKGWR+4, PKGWR+6, PKGWR+7, DOONE+1, OUT+2!, PFIX+5, PFIX+6* , PGWR, PGWR+4, PGWR+7
>> AZFM1	OP2+1, OP2+2, LS+1
>> AZFMCT	ALLPKG+1, PKGWR+7, PKGWR+8
>> AZFMSITE	ALLPKG+1, ALLPKG+3, PFIX, PFIX+2
AZVER	PKGWR, PKGWR+6, PKGWR+7, OUT+2!, PGWR, PGWR+7
>> AZVER1	OP2+1, OP2+2, LS+1
DUZ	ALLPKG+2, PFIX+1
DUZ(0	ALLPKG+2, PFIX+1
DUZ(2	ALLPKG+3, PFIX+2
>> ENM(	PGWR+7*, OP2+2
>> LPAT	ALLPKG+6, PKGWR+1, PKGWR+2, PKGWR+6, PKGWR+7, PFIX+5, PGWR+1, PGWR+2, PGWR+7
>> LPAT1	LS+1
LPATCH	ALLPKG+6, PKGWR, PKGWR+1, PKGWR+2, DTFIX, DTFIX+1, OUT+2!, PFIX+5, PGWR*, PGWR+1 , PGWR+2
NA	ALLPKG+7, OUT+2!, PFIX+6
PCCF200	PCC2, PCC2+1, PCC2+2, OUT+2!
>> PFX	OP2+1, OP2+2, LS+1
>> PKRN	ALLPKG+1, PKGWR+4, PKGWR+5, PFIX, PGWR+4, PGWR+5
>> PREFIX	PKGWR+5, PKGWR+6, PGWR+5, PGWR+7
>> XBFN	XBC+4*
>> XBGL	XBC+4*
>> XBMED	XBC+4*
>> XBS1	XBC+5*
>> Y	DTFIX+1*