ACDWRP5.m

ACDWRP5 ;IHS/ADC/EDE/KML - REPORT GENERATOR;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;Report 2,3,4,5,6,7,50,51,52,53,54,55,56,63,64,65

 I '$D(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL")) D ^ACDWK Q

 S (ACDGTOT,ACDGTOT1)=0

 D C S ACDP1="" F  D F Q:$D(DIRUT)  S ACDP1=$O(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1)) Q:ACDP1=""  W !,$E(ACDP1,1,24) D P1 Q:$D(DIRUT)

 I $D(DIRUT) D ^ACDWK Q  ;            quit if user entered "^"

 I ACDTG="G51"!(ACDTG="G3") W !!! F ACDLP=0:0 S ACDLP=$O(^ACDDRUG(ACDLP)) Q:'ACDLP  I $D(^(ACDLP,0)) S ACDRUG=$P(^(0),U,2)_"="_$P(^(0),U) I '$D(ACDRUG(ACDRUG)) W !,ACDRUG,?67,"NO DATA FOUND"

 I ACDTG="G51"!(ACDTG="G3")!(ACDTG="G7")!(ACDTG="G64") D COMB

 D ^ACDWK Q

P1 ;

 I ACDTG="G51"!(ACDTG="G3") S ACDRUG(ACDP1)=""

 S (ACDSTOT,ACDSTOT1)=0 F ACDP2=0:0 D F Q:$D(DIRUT)  S ACDP2=$O(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2)) Q:'ACDP2  D P2 Q:$D(DIRUT)

 Q:$D(DIRUT)

 W ?26,ACDSTOT,?48,ACDSTOT1,?74,$J(ACDSTOT1/ACDSTOT,5,2),!

 Q

P2 ;

 S ACDSTOT=ACDSTOT+1,ACDSTOT1=ACDSTOT1+^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2)

 Q

F ;Form feed

 I $Y+4>IOSL D F^ACDWUTL D:'$D(DIRUT) C

 Q

C ;Column

 W !!,ACDC(1),?26,ACDC(2),?48,ACDC(3),?72,ACDC(4),!,ACDH(1),!

 Q

COMB ;List patients on more than 1 drug i.e. combination drugs.

 W !!!,"COMBINATIONS ARE AS FOLLOWS:",!

 S ACDP1=""

 F  S ACDP1=$O(^TMP("CDMIS",$J,ACDP1)) Q:ACDP1=""  D  Q:$D(DIRUT)

 .  S ACDP2=0

 .  F ACDNUM=0:1 S ACDP2=$O(^TMP("CDMIS",$J,ACDP1,ACDP2)) Q:'ACDP2

 .  D F Q:$D(DIRUT)  W ACDP1,?67,"CLIENTS = ",?74,$J(ACDNUM,3),!

 .  Q

 Q

ACDWRP5   ;IHS/ADC/EDE/KML - REPORT GENERATOR;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;Report 2,3,4,5,6,7,50,51,52,53,54,55,56,63,64,65

 +3        IF '$DATA(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL"))

               DO ^ACDWK

               QUIT 

 +4        SET (ACDGTOT,ACDGTOT1)=0

 +5        DO C

           SET ACDP1=""

           FOR 

               DO F

               IF $DATA(DIRUT)

                   QUIT 

               SET ACDP1=$ORDER(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1))

               IF ACDP1=""

                   QUIT 

               WRITE !,$EXTRACT(ACDP1,1,24)

               DO P1

               IF $DATA(DIRUT)

                   QUIT 

 +6       ;            quit if user entered "^"

           IF $DATA(DIRUT)

               DO ^ACDWK

               QUIT 

 +7        IF ACDTG="G51"!(ACDTG="G3")

               WRITE !!!

               FOR ACDLP=0:0

                   SET ACDLP=$ORDER(^ACDDRUG(ACDLP))

                   IF 'ACDLP

                       QUIT 

                   IF $DATA(^(ACDLP,0))

                       SET ACDRUG=$PIECE(^(0),U,2)_"="_$PIECE(^(0),U)

                       IF '$DATA(ACDRUG(ACDRUG))

                           WRITE !,ACDRUG,?67,"NO DATA FOUND"

 +8        IF ACDTG="G51"!(ACDTG="G3")!(ACDTG="G7")!(ACDTG="G64")

               DO COMB

 +9        DO ^ACDWK

           QUIT 

P1        ;

 +1        IF ACDTG="G51"!(ACDTG="G3")

               SET ACDRUG(ACDP1)=""

 +2        SET (ACDSTOT,ACDSTOT1)=0

           FOR ACDP2=0:0

               DO F

               IF $DATA(DIRUT)

                   QUIT 

               SET ACDP2=$ORDER(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2))

               IF 'ACDP2

                   QUIT 

               DO P2

               IF $DATA(DIRUT)

                   QUIT 

 +3        IF $DATA(DIRUT)

               QUIT 

 +4        WRITE ?26,ACDSTOT,?48,ACDSTOT1,?74,$JUSTIFY(ACDSTOT1/ACDSTOT,5,2),!

 +5        QUIT 

P2        ;

 +1        SET ACDSTOT=ACDSTOT+1

           SET ACDSTOT1=ACDSTOT1+^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL",ACDP1,ACDP2)

 +2        QUIT 

F         ;Form feed

 +1        IF $Y+4>IOSL

               DO F^ACDWUTL

               IF '$DATA(DIRUT)

                   DO C

 +2        QUIT 

C         ;Column

 +1        WRITE !!,ACDC(1),?26,ACDC(2),?48,ACDC(3),?72,ACDC(4),!,ACDH(1),!

 +2        QUIT 

COMB      ;List patients on more than 1 drug i.e. combination drugs.

 +1        WRITE !!!,"COMBINATIONS ARE AS FOLLOWS:",!

 +2        SET ACDP1=""

 +3        FOR 

               SET ACDP1=$ORDER(^TMP("CDMIS",$JOB,ACDP1))

               IF ACDP1=""

                   QUIT 

               Begin DoDot:1

 +4                SET ACDP2=0

 +5                FOR ACDNUM=0:1

                       SET ACDP2=$ORDER(^TMP("CDMIS",$JOB,ACDP1,ACDP2))

                       IF 'ACDP2

                           QUIT 

 +6                DO F

                   IF $DATA(DIRUT)

                       QUIT 

                   WRITE ACDP1,?67,"CLIENTS = ",?74,$JUSTIFY(ACDNUM,3),!

 +7                QUIT 

               End DoDot:1

               IF $DATA(DIRUT)

                   QUIT 

 +8        QUIT