18 lines
581 B
Mathematica
18 lines
581 B
Mathematica
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
|