source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTSPXHP.m@ 952

Last change on this file since 952 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 581 bytes
Line 
1GMTSPXHP ; SLC/SBW - PCE Location of Home component ; 08/27/2002
2 ;;2.7;Health Summary;**56**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 1254 LOC^PXRHS13
6 ; DBIA 10011 ^DIWP
7 ; DBIA 10029 ^DIWW
8 ;
9HOMELOC ; Location of Home
10 N GMTSI,DIWL,DIWR,DIWF,X K ^UTILITY($J,"W"),^TMP("PXLOC",$J)
11 D LOC^PXRHS13(DFN) Q:'$D(^TMP("PXLOC",$J))
12 S DIWL=1,DIWR=80,DIWF="W",GMTSI=0
13 F S GMTSI=$O(^TMP("PXLOC",$J,GMTSI)) Q:'GMTSI D Q:$D(GMTSQIT)
14 . S X=^(GMTSI) D CKP^GMTSUP Q:$D(GMTSQIT) D ^DIWP
15 D CKP^GMTSUP Q:$D(GMTSQIT) D ^DIWW
16 K ^TMP("PXLOC",$J)
17 Q
Note: See TracBrowser for help on using the repository browser.