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

OCXDI02D.m

Go to the documentation of this file. 
  1. OCXDI02D ;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 ^OCXDI02E
  1.  ;
  1.  Q
  1.  ;
  1. DATA ;
  1.  ;
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; I (+OCXFIL) S OCXGL=$$FILE^OCXBDTD(+OCXFIL,"GLOBAL NAME") Q:'$L(OCXGL) ""
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; E  S OCXGL=OCXFIL
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; I +OCXKEY,(+OCXKEY=OCXKEY),$D(@(OCXGL_OCXKEY_")")) Q $G(@(OCXGL_(+OCXKEY)_","""_OCXNODE_""")"))
  1.  ;;R^"860.8:",100,10
  1.  ;;D^  ; S OCXDATA=$O(@(OCXGL_"""B"","""_OCXKEY_""",0)")) I OCXDATA Q $G(@(OCXGL_(+OCXDATA)_","""_OCXNODE_""")"))
  1.  ;;R^"860.8:",100,11
  1.  ;;D^  ; S OCXSUB="B" F  S OCXSUB=$O(@(OCXGL_""""_OCXSUB_""")")) Q:'$L(OCXSUB)  S OCXDATA=$O(@(OCXGL_"""B"","""_OCXKEY_""",0)")) Q:OCXDATA
  1.  ;;R^"860.8:",100,12
  1.  ;;D^  ; Q:'OCXDATA "" Q $G(@(OCXGL_(+OCXDATA)_","""_OCXNODE_""")"))
  1.  ;;R^"860.8:",100,13
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^FILE DATA IN PATIENT ACTIVE DATA FILE
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^FILE DATA IN PATIENT ACTIVE DATA FILE
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^FILE
  1.  ;;R^"860.8:",1,1
  1.  ;;D^  ;FILE(DFN,OCXELE,OCXDFL) ;     This Local Extrinsic Function files data
  1.  ;;R^"860.8:",1,2
  1.  ;;D^  ; ;     in the Order Check Patient Data File
  1.  ;;R^"860.8:",1,3
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;FILE(DFN,OCXELE,OCXDFL) ;     This Local Extrinsic Function logs a validated event/element.
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," Execution trace  DFN: ",DFN,"   OCXELE: ",+$G(OCXELE),"   OCXDFL: ",$G(OCXDFL)
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; N OCXTIMN,OCXTIML,OCXTIMT1,OCXTIMT2,OCXDATA,OCXPC,OCXPC,OCXVAL,OCXSUB,OCXDFI
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; S DFN=+$G(DFN),OCXELE=+$G(OCXELE)
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; Q:'DFN 1 Q:'OCXELE 1 K OCXDATA
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; S OCXDATA(DFN,OCXELE)=1
  1.  ;;R^"860.8:",100,10
  1.  ;;D^  ; F OCXPC=1:1:$L(OCXDFL,",") S OCXDFI=$P(OCXDFL,",",OCXPC) I OCXDFI D
  1.  ;;R^"860.8:",100,11
  1.  ;;D^  ; .S OCXVAL=$G(OCXDF(+OCXDFI)),OCXDATA(DFN,OCXELE,+OCXDFI)=OCXVAL
  1.  ;;R^"860.8:",100,12
  1.  ;;D^T+; .I $G(OCXTRACE) W !,"%%%%",?20,"   ",$P($G(^OCXS(860.4,+OCXDFI,0)),U,1)," = """,OCXVAL,""""
  1.  ;;R^"860.8:",100,13
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,14
  1.  ;;D^  ; M ^TMP("OCXCHK",$J,DFN)=OCXDATA(DFN)
  1.  ;;R^"860.8:",100,15
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,16
  1.  ;;D^  ; Q 0
  1.  ;;R^"860.8:",100,17
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^RETURN POINTED TO VALUE
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^RETURN POINTED TO VALUE
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^POINTER
  1.  ;;R^"860.8:",1,1
  1.  ;;D^  ;POINTER(OCXFILE,D0) ;    This Local Extrinsic Function gets the value of the name field
  1.  ;;R^"860.8:",1,2
  1.  ;;D^  ; ;  of record D0 in file OCXFILE
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;POINTER(OCXFILE,D0) ;    This Local Extrinsic Function gets the value of the name field
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;  of record D0 in file OCXFILE
  1.  ;;R^"860.8:",100,3
  1.  ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20,"   FILE: ",$G(OCXFILE),"  D0: ",$G(D0)
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; Q:'$G(D0) "" Q:'$L($G(OCXFILE)) ""
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; N GLREF
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; I '(OCXFILE=(+OCXFILE)) S GLREF=U_OCXFILE
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; E  S GLREF=$$FILE^OCXBDTD(+OCXFILE,"GLOBAL NAME") Q:'$L(GLREF) ""
  1.  ;;R^"860.8:",100,8
  1.  ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," GLREF: ",GLREF,"  RESOLVES TO: ",$P($G(@(GLREF_(+D0)_",0)")),U,1)
  1.  ;;R^"860.8:",100,9
  1.  ;;D^  ; Q $P($G(@(GLREF_(+D0)_",0)")),U,1)
  1.  ;;R^"860.8:",100,10
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^CHECK IF THIS IS A NEW ELEMENT
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^CHECK IF THIS IS A NEW ELEMENT
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^NEWELEM
  1.  ;;R^"860.8:",1,1
  1.  ;;D^  ;NEWELEM(DFN,OCXRUL,OCXREL,OCXELE,OCXTIME) ;    This Local Extrinsic Function returns a 1 if this element (OCXELE)
  1.  ;;R^"860.8:",1,2
  1.  ;;D^  ; ;    is newly triggered and a 0 if it has been responsible for triggering
  1.  ;;R^"860.8:",1,3
  1.  ;;D^  ; ;    this rule (OCXRUL) in the past.
  1.  ;;R^"860.8:",1,4
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;NEWELEM(DFN,OCXRUL,OCXREL,OCXELE) ;    This Local Extrinsic Function returns a 1 if this element (OCXELE)
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;    is newly triggered and a 0 if it has been responsible for triggering
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; ;    this rule (OCXRUL) in the past.
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,5
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,6
  1.  ;;D^  ; Q
  1.  ;;R^"860.8:",100,7
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,8
  1.  ;;D^  ; ;
  1.  ;;EOR^
  1.  ;;KEY^860.8:^RETURN RENAL FUNCTION VALUES
  1.  ;;R^"860.8:",.01,"E"
  1.  ;;D^RETURN RENAL FUNCTION VALUES
  1.  ;;R^"860.8:",.02,"E"
  1.  ;;D^RENAL
  1.  ;;R^"860.8:",100,1
  1.  ;;D^  ;RENAL(DFN) ;
  1.  ;;R^"860.8:",100,2
  1.  ;;D^  ; ;
  1.  ;;R^"860.8:",100,3
  1.  ;;D^  ; N OCXV,OCXX,OCXTL,OCXTERM,OCXSLIST,OCXS S OCXV=""
  1.  ;;R^"860.8:",100,4
  1.  ;;D^  ; S OCXSLIST="" Q:'$$TERMLKUP("SERUM SPECIMEN",.OCXSLIST)
  1.  ;1;
  1.  ;