Routine: EASGTLKP

Information

EASGTLKP ;ALB/CKN - GMT THRESHOLD LOOKUP ; 10/11/02 1:23pm

Name	Comments	DBIA/ICR reference
EP	;
ASKZIP	;Prompt user for valid Postal code
CHK(X)	;
PROC	;Lookup in GMT threshold file 712.5 for appropriate GMT Thresholds
PRINT	;Display GMT thresholds
NOTE	;;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,TXT1,!,$E(STR,1,$L(TXT1)) Line Location: EP+4
Function Call: WRITE	Prompt: !,"GMT Thresholds not found for entered ZIP code." Line Location: PROC+3
Function Call: WRITE	Prompt: !,"GMT Threshold is not available for entered ZIP code." Line Location: PROC+6
Function Call: WRITE	Prompt: !!,"County Name: ",COUNTY Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"State: ",STATE,!,STR Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Year",?10,"ZIP Code",?27,"FIPS Code",?40,"# in Household",?60,"GMT Threshold" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,STR Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+7
Function Call: WRITE	Prompt: $$FMTE^XLFDT(YR),?12,ZIP,?29,FIPS Line Location: PRINT+8
Function Call: WRITE	Prompt: ?46,(J),?63,"$"_$FN(THRSHLD,",") Line Location: PRINT+9
Function Call: WRITE	Prompt: !,STR Line Location: PRINT+10
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+12
Function Call: WRITE	Prompt: !,TEXT Line Location: PRINT+13