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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSPXHP 598 printed Dec 13, 2024@01:59:49 Page 2
GMTSPXHP ; SLC/SBW - PCE Location of Home component ; 08/27/2002
+1 ;;2.7;Health Summary;**56**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; DBIA 1254 LOC^PXRHS13
+5 ; DBIA 10011 ^DIWP
+6 ; DBIA 10029 ^DIWW
+7 ;
HOMELOC ; Location of Home
+1 NEW GMTSI,DIWL,DIWR,DIWF,X
KILL ^UTILITY($JOB,"W"),^TMP("PXLOC",$JOB)
+2 DO LOC^PXRHS13(DFN)
if '$DATA(^TMP("PXLOC",$JOB))
QUIT
+3 SET DIWL=1
SET DIWR=80
SET DIWF="W"
SET GMTSI=0
+4 FOR
SET GMTSI=$ORDER(^TMP("PXLOC",$JOB,GMTSI))
if 'GMTSI
QUIT
Begin DoDot:1
+5 SET X=^(GMTSI)
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO ^DIWP
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+6 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO ^DIWW
+7 KILL ^TMP("PXLOC",$JOB)
+8 QUIT
