DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
;;5.3;Registration;**76**;Aug 13, 1993
;
Q
;
START D KILL
;
D NOW^%DTC S Y=$E(%,1,12) X ^DD("DD") S DGNOW=Y ; used to print date/time of report
;
S (WCT,TCT,TSCT,END)=0
;
I PTLWD D ^DGPMTSO1 G:END END
I PTLTS D ^DGPMTSO2 G:END END
I PTCTS D ^DGPMTSO3 G:END END
;
END K DGTSDT
D END^DGPMTSO1
D END^DGPMTSO2
D END^DGPMTSO3
K ^TMP($J,"PTCTS"),^TMP($J,"PTLTS"),^TMP($J,"PTLWD")
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
Q
;
SUB Q:END D:$Y+6>IOSL HEAD W !,"------------------",!,"SUBCOUNT = "
Q
;
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
HEAD1 W:'($E(IOST,1,2)'="C-"&'$D(PAGE)) @IOF
HEAD2 S PAGE=PAGE+1
W !!,"Treating Specialty Inpatient Information"
W ?(IOM-38),"Date/Time Printed: ",DGNOW
W !,"as of ",DGTSDT
W ?(IOM-10),"PAGE ",$J(PAGE,3)
W !?(IOM-$L(REPORT)\2),REPORT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPMTSO 1040 printed Sep 23, 2025@20:25:50 Page 2
DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
+1 ;;5.3;Registration;**76**;Aug 13, 1993
+2 ;
+3 QUIT
+4 ;
START DO KILL
+1 ;
+2 ; used to print date/time of report
DO NOW^%DTC
SET Y=$EXTRACT(%,1,12)
XECUTE ^DD("DD")
SET DGNOW=Y
+3 ;
+4 SET (WCT,TCT,TSCT,END)=0
+5 ;
+6 IF PTLWD
DO ^DGPMTSO1
if END
GOTO END
+7 IF PTLTS
DO ^DGPMTSO2
if END
GOTO END
+8 IF PTCTS
DO ^DGPMTSO3
if END
GOTO END
+9 ;
END KILL DGTSDT
+1 DO END^DGPMTSO1
+2 DO END^DGPMTSO2
+3 DO END^DGPMTSO3
+4 KILL ^TMP($JOB,"PTCTS"),^TMP($JOB,"PTLTS"),^TMP($JOB,"PTLWD")
KILL KILL 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
+1 QUIT
+2 ;
SUB if END
QUIT
if $Y+6>IOSL
DO HEAD
WRITE !,"------------------",!,"SUBCOUNT = "
+1 QUIT
+2 ;
HEAD IF PAGE
IF $EXTRACT(IOST,1,2)="C-"
WRITE !,"Press RETURN to continue or '^' to exit: "
READ X:DTIME
if '$TEST!(X="^")
SET END=1
if END
QUIT
HEAD1 if '($EXTRACT(IOST,1,2)'="C-"&'$DATA(PAGE))
WRITE @IOF
HEAD2 SET PAGE=PAGE+1
+1 WRITE !!,"Treating Specialty Inpatient Information"
+2 WRITE ?(IOM-38),"Date/Time Printed: ",DGNOW
+3 WRITE !,"as of ",DGTSDT
+4 WRITE ?(IOM-10),"PAGE ",$JUSTIFY(PAGE,3)
+5 WRITE !?(IOM-$LENGTH(REPORT)\2),REPORT
+6 QUIT
