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 ;JAN 28,2014 at 03:37
  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. CHK469 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK463+19^OCXOZ0E.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK469 Variables
  1.  ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1.  ; OCXDF(147) --> Data Field: PATIENT LOCATION (FREE TEXT)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; FILE(DFN,131, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: GREATER THAN LAB THRESHOLD)
  1.  ; PATLOC( ----------> PATIENT LOCATION
  1.  ;
  1.  S OCXDF(147)=$P($$PATLOC(OCXDF(37)),"^",2),OCXOERR=$$FILE(DFN,131,"12,37,96,113,147,152") Q:OCXOERR 
  1.  Q
  1.  ;
  1. CHK476 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK463+20^OCXOZ0E.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK476 Variables
  1.  ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1.  ; OCXDF(147) --> Data Field: PATIENT LOCATION (FREE TEXT)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; FILE(DFN,132, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: LESS THAN LAB THRESHOLD)
  1.  ; PATLOC( ----------> PATIENT LOCATION
  1.  ;
  1.  S OCXDF(147)=$P($$PATLOC(OCXDF(37)),"^",2),OCXOERR=$$FILE(DFN,132,"12,37,96,113,147,152") Q:OCXOERR 
  1.  Q
  1.  ;
  1. CHK482 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK446+17^OCXOZ0E.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK482 Variables
  1.  ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1.  ; OCXDF(58) ---> Data Field: ABNORMAL RENAL BIOCHEM RESULTS (FREE TEXT)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; ABREN( -----------> DETERMINE IF RENAL LAB RESULTS ARE ABNORMAL HIGH OR LOW
  1.  ; FILE(DFN,133, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: NO CREAT RESULTS W/IN X DAYS)
  1.  ;
  1.  S OCXDF(58)=$P($$ABREN(OCXDF(37)),"^",2),OCXOERR=$$FILE(DFN,133,"58,154") Q:OCXOERR 
  1.  Q
  1.  ;
  1. CHK489 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK196+16^OCXOZ09.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK489 Variables
  1.  ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1.  ; OCXDF(156) --> Data Field: ALLERGY ASSESSMENT (BOOLEAN)
  1.  ; OCXDF(159) --> Data Field: ALLERGIES UNASSESSIBLE (BOOLEAN)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; ALRGY( -----------> ALLERGY ASSESSMENT
  1.  ; ALUNASS( ---------> ALLERGIES UNASSESSIBLE
  1.  ; FILE(DFN,136, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: NO ALLERGY ASSESSMENT)
  1.  ; FILE(DFN,140, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: ALLERGIES UNASSESSIBLE)
  1.  ;
  1.  S OCXDF(156)=$$ALRGY(OCXDF(37)) I $L(OCXDF(156)),'(OCXDF(156)) S OCXOERR=$$FILE(DFN,136,"") Q:OCXOERR 
  1.  S OCXDF(159)=$$ALUNASS(OCXDF(37)) I $L(OCXDF(159)),'(OCXDF(159)) S OCXOERR=$$FILE(DFN,140,"") Q:OCXOERR 
  1.  Q
  1.  ;
  1. CHK497 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK360+15^OCXOZ0C.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK497 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 CHK501
  1.  Q
  1.  ;
  1. CHK501 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK497+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. CHK508 ; Look through the current environment for valid Event/Elements for this patient.
  1.  ;  Called from CHK355+14^OCXOZ0C.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;    Local CHK508 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,141, ----> FILE DATA IN PATIENT ACTIVE DATA FILE  (Event/Element: CLOZAPINE ANC >= 1.5 & < 2.0)
  1.  ;
  1.  S OCXDF(130)=$P($$CLOZLABS^ORKLR(OCXDF(37),"",OCXDF(131)),"^",4),OCXOERR=$$FILE(DFN,141,"130") Q:OCXOERR 
  1.  Q
  1.  ;
  1. ABREN(DFN) ;  Compiler Function: DETERMINE IF RENAL LAB RESULTS ARE ABNORMAL HIGH OR LOW
  1.  ;
  1.  N OCXFLAG,OCXVAL,OCXLIST,OCXTEST,UNAV,OCXTLIST,OCXTERM,OCXSLIST,OCXSPEC
  1.  S (OCXLIST,OCXTLIST)="",UNAV="0^<Unavailable>"
  1.  S OCXSLIST="" Q:'$$TERMLKUP("SERUM SPECIMEN",.OCXSLIST) UNAV
  1.  F OCXTERM="SERUM CREATININE","SERUM UREA NITROGEN" D  Q:($L(OCXLIST)>130)
  1.  .Q:'$$TERMLKUP(OCXTERM,.OCXTLIST)
  1.  .S OCXTEST=0 F  S OCXTEST=$O(OCXTLIST(OCXTEST)) Q:'OCXTEST  D  Q:($L(OCXLIST)>130)
  1.  ..S OCXSPEC=0 F  S OCXSPEC=$O(OCXSLIST(OCXSPEC)) Q:'OCXSPEC  D  Q:($L(OCXLIST)>130)
  1.  ...S OCXVAL=$$LOCL^ORQQLR1(DFN,OCXTEST,OCXSPEC),OCXFLAG=$P(OCXVAL,U,5)
  1.  ...I $L(OCXVAL),((OCXFLAG["H")!(OCXFLAG["L")) D 
  1.  ....N OCXY S OCXY=""
  1.  ....S OCXY=$P(OCXVAL,U,2)_": "_$P(OCXVAL,U,3)_" "_$P(OCXVAL,U,4)
  1.  ....S OCXY=OCXY_" "_$S($L(OCXFLAG):"["_OCXFLAG_"]",1:"")
  1.  ....S OCXY=OCXY_" "_$$FMTE^XLFDT($P(OCXVAL,U,7),"2P")
  1.  ....S:$L(OCXLIST) OCXLIST=OCXLIST_" " S OCXLIST=OCXLIST_OCXY
  1.  Q:'$L(OCXLIST) UNAV  Q 1_U_OCXLIST
  1.  ;  
  1.  ;
  1. ALRGY(ORPT)   ; determine if pt has an allergy assessment
  1.  ; rtn 0 if no allergy assessment, 1 if allergy assessment or NKA
  1.  N ORALRGY
  1.  D EN1^GMRAOR1(ORPT,"ORALRGY")
  1.  Q:$G(ORALRGY)="" 0
  1.  Q 1
  1.  ;
  1. ALUNASS(ORPT)   ; determine if pt was unable to be assessed
  1.  ; rtn 0 if unable to assessment, 1 otherwise
  1.  N ORALASS 
  1.  S ORALASS=$$UNASS^GMRAOR1(ORPT)
  1.  Q:ORALASS=0 0
  1.  Q 1
  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.  .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.  ;
  1. PATLOC(DFN) ;  Compiler Function: PATIENT LOCATION
  1.  ;
  1.  N OCXP1,OCXP2
  1.  S OCXP1=$G(^TMP("OCXSWAP",$J,"OCXODATA","PV1",2))
  1.  S OCXP2=$P($G(^TMP("OCXSWAP",$J,"OCXODATA","PV1",3)),"^",1)
  1.  I OCXP2 D
  1.  .S OCXP2=$P($G(^SC(+OCXP2,0)),"^",1,2)
  1.  .I $L($P(OCXP2,"^",2)) S OCXP2=$P(OCXP2,"^",2)
  1.  .E  S OCXP2=$P(OCXP2,"^",1)
  1.  .S:'$L(OCXP2) OCXP2="NO LOC"
  1.  I $L(OCXP1),$L(OCXP2) Q OCXP1_"^"_OCXP2
  1.  ;
  1.  S OCXP2=$G(^DPT(+$G(DFN),.1))
  1.  I $L(OCXP2) Q "I^"_OCXP2
  1.  Q "O^OUTPT"
  1.  ;
  1. TERMLKUP(OCXTERM,OCXLIST) ;
  1.  Q $$TERM^OCXOZ01(OCXTERM,.OCXLIST)
  1.  ;