- 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 Dec 13, 2024@01:46:36 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