DENTE2 ;ISC2/SAW,HAG-EDIT OPTIONS CON'T ;4/29/96 13:55
;;1.2;DENTAL;**20,24**;JAN 26, 1989
TSE ;EDIT TYPE OF SERVICE EDIT FILE
W !! S DIC="^DIC(220.3,",DIC(0)="AEMNQ" D ^DIC G EXIT:Y<0 S DA=+Y D LOCK^DENTE1 G DENTE2:DENTL=0 S DR=".01:2",DIE=DIC D ^DIE L G TSE
TSE1 ;ENABLE RE-RELEASE OF TREATMENT DATA FULL SCREEN
S DENTFUL=1
TDRR ;ENABLE RE-RELEASE OF TREATMENT DATA LINE BY LINE
D STA^DENTE3 G EXIT:Y<0
TDR W !,"Would you like to enable a range of treatment data entries for re-release" S %=2 D YN^DICN D:%=0 Q1^DENTQ G TDR:%=0,EXIT:%<0 I %=1 D SRD^DENTE3 G TDRR
S DIC="^DENT(221,",DIC(0)="AEMNQZ",DIC("S")="I $P(^(0),""^"",40)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")" D ^DIC G EXIT:Y<0 K DIC("S") S (DENT,DA)=+Y D LOCK^DENTE1 G TDRR:DENTL=0
S A1=$P(Y(0),"^",1) S:A1["." A1=$P(A1,".",1) S A2=$P(Y(0),"^",10)
TDRR0 W !,"Would you like to edit/display this treatment data entry" S %=2 D YN^DICN D:%=0 Q2^DENTQ G TDRR0:%=0 I %<0 L G TDRR
I %=1 S DENTREL=1 D:'$D(DENTFUL) TRT^DENTE1 D:$D(DENTFUL) TREAT1^DENTE1
TDRR1 W !,"Are you sure you want to enable this treatment data entry for re-release" S %=2 D YN^DICN D:%=0 Q2^DENTQ G TDRR1:%=0 I %'=1 L G TDRR
I $D(^DENT(221,DA,.1)),$P(^(.1),"^",2) K ^DENT(221,"AG",DENTSTA,$P(^(.1),"^",2),DA)
K ^DENT(221,DA,.1) S ^DENT(221,"A",DENTSTA,A1,DA)="",^DENT(221,"AC",DENTSTA,A1,A2,DA)="" W !,"This treatment data entry can now be re-released." L G TDRR
FBRR ;ENABLE RE-RELEASE OF FEE BASIS DATA
D STA^DENTE3 G EXIT:Y<0 S DIC="^DENT(222,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),""^"",28)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")" D ^DIC G EXIT:Y<0 K DIC("S") S (DENT,DA)=+Y D LOCK^DENTE1 G FBRR:DENTL=0
FBRR0 W !,"Would you like edit/display this Fee Basis data entry" S %=2 D YN^DICN D:%=0 Q2^DENTQ G FBRR0:%=0 I %<0 L G FBRR
I %=1 S DENTREL=1 D FEE1^DENTE1 G:'$D(^DENT(222,DENT,0)) FBRR
FBRR1 W !,"Are you sure you want to enable this Fee Basis data entry for re-release" S %=2 D YN^DICN D:%=0 Q3^DENTQ G FBRR1:%=0 I %'=1 L G FBRR
K ^DENT(222,DENT,.1) W !,"This Fee Basis entry can now be re-released." L G FBRR
PRR ;ENABLE RE-RELEASE OF PERSONNEL DATA
D STA^DENTE3 G EXIT:Y<0 S DIC="^DENT(224,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),""^"",10)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")" D ^DIC G EXIT:Y<0 K DIC("S") S B(0)=Y(0),(DENT,DA)=+Y D LOCK^DENTE1 G PRR:DENTL=0
PRR0 W !,"Would you like to edit/display this Personnel data entry" S %=2 D YN^DICN D:%=0 Q2^DENTQ G PRR0:%=0 I %<0 L G PRR
I %=1 S DENTREL=1 D PERS1^DENTE1 G:'$O(^DENT(224,DENT,0)) PRR
PRR01 W !,"Would you like to edit/display non-clinical time data entries" S %=2 D YN^DICN D:%=0 Q2^DENTQ G PRR01:%=0 I %<0 L G PRR
I %=1 D NCLIN^DENTE0
PRR1 W !,"Are you sure you want to enable this Personnel data entry for re-release" S %=2 D YN^DICN D:%=0 Q3^DENTQ G PRR1:%=0 I %'=1 L G PRR
W ! S Y(0)=B(0),A1=$E(Y(0),1,5)_"00",A2=$E(A1,1,5)_31.2359 F I=0:0 S A1=$O(^DENT(226,"A1",DENTSTA,A1)) Q:A1=""!(A1>A2) S A3="" F J=0:0 S A3=$O(^DENT(226,"A1",DENTSTA,A1,A3)) Q:A3="" K ^DENT(226,A3,.1) S ^DENT(226,"A",DENTSTA,A1,A3)="" W "."
K ^DENT(224,DENT,.1) W !,"This Personnel data entry (and all related Non Clinical Time entries)",!,"can now be re-released." L G PRR
ARR ;ENABLE RE-RELEASE OF ADMIN (CLASS I-VI) DATA
D STA^DENTE3 G EXIT:Y<0 S DIC="^DENT(223,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),""^"",29)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")" D ^DIC G EXIT:Y<0 K DIC("S") S (DENT,DA)=+Y D LOCK^DENTE1 G ARR:DENTL=0
ARR0 W !,"Would you like to edit/display this Class I-VI data entry" S %=2 D YN^DICN D:%=0 Q2^DENTQ G ARR0:%=0 I %<0 L G ARR
I %=1 S DENTREL=1 D ADMIN1^DENTE1 G:'$O(^DENT(223,DENT,0)) ARR
ARR1 W !,"Are you sure you want to enable this Class I-VI data entry for re-release" S %=2 D YN^DICN D:%=0 Q3^DENTQ G ARR1:%=0 I %'=1 L G ARR
K ^DENT(223,DENT,.1) W !,"This Class I-VI data entry can now be re-released." L G ARR
D S Z=$P(Y(0),U),Z1=1700+$E(Z,1,3),Z=+$E(Z,4,5)+2,Z=$P($T(T),";",Z),Z1=Z_" "_Z1 Q
T ;;JANUARY;FEBRUARY;MARCH;APRIL;MAY;JUNE;JULY;AUGUST;SEPTEMBER;OCTOBER;NOVEMBER;DECEMBER
EXIT K %,A1,A2,A3,B,DA,DENT,DENTL,DENTFUL,DENTREL,DIC,DIE,DJDN,DR,I,J,X,Y,Z,Z1 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTE2 4124 printed Oct 16, 2024@17:47:26 Page 2
DENTE2 ;ISC2/SAW,HAG-EDIT OPTIONS CON'T ;4/29/96 13:55
+1 ;;1.2;DENTAL;**20,24**;JAN 26, 1989
TSE ;EDIT TYPE OF SERVICE EDIT FILE
+1 WRITE !!
SET DIC="^DIC(220.3,"
SET DIC(0)="AEMNQ"
DO ^DIC
if Y<0
GOTO EXIT
SET DA=+Y
DO LOCK^DENTE1
if DENTL=0
GOTO DENTE2
SET DR=".01:2"
SET DIE=DIC
DO ^DIE
LOCK
GOTO TSE
TSE1 ;ENABLE RE-RELEASE OF TREATMENT DATA FULL SCREEN
+1 SET DENTFUL=1
TDRR ;ENABLE RE-RELEASE OF TREATMENT DATA LINE BY LINE
+1 DO STA^DENTE3
if Y<0
GOTO EXIT
TDR WRITE !,"Would you like to enable a range of treatment data entries for re-release"
SET %=2
DO YN^DICN
if %=0
DO Q1^DENTQ
if %=0
GOTO TDR
if %<0
GOTO EXIT
IF %=1
DO SRD^DENTE3
GOTO TDRR
+1 SET DIC="^DENT(221,"
SET DIC(0)="AEMNQZ"
SET DIC("S")="I $P(^(0),""^"",40)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")"
DO ^DIC
if Y<0
GOTO EXIT
KILL DIC("S")
SET (DENT,DA)=+Y
DO LOCK^DENTE1
if DENTL=0
GOTO TDRR
+2 SET A1=$PIECE(Y(0),"^",1)
if A1["."
SET A1=$PIECE(A1,".",1)
SET A2=$PIECE(Y(0),"^",10)
TDRR0 WRITE !,"Would you like to edit/display this treatment data entry"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO TDRR0
IF %<0
LOCK
GOTO TDRR
+1 IF %=1
SET DENTREL=1
if '$DATA(DENTFUL)
DO TRT^DENTE1
if $DATA(DENTFUL)
DO TREAT1^DENTE1
TDRR1 WRITE !,"Are you sure you want to enable this treatment data entry for re-release"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO TDRR1
IF %'=1
LOCK
GOTO TDRR
+1 IF $DATA(^DENT(221,DA,.1))
IF $PIECE(^(.1),"^",2)
KILL ^DENT(221,"AG",DENTSTA,$PIECE(^(.1),"^",2),DA)
+2 KILL ^DENT(221,DA,.1)
SET ^DENT(221,"A",DENTSTA,A1,DA)=""
SET ^DENT(221,"AC",DENTSTA,A1,A2,DA)=""
WRITE !,"This treatment data entry can now be re-released."
LOCK
GOTO TDRR
FBRR ;ENABLE RE-RELEASE OF FEE BASIS DATA
+1 DO STA^DENTE3
if Y<0
GOTO EXIT
SET DIC="^DENT(222,"
SET DIC(0)="AEMQZ"
SET DIC("S")="I $P(^(0),""^"",28)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")"
DO ^DIC
if Y<0
GOTO EXIT
KILL DIC("S")
SET (DENT,DA)=+Y
DO LOCK^DENTE1
if DENTL=0
GOTO FBRR
FBRR0 WRITE !,"Would you like edit/display this Fee Basis data entry"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO FBRR0
IF %<0
LOCK
GOTO FBRR
+1 IF %=1
SET DENTREL=1
DO FEE1^DENTE1
if '$DATA(^DENT(222,DENT,0))
GOTO FBRR
FBRR1 WRITE !,"Are you sure you want to enable this Fee Basis data entry for re-release"
SET %=2
DO YN^DICN
if %=0
DO Q3^DENTQ
if %=0
GOTO FBRR1
IF %'=1
LOCK
GOTO FBRR
+1 KILL ^DENT(222,DENT,.1)
WRITE !,"This Fee Basis entry can now be re-released."
LOCK
GOTO FBRR
PRR ;ENABLE RE-RELEASE OF PERSONNEL DATA
+1 DO STA^DENTE3
if Y<0
GOTO EXIT
SET DIC="^DENT(224,"
SET DIC(0)="AEMQZ"
SET DIC("S")="I $P(^(0),""^"",10)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")"
DO ^DIC
if Y<0
GOTO EXIT
KILL DIC("S")
SET B(0)=Y(0)
SET (DENT,DA)=+Y
DO LOCK^DENTE1
if DENTL=0
GOTO PRR
PRR0 WRITE !,"Would you like to edit/display this Personnel data entry"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO PRR0
IF %<0
LOCK
GOTO PRR
+1 IF %=1
SET DENTREL=1
DO PERS1^DENTE1
if '$ORDER(^DENT(224,DENT,0))
GOTO PRR
PRR01 WRITE !,"Would you like to edit/display non-clinical time data entries"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO PRR01
IF %<0
LOCK
GOTO PRR
+1 IF %=1
DO NCLIN^DENTE0
PRR1 WRITE !,"Are you sure you want to enable this Personnel data entry for re-release"
SET %=2
DO YN^DICN
if %=0
DO Q3^DENTQ
if %=0
GOTO PRR1
IF %'=1
LOCK
GOTO PRR
+1 WRITE !
SET Y(0)=B(0)
SET A1=$EXTRACT(Y(0),1,5)_"00"
SET A2=$EXTRACT(A1,1,5)_31.2359
FOR I=0:0
SET A1=$ORDER(^DENT(226,"A1",DENTSTA,A1))
if A1=""!(A1>A2)
QUIT
SET A3=""
FOR J=0:0
SET A3=$ORDER(^DENT(226,"A1",DENTSTA,A1,A3))
if A3=""
QUIT
KILL ^DENT(226,A3,.1)
SET ^DENT(226,"A",DENTSTA,A1,A3)=""
WRITE "."
+2 KILL ^DENT(224,DENT,.1)
WRITE !,"This Personnel data entry (and all related Non Clinical Time entries)",!,"can now be re-released."
LOCK
GOTO PRR
ARR ;ENABLE RE-RELEASE OF ADMIN (CLASS I-VI) DATA
+1 DO STA^DENTE3
if Y<0
GOTO EXIT
SET DIC="^DENT(223,"
SET DIC(0)="AEMQZ"
SET DIC("S")="I $P(^(0),""^"",29)=DENTSTA,$D(^(.1)),$P(^(.1),""^"")"
DO ^DIC
if Y<0
GOTO EXIT
KILL DIC("S")
SET (DENT,DA)=+Y
DO LOCK^DENTE1
if DENTL=0
GOTO ARR
ARR0 WRITE !,"Would you like to edit/display this Class I-VI data entry"
SET %=2
DO YN^DICN
if %=0
DO Q2^DENTQ
if %=0
GOTO ARR0
IF %<0
LOCK
GOTO ARR
+1 IF %=1
SET DENTREL=1
DO ADMIN1^DENTE1
if '$ORDER(^DENT(223,DENT,0))
GOTO ARR
ARR1 WRITE !,"Are you sure you want to enable this Class I-VI data entry for re-release"
SET %=2
DO YN^DICN
if %=0
DO Q3^DENTQ
if %=0
GOTO ARR1
IF %'=1
LOCK
GOTO ARR
+1 KILL ^DENT(223,DENT,.1)
WRITE !,"This Class I-VI data entry can now be re-released."
LOCK
GOTO ARR
D SET Z=$PIECE(Y(0),U)
SET Z1=1700+$EXTRACT(Z,1,3)
SET Z=+$EXTRACT(Z,4,5)+2
SET Z=$PIECE($TEXT(T),";",Z)
SET Z1=Z_" "_Z1
QUIT
T ;;JANUARY;FEBRUARY;MARCH;APRIL;MAY;JUNE;JULY;AUGUST;SEPTEMBER;OCTOBER;NOVEMBER;DECEMBER
EXIT KILL %,A1,A2,A3,B,DA,DENT,DENTL,DENTFUL,DENTREL,DIC,DIE,DJDN,DR,I,J,X,Y,Z,Z1
QUIT
