| 1 | DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
|
|---|
| 2 | ;;5.3;Registration;**76**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | START 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 | ;
|
|---|
| 16 | END 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")
|
|---|
| 21 | KILL 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 | ;
|
|---|
| 24 | SUB Q:END D:$Y+6>IOSL HEAD W !,"------------------",!,"SUBCOUNT = "
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | HEAD 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
|
|---|
| 28 | HEAD1 W:'($E(IOST,1,2)'="C-"&'$D(PAGE)) @IOF
|
|---|
| 29 | HEAD2 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
|
|---|
