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

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

initial load of WorldVistAEHR

File size: 1005 bytes
Line 
1DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
2 ;;5.3;Registration;**76**;Aug 13, 1993
3 ;
4 Q
5 ;
6START D KILL
7 ;
8 D NOW^%DTC S Y=$E(%,1,12) X ^DD("DD") S DGNOW=Y ; used to print date/time of report
9 ;
10 S (WCT,TCT,TSCT,END)=0
11 ;
12 I PTLWD D ^DGPMTSO1 G:END END
13 I PTLTS D ^DGPMTSO2 G:END END
14 I PTCTS D ^DGPMTSO3 G:END END
15 ;
16END K DGTSDT
17 D END^DGPMTSO1
18 D END^DGPMTSO2
19 D END^DGPMTSO3
20 K ^TMP($J,"PTCTS"),^TMP($J,"PTLTS"),^TMP($J,"PTLWD")
21KILL K WCT,TCT,TSCT,PAGE,%,ADMDT,D,D1,DGNOW,END,I,L,N,N1,T,T1,TREAT,W,W1,X,Y,ID,DFN,DGT,DG1,DGA1,DGXFR0,X1
22 Q
23 ;
24SUB Q:END D:$Y+6>IOSL HEAD W !,"------------------",!,"SUBCOUNT = "
25 Q
26 ;
27HEAD I PAGE,$E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S:'$T!(X="^") END=1 Q:END
28HEAD1 W:'($E(IOST,1,2)'="C-"&'$D(PAGE)) @IOF
29HEAD2 S PAGE=PAGE+1
30 W !!,"Treating Specialty Inpatient Information"
31 W ?(IOM-38),"Date/Time Printed: ",DGNOW
32 W !,"as of ",DGTSDT
33 W ?(IOM-10),"PAGE ",$J(PAGE,3)
34 W !?(IOM-$L(REPORT)\2),REPORT
35 Q
Note: See TracBrowser for help on using the repository browser.