source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTOD3.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DGPTOD3 ;ALB/AS - PTF DRG REPORTS CONTINUATION FROM DGSUDO ; 9/5/01 9:43am
2 ;;5.3;Registration;**375**;Aug 13, 1993
3EN K DG1,DG2,DG3,DG4 S (Z,DGPTFR)="" F I=1:1:4 S (Z,Z1)=Z_U_I_" "_$P($T(@I),";;",2)
4BATCH W ! F I=1:1:4 W !,I,". ",$P($T(@I),";;",2)
5B1 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)
7OK 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
91 ;;Trim Point DRG Report
102 ;;DRG Frequency Report
113 ;;ALOS Report for DRGs
124 ;;DRG Case Mix Summary
13A 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
15HELP W !!,"ENTER THE OPTION NUMBER OF THE REPORT TO BE PRINTED" G BATCH
16NO K %,DGPTFR,DG1,DG2,DG3,DG4,I,X,Z,Z1 Q
Note: See TracBrowser for help on using the repository browser.