GMTSPXHP.m

GMTSPXHP ; SLC/SBW - PCE Location of Home component ; 08/27/2002

 ;;2.7;Health Summary;**56**;Oct 20, 1995

 ;

 ; External References

 ;   DBIA  1254  LOC^PXRHS13

 ;   DBIA 10011  ^DIWP

 ;   DBIA 10029  ^DIWW

 ;                        

HOMELOC ; Location of Home

 N GMTSI,DIWL,DIWR,DIWF,X K ^UTILITY($J,"W"),^TMP("PXLOC",$J)

 D LOC^PXRHS13(DFN) Q:'$D(^TMP("PXLOC",$J))

 S DIWL=1,DIWR=80,DIWF="W",GMTSI=0

 F  S GMTSI=$O(^TMP("PXLOC",$J,GMTSI)) Q:'GMTSI  D  Q:$D(GMTSQIT)

 . S X=^(GMTSI) D CKP^GMTSUP Q:$D(GMTSQIT)  D ^DIWP

 D CKP^GMTSUP Q:$D(GMTSQIT)  D ^DIWW

 K ^TMP("PXLOC",$J)

 Q