- DGV53PTC ;ALB/SCK - POST INIT CONVERSION MESSAGE BUILDER FOR POST INIT ROUTINE;4/19/23
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- START ;
- Q
- RMK ; message builder of cities with add'l information field set
- S XMSUB="BENEFICIARY TRAVEL POST-INIT, ADD'L REMARKS FIELD'S",XMDUZ="BENEFICIARY TRAVEL POST-INIT" D XMZ^XMA2 I XMZ<1 D ERR G EXIT
- I '$D(^TMP("DGBT",$J,"ADD")) S ^XMB(3.9,XMZ,2,1,0)="No problems found with Additional Information fields in BENEFICIARY TRAVEL DISTANCE File (#392.1).",^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- I $D(^TMP("DGBT",$J,"ADD")) D
- . S ^XMB(3.9,XMZ,2,1,0)="These cities have their additional information field",^XMB(3.9,XMZ,2,2,0)="set and will need the remarks field completed in the new data file."
- . F L=1:1:RCNT S ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$J,"ADD",L),^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- D SETUP G EXIT
- ZIP ; message builder for missing zipcodes
- S XMSUB="BENEFICIARY TRAVEL POST-INIT, INCOMPLETE ZIP CODE INFORMATION",XMDUZ="BENEFICIARY TRAVEL POST-INIT" D XMZ^XMA2 I XMZ<1 D ERR G EXIT
- I '$D(^TMP("DGBT",$J,"ZIP")) S ^XMB(3.9,XMZ,2,1,0)="No problems found with missing zip codes in BENEFICIARY TRAVEL DISTANCE File (#392.1).",^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- I $D(^TMP("DGBT",$J,"ZIP")) D
- . S ^XMB(3.9,XMZ,2,1,0)="These cities are missing Zip Code information and should be corrected.",^XMB(3.9,XMZ,2,2,0)=""
- . F L=1:1:ZCNT S ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$J,"ZIP",L),^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- D SETUP G EXIT
- MILES ; message builder for cities with a 0 default mileage
- S XMSUB="BENEFICIARY TRAVEL POST-INIT, CITIES WITH NO DEFAULT MILEAGE",XMDUZ="BENEFICIARY TRAVEL POST-INIT" D XMZ^XMA2 I XMZ<1 D ERR G EXIT
- I '$D(^TMP("DGBT",$J,"MILES")) S ^XMB(3.9,XMZ,2,1,0)="No problems with missing default mileage values in BENEFICIARY TRAVEL DISTANCE File (#392.1).",^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- I $D(^TMP("DGBT",$J,"MILES")) D
- . S ^XMB(3.9,XMZ,2,1,0)="These cities are missing their default mileage value and should be corrected.",^XMB(3.9,XMZ,2,2,0)=""
- . F L=1:1:MCNT S ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$J,"MILES",L),^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- D SETUP G EXIT
- EXIT ;
- K L,XMDUN,XMDUZ,XMSUB,XMY,XMZ
- Q
- ERR ; error message for error in creating mail message
- W !!?10,"THERE WAS A PROBLEM IN SETTING UP THE MESSAGE, EXITING..."
- Q
- SETUP ;
- S XMDUN="",XMY(DUZ)="" D ENT1^XMD
- Q
- DGV53PTC ;ALB/SCK - POST INIT CONVERSION MESSAGE BUILDER FOR POST INIT ROUTINE;4/19/23
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- START ;
- +1 QUIT
- RMK ; message builder of cities with add'l information field set
- +1 SET XMSUB="BENEFICIARY TRAVEL POST-INIT, ADD'L REMARKS FIELD'S"
- SET XMDUZ="BENEFICIARY TRAVEL POST-INIT"
- DO XMZ^XMA2
- IF XMZ<1
- DO ERR
- GOTO EXIT
- +2 IF '$DATA(^TMP("DGBT",$JOB,"ADD"))
- SET ^XMB(3.9,XMZ,2,1,0)="No problems found with Additional Information fields in BENEFICIARY TRAVEL DISTANCE File (#392.1)."
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- +3 IF $DATA(^TMP("DGBT",$JOB,"ADD"))
- Begin DoDot:1
- +4 SET ^XMB(3.9,XMZ,2,1,0)="These cities have their additional information field"
- SET ^XMB(3.9,XMZ,2,2,0)="set and will need the remarks field completed in the new data file."
- +5 FOR L=1:1:RCNT
- SET ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$JOB,"ADD",L)
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- End DoDot:1
- +6 DO SETUP
- GOTO EXIT
- ZIP ; message builder for missing zipcodes
- +1 SET XMSUB="BENEFICIARY TRAVEL POST-INIT, INCOMPLETE ZIP CODE INFORMATION"
- SET XMDUZ="BENEFICIARY TRAVEL POST-INIT"
- DO XMZ^XMA2
- IF XMZ<1
- DO ERR
- GOTO EXIT
- +2 IF '$DATA(^TMP("DGBT",$JOB,"ZIP"))
- SET ^XMB(3.9,XMZ,2,1,0)="No problems found with missing zip codes in BENEFICIARY TRAVEL DISTANCE File (#392.1)."
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- +3 IF $DATA(^TMP("DGBT",$JOB,"ZIP"))
- Begin DoDot:1
- +4 SET ^XMB(3.9,XMZ,2,1,0)="These cities are missing Zip Code information and should be corrected."
- SET ^XMB(3.9,XMZ,2,2,0)=""
- +5 FOR L=1:1:ZCNT
- SET ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$JOB,"ZIP",L)
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- End DoDot:1
- +6 DO SETUP
- GOTO EXIT
- MILES ; message builder for cities with a 0 default mileage
- +1 SET XMSUB="BENEFICIARY TRAVEL POST-INIT, CITIES WITH NO DEFAULT MILEAGE"
- SET XMDUZ="BENEFICIARY TRAVEL POST-INIT"
- DO XMZ^XMA2
- IF XMZ<1
- DO ERR
- GOTO EXIT
- +2 IF '$DATA(^TMP("DGBT",$JOB,"MILES"))
- SET ^XMB(3.9,XMZ,2,1,0)="No problems with missing default mileage values in BENEFICIARY TRAVEL DISTANCE File (#392.1)."
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^1^1^"_DT
- +3 IF $DATA(^TMP("DGBT",$JOB,"MILES"))
- Begin DoDot:1
- +4 SET ^XMB(3.9,XMZ,2,1,0)="These cities are missing their default mileage value and should be corrected."
- SET ^XMB(3.9,XMZ,2,2,0)=""
- +5 FOR L=1:1:MCNT
- SET ^XMB(3.9,XMZ,2,L+2,0)=^TMP("DGBT",$JOB,"MILES",L)
- SET ^XMB(3.9,XMZ,2,0)="^3.92A^"_L+2_"^"_L+2_"^"_DT
- End DoDot:1
- +6 DO SETUP
- GOTO EXIT
- EXIT ;
- +1 KILL L,XMDUN,XMDUZ,XMSUB,XMY,XMZ
- +2 QUIT
- ERR ; error message for error in creating mail message
- +1 WRITE !!?10,"THERE WAS A PROBLEM IN SETTING UP THE MESSAGE, EXITING..."
- +2 QUIT
- SETUP ;
- +1 SET XMDUN=""
- SET XMY(DUZ)=""
- DO ENT1^XMD
- +2 QUIT