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

BHSOB.m

Go to the documentation of this file. 
  1. BHSOB ;IHS/MSC/MGH - Health Summary Components for OB file ;12-Jul-2016 12:54;MGH
  1.  ;;1.0;HEALTH SUMMARY COMPONENTS;**7,9,14**;March 17, 2006;Build 4
  1.  ;===================================================================
  1. OBALL ;EP - display OB visits, date limits and numbers are applicable
  1.  N BHSPAT,V,Y,X,Z,BHSIVD,BHIEN,VIEN,BHSOB,CNT,LINE,BHSOBI,ARRAY,ARRAY2
  1.  S BHSPAT=DFN
  1.  ;Changed this call to use an API from BJPN
  1.  N X,TARGET,LINE,Y
  1.  S (ARRAY,ARRAY2)="",CNT=0
  1.  D PVST^BJPNAPI(DFN,.ARRAY,.ARRAY2)
  1.  S X=""
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  F  S X=$O(ARRAY(X)) Q:X=""!(CNT>GMTSNDM)  D
  1.  .S VIEN=$G(ARRAY(X))
  1.  .S CNT=CNT+1
  1.  .S V=$$GET1^DIQ(9000010,VIEN,.01,"E")
  1.  .W !,"Visit: "_V,!
  1.  .S TARGET=$$TMPGBL
  1.  .S Y=$$VPIP^BJPNAPI(TARGET,DFN,VIEN) ;PEP - Returns Prenatal POV Problems for a Visit
  1.  .S LINE=""
  1.  .F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  ..D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit: "_V,!
  1.  ..S Z=$G(^TMP("BHSOB",$J,LINE,0))
  1.  ..W Z,!
  1.  ;Q
  1.  Q
  1.  ;I '$D(^AUPNVOB("AA",BHSPAT)) Q  ;no OB data for this patient
  1.  ; <DISPLAY>
  1.  ;K BHSOB
  1.  ;S BHSOBI=0 F  S BHSOBI=$O(^AUPNVOB("AA",BHSPAT,BHSOBI)) Q:BHSOBI=""  D
  1.  ;.S BHSIVD="" F  S BHSIVD=$O(^AUPNVOB("AA",BHSPAT,BHSOBI,BHSIVD)) Q:BHSIVD=""!(BHSIVD>GMTSDLM)  D
  1.  ;..S BHIEN=0 F  S BHIEN=$O(^AUPNVOB("AA",BHSPAT,BHSOBI,BHSIVD,BHIEN)) Q:'+BHIEN  D
  1.  ;...S VIEN=$P($G(^AUPNVOB(BHIEN,0)),U,3)
  1.  ;...S BHSOB(BHSIVD)=VIEN      ;Save off the visits by date
  1.  ;;Now loop through the visits and call the API to return all the problems for that visit
  1.  ;S TARGET=$$TMPGBL
  1.  ;S BHSIVD="",CNT=0
  1.  ;D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  ;F  S BHSIVD=$O(BHSOB(BHSIVD)) Q:BHSIVD=""!(BHSIVD>GMTSDLM)!(CNT>GMTSNDM)  D
  1.  ;.S VIEN=$G(BHSOB(BHSIVD))
  1.  ;.S CNT=CNT+1
  1.  ;.S X=$$GET1^DIQ(9000010,VIEN,.01,"E")
  1.  ;.W !,"Visit: "_X,!
  1.  ;.S TARGET=$$TMPGBL
  1.  ;.S X=$$VPIP^BJPNAPI(TARGET,DFN,VIEN) PEP - Returns Prenatal POV Problems for a Visit
  1.  ;.S LINE=""
  1.  ;.F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  ;..D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit",!
  1.  ;..S Y=$G(^TMP("BHSOB",$J,LINE,0))
  1.  ;..W Y,!
  1.  ;Q
  1. APIP ;Get All PIP problems
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$APIP^BJPNAPI(TARGET,DFN,"A")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. CPIP ;Get all active problems for current pregnancy
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$APIP^BJPNAPI(TARGET,DFN,"C")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. NPIP ;Get all active and inactive problems and notes
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$APIP^BJPNAPI(TARGET,DFN,"A",1)
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. PIPA ;Get Active problems + visit instructions, goals and care plans
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$PIPA^BJPNAPI(TARGET,DFN,"O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. PIPN ;Get All PIP problems, goals, care plans, visit instructions
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$PIPN^BJPNAPI(TARGET,DFN,"O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. PIPC ;Get active problems for current pregnancy plus goals, care plans, visit instructions
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$PIPC^BJPNAPI(TARGET,DFN,"O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. LPIP ;Get Returns list of all ACTIVE problem entries on the PIP.
  1.  ;For each problem entry, returns all the visit instructions entered for
  1.  ;the latest visit for the patient.
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$LPIP^BJPNAPI(TARGET,DFN,1,"O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. VPIP ;Get All PIP problems for the specified visit and latest visit instructions
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$VPIP^BJPNAPI(TARGET,DFN,"",1,"O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. VPOV ;Get All PIP problems used as a POV for the visit and associated visit instructions
  1.  N X,TARGET,LINE,Y
  1.  S TARGET=$$TMPGBL
  1.  S X=$$VPOV^BJPNAPI(TARGET,DFN,"","O")
  1.  S LINE=""
  1.  F  S LINE=$O(^TMP("BHSOB",$J,LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  .W $G(^TMP("BHSOB",$J,LINE,0)),!
  1.  Q
  1. TMPGBL() ;EP
  1.  K ^TMP("BHSOB",$J) Q $NA(^($J))