VWCPTPST	;WorldVistA/Port Clinton/SO- Post Install for CPT Codes;3:49 AM  16 Oct 2009
	;;1.0;;;;Build 6
	;
POST	;This is called from the build's Post-installation
	N DATA
	F I=1:1 S DATA=$T(TBL+I) D  Q:$P(DATA,U)="EOD"
	. S DATA=$P(DATA,";;",2)
	. I $P(DATA,U)="EOD" Q  ;No more global roots to process
	. I '($D(^XTMP("VWCPT",0))#2) S ^XTMP("VWCPT",0)=$$FMADD^XLFDT(DT,365)_U
	. N GROOT S GROOT=U_$P(DATA,U)
	. I ($D(@GROOT@(0))#2) N FHDR S FHDR=@GROOT@(0)
	. S ^XTMP("VWCPT",$P(GROOT,U,2),"Z2-AFTER")=$S($G(FHDR)'="":FHDR,1:$P(DATA,U,2)_" "_$P(DATA,U,3)_" FILE HAS BEEN DELETED")
	. QUIT
	I $G(XPDNM)]"" D DISP
	QUIT
	;
DISP	;Display the Before and After Results
	N GROOT S GROOT="#"
	F  S GROOT=$O(^XTMP("VWCPT",GROOT)) Q:GROOT=""  D
	. N X
	. F I="Z1-BEFORE","Z2-AFTER" S X=^XTMP("VWCPT",GROOT,I) D MES^XPDUTL(X)
	. S X=" " D MES^XPDUTL(X)
	. QUIT
	QUIT
	;
TBL	;Table of Global Roots; File Number; & File Name
	;;ICD9^80^ICD DIAGNOSIS
	;;ICD0^80.1^ICD OPERATION/PROCEDURE
	;;ICPT^81^CPT
	;;DIC(81.1)^81.1^CPT CATEGORY
	;;DIC(81.2)^81.2^CPT COPYRIGHT
	;;DIC(81.3)^81.3^CPT MODIFIER
	;;LEX(757.02)^757.02^CODES
	;;LEX(757.03)^757.03^CODING SYSTEMS
	;;LEX(757.001)^757.001^CONCEPT USAGE
	;;LEX(757.31)^757.31^DISPLAYS
	;;LEX(757.04)^757.04^EXCLUDED WORDS
	;;LEX(757.014)^757.014^EXPRESSION FORM
	;;LEX(757.011)^757.011^EXPRESSION TYPE
	;;LEX(757.01)^757.01^EXPRESSIONS
	;;LEX(757.3)^757.3^LOOK-UP SCREENS
	;;LEX(757)^757^MAJOR CONCEPT MAP
	;;LEX(757.05)^757.05^REPLACEMENT WORDS
	;;LEX(757.11)^757.11^SEMANTIC CLASS
	;;LEX(757.1)^757.1^SEMANTIC MAP
	;;LEX(757.12)^757.12^SEMANTIC TYPE
	;;LEX(757.41)^757.41^SHORTCUT CONTEXT
	;;LEX(757.4)^757.4^SHORTCUTS
	;;LEX(757.14)^757.14^SOURCE
	;;LEX(757.13)^757.13^SOURCE CATEGORY
	;;LEX(757.21)^757.21^SUBSETS
	;;LEX(757.06)^757.06^UNRESOLVED NARRATIVES
	;;LEXT(757.2)^757.2^SUBSET DEFINITIONS
	;;EOD^^End Of Data