DGPTOD3.m

DGPTOD3 ;ALB/AS - PTF DRG REPORTS CONTINUATION FROM DGSUDO ; 9/5/01 9:43am

 ;;5.3;Registration;**375,1015**;Aug 13, 1993;Build 21

EN K DG1,DG2,DG3,DG4 S (Z,DGPTFR)="" F I=1:1:4 S (Z,Z1)=Z_U_I_"   "_$P($T(@I),";;",2)

BATCH W ! F I=1:1:4 W !,I,". ",$P($T(@I),";;",2)

B1 F I=1:1 R !!,"  CHOOSE REPORTS TO BE BATCHED (BY NUMBER) : ",X:DTIME Q:X=""  G NO:X["^"!'($T),HELP:X'?1N,HELP:"1234"'[X D IN^DGHELP,A S Z=Z1

 Q:'$D(DGPTFR)  Q:DGPTFR']""  W !!,"You have selected the following outputs:",! F I=2:1 Q:$P(DGPTFR,"*",I)=""  W !,$P($T(@$P(DGPTFR,"*",I)),";;",2)

OK W !,"IS THIS CORRECT" S %=1 D YN^DICN I '% W !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!! G OK

 G NO:%'=1,^DGPTOD0 Q

1 ;;Trim Point DRG Report

2 ;;DRG Frequency Report

3 ;;ALOS Report for DRGs

4 ;;DRG Case Mix Summary

A I $D(@("DG"_X)) W !,"YOU ALREADY CHOSE TO PRINT ",$P($T(@X),";;",2) S Z=Z1 Q

 S @("DG"_X)=X,DGPTFR=DGPTFR_"*"_@("DG"_X) Q

HELP W !!,"ENTER THE OPTION NUMBER OF THE REPORT TO BE PRINTED" G BATCH

NO K %,DGPTFR,DG1,DG2,DG3,DG4,I,X,Z,Z1 Q

DGPTOD3   ;ALB/AS - PTF DRG REPORTS CONTINUATION FROM DGSUDO ; 9/5/01 9:43am

 +1       ;;5.3;Registration;**375,1015**;Aug 13, 1993;Build 21

EN         KILL DG1,DG2,DG3,DG4

           SET (Z,DGPTFR)=""

           FOR I=1:1:4

               SET (Z,Z1)=Z_U_I_"   "_$PIECE($TEXT(@I),";;",2)

BATCH      WRITE !

           FOR I=1:1:4

               WRITE !,I,". ",$PIECE($TEXT(@I),";;",2)

B1         FOR I=1:1

               READ !!,"  CHOOSE REPORTS TO BE BATCHED (BY NUMBER) : ",X:DTIME

               IF X=""

                   QUIT 

               IF X["^"!'($TEST)

                   GOTO NO

               IF X'?1N

                   GOTO HELP

               IF "1234"'[X

                   GOTO HELP

               DO IN^DGHELP

               DO A

               SET Z=Z1

 +1        IF '$DATA(DGPTFR)

               QUIT 

           IF DGPTFR']""

               QUIT 

           WRITE !!,"You have selected the following outputs:",!

           FOR I=2:1

               IF $PIECE(DGPTFR,"*",I)=""

                   QUIT 

               WRITE !,$PIECE($TEXT(@$PIECE(DGPTFR,"*",I)),";;",2)

OK         WRITE !,"IS THIS CORRECT"

           SET %=1

           DO YN^DICN

           IF '%

               WRITE !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!!

               GOTO OK

 +1        IF %'=1

               GOTO NO

           GOTO ^DGPTOD0

           QUIT 

1         ;;Trim Point DRG Report

2         ;;DRG Frequency Report

3         ;;ALOS Report for DRGs

4         ;;DRG Case Mix Summary

A          IF $DATA(@("DG"_X))

               WRITE !,"YOU ALREADY CHOSE TO PRINT ",$PIECE($TEXT(@X),";;",2)

               SET Z=Z1

               QUIT 

 +1        SET @("DG"_X)=X

           SET DGPTFR=DGPTFR_"*"_@("DG"_X)

           QUIT 

HELP       WRITE !!,"ENTER THE OPTION NUMBER OF THE REPORT TO BE PRINTED"

           GOTO BATCH

NO         KILL %,DGPTFR,DG1,DG2,DG3,DG4,I,X,Z,Z1

           QUIT