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

LRMITSPS.m

Go to the documentation of this file.
  1. LRMITSPS ;SLC/STAFF - MICRO TREND PROCESS SETUP ;10/12/92 20:07
  1. ;;5.2;LAB SERVICE;**257**;Sep 27, 1994
  1. ; from LRMITSPO
  1. ;
  1. S LRMERGEV=$S(LRMERGE="S":LRSPECN,LRMERGE="C":LRCOLN,1:0)
  1. ; setup data for each report type
  1. ;MULTIDIVISIONAL PATCH LR*5.2*257 02/01
  1. F LRTYPE="O;LRORGN;LRORGNM","S;LRSPECN;LRSPECNM","L;LRLOCN;LRLOCNM","D;LRDOCN;LRDOCNM","P;LRPATN;LRPATNM","C;LRCOLN;LRCOLNM","DIV;LRDIV;LRDIVNM" I $D(LRM($P(LRTYPE,";"))) D
  1. .S LRRTYPE=$P(LRTYPE,";"),LRGPN=@$P(LRTYPE,";",2),LRGPNM=@$P(LRTYPE,";",3)
  1. .; count patients for report type
  1. .I $D(LRM(LRRTYPE,"A")) S ^TMP($J,"PAT",LRRTYPE,LRPATN)=""
  1. .I $D(LRM(LRRTYPE,"S",LRGPN)) S ^TMP($J,"PAT",LRRTYPE,LRPATN)=""
  1. .; setup isolate data
  1. .S LRN1=$G(^TMP($J,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN))
  1. .I 'LRN1 D
  1. ..S (LRN1,LRSEQN)=LRSEQN+1
  1. ..S ^TMP($J,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN)=LRN1
  1. .S LRN2=$G(^TMP($J,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN))
  1. .I 'LRN2 D
  1. ..S (LRN2,LRSEQN)=LRSEQN+1
  1. ..S ^TMP($J,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN)=LRN2
  1. .S (LRN3,LRSEQN)=LRSEQN+1
  1. .S ^(LRGPN)=$G(^TMP($J,LRRTYPE,LRGPNM,LRGPN))+1
  1. .S ^TMP($J,LRN2,LRCDATE,LRSUBN)=LRN3_U_LRACC_U_LRPLOS_U_LRCOLN
  1. .S ^TMP($J,"M",LRN1,LRPATN_";"_LRORGN_";"_LRMERGEV,-LRN3)=LRN2_U_LRCDATE_U_LRSUBN
  1. .; setup bacteria antibiotic data
  1. .S LRDN=0 F S LRDN=$O(LRANTIM(LRDN)) Q:LRDN<2 D
  1. ..S LRANTINM=$P($G(^TMP($J,"A",LRDN)),U,2) Q:'$L(LRANTINM)
  1. ..S ^TMP($J,LRN3,"A",LRANTINM)=LRANTIM(LRDN)
  1. .; setup mycobatcteria antibiotic data
  1. .S LRDN=0 F S LRDN=$O(LRTB(LRDN)) Q:LRDN<2 D
  1. ..S LRANTINM=$P($G(^TMP($J,"T",LRDN)),U) Q:'$L(LRANTINM)
  1. ..S ^TMP($J,LRN3,"T",LRANTINM)=LRTB(LRDN)
  1. Q