- 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 Jan 18, 2025@03:01 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