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

RADLQ2.m

Go to the documentation of this file.
  1. RADLQ2 ;HISC/GJC-Delq Status/Incomplete Rpt's ;3/6/97 08:50
  1. ;;5.0;Radiology/Nuclear Medicine;**15,47**;Mar 16, 1998;Build 21
  1. DATE ; Sort by date
  1. S RADIV="" F S RADIV=$O(^TMP($J,"RADLQ",RADIV)) Q:RADIV']"" D Q:RAXIT
  1. . S RA1=$P($G(^DIC(4,RADIV,0)),"^"),RAITYPE=""
  1. . F S RAITYPE=$O(^TMP($J,"RADLQ",RADIV,RAITYPE)) Q:RAITYPE']"" D Q:RAXIT
  1. .. S RA2=RAITYPE,RAVAR=""
  1. .. F S RAVAR=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR)) Q:RAVAR']"" D Q:RAXIT
  1. ... S RADTE=0
  1. ... F S RADTE=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RADTE)) Q:RADTE'>0 D Q:RAXIT
  1. .... S RANME=""
  1. .... F S RANME=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RADTE,RANME)) Q:RANME']"" D Q:RAXIT
  1. ..... S RACN=0
  1. ..... F S RACN=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RADTE,RANME,RACN)) Q:RACN'>0 D Q:RAXIT
  1. ...... S RANODE=$G(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RADTE,RANME,RACN))
  1. ...... D:RANODE]"" OUTPUT^RADLQ3
  1. ...... Q
  1. ..... Q
  1. .... Q
  1. ... Q
  1. .. D:'RAXIT IMGCHK
  1. .. Q
  1. . D:'RAXIT DIVCHK
  1. . Q
  1. Q
  1. HDR ; Header for reports
  1. I RAPG!($E(IOST,1,2)="C-") W @IOF
  1. S RAPG=RAPG+1 W !?(IOM-$L(RAHD(0))\2),RAHD(0)
  1. W !,"Division: ",$S($D(RAFLAG):"",1:RA1),?RATAB("HEAD"),"Page: ",RAPG
  1. W !,"Imaging Type: ",$S($D(RAFLAG):"",1:RA2),?RATAB("HEAD"),"Date: "
  1. W $$FMTE^XLFDT($$DT^XLFDT,1)
  1. W !,RALN2
  1. I $$USESSAN^RAHLRU1() W !,"Patient Name",?RATAB(1),"Case #",?RATAB(2)+6,"Pt ID"
  1. I '$$USESSAN^RAHLRU1() W !,"Patient Name",?RATAB(1),"Case #",?RATAB(2),"Pt ID"
  1. W ?RATAB(3),"Date",?RATAB(4),"Ward/Clinic"
  1. W ?RATAB(5),"Rpt Stat",!?RATAB(6),"Procedure"
  1. W ?RATAB(7),"Exam Status",?RATAB(8),"Rpt Text"
  1. W ?RATAB(9),"Interp. Phys.",?RATAB(10),"Tech",!,RALN2
  1. I $D(ZTQUEUED) D STOPCHK^RAUTL9 S:$G(ZTSTOP)=1 RAXIT=1
  1. Q
  1. PATIENT ; Sort by patient
  1. S RADIV="" F S RADIV=$O(^TMP($J,"RADLQ",RADIV)) Q:RADIV']"" D Q:RAXIT
  1. . S RA1=$P($G(^DIC(4,RADIV,0)),"^"),RAITYPE=""
  1. . F S RAITYPE=$O(^TMP($J,"RADLQ",RADIV,RAITYPE)) Q:RAITYPE']"" D Q:RAXIT
  1. .. S RA2=RAITYPE,RAVAR=""
  1. .. F S RAVAR=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR)) Q:RAVAR']"" D Q:RAXIT
  1. ... S RANME=""
  1. ... F S RANME=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RANME)) Q:RANME']"" D Q:RAXIT
  1. .... S RADTE=0
  1. .... F S RADTE=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RANME,RADTE)) Q:RADTE'>0 D Q:RAXIT
  1. ..... S RACN=0
  1. ..... F S RACN=$O(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RANME,RADTE,RACN)) Q:RACN'>0 D Q:RAXIT
  1. ...... S RANODE=$G(^TMP($J,"RADLQ",RADIV,RAITYPE,RAVAR,RANME,RADTE,RACN))
  1. ...... D:RANODE]"" OUTPUT^RADLQ3
  1. ...... Q
  1. ..... Q
  1. .... Q
  1. ... Q
  1. .. D:'RAXIT IMGCHK
  1. .. Q
  1. . D:'RAXIT DIVCHK
  1. . Q
  1. Q
  1. PRINT ; Outputting the data
  1. S RATAB(1)=$S(IOM=132:40,1:22),RATAB(2)=$S(IOM=132:54,1:32)
  1. S RATAB(3)=$S(IOM=132:74,1:45),RATAB(4)=$S(IOM=132:90,1:55)
  1. S RATAB(5)=$S(IOM=132:120,1:72),RATAB(6)=1 ; for 132 & 80 column
  1. S RATAB(7)=$S(IOM=132:40,1:23),RATAB(8)=$S(IOM=132:75,1:36)
  1. S RATAB(9)=$S(IOM=132:90,1:46),RATAB(10)=$S(IOM=132:114,1:63)
  1. S RATAB("HEAD")=$S(IOM=132:102,1:62)
  1. S RADIV=$O(^TMP($J,"RADLQ","")),RA2=$O(^TMP($J,"RADLQ",RADIV,""))
  1. S RA1=$P($G(^DIC(4,RADIV,0)),"^") D HDR
  1. D @$S(RASORT2="P":"PATIENT",1:"DATE")
  1. Q
  1. DIVCHK ; Output statistics within division
  1. N RA3 I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() D:'RAXIT HDR Q:RAXIT
  1. W !!?RATAB(6),"Division Total '"_RA1_"': ",+$G(^TMP($J,"RADLQ",RADIV))
  1. S RA3=+$O(^TMP($J,"RADLQ",RADIV))
  1. I RA3 N RA1,RA4 S RA1=$P($G(^DIC(4,RA3,0)),"^") D
  1. . S RA4=$O(^TMP($J,"RADLQ",RA3,"")) S:RA4]"" RA2=RA4
  1. . S:$E(IOST,1,2)="C-" RAXIT=$$EOS^RAUTL5() D:'RAXIT HDR
  1. . Q
  1. Q
  1. IMGCHK ; Output statistics within Imaging Type
  1. N RA5
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() D:'RAXIT HDR Q:RAXIT
  1. W !!?RATAB(6),"Imaging Type Total '"_RA2_"': "
  1. W +$G(^TMP($J,"RADLQ",RADIV,RA2))
  1. S RA5=$O(^TMP($J,"RADLQ",RADIV,RAITYPE))
  1. I RA5]"" S RA2=RA5 D
  1. . N RA1 S RA1=$P($G(^DIC(4,RADIV,0)),"^")
  1. . S:$E(IOST,1,2)="C-" RAXIT=$$EOS^RAUTL5() D:'RAXIT HDR
  1. . Q
  1. Q