Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSPXHP

GMTSPXHP.m

Go to the documentation of this file.
  1. GMTSPXHP ; SLC/SBW - PCE Location of Home component ; 08/27/2002
  1. ;;2.7;Health Summary;**56**;Oct 20, 1995
  1. ;
  1. ; External References
  1. ; DBIA 1254 LOC^PXRHS13
  1. ; DBIA 10011 ^DIWP
  1. ; DBIA 10029 ^DIWW
  1. ;
  1. HOMELOC ; Location of Home
  1. N GMTSI,DIWL,DIWR,DIWF,X K ^UTILITY($J,"W"),^TMP("PXLOC",$J)
  1. D LOC^PXRHS13(DFN) Q:'$D(^TMP("PXLOC",$J))
  1. S DIWL=1,DIWR=80,DIWF="W",GMTSI=0
  1. F S GMTSI=$O(^TMP("PXLOC",$J,GMTSI)) Q:'GMTSI D Q:$D(GMTSQIT)
  1. . S X=^(GMTSI) D CKP^GMTSUP Q:$D(GMTSQIT) D ^DIWP
  1. D CKP^GMTSUP Q:$D(GMTSQIT) D ^DIWW
  1. K ^TMP("PXLOC",$J)
  1. Q