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

RORXU009.m

Go to the documentation of this file.
  1. RORXU009 ;HOIFO/VC - REPORT MODIFICATON UTILITY ;2/10/09 5:01pm
  1. ;;1.5;CLINICAL CASE REGISTRIES;**8**;Feb 17, 2006;Build 8
  1. ;
  1. Q
  1. DEL(TSK) ;DELETES RECORDS FROM A REPORT FILE
  1. ;This routine will remove all except the most recent lab test
  1. ;Input TASK - the task number created when the report is generated
  1. ;
  1. K ^TMP($J,"RORKILL")
  1. N NAMEOLD,DATENEW,TEST,DATE,BEG,CTR,END,NAME,RES,J,K,I,M,N,X
  1. S I=0,NAMEOLD="",DATENEW=""
  1. ;
  1. ;--- Put the test records in order by Patient,test,and date
  1. ;
  1. F X=1:1 S I=$O(^RORDATA(798.8,TSK,"RI",I)) D Q:+I=0
  1. .S NAME=$G(^RORDATA(798.8,TSK,"RI",I,1))
  1. .Q:NAME'[","
  1. .S J=I+3
  1. .S DATENEW=$G(^RORDATA(798.8,TSK,"RI",J,1))
  1. .Q:DATENEW=""
  1. .S K=I+4
  1. .S TEST=$G(^RORDATA(798.8,TSK,"RI",K,1))
  1. .Q:TEST=""
  1. .S CTR=1
  1. .S RES=0
  1. .I $G(^TMP($J,"RORKILL",NAME,TEST,(DATENEW*(-1)),CTR))'="" D
  1. ..S CTR=CTR+1
  1. ..F M=1:1:10 I $G(^TMP($J,"RORKILL",NAME,TEST,(DATENEW*(-1)),CTR))'="" S CTR=CTR+1
  1. .S ^TMP($J,"RORKILL",NAME,TEST,(DATENEW*(-1)),CTR)=(I-1)_U_(K+1)
  1. ;
  1. ;--- Use the TMP file to kill the nodes in file 798.8
  1. ;
  1. S NAME=""
  1. F S NAME=$O(^TMP($J,"RORKILL",NAME)) Q:NAME="" D
  1. .S TEST=""
  1. .F S TEST=$O(^TMP($J,"RORKILL",NAME,TEST)) Q:TEST="" D
  1. ..S DATE=-9999999
  1. ..F M=1:1 S DATE=$O(^TMP($J,"RORKILL",NAME,TEST,DATE)) Q:DATE="" D
  1. ...Q:M=1
  1. ...S CTR=0
  1. ...F S CTR=$O(^TMP($J,"RORKILL",NAME,TEST,DATE,CTR)) Q:CTR="" D
  1. ....S BEG=$P(^TMP($J,"RORKILL",NAME,TEST,DATE,CTR),U,1)
  1. ....S END=$P(^TMP($J,"RORKILL",NAME,TEST,DATE,CTR),U,2)
  1. ....F N=BEG:1:END K ^RORDATA(798.8,TSK,"RI",N)
  1. K ^TMP($J,"RORKILL")
  1. Q
  1. ;