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

OCXOZ0F.m

Go to the documentation of this file.
  1. OCXOZ0F ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ; ***************************************************************
  1. ; ** Warning: This routine is automatically generated by the **
  1. ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
  1. ; ** will be lost the next time the rule compiler executes. **
  1. ; ***************************************************************
  1. ;
  1. Q
  1. ;
  1. CHK468 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK343+15^OCXOZ0C.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK468 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(74) ---> Data Field: VA DRUG CLASS (FREE TEXT)
  1. ; OCXDF(158) --> Data Field: DUPLICATE OPIOID MEDICATIONS TEXT (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; LIST( ------------> IN LIST OPERATOR
  1. ; OPIOID( ----------> OPIOID MEDICATIONS
  1. ;
  1. I $$LIST(OCXDF(74),"OPIOID ANALGESICS,OPIOID ANTAGONIST ANALGESICS") S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXDF(158)=$P($$OPIOID(OCXDF(37)),"^",2) D CHK472
  1. Q
  1. ;
  1. CHK472 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK468+14.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,139, ----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: OPIOID MED ORDER)
  1. ;
  1. S OCXOERR=$$FILE(DFN,139,"158") Q:OCXOERR
  1. Q
  1. ;
  1. CHK473 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK1+37^OCXOZ02.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK473 Variables
  1. ; OCXDF(2) ----> Data Field: FILLER (FREE TEXT)
  1. ; OCXDF(160) --> Data Field: CONTROL REASON (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,141, ----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: HL7 DEA CERT REVOKED)
  1. ; FILE(DFN,143, ----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: HL7 PHARMACY HASH MISMATCH)
  1. ;
  1. I (OCXDF(160)[17),$L(OCXDF(2)),(OCXDF(2)="PS") S OCXOERR=$$FILE(DFN,141,"") Q:OCXOERR
  1. I (OCXDF(160)[16),$L(OCXDF(2)),(OCXDF(2)="PS") S OCXOERR=$$FILE(DFN,143,"") Q:OCXOERR
  1. Q
  1. ;
  1. CHK484 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK355+16^OCXOZ0C.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK484 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(131) --> Data Field: PHARMACY LOCAL ID (FREE TEXT)
  1. ; OCXDF(136) --> Data Field: CLOZAPINE ANC W/IN 7 FLAG (BOOLEAN)
  1. ; OCXDF(137) --> Data Field: CLOZAPINE ANC W/IN 7 RESULT (NUMERIC)
  1. ;
  1. ; Local Extrinsic Functions
  1. ;
  1. I (OCXDF(137)<"1.0") S OCXDF(136)=$P($P($$CLOZLABS^ORKLR(OCXDF(37),7,OCXDF(131)),"^",3),";",1) I $L(OCXDF(136)),(OCXDF(136)) D CHK488
  1. I (OCXDF(137)>.999),(OCXDF(137)<1.5) S OCXDF(136)=$P($P($$CLOZLABS^ORKLR(OCXDF(37),7,OCXDF(131)),"^",3),";",1) I $L(OCXDF(136)),(OCXDF(136)) D CHK494
  1. Q
  1. ;
  1. CHK488 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK484+13.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK488 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(130) --> Data Field: CLOZAPINE LAB RESULTS (FREE TEXT)
  1. ; OCXDF(131) --> Data Field: PHARMACY LOCAL ID (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,144, ----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: CLOZAPINE ANC < 1.0)
  1. ;
  1. S OCXDF(130)=$P($$CLOZLABS^ORKLR(OCXDF(37),"",OCXDF(131)),"^",4),OCXOERR=$$FILE(DFN,144,"130") Q:OCXOERR
  1. Q
  1. ;
  1. CHK494 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK484+14.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK494 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(130) --> Data Field: CLOZAPINE LAB RESULTS (FREE TEXT)
  1. ; OCXDF(131) --> Data Field: PHARMACY LOCAL ID (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,145, ----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: CLOZAPINE ANC >= 1.0 & < 1.5)
  1. ;
  1. S OCXDF(130)=$P($$CLOZLABS^ORKLR(OCXDF(37),"",OCXDF(131)),"^",4),OCXOERR=$$FILE(DFN,145,"130") Q:OCXOERR
  1. Q
  1. ;
  1. EL24 ; Examine every rule that involves Element #24 [HL7 LAB TEST RESULTS CRITICAL]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R3R1A^OCXOZ0H ; Check Relation #1 in Rule #3 'CRITICAL LAB RESULTS'
  1. Q
  1. ;
  1. EL105 ; Examine every rule that involves Element #105 [HL7 LAB ORDER RESULTS CRITICAL]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R3R2A^OCXOZ0I ; Check Relation #2 in Rule #3 'CRITICAL LAB RESULTS'
  1. Q
  1. ;
  1. EL44 ; Examine every rule that involves Element #44 [ORDER FLAGGED]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R5R1A^OCXOZ0I ; Check Relation #1 in Rule #5 'ORDER FLAGGED FOR CLARIFICATION'
  1. Q
  1. ;
  1. EL134 ; Examine every rule that involves Element #134 [ORDER UNFLAGGED]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R5R2A^OCXOZ0J ; Check Relation #2 in Rule #5 'ORDER FLAGGED FOR CLARIFICATION'
  1. Q
  1. ;
  1. EL45 ; Examine every rule that involves Element #45 [ORDER REQUIRES CHART SIGNATURE]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R6R1A^OCXOZ0J ; Check Relation #1 in Rule #6 'ORDER REQUIRES CHART SIGNATURE'
  1. Q
  1. ;
  1. EL21 ; Examine every rule that involves Element #21 [PATIENT ADMISSION]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R7R1A^OCXOZ0J ; Check Relation #1 in Rule #7 'PATIENT ADMISSION'
  1. Q
  1. ;
  1. EL31 ; Examine every rule that involves Element #31 [RADIOLOGY ORDER CANCELLED]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R11R1A^OCXOZ0K ; Check Relation #1 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. Q
  1. ;
  1. EL100 ; Examine every rule that involves Element #100 [CANCELED BY NON-ORIG ORDERING PROVIDER]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R11R1A^OCXOZ0K ; Check Relation #1 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. D R11R2A^OCXOZ0K ; Check Relation #2 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. D R11R3A^OCXOZ0L ; Check Relation #3 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. D R35R1A^OCXOZ0P ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
  1. Q
  1. ;
  1. EL30 ; Examine every rule that involves Element #30 [RADIOLOGY ORDER PUT ON-HOLD]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R11R2A^OCXOZ0K ; Check Relation #2 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. Q
  1. ;
  1. EL32 ; Examine every rule that involves Element #32 [RADIOLOGY ORDER DISCONTINUED]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R11R3A^OCXOZ0L ; Check Relation #3 in Rule #11 'IMAGING REQUEST CANCELLED/HELD'
  1. Q
  1. ;
  1. EL46 ; Examine every rule that involves Element #46 [SERVICE ORDER REQUIRES CHART SIGNATURE]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R16R1A^OCXOZ0L ; Check Relation #1 in Rule #16 'SERVICE ORDER REQUIRES CHART SIGNATURE'
  1. Q
  1. ;
  1. EL76 ; Examine every rule that involves Element #76 [STAT LAB RESULT]
  1. ; Called from SCAN+9^OCXOZ01.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. D R18R1A^OCXOZ0L ; Check Relation #1 in Rule #18 'STAT RESULTS AVAILABLE'
  1. Q
  1. ;
  1. FILE(DFN,OCXELE,OCXDFL) ; This Local Extrinsic Function logs a validated event/element.
  1. ;
  1. N OCXTIMN,OCXTIML,OCXTIMT1,OCXTIMT2,OCXDATA,OCXPC,OCXPC,OCXVAL,OCXSUB,OCXDFI
  1. S DFN=+$G(DFN),OCXELE=+$G(OCXELE)
  1. ;
  1. Q:'DFN 1 Q:'OCXELE 1 K OCXDATA
  1. ;
  1. S OCXDATA(DFN,OCXELE)=1
  1. F OCXPC=1:1:$L(OCXDFL,",") S OCXDFI=$P(OCXDFL,",",OCXPC) I OCXDFI D
  1. .S OCXVAL=$G(OCXDF(+OCXDFI)),OCXDATA(DFN,OCXELE,+OCXDFI)=OCXVAL
  1. ;
  1. M ^TMP("OCXCHK",$J,DFN)=OCXDATA(DFN)
  1. ;
  1. Q 0
  1. ;
  1. LIST(DATA,LIST) ; IS THE DATA FIELD IN THE LIST
  1. ;
  1. S:'($E(LIST,1)=",") LIST=","_LIST S:'($E(LIST,$L(LIST))=",") LIST=LIST_"," S DATA=","_DATA_","
  1. Q (LIST[DATA)
  1. ;
  1. OPIOID(ORPT) ;determine if pat is receiving opioid med
  1. ; rtn 1^opioid drug 1, opioid drug 2, opioid drug3, ...
  1. N ORDG,ORTN,ORNUM,ORDI,ORDCLAS,ORDERS,ORTEXT,DUP,DUPI,DUPJ,DUPLEN
  1. S ORDG=0,ORTN=0,DUPI=0,DUPLEN=20
  1. K ^TMP("ORR",$J)
  1. S ORDG=$O(^ORD(100.98,"B","RX",ORDG))
  1. D EN^ORQ1(ORPT_";DPT(",ORDG,2,"","","",0,0)
  1. N J,HOR,SEQ,X S J=1,HOR=0,SEQ=0
  1. S HOR=$O(^TMP("ORR",$J,HOR)) Q:+HOR<1 ORTN
  1. F S SEQ=$O(^TMP("ORR",$J,HOR,SEQ)) Q:+SEQ<1 D
  1. .S X=^TMP("ORR",$J,HOR,SEQ)
  1. .S ORNUM=+$P(X,";")
  1. .Q:ORNUM=+$G(ORIFN) ;quit if dup med order # = current order #
  1. .S ORDI=$$VALUE^ORCSAVE2(ORNUM,"DRUG")
  1. .I +$G(ORDI)>0 D
  1. ..S ORDCLAS=$P(^PSDRUG(ORDI,0),U,2) ;va drug class
  1. ..I ($G(ORDCLAS)="CN101")!($G(ORDCLAS)="CN102") D ;opioid classes
  1. ...S ORTEXT=$$FULLTEXT^ORQOR1(ORNUM)
  1. ...S ORTEXT=$P(ORTEXT,U)_" ["_$P(ORTEXT,U,2)_"]"
  1. ...S DUPI=DUPI+1,DUP(DUPI)=" ["_DUPI_"] "_ORTEXT
  1. ...S ORTN=1
  1. I DUPI>0 D
  1. .;S DUPLEN=$P(215/DUPI,".")
  1. .S DUPLEN=500
  1. .F DUPJ=1:1:DUPI D
  1. ..I DUPJ=1 S ORDERS=$E(DUP(DUPJ),1,DUPLEN)
  1. ..E S ORDERS=ORDERS_", "_$E(DUP(DUPJ),1,DUPLEN)
  1. K ^TMP("ORR",$J)
  1. Q ORTN_U_$G(ORDERS)
  1. ;