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

BRAPREG.m

Go to the documentation of this file.
  1. BRAPREG ;IHS/BJI/DAY - Stuff Pregnance Status ; 13 Sep 2011 8:32 AM
  1. ;;5.0;Radiology/Nuclear Medicine;**1003**;Nov 01, 2010;Build 3
  1. ;
  1. ;
  1. ;Loop Rad/Nuc Med Patient File to stuff Pregnancy Status (Field 32)
  1. ;
  1. S BRADFN=0
  1. F S BRADFN=$O(^RADPT(BRADFN)) Q:'BRADFN D
  1. .;
  1. .I $P($G(^DPT(BRADFN,0)),U,2)'="F" Q
  1. .I $$AGE^AUPNPAT(BRADFN)<12 Q
  1. .I $$AGE^AUPNPAT(BRADFN)>55 Q
  1. .;
  1. .S BRADTI=""
  1. .F S BRADTI=$O(^RADPT(BRADFN,"DT",BRADTI)) Q:BRADTI="" D
  1. ..;
  1. ..S BRACNI=0
  1. ..F S BRACNI=$O(^RADPT(BRADFN,"DT",BRADTI,"P",BRACNI)) Q:'BRACNI D
  1. ...;
  1. ...S BRAZERO=$G(^RADPT(BRADFN,"DT",BRADTI,"P",BRACNI,0))
  1. ...;
  1. ...;Check Examination Status
  1. ...S X=$P(BRAZERO,U,3)
  1. ...S Y=$$GET1^DIQ(72,X,.01)
  1. ...;
  1. ...;Don't exclude COMPLETE because users can unverify reports later
  1. ...;I Y="COMPLETE" Q
  1. ...I Y="CANCELLED" Q
  1. ...;
  1. ...S $P(^RADPT(BRADFN,"DT",BRADTI,"P",BRACNI,0),U,32)="u"
  1. ;
  1. K BRADFN,BRADTI,BRACNI,BRAZERO
  1. Q
  1. ;