- DGV53PP1 ;MAF/ALB - PARAMETER CHECK AND UPDATE FOR IRT. - APR 2 1993@1100
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- ;
- ;
- EN W !,">>> Checking IRT parameters needed for IRT conversion in the post-init!",!!
- I '$D(^VAS(393,0)) D NOCON G Q
- S DGJTDV=0 F S DGJTDV=$O(^DG(40.8,DGJTDV)) Q:DGJTDV']""!(+DGJTDV=0) I $D(^DG(40.8,DGJTDV,0)) I $D(^DG(40.8,DGJTDV,"DT")) D LIST
- I $D(^UTILITY("VAS",$J)) W !,"***The following parameters need to be updated before the IRT conversion will run in the post-init." D PRT,MSG,OKD1
- I '$D(^UTILITY("VAS",$J)) W !!!,"***ALL IRT PARAMETERS ARE UPDATED!"
- Q K %,DIC,DIE,DR,DA,DGJTNODE,DGJTADM,DGJATT,DGJPRIM,DGJRES,DGJT,DGJTPAR,DGJTPHDE,DGJSTAT,DGJTDV,DGJDV,DGJDTN,DGJFSIG,DGJY,DGJMSG,DGPGM,IFN,POP,X,^UTILITY("VAS",$J) Q
- LIST S X=^DG(40.8,+DGJTDV,"DT") I $P(X,"^",2)']"" S $P(^UTILITY("VAS",$J,$P(^DG(40.8,DGJTDV,0),"^",1)),"^",1)="DEFAULT PRIMARY PHYSICIAN"
- I $P(X,"^",3)']"" S $P(^UTILITY("VAS",$J,$P(^DG(40.8,DGJTDV,0),"^",1)),"^",2)="ARE REPORTS REVIEWED?"
- I $P(X,"^",3)=1,$P(X,"^",4)']"" S $P(^UTILITY("VAS",$J,$P(^DG(40.8,DGJTDV,0),"^",1)),"^",3)="DEFAULT REVIEWING PHYSICIAN"
- I $P(X,"^",10)']"" S $P(^UTILITY("VAS",$J,$P(^DG(40.8,DGJTDV,0),"^",1)),"^",4)="DEFAULT PHYS. FOR SIGNATURE"
- Q
- PRT S DGJTDV=0 F S DGJTDV=$O(^UTILITY("VAS",$J,DGJTDV)) Q:DGJTDV']"" I $D(^UTILITY("VAS",$J,DGJTDV)) S DGJTNODE=^UTILITY("VAS",$J,DGJTDV) D WRITE
- Q
- WRITE W !!,"DIVISION: "_DGJTDV
- I $P(DGJTNODE,"^",1)]"" W !?5,$P(DGJTNODE,"^",1),?32," Choices: Primary or Attending Physician"
- I $P(DGJTNODE,"^",2)]"" W !?5,$P(DGJTNODE,"^",2),?34," Choices: Yes or No",!?10,"If 'YES' the parameter DEFAULT REVIEWING PHYSICIAN will also be asked",!?32," Choices: Primary or Attending Physician"
- I $P(DGJTNODE,"^",3)]"" W !?5,$P(DGJTNODE,"^",3),?32," Choices: Primary or Attending Physician"
- I $P(DGJTNODE,"^",4)]"" W !?5,$P(DGJTNODE,"^",4)," Choices: Primary or Attending Physician"
- Q
- MSG W !!!,"***PLEASE CONTACT YOUR MAS OFFICE IF YOU HAVE ANY QUESTIONS AS TO HOW THE",!,"IRT PARAMETERS SHOULD BE ANSWERED!"
- Q
- OKD1 S %=2 W !!,"DO YOU WISH TO CONTINUE WITH THE INSTALLATION? " D YN^DICN I '% D YN G OKD1
- I %=1 W !!,"THE INSTALLATION WILL CONTINUE BUT, THE IRT CONVERSION WILL NOT RUN!!!" Q
- I %=2 K DIFQ Q
- Q
- YN W !?10,"Choose:",!?25,"Y for YES",!?25,"N for NO",! Q
- NOCON W !!!,"***THIS SITE IS NOT USING THE IRT PACKAGE. PARAMETERS NEED NOT BE UPDATED AND THE IRT CONVERSION WILL NOT RUN IN THE POST-INIT.***",!! Q
- DGV53PP1 ;MAF/ALB - PARAMETER CHECK AND UPDATE FOR IRT. - APR 2 1993@1100
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 ;
- +3 ;
- EN WRITE !,">>> Checking IRT parameters needed for IRT conversion in the post-init!",!!
- +1 IF '$DATA(^VAS(393,0))
- DO NOCON
- GOTO Q
- +2 SET DGJTDV=0
- FOR
- SET DGJTDV=$ORDER(^DG(40.8,DGJTDV))
- IF DGJTDV']""!(+DGJTDV=0)
- QUIT
- IF $DATA(^DG(40.8,DGJTDV,0))
- IF $DATA(^DG(40.8,DGJTDV,"DT"))
- DO LIST
- +3 IF $DATA(^UTILITY("VAS",$JOB))
- WRITE !,"***The following parameters need to be updated before the IRT conversion will run in the post-init."
- DO PRT
- DO MSG
- DO OKD1
- +4 IF '$DATA(^UTILITY("VAS",$JOB))
- WRITE !!!,"***ALL IRT PARAMETERS ARE UPDATED!"
- Q KILL %,DIC,DIE,DR,DA,DGJTNODE,DGJTADM,DGJATT,DGJPRIM,DGJRES,DGJT,DGJTPAR,DGJTPHDE,DGJSTAT,DGJTDV,DGJDV,DGJDTN,DGJFSIG,DGJY,DGJMSG,DGPGM,IFN,POP,X,^UTILITY("VAS",$JOB)
- QUIT
- LIST SET X=^DG(40.8,+DGJTDV,"DT")
- IF $PIECE(X,"^",2)']""
- SET $PIECE(^UTILITY("VAS",$JOB,$PIECE(^DG(40.8,DGJTDV,0),"^",1)),"^",1)="DEFAULT PRIMARY PHYSICIAN"
- +1 IF $PIECE(X,"^",3)']""
- SET $PIECE(^UTILITY("VAS",$JOB,$PIECE(^DG(40.8,DGJTDV,0),"^",1)),"^",2)="ARE REPORTS REVIEWED?"
- +2 IF $PIECE(X,"^",3)=1
- IF $PIECE(X,"^",4)']""
- SET $PIECE(^UTILITY("VAS",$JOB,$PIECE(^DG(40.8,DGJTDV,0),"^",1)),"^",3)="DEFAULT REVIEWING PHYSICIAN"
- +3 IF $PIECE(X,"^",10)']""
- SET $PIECE(^UTILITY("VAS",$JOB,$PIECE(^DG(40.8,DGJTDV,0),"^",1)),"^",4)="DEFAULT PHYS. FOR SIGNATURE"
- +4 QUIT
- PRT SET DGJTDV=0
- FOR
- SET DGJTDV=$ORDER(^UTILITY("VAS",$JOB,DGJTDV))
- IF DGJTDV']""
- QUIT
- IF $DATA(^UTILITY("VAS",$JOB,DGJTDV))
- SET DGJTNODE=^UTILITY("VAS",$JOB,DGJTDV)
- DO WRITE
- +1 QUIT
- WRITE WRITE !!,"DIVISION: "_DGJTDV
- +1 IF $PIECE(DGJTNODE,"^",1)]""
- WRITE !?5,$PIECE(DGJTNODE,"^",1),?32," Choices: Primary or Attending Physician"
- +2 IF $PIECE(DGJTNODE,"^",2)]""
- WRITE !?5,$PIECE(DGJTNODE,"^",2),?34," Choices: Yes or No",!?10,"If 'YES' the parameter DEFAULT REVIEWING PHYSICIAN will also be asked",!?32," Choices: Primary or Attending Physician"
- +3 IF $PIECE(DGJTNODE,"^",3)]""
- WRITE !?5,$PIECE(DGJTNODE,"^",3),?32," Choices: Primary or Attending Physician"
- +4 IF $PIECE(DGJTNODE,"^",4)]""
- WRITE !?5,$PIECE(DGJTNODE,"^",4)," Choices: Primary or Attending Physician"
- +5 QUIT
- MSG WRITE !!!,"***PLEASE CONTACT YOUR MAS OFFICE IF YOU HAVE ANY QUESTIONS AS TO HOW THE",!,"IRT PARAMETERS SHOULD BE ANSWERED!"
- +1 QUIT
- OKD1 SET %=2
- WRITE !!,"DO YOU WISH TO CONTINUE WITH THE INSTALLATION? "
- DO YN^DICN
- IF '%
- DO YN
- GOTO OKD1
- +1 IF %=1
- WRITE !!,"THE INSTALLATION WILL CONTINUE BUT, THE IRT CONVERSION WILL NOT RUN!!!"
- QUIT
- +2 IF %=2
- KILL DIFQ
- QUIT
- +3 QUIT
- YN WRITE !?10,"Choose:",!?25,"Y for YES",!?25,"N for NO",!
- QUIT
- NOCON WRITE !!!,"***THIS SITE IS NOT USING THE IRT PACKAGE. PARAMETERS NEED NOT BE UPDATED AND THE IRT CONVERSION WILL NOT RUN IN THE POST-INIT.***",!!
- QUIT
