source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGAPIB.m

ORWGAPIB ; SLC/STAFF - Graph Blood Bank ;12/21/05  08:21
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
 ;
BBITEM(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
 N DATE,IDATE,INEWEST,IOLDEST,ITEM,LRDFN,OK,RESULT
 K ^TMP("ORWGRPC TEMP",$J)
 S INEWEST=$$LRIDT^ORWGAPIA(NEWEST),IOLDEST=$$LRIDT^ORWGAPIA(OLDEST)
 S LRDFN=$$LRDFN^ORWGAPIA(DFN)
 S IDATE=0
 F  S IDATE=$O(^LR(LRDFN,1.6,IDATE)) Q:IDATE<1  D
 . S ITEM=+$P($G(^LR(LRDFN,1.6,IDATE,0)),U,2)
 . I 'ITEM Q
 . S OK=0
 . I FMT=6 D
 .. Q:IDATE<INEWEST  Q:IDATE>IOLDEST
 .. S OK=1
 .. S CNT=CNT+1
 .. S RESULT="63BB"_U_ITEM
 . I FMT=3 D
 .. I '$D(^TMP("ORWGRPC TEMP",$J,ITEM)) D
 ... S OK=1
 ... S ^TMP("ORWGRPC TEMP",$J,ITEM)=""
 ... S DATE=$$LRIDT^ORWGAPIA(IDATE)
 ... S CNT=CNT+1
 ... S RESULT="63BB^"_ITEM_"^^"_$P($G(^LAB(66,ITEM,0)),U)_"^^"_DATE
 . I FMT=0 D
 .. S OK=1
 .. S CNT=CNT+1
 .. S RESULT="63BB^"_ITEM_U_$P($G(^LAB(66,ITEM,0)),U)
 . I OK D SETUP^ORWGAPIU(.ITEMS,RESULT,TMP,.CNT)
 K ^TMP("ORWGRPC TEMP",$J)
 Q
 ;
BBDATA(DATA,ITEM,START,DFN,CNT,TMP) ; from ORWGAPIR
 N DATE,IDATE,LRDFN,NITEM,RESULT
 S LRDFN=$$LRDFN^ORWGAPIA(DFN)
 S IDATE="",CNT=$G(CNT)
 F  S IDATE=$O(^LR(LRDFN,1.6,IDATE)) Q:IDATE=""  D
 . S NITEM=+$P($G(^LR(LRDFN,1.6,IDATE,0)),U,2)
 . I NITEM'=ITEM Q
 . S DATE=$$LRIDT^ORWGAPIA(IDATE)
 . I DATE>START Q
 . S RESULT="63BB^"_ITEM_U_DATE_U
 . D SETUP^ORWGAPIU(.DATA,RESULT,TMP,.CNT)
 Q
 ;
BBX(DFN) ; $$(dfn) -> 1 if patient has blood bank data ,else 0
 Q $L($O(^LR(+$$LRDFN^ORWGAPIA($G(DFN)),1.6,"")))>0
 ;