- DGV53PTB ;ALB/SCK - POST INIT CONVERSION ROUTINE FOR DISTANCE FILE; 2/2/93 4/19/93
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- Q
- EN ;
- S (ZCNT,RCNT,MCNT,TOT)=0,U="^"
- K ^TMP("DGBT",$J,"ZIP")
- W !!!,">>> Beginning conversion of BENEFICIARY TRAVEL DISTANCE file, (#392.1)"
- I '$D(^DGBT(392.1,0)) W !!,*7,">>> The BENEFICIARY TRAVEL DISTANCE file, (#392.1), is not properly set-up.",!,"Please re-run the init to set it up." G EXIT
- I '$O(^DGBT(392.1,0)) W !!,">>> There is no data in the BENEFICIARY TRAVEL DISTANCE file (#392.1) to convert",!?4,"Exiting post-init conversion of BENEFICIARY TRAVEL." G EXIT
- L +^DGBT(392.1):3 I '$T W !!,*7,">>> File is not available at the present time!",!?4,"Please try again later." G EXIT
- S PRIDIV=+$P($G(^DG(43,1,"GL")),U,3) I 'PRIDIV D ERR1 G EXIT
- W !! D WAIT^DICD
- W !,">>> Beginning check and conversion",!?4,"of BENEFICIARY TRAVEL DISTANCE file, (#392.1)",!
- S GLREC=0 F S GLREC=$O(^DGBT(392.1,GLREC)) Q:'GLREC D LOOP
- L -^DGBT(392.1)
- ENDLOOP ; end of loop to rebuild distance file
- W !!,">>> BENEFICIARY TRAVEL DISTANCE file (#392.1) conversion complete.",!?4,TOT," Cities in the BENEFICIARY TRAVEL DISTANCE file (#392.1) have been converted.",! D WAIT^DICD
- W !,">>> Re-Indexing BENEFICIARY TRAVEL DISTANCE file (#392.1). This could take awhile."
- S DIK="^DGBT(392.1,",DA(1)=392.1 D IXALL^DIK W !!,">>> Re-Indexing complete."
- D RMK^DGV53PTC,ZIP^DGV53PTC,MILES^DGV53PTC
- I MCNT!(ZCNT)!(RCNT) D
- . W !!!,"INCOMPLETE INFORMATION FOUND DURING THE POST-INIT CONVERSION OF THE",!,"BENEFICIARY TRAVEL DISTANCE FILE, (#392.1)",!!
- . D:MCNT>0 MSGS D:ZCNT>0 ZIPMSG D:RCNT>0 RMKMSG
- EXIT ;
- K ^TMP("DGBT",$J,"ZIP"),^TMP("DGBT",$J,"MILES"),^TMP("DGBT",$J,"ADD")
- K ADDINF,MCNT,MEC,MILES,PRIDIV,RCNT,ZCNT,ZIP,GLREC,TOT,DIK,ZIP,DGBTVAR,STATE
- Q
- LOOP ; begin loop for converting distance file
- S TOT=TOT+1,DGBTVAR=^DGBT(392.1,GLREC,0)
- CHKMILE ; check default mileage, if null pass 0 to subnode
- S MILES=+$P(DGBTVAR,U,3) D:MILES'>0 MARRAY
- ADDINF ; check for additional information flag
- S ADDINF=$P(DGBTVAR,U,5) D:ADDINF ADARRAY
- MECOST ;
- S MEC=$P($G(^DGBT(392.1,GLREC,0)),U,6)
- STUFF ; build subnode from variables set above
- W:'(TOT#10) "."
- I '$D(^DGBT(392.1,GLREC,1,0)) D
- . S ^DGBT(392.1,GLREC,1,0)="^392.1001PA"_"^"_1_"^"_1
- . S ^DGBT(392.1,GLREC,1,1,0)=PRIDIV_"^"_MILES_"^"_$S(MEC'>0:"^"_ADDINF,1:MEC_"^"_ADDINF)
- ZIP ; check for zipcode, make sure there is a number value entered in piece 4.
- D:$P(DGBTVAR,U,4)']"" ZARRAY
- Q
- MSGS ; list out incomplete data found during conversion
- W !!,*7,">>> WARNING! ",!?4,MCNT," CITIES WITH INCOMPLETE MILEAGE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
- Q
- ZIPMSG ;
- W !!,*7,">>> WARNING!",!?4,ZCNT," CITIES WITH INCOMPLETE ZIP CODE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
- Q
- RMKMSG ;
- W !!,*7,">>> WARNING!",!?4,RCNT," CITIES HAD THE ADDITIONAL INFORMATION FIELD SET THAT",!?4,"WILL NEED THE REMARKS COMPLETED. A LISTING HAS BEEN SENT TO",!?4,"THE MAS ADPAC"
- Q
- ERR1 ;
- W !!,*7,">>> The primary division is missing or incorrect.",!,"I'm stopping the Beneficiary Travel portion",!,"of the post-init. Please check the value of the primary",!,"division in the MAS parameter file DG(43)"
- Q
- ZARRAY ; build array for message on missing zipcodes
- S ZCNT=ZCNT+1,STATE=$$GSTATE,^TMP("DGBT",$J,"ZIP",ZCNT)=$P(DGBTVAR,U,1)_", "_STATE
- Q
- MARRAY ; build array for message on 0 default mileages
- S MCNT=MCNT+1,STATE=$$GSTATE,^TMP("DGBT",$J,"MILES",MCNT)=$P(DGBTVAR,U,1)_", "_STATE
- Q
- ADARRAY ; build array for cities with additional information field set
- S RCNT=RCNT+1,STATE=$$GSTATE,^TMP("DGBT",$J,"ADD",RCNT)=$P(DGBTVAR,U,1)_", "_STATE
- Q
- GSTATE() ;
- N STATE
- S STATE=$S($P(DGBTVAR,U,2)]"":$P($G(^DIC(5,$P(DGBTVAR,U,2),0)),U,1),1:"** MISSING STATE **")
- Q STATE
- DGV53PTB ;ALB/SCK - POST INIT CONVERSION ROUTINE FOR DISTANCE FILE; 2/2/93 4/19/93
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 QUIT
- EN ;
- +1 SET (ZCNT,RCNT,MCNT,TOT)=0
- SET U="^"
- +2 KILL ^TMP("DGBT",$JOB,"ZIP")
- +3 WRITE !!!,">>> Beginning conversion of BENEFICIARY TRAVEL DISTANCE file, (#392.1)"
- +4 IF '$DATA(^DGBT(392.1,0))
- WRITE !!,*7,">>> The BENEFICIARY TRAVEL DISTANCE file, (#392.1), is not properly set-up.",!,"Please re-run the init to set it up."
- GOTO EXIT
- +5 IF '$ORDER(^DGBT(392.1,0))
- WRITE !!,">>> There is no data in the BENEFICIARY TRAVEL DISTANCE file (#392.1) to convert",!?4,"Exiting post-init conversion of BENEFICIARY TRAVEL."
- GOTO EXIT
- +6 LOCK +^DGBT(392.1):3
- IF '$TEST
- WRITE !!,*7,">>> File is not available at the present time!",!?4,"Please try again later."
- GOTO EXIT
- +7 SET PRIDIV=+$PIECE($GET(^DG(43,1,"GL")),U,3)
- IF 'PRIDIV
- DO ERR1
- GOTO EXIT
- +8 WRITE !!
- DO WAIT^DICD
- +9 WRITE !,">>> Beginning check and conversion",!?4,"of BENEFICIARY TRAVEL DISTANCE file, (#392.1)",!
- +10 SET GLREC=0
- FOR
- SET GLREC=$ORDER(^DGBT(392.1,GLREC))
- IF 'GLREC
- QUIT
- DO LOOP
- +11 LOCK -^DGBT(392.1)
- ENDLOOP ; end of loop to rebuild distance file
- +1 WRITE !!,">>> BENEFICIARY TRAVEL DISTANCE file (#392.1) conversion complete.",!?4,TOT," Cities in the BENEFICIARY TRAVEL DISTANCE file (#392.1) have been converted.",!
- DO WAIT^DICD
- +2 WRITE !,">>> Re-Indexing BENEFICIARY TRAVEL DISTANCE file (#392.1). This could take awhile."
- +3 SET DIK="^DGBT(392.1,"
- SET DA(1)=392.1
- DO IXALL^DIK
- WRITE !!,">>> Re-Indexing complete."
- +4 DO RMK^DGV53PTC
- DO ZIP^DGV53PTC
- DO MILES^DGV53PTC
- +5 IF MCNT!(ZCNT)!(RCNT)
- Begin DoDot:1
- +6 WRITE !!!,"INCOMPLETE INFORMATION FOUND DURING THE POST-INIT CONVERSION OF THE",!,"BENEFICIARY TRAVEL DISTANCE FILE, (#392.1)",!!
- +7 IF MCNT>0
- DO MSGS
- IF ZCNT>0
- DO ZIPMSG
- IF RCNT>0
- DO RMKMSG
- End DoDot:1
- EXIT ;
- +1 KILL ^TMP("DGBT",$JOB,"ZIP"),^TMP("DGBT",$JOB,"MILES"),^TMP("DGBT",$JOB,"ADD")
- +2 KILL ADDINF,MCNT,MEC,MILES,PRIDIV,RCNT,ZCNT,ZIP,GLREC,TOT,DIK,ZIP,DGBTVAR,STATE
- +3 QUIT
- LOOP ; begin loop for converting distance file
- +1 SET TOT=TOT+1
- SET DGBTVAR=^DGBT(392.1,GLREC,0)
- CHKMILE ; check default mileage, if null pass 0 to subnode
- +1 SET MILES=+$PIECE(DGBTVAR,U,3)
- IF MILES'>0
- DO MARRAY
- ADDINF ; check for additional information flag
- +1 SET ADDINF=$PIECE(DGBTVAR,U,5)
- IF ADDINF
- DO ADARRAY
- MECOST ;
- +1 SET MEC=$PIECE($GET(^DGBT(392.1,GLREC,0)),U,6)
- STUFF ; build subnode from variables set above
- +1 IF '(TOT#10)
- WRITE "."
- +2 IF '$DATA(^DGBT(392.1,GLREC,1,0))
- Begin DoDot:1
- +3 SET ^DGBT(392.1,GLREC,1,0)="^392.1001PA"_"^"_1_"^"_1
- +4 SET ^DGBT(392.1,GLREC,1,1,0)=PRIDIV_"^"_MILES_"^"_$SELECT(MEC'>0:"^"_ADDINF,1:MEC_"^"_ADDINF)
- End DoDot:1
- ZIP ; check for zipcode, make sure there is a number value entered in piece 4.
- +1 IF $PIECE(DGBTVAR,U,4)']""
- DO ZARRAY
- +2 QUIT
- MSGS ; list out incomplete data found during conversion
- +1 WRITE !!,*7,">>> WARNING! ",!?4,MCNT," CITIES WITH INCOMPLETE MILEAGE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
- +2 QUIT
- ZIPMSG ;
- +1 WRITE !!,*7,">>> WARNING!",!?4,ZCNT," CITIES WITH INCOMPLETE ZIP CODE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
- +2 QUIT
- RMKMSG ;
- +1 WRITE !!,*7,">>> WARNING!",!?4,RCNT," CITIES HAD THE ADDITIONAL INFORMATION FIELD SET THAT",!?4,"WILL NEED THE REMARKS COMPLETED. A LISTING HAS BEEN SENT TO",!?4,"THE MAS ADPAC"
- +2 QUIT
- ERR1 ;
- +1 WRITE !!,*7,">>> The primary division is missing or incorrect.",!,"I'm stopping the Beneficiary Travel portion",!,"of the post-init. Please check the value of the primary",!,"division in the MAS parameter file DG(43)"
- +2 QUIT
- ZARRAY ; build array for message on missing zipcodes
- +1 SET ZCNT=ZCNT+1
- SET STATE=$$GSTATE
- SET ^TMP("DGBT",$JOB,"ZIP",ZCNT)=$PIECE(DGBTVAR,U,1)_", "_STATE
- +2 QUIT
- MARRAY ; build array for message on 0 default mileages
- +1 SET MCNT=MCNT+1
- SET STATE=$$GSTATE
- SET ^TMP("DGBT",$JOB,"MILES",MCNT)=$PIECE(DGBTVAR,U,1)_", "_STATE
- +2 QUIT
- ADARRAY ; build array for cities with additional information field set
- +1 SET RCNT=RCNT+1
- SET STATE=$$GSTATE
- SET ^TMP("DGBT",$JOB,"ADD",RCNT)=$PIECE(DGBTVAR,U,1)_", "_STATE
- +2 QUIT
- GSTATE() ;
- +1 NEW STATE
- +2 SET STATE=$SELECT($PIECE(DGBTVAR,U,2)]"":$PIECE($GET(^DIC(5,$PIECE(DGBTVAR,U,2),0)),U,1),1:"** MISSING STATE **")
- +3 QUIT STATE
