BRAPOST.m

BRAPOST ;IHS/BJI/DAY - BRA Post Init ; 17 Aug 2011  4:29 PM

 ;;5.0;Radiology/Nuclear Medicine;**1003**;Nov 01, 2010;Build 3

 ;

 ;

 U 0

 W !!,"Checking Pregnancy Status in Existing Exams"

 D ^BRAPREG

 W !!,"Done",!!

 Q

 ;

BRAPOST   ;IHS/BJI/DAY - BRA Post Init ; 17 Aug 2011  4:29 PM

 +1       ;;5.0;Radiology/Nuclear Medicine;**1003**;Nov 01, 2010;Build 3

 +2       ;

 +3       ;

 +4        USE 0

 +5        WRITE !!,"Checking Pregnancy Status in Existing Exams"

 +6        DO ^BRAPREG

 +7        WRITE !!,"Done",!!

 +8        QUIT 

 +9       ;