- 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
