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

OCXDI02E.m

Go to the documentation of this file. 
  1. OCXDI02E ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1.  ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1.  ;
  1. S ;
  1.  ;
  1.  D DOT^OCXDIAG
  1.  ;
  1.  ;
  1.  K REMOTE,LOCAL,OPCODE,REF
  1.  F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D  Q:QUIT
  1.  .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
  1.  ;
  1.  G ^OCXDI02F
  1.  ;
  1.  Q
  1.  ;
  1. DATA ;
  1.  ;
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; F OCXTERM="SERUM CREATININE","SERUM UREA NITROGEN" D  Q:$L(OCXV)
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; .Q:'$$TERMLKUP(OCXTERM,.OCXTL) ""
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; .S OCXX=0 F  S OCXX=$O(OCXTL(OCXX)) Q:'OCXX  D  Q:$L(OCXV)
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; ..S OCXS=0 F  S OCXS=$O(OCXSLIST(OCXS)) Q:'OCXS  D  Q:$L(OCXV)
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; ...S OCXV=$$OIRES^ORQQLR1(DFN,OCXX,OCXS)
  1.  ;;R^"860.8:",100,10
  1.  ;;D^  ; Q OCXV
  1.  ;;R^"860.8:",100,11
  1.  ;;D^  ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^DETERMINE IF RENAL LAB RESULTS ARE ABNORMAL HIGH OR LOW
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^DETERMINE IF RENAL LAB RESULTS ARE ABNORMAL HIGH OR LOW
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^ABREN
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;ABREN(DFN) ;
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; N OCXFLAG,OCXVAL,OCXLIST,OCXTEST,UNAV,OCXTLIST,OCXTERM,OCXSLIST,OCXSPEC
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; S (OCXLIST,OCXTLIST)="",UNAV="0^<Unavailable>"
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; S OCXSLIST="" Q:'$$TERMLKUP("SERUM SPECIMEN",.OCXSLIST) UNAV
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; F OCXTERM="SERUM CREATININE","SERUM UREA NITROGEN" D
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; .Q:'$$TERMLKUP(OCXTERM,.OCXTLIST)
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; .S OCXTEST=0 F  S OCXTEST=$O(OCXTLIST(OCXTEST)) Q:'OCXTEST  D
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; ..S OCXSPEC=0 F  S OCXSPEC=$O(OCXSLIST(OCXSPEC)) Q:'OCXSPEC  D
  1.  ;;R^"860.8:",100,10
  1.  ;;D^  ; ...S OCXVAL=$$LOCL^ORQQLR1(DFN,OCXTEST,OCXSPEC),OCXFLAG=$P(OCXVAL,U,5)
  1.  ;;R^"860.8:",100,11
  1.  ;;D^  ; ...I $L(OCXVAL),((OCXFLAG["H")!(OCXFLAG["L")) D 
  1.  ;;R^"860.8:",100,12
  1.  ;;D^  ; ....N OCXY S OCXY=""
  1.  ;;R^"860.8:",100,13
  1.  ;;D^  ; ....S OCXY=$P(OCXVAL,U,2)_": "_$P(OCXVAL,U,3)_" "_$P(OCXVAL,U,4)
  1.  ;;R^"860.8:",100,14
  1.  ;;D^  ; ....S OCXY=OCXY_" "_$S($L(OCXFLAG):"["_OCXFLAG_"]",1:"")
  1.  ;;R^"860.8:",100,15
  1.  ;;D^  ; ....S OCXY=OCXY_" "_$$FMTE^XLFDT($P(OCXVAL,U,7),"2P")
  1.  ;;R^"860.8:",100,16
  1.  ;;D^  ; ....S:$L(OCXLIST) OCXLIST=OCXLIST_" " S OCXLIST=OCXLIST_OCXY
  1.  ;;R^"860.8:",100,17
  1.  ;;D^  ; Q:'$L(OCXLIST) UNAV  Q 1_U_OCXLIST
  1.  ;;R^"860.8:",100,18
  1.  ;;D^  ; ;  
  1.  ;;EOR^
  1.  ;;KEY^860.8:^DOES THIS RADIOLOGY PROCEDURE USE A CONTRAST MEDIA
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^DOES THIS RADIOLOGY PROCEDURE USE A CONTRAST MEDIA
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^CM
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;CM(OCXOI) ;
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; N OCXVAL S OCXVAL=$$CM^ORQQRA(OCXOI) Q:((OCXVAL["B")!(OCXVAL["M")) 1_U_OCXVAL Q 0
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; ;  
  1.  ;;EOR^
  1.  ;;KEY^860.8:^IS THIS A CHOLECYSTOGRAM RADIOLOGY PROCEDURE
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^IS THIS A CHOLECYSTOGRAM RADIOLOGY PROCEDURE
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^CH
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;CH(OCXOI) ;
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; N OCXVAL S OCXVAL=$$CM^ORQQRA(OCXOI) Q:(OCXVAL["C") 1_U_OCXVAL Q 0
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^GET DATA FROM THE ACTIVE DATA FILE
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^GET DATA FROM THE ACTIVE DATA FILE
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^GETDATA
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;GETDATA(DFN,OCXL,OCXDFI) ;     This Local Extrinsic Function returns runtime data
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; N OCXE,VAL,PC S VAL=""
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; 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)
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; Q VAL
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^DATE PATIENT DECEASED
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^DATE PATIENT DECEASED
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^DECEASED
  1.  ;;EOR^
  1.  ;;KEY^860.8:^SITE FLAGGED ORDER
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^SITE FLAGGED ORDER
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^SITEORD
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;SITEORD(ORNUM) ;Ext. funct return 1 (Yes) or 0 (No) if the site has flagged the
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ; orderable item (determined via order number ORNUM) to trigger a
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; ; notification when ordered
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; N ORBFLAG,OI S ORBFLAG="",OI=""
  1.  ;;R^"860.8:",100,5
  1.  ;;D^T+; W:$G(OCXTRACE) !!,"Site Flagged Order function, ORNUM: ",ORNUM
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; Q:'$L($G(ORNUM)) ORBFLAG
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; S OI=$$OI^ORQOR2(ORNUM)
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; Q:'$L($G(OI)) ORBFLAG
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; S ORBFLAG=$$GET^XPAR("ALL","ORB ORDERABLE ITEM ORDERED","`"_OI,"Q")
  1.  ;;R^"860.8:",100,10
  1.  ;;D^T+; W:$G(OCXTRACE) !,"                Results (ORBFLAG): ",ORBFLAG,!!
  1.  ;;R^"860.8:",100,11
  1.  ;;D^  ; Q ORBFLAG
  1.  ;;R^"860.8:",100,12
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^SITE FLAGGED RESULT
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^SITE FLAGGED RESULT
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^SITERES
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;SITERES(ORNUM) ;Ext. funct return 1 (Yes) if the site has flagged the
  1.  ;1;
  1.  ;