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

LRRP6A3.m

Go to the documentation of this file.
  1. LRRP6A3 ;DALISC/J0/DRH - LAB TEST SUMMARY REPORT-DETAILED ;12/08/92
  1. ;;5.2;LAB SERVICE;**101**;Sep 27, 1994
  1. EN ;
  1. DET ;
  1. D HDR
  1. S LRSUBH="Accession #: "
  1. S LRAN=""
  1. F S LRAN=$O(^TMP("LR",$J,"ACCNUM",LRAN)) Q:(LREND)!(LRAN="") D ACC
  1. Q:LREND
  1. W !!,"TOTAL FOR ACCESSION AREA: "
  1. W ?72,$J(^TMP("LR",$J),6)
  1. D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF
  1. Q
  1. ACC ;
  1. S LRPDT=$P(LRAN,"~",2)
  1. I $Y+9>IOSL D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF D HDR
  1. S LRPDT=$$DTF^LRAFUNC1(LRPDT)
  1. W !!,LRSUBH,$P(LRAN,"~"),?53,LRPDT,!,LRDASH
  1. S LRTNAM=""
  1. F S LRTNAM=$O(^TMP("LR",$J,"ACCNUM",LRAN,LRTNAM)) Q:(LREND)!(LRTNAM="") D
  1. . I $Y+7>IOSL D
  1. . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF D HDR
  1. . . W !!,LRSUBH,LRAN," ** cont. ** ",!,LRDASH
  1. . Q:LREND
  1. . W !,LRTNAM
  1. . S LRFIRST=1 D CAP
  1. Q:LREND
  1. W !,LRDASH,!,"SUBTOTAL",?72,$J(^TMP("LR",$J,"ACCNUM",LRAN),6)
  1. Q
  1. CAP ;
  1. S LRCAPNAM=""
  1. F S LRCAPNAM=$O(^TMP("LR",$J,"ACCNUM",LRAN,LRTNAM,LRCAPNAM)) Q:(LREND)!(LRCAPNAM="") D
  1. . I $Y+6>IOSL D
  1. . . D:$E(IOST,1,2)="C-" PAUSE Q:LREND W @IOF D HDR
  1. . . W !!,LRSUBH,LRAN," ** cont. ** ",!,LRDASH
  1. . . W !,LRTNAM
  1. . . S LRFIRST=1
  1. . Q:LREND
  1. . W:'LRFIRST !
  1. . I LRFIRST S LRFIRST=0
  1. . W ?9,$E(LRCAPNAM,1,50),?60,$J(LRCC(LRCAPNAM),12,4)
  1. . W ?66,$J(^TMP("LR",$J,"ACCNUM",LRAN,LRTNAM,LRCAPNAM),6)
  1. Q
  1. HDR ;
  1. S LRPAG=LRPAG+1
  1. W !,"Detailed AUDIT REPORT (by Test) for ",LRDATRNG
  1. W ?62,LRDAT,?72,"PAGE ",$J(LRPAG,3)
  1. W !,"Accession Area: ",LRX
  1. W !,$E(LRSTAR,1,34)," DETAILED ",$E(LRSTAR,1,34)
  1. Q
  1. PAUSE ;
  1. K DIR S DIR(0)="E" D ^DIR
  1. S:($D(DTOUT)#2)!($D(DUOUT)#2)!($D(DIRUT)#2) LREND=1
  1. Q