| 1 | DGPTOD3 ;ALB/AS - PTF DRG REPORTS CONTINUATION FROM DGSUDO ; 9/5/01 9:43am
|
|---|
| 2 | ;;5.3;Registration;**375**;Aug 13, 1993
|
|---|
| 3 | EN K DG1,DG2,DG3,DG4 S (Z,DGPTFR)="" F I=1:1:4 S (Z,Z1)=Z_U_I_" "_$P($T(@I),";;",2)
|
|---|
| 4 | BATCH W ! F I=1:1:4 W !,I,". ",$P($T(@I),";;",2)
|
|---|
| 5 | 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
|
|---|
| 6 | 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)
|
|---|
| 7 | 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
|
|---|
| 8 | G NO:%'=1,^DGPTOD0 Q
|
|---|
| 9 | 1 ;;Trim Point DRG Report
|
|---|
| 10 | 2 ;;DRG Frequency Report
|
|---|
| 11 | 3 ;;ALOS Report for DRGs
|
|---|
| 12 | 4 ;;DRG Case Mix Summary
|
|---|
| 13 | A I $D(@("DG"_X)) W !,"YOU ALREADY CHOSE TO PRINT ",$P($T(@X),";;",2) S Z=Z1 Q
|
|---|
| 14 | S @("DG"_X)=X,DGPTFR=DGPTFR_"*"_@("DG"_X) Q
|
|---|
| 15 | HELP W !!,"ENTER THE OPTION NUMBER OF THE REPORT TO BE PRINTED" G BATCH
|
|---|
| 16 | NO K %,DGPTFR,DG1,DG2,DG3,DG4,I,X,Z,Z1 Q
|
|---|
