- DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
- ;;5.3;Registration;**76,1015**;Aug 13, 1993;Build 21
- ;
- 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
- DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93
- +1 ;;5.3;Registration;**76,1015**;Aug 13, 1993;Build 21
- +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
