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

ACDWRP27.m

Go to the documentation of this file.
  1. ACDWRP27 ;IHS/ADC/EDE/KML - OUTPUT GENERATOR;
  1. ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
  1. ;Reports 310
  1. I '$D(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL")) D ^ACDWK Q
  1. S (ACDNCNT,ACDVCNT)=0
  1. P1 ;
  1. D C S ACDP1="" F S ACDP1=$O(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1)) Q:ACDP1="" W !,$E(ACDP1,1,20) D P2 Q:$D(DIRUT)
  1. W:'$D(DIRUT) !?56,"=====",?64,"=====",!?56,$J(ACDNCNT,5,0),?64,$J(ACDVCNT,5,0)
  1. D ^ACDWK
  1. Q
  1. P2 ;
  1. S ACDP2="" F D F Q:$D(DIRUT) S ACDP2=$O(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2)) Q:ACDP2="" W ?22,$E(ACDP2,1,20) D P3 Q:$D(DIRUT)
  1. Q
  1. P3 ;
  1. S ACDP3="" F D F Q:$D(DIRUT) S ACDP3=$O(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2,ACDP3)) Q:ACDP3="" S ACDN0=^(ACDP3) D P4 Q:$D(DIRUT)
  1. Q
  1. P4 ;
  1. S ACDVIS=$P(ACDN0,U),ACDNUMR=$P(ACDN0,U,2)
  1. D F Q:$D(DIRUT) W ?44,$E(ACDP3,1,15),?56,$J(ACDNUMR,5,0),?64,$J(ACDVIS,5,0),?71,$J(ACDNUMR/ACDVIS,8,2),!
  1. S ACDNCNT=ACDNCNT+ACDNUMR,ACDVCNT=ACDVCNT+ACDVIS
  1. Q
  1. F ;Form feed
  1. I $Y+4>IOSL D F^ACDWUTL D:'$D(DIRUT) C
  1. Q
  1. C ;Column
  1. W !,ACDC(1),?22,ACDC(2),?44,ACDC(3),?53,ACDC(4),?62,ACDC(5),?71,ACDC(6),!,ACDH(1),!
  1. Q