OCXOZ0Y.m

OCXOZ0Y ;SLC/RJS,CLA - Order Check Scan ;JAN 28,2014 at 03:37

 ;;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

 ;

R60R1A ; Verify all Event/Elements of  Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'  Relation #1 'TOO BIG'

 ;  Called from EL72+5^OCXOZ0H.

 ;

 Q:$G(OCXOERR)

 ;

 ;      Local Extrinsic Functions

 ; MCE72( ----------->  Verify Event/Element: 'PATIENT OVER CT OR MRI DEVICE LIMITATIONS'

 ;

 Q:$G(^OCXS(860.2,60,"INACT"))

 ;

 I $$MCE72 D R60R1B

 Q

 ;

R60R1B ; Send Order Check, Notication messages and/or Execute code for  Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'  Relation #1 'TOO BIG'

 ;  Called from R60R1A+10.

 ;

 Q:$G(OCXOERR)

 ;

 ;      Local Extrinsic Functions

 ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE

 ;

 Q:$D(OCXRULE("R60R1B"))

 ;

 N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD

 I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^8^^Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"." I 1

 E  S OCXCMSG="Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"."

 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

 ;

MCE72() ; Verify Event/Element: PATIENT OVER CT OR MRI DEVICE LIMITATIONS

 ;

 ;  OCXDF(37) -> PATIENT IEN data field

 ;

 N OCXRES

 S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(72,37)=OCXDF(37)

 Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),72)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),72))

 Q 0

 ;

OCXOZ0Y   ;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

 +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      ;

R60R1A    ; Verify all Event/Elements of  Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'  Relation #1 'TOO BIG'

 +1       ;  Called from EL72+5^OCXOZ0H.

 +2       ;

 +3        IF $GET(OCXOERR)

               QUIT 

 +4       ;

 +5       ;      Local Extrinsic Functions

 +6       ; MCE72( ----------->  Verify Event/Element: 'PATIENT OVER CT OR MRI DEVICE LIMITATIONS'

 +7       ;

 +8        IF $GET(^OCXS(860.2,60,"INACT"))

               QUIT 

 +9       ;

 +10       IF $$MCE72

               DO R60R1B

 +11       QUIT 

 +12      ;

R60R1B    ; Send Order Check, Notication messages and/or Execute code for  Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'  Relation #1 'TOO BIG'

 +1       ;  Called from R60R1A+10.

 +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("R60R1B"))

               QUIT 

 +9       ;

 +10       NEW OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD

 +11       IF ($GET(OCXOSRC)="CPRS ORDER PRESCAN")

               SET OCXCMSG=(+OCXPSD)_"^8^^Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"."

               IF 1

 +12      IF '$TEST

               SET OCXCMSG="Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"."

 +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       ;

MCE72()   ; Verify Event/Element: PATIENT OVER CT OR MRI DEVICE LIMITATIONS

 +1       ;

 +2       ;  OCXDF(37) -> PATIENT IEN data field

 +3       ;

 +4        NEW OCXRES

 +5        SET OCXDF(37)=$GET(DFN)

           IF $LENGTH(OCXDF(37))

               SET OCXRES(72,37)=OCXDF(37)

 +6        IF '(OCXDF(37))

               QUIT 0

           IF $DATA(^TMP("OCXCHK",$JOB,OCXDF(37),72))

               QUIT $GET(^TMP("OCXCHK",$JOB,OCXDF(37),72))

 +7        QUIT 0

 +8       ;