DENTA16 ;ISC2/SAW-PRINT/DISPLAY TREATMENT DATA REPORTS - INDIVIDUAL SITTINGS BY CLINIC OR PROVIDER ;7/21/88 5:23 PM
;;1.2;DENTAL;**16,19**;JAN 26, 1989
;VERSION 1.2
G NONE:'DENTC S DENTPRV=""
F M=0:1 D:M COMP1 S DENTPRV=$O(^UTILITY($J,"DENTR",DENTPRV)) Q:DENTPRV="" S H6="DENTAL PROVIDER NO.: "_DENTPRV Q:Z5=U D:M HOLD Q:Z5=U D HD S DENT="" F N=0:0 S DENT=$O(^UTILITY($J,"DENTR",DENTPRV,DENT)) Q:DENT="" S X0=^(DENT) D B1 Q:Z5=U
D:Z5'=U HOLD G EXIT
B1 S X=^DENT(221,DENT,0) D:IOSL-($Y#IOSL)<4 HOLD3 Q:Z5=U D HD1
K A F I=1:2 W:'$P(X0,U,I) ! Q:'$P(X0,U,I) S:IOSL-($Y#IOSL)<4 A=1 S X1=$P(X0,U,I),X2=$P(X0,U,I+1) W ?40,$E($P(^DIC(220.3,X1,0),U,1),1,35),?77,$J(X2,3) W:$P(X0,U,I+2) ! I $D(A) K:'$P(X0,U,I+2) A D HOLD3 Q:Z5=U
Q
HD S H3="DENTAL SERVICE TREATMENT REPORT - SITTINGS BY PROVIDER",H5=$S(H1=H2:"FOR "_H1,1:"FROM "_H1_" TO "_H2)_" STATION NO.: "_DENTSTA_" "_H6
W @IOF,?(80-$L(H3)\2),H3,!,?(80-$L(H5)\2),H5
W !!,?19,"PATIENT",?29,"PAT",?34,"BED",!,"TREATMENT DATE",?19,"SSN",?29,"CAT",?34,"SECT",?40,"TREATMENT (PROCEDURE)",?77,"NO.",! Q
HD1 S Y=$P(X,U,1) X ^DD("DD") S Y=$$DATE^DENTA14(Y) W !,Y,?19,$P(X,U,2),?30,$J($P(X,U,19),2),?35 W:$P(X,U,19)<9 $J($P(X,U,6),2) Q
HDR S H3="DENTAL SERVICE TREATMENT REPORT - INDIVIDUAL SITTINGS",H5=$S(H1=H2:"FOR "_H1,1:"FROM "_H1_" TO "_H2)_" STATION NO.: "_DENTSTA_" "
W @IOF,?(80-$L(H3)\2),H3,!,?(80-$L(H5)\2),H5
W !!,?19,"PROV",?25,"PATIENT",?35,"PAT",?40,"BED",!,"TREATMENT DATE",?19,"NO.",?27,"SSN",?35,"CAT",?40,"SECT",?46,"TREATMENT (PROCEDURE)",?77,"NO.",! Q
HOLD Q:$D(ZTSK)!(IO'=IO(0)) S Z5="" R !,"Press return to continue, uparrow (^) to exit: ",Z5:DTIME Q
HOLD3 D HOLD D:Z5'=U HD D:Z5'=U&($D(A)) HD1 K A Q
NONE S DENTF1=1 W !,"There is no treatment data for review/release for the time frame you specified",*7 G EXIT1
COMP W !,"There "_$S(DENTC=1:"is ",1:"are ")_DENTC_$S(DENTC=1:" sitting",1:" sittings")_" in the time frame you specified. All data is complete" Q
COMP1 S DENTC(1)=^UTILITY($J,"DENTR",DENTPRV) W !,"There "_$S(DENTC(1)=1:"is ",1:"are ")_DENTC(1)_$S(DENTC(1)=1:" sitting",1:" sittings")_" for provider ",DENTPRV," in the time frame you specified." Q
ERR W !!,"The treatment data for this report is incomplete/incorrect.",!,"There are ",DENTC," sittings in the time frame you specified.",!,"The following errors were found:",*7,! Q
EXIT G EXIT1:Z5=U I $D(DENTF1) W @IOF,*7 D ERR S H="" F I=1:1 Q:Z5=U S H=$O(^UTILITY($J,"DENTERR",H)) Q:H="" F J=1:1:5 D:IOSL-($Y#IOSL)<4 HOLD Q:Z5=U W:$D(^UTILITY($J,"DENTERR",H,J)) !,^(J)
D:'$D(DENTF1) COMP W ! D:$D(DENTF1)&(Z5'=U) HOLD
EXIT1 S:Z5=U DENTF1=1 K DENT,DENTED,DENTPRV,DENTSD,H,H1,H2,H3,H4,H6,H7,I,J,K,M,N,X,X1,X2 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTA16 2687 printed Dec 13, 2024@01:45:48 Page 2
DENTA16 ;ISC2/SAW-PRINT/DISPLAY TREATMENT DATA REPORTS - INDIVIDUAL SITTINGS BY CLINIC OR PROVIDER ;7/21/88 5:23 PM
+1 ;;1.2;DENTAL;**16,19**;JAN 26, 1989
+2 ;VERSION 1.2
+3 if 'DENTC
GOTO NONE
SET DENTPRV=""
+4 FOR M=0:1
if M
DO COMP1
SET DENTPRV=$ORDER(^UTILITY($JOB,"DENTR",DENTPRV))
if DENTPRV=""
QUIT
SET H6="DENTAL PROVIDER NO.: "_DENTPRV
if Z5=U
QUIT
if M
DO HOLD
if Z5=U
QUIT
DO HD
SET DENT=""
FOR N=0:0
SET DENT=$ORDER(^UTILITY($JOB,"DENTR",DENTPRV,DENT))
if DENT=""
QUIT
SET X0=^(DENT)
DO B1
if Z5=U
QUIT
+5 if Z5'=U
DO HOLD
GOTO EXIT
B1 SET X=^DENT(221,DENT,0)
if IOSL-($Y#IOSL)<4
DO HOLD3
if Z5=U
QUIT
DO HD1
+1 KILL A
FOR I=1:2
if '$PIECE(X0,U,I)
WRITE !
if '$PIECE(X0,U,I)
QUIT
if IOSL-($Y#IOSL)<4
SET A=1
SET X1=$PIECE(X0,U,I)
SET X2=$PIECE(X0,U,I+1)
WRITE ?40,$EXTRACT($PIECE(^DIC(220.3,X1,0),U,1),1,35),?77,$JUSTIFY(X2,3)
if $PIECE(X0,U,I+2)
WRITE !
IF $DATA(A)
if '$PIECE(X0,U,I+2)
KILL A
DO HOLD3
if Z5=U
QUIT
+2 QUIT
HD SET H3="DENTAL SERVICE TREATMENT REPORT - SITTINGS BY PROVIDER"
SET H5=$SELECT(H1=H2:"FOR "_H1,1:"FROM "_H1_" TO "_H2)_" STATION NO.: "_DENTSTA_" "_H6
+1 WRITE @IOF,?(80-$LENGTH(H3)\2),H3,!,?(80-$LENGTH(H5)\2),H5
+2 WRITE !!,?19,"PATIENT",?29,"PAT",?34,"BED",!,"TREATMENT DATE",?19,"SSN",?29,"CAT",?34,"SECT",?40,"TREATMENT (PROCEDURE)",?77,"NO.",!
QUIT
HD1 SET Y=$PIECE(X,U,1)
XECUTE ^DD("DD")
SET Y=$$DATE^DENTA14(Y)
WRITE !,Y,?19,$PIECE(X,U,2),?30,$JUSTIFY($PIECE(X,U,19),2),?35
if $PIECE(X,U,19)<9
WRITE $JUSTIFY($PIECE(X,U,6),2)
QUIT
HDR SET H3="DENTAL SERVICE TREATMENT REPORT - INDIVIDUAL SITTINGS"
SET H5=$SELECT(H1=H2:"FOR "_H1,1:"FROM "_H1_" TO "_H2)_" STATION NO.: "_DENTSTA_" "
+1 WRITE @IOF,?(80-$LENGTH(H3)\2),H3,!,?(80-$LENGTH(H5)\2),H5
+2 WRITE !!,?19,"PROV",?25,"PATIENT",?35,"PAT",?40,"BED",!,"TREATMENT DATE",?19,"NO.",?27,"SSN",?35,"CAT",?40,"SECT",?46,"TREATMENT (PROCEDURE)",?77,"NO.",!
QUIT
HOLD if $DATA(ZTSK)!(IO'=IO(0))
QUIT
SET Z5=""
READ !,"Press return to continue, uparrow (^) to exit: ",Z5:DTIME
QUIT
HOLD3 DO HOLD
if Z5'=U
DO HD
if Z5'=U&($DATA(A))
DO HD1
KILL A
QUIT
NONE SET DENTF1=1
WRITE !,"There is no treatment data for review/release for the time frame you specified",*7
GOTO EXIT1
COMP WRITE !,"There "_$SELECT(DENTC=1:"is ",1:"are ")_DENTC_$SELECT(DENTC=1:" sitting",1:" sittings")_" in the time frame you specified. All data is complete"
QUIT
COMP1 SET DENTC(1)=^UTILITY($JOB,"DENTR",DENTPRV)
WRITE !,"There "_$SELECT(DENTC(1)=1:"is ",1:"are ")_DENTC(1)_$SELECT(DENTC(1)=1:" sitting",1:" sittings")_" for provider ",DENTPRV," in the time frame you specified."
QUIT
ERR WRITE !!,"The treatment data for this report is incomplete/incorrect.",!,"There are ",DENTC," sittings in the time frame you specified.",!,"The following errors were found:",*7,!
QUIT
EXIT if Z5=U
GOTO EXIT1
IF $DATA(DENTF1)
WRITE @IOF,*7
DO ERR
SET H=""
FOR I=1:1
if Z5=U
QUIT
SET H=$ORDER(^UTILITY($JOB,"DENTERR",H))
if H=""
QUIT
FOR J=1:1:5
if IOSL-($Y#IOSL)<4
DO HOLD
if Z5=U
QUIT
if $DATA(^UTILITY($JOB,"DENTERR",H,J))
WRITE !,^(J)
+1 if '$DATA(DENTF1)
DO COMP
WRITE !
if $DATA(DENTF1)&(Z5'=U)
DO HOLD
EXIT1 if Z5=U
SET DENTF1=1
KILL DENT,DENTED,DENTPRV,DENTSD,H,H1,H2,H3,H4,H6,H7,I,J,K,M,N,X,X1,X2
QUIT
