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

BWMPUTL.m

Go to the documentation of this file.
  1. BWMPUTL ;IHS/CIA/PLS - Mammography Project Utility Calls ;03-Sep-2003 20:12;PLS
  1. ;;2.0;WOMEN'S PACKAGE;**9**;;10-Apr-2003 10:03
  1. ;=================================================================
  1. ;
  1. MPPRVEXM(EXMIEN) ;
  1. Q $$PREVEXM(44,BWDFN,EXMIEN)
  1. ; Return exam previous to given exam ien
  1. PREVEXM(PROCTYP,DFN,EXMIEN) ;
  1. N X,RES
  1. S RES=""
  1. S PROCTYP=$G(PROCTYP,0)
  1. S DFN=+$G(DFN,0)
  1. S EXMIEN=+$G(EXMIEN,0)
  1. Q:'PROCTYP!('DFN)!('EXMIEN) RES
  1. S X=EXMIEN
  1. F S X=$O(^BWPCD("C",DFN,X),-1) Q:X<1 D
  1. .Q:$P(^BWPCD(X,0),U,4)'=PROCTYP
  1. .S RES=$$FMTE^XLFDT($$GET1^DIQ(9002086.1,X,.12,"I"),"5Z")
  1. Q RES
  1. ; Result Flag for Blood Relatives with Breast Cancer
  1. ; Input: Procedure IEN
  1. ; Output: 0 - No relatives with BC; 1=Relatives with BC
  1. BRELBC(PROC) ;
  1. N RES,RELM,RELS,RELD
  1. S RELM=$$GET^DDSVAL(DIE,.DA,10.07) ;$$GET1^DIQ(9002086.1,PROC,10.07,"I")
  1. S RELS=$$GET^DDSVAL(DIE,.DA,10.08) ;$$GET1^DIQ(9002086.1,PROC,10.08,"I")
  1. S RELD=$$GET^DDSVAL(DIE,.DA,10.09) ;$$GET1^DIQ(9002086.1,PROC,10.09,"I")
  1. S RES=(RELM=3)!((RELS=1)!(RELS=2))!((RELD=1)!(RELD=2))
  1. Q RES