DGPMTSO.m

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 ---DGPMTSO   1040     printed  Apr 09, 2024@21:39:07                                                                                                                                                                                                     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