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

GMTSMHCI.m

Go to the documentation of this file.
  1. GMTSMHCI ;SLC/WAT - HRMH PATIENT CONTACT INFO ;06/13/11 11:58
  1. ;;2.7;Health Summary;**99,110**;Oct 20, 1995;Build 2
  1. ;
  1. ;EXTERNAL CALLS
  1. ;ADD/OAD/KVA ^VADPT 10061
  1. ;Field # .134 PHONE NUMBER [CELLULAR] from Patient file 10035
  1. ;$$GET1^DIQ 2056
  1. ;
  1. ;
  1. ;Get contact data to display in TIU HS object. The object is used in reminder dialog that MH professionals
  1. ;will use to f/u on missed patient apptointments.
  1. ;DATA PULLED BY THIS COMPONENT.
  1. ;patient phone numbers
  1. ; cell
  1. ; home
  1. ; work
  1. ;
  1. ;;emergency contact: name, relationship, phone number
  1. ;;secondary emergency contact: name, relationship, phone number
  1. ;;secondary next of kin contact: name, relationship, phone number
  1. ;
  1. PRINT ;MAIN
  1. K ^TMP($J,"GMTS CONTACT INFO")
  1. N CNT,HMPHON,TAB,NODATA S CNT=0
  1. S NODATA="No data available"
  1. S ^TMP($J,"GMTS CONTACT INFO",CNT)=" Patient Phone Numbers:",CNT=CNT+1
  1. S TAB=" " ;8 SPACES
  1. D CELL
  1. D HOME
  1. D WORK
  1. S ^TMP($J,"GMTS CONTACT INFO",CNT)="",CNT=CNT+1
  1. D EMERGNOK
  1. D REPORT
  1. D KVA^VADPT
  1. Q
  1. ;
  1. CELL ;GET CELL #
  1. N GMTSCELL S GMTSCELL=""
  1. S GMTSCELL=$$GET1^DIQ(2,DFN,.134)
  1. S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Cell: "_$S($G(GMTSCELL)>0:GMTSCELL,1:NODATA),CNT=CNT+1
  1. Q
  1. ;
  1. WORK ;work ph #
  1. ; KDM 1/28/2014 GMTS*2.7*110
  1. ; Replaced OAD^VADPT call with OPD^VADPT to return correct patient work phone number
  1. N VAPD,WORK D OPD^VADPT
  1. I $G(VAERR)=1 S ^TMP($J,"GMTS CONTACT INFO",CNT)="PATIENT NOT FOUND",CNT=CNT+1 Q
  1. S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Work: "_$S($G(VAPD(8))'="":VAPD(8),1:NODATA),CNT=CNT+1
  1. Q
  1. ;
  1. HOME ;home phone
  1. N VAPA,VAERR,HOME D ADD^VADPT
  1. I $G(VAERR)=1 S ^TMP($J,"GMTS CONTACT INFO",CNT)="PATIENT NOT FOUND",CNT=CNT+1 Q
  1. S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Home: "_$S($G(VAPA(8))'="":VAPA(8),1:NODATA),CNT=CNT+1
  1. Q
  1. ;
  1. EMERGNOK ; emergency and NOK contacts.
  1. N I,VAOA,VAERR
  1. ;S:$G(VAERR)=1 ^TMP($J,"GMTS CONTACT INFO",CNT)="PATIENT NOT FOUND",CNT=CNT+1 Q
  1. F I=1,4,3 D
  1. .S VAOA("A")=I D OAD^VADPT Q:$G(VAERR)=1
  1. .S ^TMP($J,"GMTS CONTACT INFO",CNT)=$S(VAOA("A")=1:" Emergency Contact: ",VAOA("A")=4:" Secondary Emergency Contact: ",VAOA("A")=3:" Secondary Next of Kin Contact"),CNT=CNT+1
  1. .S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Name: "_$S($G(VAOA(9))'="":VAOA(9),1:NODATA),CNT=CNT+1
  1. .S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Relationship: "_$S($G(VAOA(10))'="":VAOA(10),1:NODATA),CNT=CNT+1
  1. .S ^TMP($J,"GMTS CONTACT INFO",CNT)=TAB_"Phone: "_$S($G(VAOA(8))'="":VAOA(8),1:NODATA),CNT=CNT+1
  1. .S ^TMP($J,"GMTS CONTACT INFO",CNT)="",CNT=CNT+1
  1. Q
  1. ;
  1. REPORT ;write to screen
  1. N LINE S LINE=""
  1. F S LINE=$O(^TMP($J,"GMTS CONTACT INFO",LINE)) D Q:LINE=""
  1. .Q:LINE=""
  1. .D CKP^GMTSUP Q:$D(GMTSQIT)
  1. .W:LINE=0 ^TMP($J,"GMTS CONTACT INFO",LINE)
  1. .W:LINE>0 !,^TMP($J,"GMTS CONTACT INFO",LINE)
  1. Q