- OCXOZ12 ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- ; ***************************************************************
- ; ** Warning: This routine is automatically generated by the **
- ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
- ; ** will be lost the next time the rule compiler executes. **
- ; ***************************************************************
- ;
- Q
- ;
- R73R2B ; Send Order Check, Notication messages and/or Execute code for Rule #73 'METFORMIN EGFR - LAB RESULTS' Relation #2 'METFORMIN ORDER AND NO METFORMIN EGFR'
- ; Called from R73R2A+12^OCXOZ11.
- ;
- Q:$G(OCXOERR)
- ;
- ; Local Extrinsic Functions
- ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
- ;
- Q:$D(OCXRULE("R73R2B"))
- ;
- N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
- I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^100^^Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days." I 1
- E S OCXCMSG="Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days."
- S OCXNMSG=""
- ;
- Q:$G(OCXOERR)
- ;
- ; Send Order Check Message
- ;
- S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
- Q
- ;
- GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
- ;
- N OCXE,VAL,PC S VAL=""
- F PC=1:1:$L(OCXL,U) S OCXE=$P(OCXL,U,PC) I OCXE S VAL=$G(^TMP("OCXCHK",$J,DFN,OCXE,OCXDFI)) Q:$L(VAL)
- Q VAL
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXOZ12 1597 printed Feb 18, 2025@23:52:56 Page 2
- OCXOZ12 ;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
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- +4 ; ***************************************************************
- +5 ; ** Warning: This routine is automatically generated by the **
- +6 ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
- +7 ; ** will be lost the next time the rule compiler executes. **
- +8 ; ***************************************************************
- +9 ;
- +10 QUIT
- +11 ;
- R73R2B ; Send Order Check, Notication messages and/or Execute code for Rule #73 'METFORMIN EGFR - LAB RESULTS' Relation #2 'METFORMIN ORDER AND NO METFORMIN EGFR'
- +1 ; Called from R73R2A+12^OCXOZ11.
- +2 ;
- +3 if $GET(OCXOERR)
- QUIT
- +4 ;
- +5 ; Local Extrinsic Functions
- +6 ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
- +7 ;
- +8 if $DATA(OCXRULE("R73R2B"))
- QUIT
- +9 ;
- +10 NEW OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
- +11 IF ($GET(OCXOSRC)="CPRS ORDER PRESCAN")
- SET OCXCMSG=(+OCXPSD)_"^100^^Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days."
- IF 1
- +12 IF '$TEST
- SET OCXCMSG="Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days."
- +13 SET OCXNMSG=""
- +14 ;
- +15 if $GET(OCXOERR)
- QUIT
- +16 ;
- +17 ; Send Order Check Message
- +18 ;
- +19 SET OCXOCMSG($ORDER(OCXOCMSG(999999),-1)+1)=OCXCMSG
- +20 QUIT
- +21 ;
- GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
- +1 ;
- +2 NEW OCXE,VAL,PC
- SET VAL=""
- +3 FOR PC=1:1:$LENGTH(OCXL,U)
- SET OCXE=$PIECE(OCXL,U,PC)
- IF OCXE
- SET VAL=$GET(^TMP("OCXCHK",$JOB,DFN,OCXE,OCXDFI))
- if $LENGTH(VAL)
- QUIT
- +4 QUIT VAL
- +5 ;