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

LR7OSBR.m

Go to the documentation of this file.
  1. LR7OSBR ;slc/dcm - Silent BB report ;8/11/97
  1. ;;5.2;LAB SERVICE;**121,230,387,535**;Sep 27, 1994;Build 16
  1. EN ;
  1. I '$D(DFN) S DFN=$P(^LR(LRDFN,0),"^",3)
  1. I $$GET^XPAR("DIV^SYS^PKG","OR VBECS ON",1,"Q"),$L($T(EN^ORWLR1)),$L($T(CPRS^VBECA3B)) D Q
  1. . D VBECS
  1. . I $$GET^XPAR("DIV^SYS^PKG","OR VBECS LEGACY REPORT",1,"Q") D
  1. .. D LINE^LR7OSUM4
  1. .. D LN S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(20,CCNT,"*** [LEGACY VISTA BLOOD BANK REPORT] ***")
  1. .. D LN S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(4,CCNT,"The following historical information comes from the Legacy VISTA Blood Bank System")
  1. .. D LN S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(4,CCNT,"It represents data collected prior to the installation of VBECS. Some of the information")
  1. .. D LN S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(4,CCNT,"in this report may have been duplicated in the VBECS report above (if available).")
  1. .. D LINE^LR7OSUM4
  1. .. D LEGACY
  1. D LEGACY
  1. Q
  1. LEGACY ;VISTA Legacy Blood Bank Report
  1. I '$D(^LR(LRDFN,"BB"))&($O(^LR(LRDFN,.99))>3!($O(^LR(LRDFN,.99))<1)) Q
  1. S (LRN(2),LRSAV,LR("S"))=1,LRSS="BB"
  1. K ^TMP("LRBL",$J)
  1. F X=2.91,8,10.3,11.3 S LRN(X)=$P(^DD(63.01,X,0),"^")
  1. D SET
  1. N LRDFN
  1. S G=0
  1. F S G=$O(^TMP("LRBL",$J,G)) Q:G="" S N=0 F S N=$O(^TMP("LRBL",$J,G,N)) Q:N="" S LRDFN=0 F S LRDFN=$O(^TMP("LRBL",$J,G,N,LRDFN)) Q:'LRDFN S LR=^(LRDFN) D ^LR7OSBR1
  1. K ^TMP("LRBL",$J)
  1. Q
  1. VBECS ;;Gets Blood Bank Report from VBECS
  1. N CNT,LRI
  1. K ^TMP("ORLRC",$J)
  1. ;D EN^ORWLR1(DFN),LN
  1. D EN^VBECRPT,LN
  1. I '$O(^TMP("ORLRC",$J,0)) S ^TMP("ORLRC",$J,1,0)="",^TMP("ORLRC",$J,2,0)="No Blood Bank report available..."
  1. S CNT=$O(^TMP("LRC",$J,9999999999),-1),LRI="",^TMP("LRH",$J,"BLOOD BANK")=$S(CNT>0:CNT,1:1)
  1. F S LRI=$O(^TMP("ORLRC",$J,LRI)) Q:LRI="" S X=^(LRI,0),CNT=CNT+1,^TMP("LRC",$J,CNT,0)=X
  1. S GCNT=CNT
  1. K ^TMP("ORLRC",$J)
  1. Q
  1. SET ;
  1. S W=^LR(LRDFN,0),Y=$P(W,"^",3),(LRDPF,P)=$P(W,"^",2),X=^DIC(P,0,"GL"),X=@(X_Y_",0)"),Z=+$G(^(.104)),Z(1)="^"_$P($G(^DD(P,.104,0)),"^",3),SSN=$P(X,"^",9)
  1. D SSN^LRU
  1. S LRMD=""
  1. I Z,$D(@(Z(1)_Z_",0)")) S LRMD=$P(^(0),"^")
  1. I 'Z S Z=$S($D(^LR(LRDFN,.2)):+^(.2),1:"") I Z,$D(^VA(200,Z,0)) S LRMD=$P(^(0),"^")
  1. S ^TMP("LRBL",$J,LRLLOC,$P(X,"^"),LRDFN)=$P(X,"^",3)_"^"_SSN_"^"_$P(W,"^",5)_"^"_$P(W,"^",6)_"^"_LRMD
  1. Q
  1. ;
  1. C ;
  1. S X=$P(^LRO(69.2,LRAA,3,0),U,4)
  1. W !?30,"(",X," patient",$S(X>1:"s",1:""),")"
  1. Q
  1. ;
  1. A ;
  1. S X="BLOOD BANK",DIC=68,DIC(0)="MOXZ"
  1. D ^DIC Q:Y<1
  1. S LRAA=+Y,LRAA(1)=$P(Y,"^",2),LRAA(2)=$P(Y(0),"^",2),LRABV=$P(Y(0),"^",11),LRSS=$P(Y(0),"^",2)
  1. Q
  1. ;
  1. EN1(DFN) ;Process formatted Blood Bank Report
  1. ;Return formated report in ^TMP("LRC",$J)
  1. Q:'$D(^TMP("LRRR",$J,+$G(DFN),"BB"))
  1. N LBL,LCNT,LRAA,LRACC,LRAD,LRAN,LRCMNT,LRDFN,LRDPF,LRIDT,LRJ02,LRLLT,LRPG,LRSB
  1. N LRONESPC,LREND,LRONETST,LRLLOC,GCNT,GIOM,LREND,CCNT,CT1,COUNT,LRIN,SEX,SSN,CT1
  1. K ^TMP("LRC",$J)
  1. S (LRONETST,LRONESPC)="",CCNT=1,COUNT=99,(LREND,LRIN,CT1,GCNT)=0,GIOSL=999999,GIOM=80,LROUT=9999999
  1. Q:'$G(DFN)
  1. S LRDFN=$$LRDFN^LR7OR1(DFN)
  1. Q:'LRDFN
  1. S LRDPF="2^DPT(",LRLLOC=$S($L($G(ORL(0))):ORL(0),1:"unknown")
  1. S SEX=$P($G(@("^"_$P(LRDPF,"^",2)_+DFN_",0)")),"^",2),SSN=$P(^(0),"^",9)
  1. S LRIDT=0 F S LRIDT=$O(^TMP("LRRR",$J,DFN,"BB",LRIDT)) Q:LRIDT<1 D
  1. . N DFN
  1. . D EN
  1. Q
  1. LN ;
  1. S GCNT=GCNT+1,CCNT=1
  1. Q