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

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