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

ORWDXVB.m

Go to the documentation of this file.
  1. ORWDXVB ;SLC/DCM - Order dialog utilities for Blood Bank ;Dec 02, 2021@12:46:23
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243,212,309,332,405**;Dec 17 1997;Build 211
  1. ;
  1. ; DBIA 2503 RR^LR7OR1 ^TMP("LRRR",$J)
  1. ;
  1. GETPAT(ORX,DFN,ORL) ;Get Patient data from VBECS
  1. ;Needs patient DFN and Location (ORL)
  1. N ORSTN,DIV
  1. S DIV=+$P($G(^SC(+$G(ORL),0)),U,15),ORSTN=$P($$SITE^VASITE(DT,DIV),U,3)
  1. D OEAPI^VBECA3(.ORX,DFN,ORSTN)
  1. Q
  1. PTINFO(OROOT,ORX) ;Format patient BB info
  1. Q:'$D(ORX)
  1. D PTINFO^ORWDXVB1
  1. Q
  1. RESULTS(OROOT,DFN,ORX) ;Get test results
  1. Q:'$O(ORX(0)) ;ORX contains a list of tests to retrieve results for
  1. N ORCOM,ORT,ORTST,ORTDT,ORTMP,GCNT,CCNT,GIOSL,GIOM,I,ORZ
  1. S GCNT=0,CCNT=1,GIOSL=999999,GIOM=80
  1. S OROOT=$NA(^TMP("ORVBEC",$J))
  1. K ^TMP("ORVBEC",$J)
  1. D LN
  1. S ^TMP("ORVBEC",$J,GCNT,0)=$$S^ORU4(1,CCNT,"RECENT LAB RESULTS:",.CCNT)
  1. D LN
  1. S ^TMP("ORVBEC",$J,GCNT,0)=$$S^ORU4(1,CCNT,"Test Result Units Range Collected Accession Sts",.CCNT)
  1. D LN
  1. S ^TMP("ORVBEC",$J,GCNT,0)=$$S^ORU4(1,CCNT,"---- ------ ----- ----- --------- --------- ---",.CCNT)
  1. S ORT=0 F S ORT=$O(ORX(ORT)) Q:'ORT S ORTST=$P(ORX(ORT),"^",1) D
  1. . K ^TMP("LRRR",$J) D RR^LR7OR1(DFN,,,,,ORTST,,1) ;DBIA 2503
  1. . S ORTMP=$$FIRST^ORCDVBEC(DFN,ORTST) Q:'$L(ORTMP)
  1. . S ORTDT=9999999-+$P(ORTMP,",",5),ORZ=@ORTMP
  1. . D LN
  1. . S ^TMP("ORVBEC",$J,GCNT,0)=$$S^ORU4(1,CCNT,$P(ORZ,"^",15),.CCNT)_$$S^ORU4(8,CCNT,$J($P(ORZ,"^",2),7),.CCNT)_$$S^ORU4(16,CCNT,$P(ORZ,"^",3),.CCNT)_$$S^ORU4(19,CCNT,$P(ORZ,"^",4),.CCNT)_$$S^ORU4(30,CCNT,$P(ORZ,"^",5),.CCNT)
  1. . S ^(0)=^TMP("ORVBEC",$J,GCNT,0)_$$S^ORU4(40,CCNT,$$DATETIME^ORCHTAB(ORTDT),.CCNT)_$$S^ORU4(56,CCNT,$P(ORZ,"^",16),.CCNT)_$$S^ORU4(71,CCNT,$P(ORZ,"^",6),.CCNT)
  1. . S ORCOM=$P(ORTMP,",",1,5)_",""N""" ;check for comments
  1. . F S ORTMP=$Q(@ORTMP) Q:$P(ORTMP,",",1,6)'=ORCOM D
  1. .. D LN
  1. .. S ^TMP("ORVBEC",$J,GCNT,0)=$$S^ORU4(1,CCNT,@ORTMP,.CCNT)
  1. I GCNT<4 K ^TMP("ORVBEC",$J)
  1. K ^TMP("LRRR",$J)
  1. Q
  1. RAW(OROOT,DFN,ORX) ;Get RAW test results
  1. Q:'$O(ORX(0)) ;ORX contains a list of tests to retrieve results for
  1. N ORCOM,ORT,ORTST,ORTDT,ORTMP,GCNT,CCNT,GIOSL,GIOM,I
  1. S GCNT=0,CCNT=1,GIOSL=999999,GIOM=80
  1. S OROOT=$NA(^TMP("ORVBEC",$J))
  1. K ^TMP("ORVBEC",$J)
  1. S ORT=0 F S ORT=$O(ORX(ORT)) Q:'ORT S ORTST=$P(ORX(ORT),"^",1) D
  1. . K ^TMP("LRRR",$J) D RR^LR7OR1(DFN,,,,,ORTST,,1)
  1. . S ORTMP="^TMP(""LRRR"",$J,DFN)",ORTMP=$Q(@ORTMP)
  1. . Q:$P(ORTMP,",",1,3)'=("^TMP(""LRRR"","_$J_","_DFN)
  1. . S ORTDT=9999999-+$P(ORTMP,",",5),ORZ=@ORTMP
  1. . D LN
  1. . S ^TMP("ORVBEC",$J,GCNT,0)=$P(ORZ,"^",1,6)_"^"_ORTDT
  1. K ^TMP("LRRR",$J)
  1. Q
  1. SURG(OROOT,ORX) ;Get list of surgeries
  1. N I,CNT,X
  1. S (I,CNT)=0
  1. F S I=$O(ORX("SURGERY",I)) Q:'I S X=$G(ORX("SURGERY",I)) D
  1. . S CNT=CNT+1,OROOT(CNT)=X_U_X
  1. Q
  1. LN ;Increment counts
  1. S GCNT=GCNT+1,CCNT=1
  1. Q
  1. PATINFO(OROOT,DFN,LOC) ;Test ^TMP global output
  1. N ORX
  1. D GETPAT(.ORX,DFN,LOC)
  1. I $L($G(ORX("SPECIMEN"))) S:$P(ORX("SPECIMEN"),"^") $P(ORX("SPECIMEN"),"^")=$$HL7TFM^XLFDT($P(ORX("SPECIMEN"),"^"))
  1. D PTINFO(.OROOT,.ORX)
  1. ;S I=0 F S I=$O(@OROOT@(I)) Q:'I W !,^(I,0)
  1. ;K @OROOT
  1. Q
  1. GETALL(OROOT,DFN,LOC,EDATE) ;Get all data in one call and let the GUI divide it up
  1. N ORX,INFO,CNT,I,J,K,OREAS,OREASON
  1. S OROOT=$NA(^TMP("ORVBECINFO",$J)),CNT=1
  1. D GETPAT(.ORX,DFN,LOC)
  1. ;S ^TMP("ORVBECINFO",$J,CNT)="~RAWDATA",I=0
  1. ;F S I=$O(ORX(I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)=ORX(I)
  1. I $L($G(ORX("SPECIMEN"))) S:$P(ORX("SPECIMEN"),"^") $P(ORX("SPECIMEN"),"^")=$$HL7TFM^XLFDT($P(ORX("SPECIMEN"),"^")) S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~SPECIMEN",CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_ORX("SPECIMEN")
  1. I $L($G(ORX("ABORH"))) S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~ABORH",CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_ORX("ABORH")
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~TYPE AND SCREEN",CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_$O(^ORD(101.43,"ID","1;99VBC",0))
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~OTHER",CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_$O(^ORD(101.43,"ID","6;99VBC",0))
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~SPECIMENS",I=0
  1. F S I=$O(ORX(I)) Q:'I S J="" F S J=$O(ORX(I,J)) Q:J="" I J="SPECIMEN" S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_I_"^"_ORX(I,J)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~TESTS",I=0
  1. F S I=$O(ORX(I)) Q:'I S J="" F S J=$O(ORX(I,J)) Q:J="" I J="TEST" S K=0 F S K=$O(ORX(I,J,K)) Q:'K S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_I_"^"_K_"^"_ORX(I,J,K)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~MSBOS",I=0
  1. F S I=$O(ORX(I)) Q:'I S J="" F S J=$O(ORX(I,J)) Q:J="" I J="MSBOS" S K=0 F S K=$O(ORX(I,J,K)) Q:'K S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_I_"^"_K_"^"_ORX(I,J,K),$P(^(CNT),"^",4)=+$P(ORX(I,J,K),"^",2)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~SURGERIES",I=0
  1. F S I=$O(ORX("SURGERY",I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_I_"^"_ORX("SURGERY",I)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~URGENCIES",I=""
  1. F S I=$O(^ORD(101.42,"S.VBEC",I)) Q:I="" S J=0 F S J=$O(^ORD(101.42,"S.VBEC",I,J)) Q:'J S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_J_"^"_I
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~MODIFIERS",I=""
  1. N ORMODS D GETLST^XPAR(.ORMODS,"ALL","OR VBECS MODIFIERS","I")
  1. F S I=$O(ORMODS(I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_ORMODS(I)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~REASONS",I=""
  1. N ORMODS D GETLST^XPAR(.ORMODS,"ALL","OR VBECS REASON FOR REQUEST","I")
  1. S OREASON=$$GET^XPAR("DIV^SYS^PKG","OR VBECS REASON SORT ALPHA",1,"Q")
  1. I OREASON D
  1. . F S I=$O(ORMODS(I)) Q:'I S OREAS(" "_$$UP^XLFSTR(ORMODS(I)))=ORMODS(I)
  1. . S I="" F S I=$O(OREAS(I)) Q:I="" S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_OREAS(I)
  1. I 'OREASON D
  1. . F S I=$O(ORMODS(I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_ORMODS(I)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~INFO"
  1. D PTINFO(.INFO,.ORX)
  1. S I=0 F S I=$O(^TMP("ORVBEC",$J,I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_^TMP("ORVBEC",$J,I,0)
  1. S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="~TNS ORDERS"
  1. N ORMODS D PULL^ORWDXVB2(.ORMODS,DFN,,,$G(EDATE))
  1. S I=0 F S I=$O(ORMODS(I)) Q:'I S CNT=CNT+1,^TMP("ORVBECINFO",$J,CNT)="i"_ORMODS(I)
  1. K ^TMP("ORVBEC",$J)
  1. Q
  1. STATALOW(OROOT,DFN) ;Allow stat for ORES ORELSE users
  1. S OROOT=$D(^XUSEC("ORES",DUZ))!($D(^XUSEC("ORELSE",DUZ)))
  1. Q
  1. NURSADMN(OROOT) ;Suppress Nursing Adiminstration Order Prompt
  1. S OROOT=+$$GET^XPAR("DIV^SYS^PKG","OR VBECS SUPPRESS NURS ADMIN")
  1. Q
  1. VBTNS(RETURN) ;RPC to get Days back to check for Type & Screen order
  1. S RETURN=$$GET^XPAR("ALL","ORWDXVB VBECS TNS CHECK",1,"I")
  1. Q
  1. COMPORD(OROOT) ;Get sequence order of Blood Components
  1. N ORLIST,I,X
  1. D GETLST^XPAR(.ORLIST,"ALL","OR VBECS COMPONENT ORDER")
  1. S I=0 F S I=$O(ORLIST(I)) Q:'I S X=ORLIST(I) I $D(^ORD(101.43,$P(X,"^",2),0)) S OROOT(I)=$P(X,"^",2)_"^"_$P(^(0),"^",1)_"^"_$P(^(0),"^",1)
  1. Q
  1. SUBCHK(OROOT,TSTNM) ;Check to see if selected test is a Blood Component or a Diagnostic Test
  1. S OROOT=""
  1. Q:'$L($G(TSTNM))
  1. I $O(^ORD(101.43,"S.VBT",TSTNM,0)) S OROOT="t"
  1. I $O(^ORD(101.43,"S.VBC",TSTNM,0)) S OROOT="c"
  1. Q
  1. TESTR ;Test results call
  1. N ORX
  1. S ORX(3)="3" ;HGB
  1. S ORX(4)="4" ;HCT
  1. S ORX(1)="1" ;WBC
  1. S ORX(113)="113" ;FERRITIN
  1. D RESULTS(.OROOT,66,.ORX)
  1. S I=0 F S I=$O(@OROOT@(I)) Q:'I W !,^(I,0)
  1. K @OROOT
  1. Q