- DGBTCD ;ALB/SCK - BENEFICIARY TRAVEL CLAIM DISPLAY; 12/15/92 4/14/93
- ;;5.3;Registration;**60,119,1015**;Aug 13, 1993;Build 21
- Q
- SCREEN Q:'$D(^DGBT(392,DGBTDT,0)) S U="^" K DGBTVAR F I=0,"A","D","M","R","T" S DGBTVAR(I)=$S($D(^DGBT(392,DGBTDT,I)):^(I),1:"")
- S DGBTACCT=$S($D(^DGBT(392.3,+$P(DGBTVAR(0),U,6),0)):$P($G(^(0)),U,5),1:0)
- I 'DGBTACCT W !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!" G QUIT
- W @IOF
- W !?18,"Beneficiary Travel Claim Information <Display>"
- W !!,?2,"Claim Date: ",DGBTDTE W:$P(DGBTVAR(0),U,11)'=""&($D(^DG(40.8,$P(DGBTVAR(0),U,11),0))) ?40,"Division: ",$P(^DG(40.8,$P(DGBTVAR(0),U,11),0),U)
- D PID^VADPT6 W !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
- S (DGBTFCTY,DGBTTCTY)=""
- I $P(DGBTVAR("D"),U,4)]"" S DGBTCNA=$P(DGBTVAR("D"),U,4) D CITY^DGBTCR I DGBTCSZ[DGBTCNA D
- . S DGBTCSZ=DGBTCNA_", "_$S(+$P(DGBTVAR("D"),U,5)>0:$P(^DIC(5,$P(DGBTVAR("D"),U,5),0),U,2),1:"")_" "
- . S Y=$P(DGBTVAR("D"),U,6),Y=$E(Y,1,5)_$S($E(Y,6,9)]"":"-"_$E(Y,6,9),1:"") S DGBTCSZ=DGBTCSZ_Y,DGBTFCTY=DGBTCSZ
- I $P(DGBTVAR("T"),U,4)]"" S DGBTCNA=$P(DGBTVAR("T"),U,4) D CITY^DGBTCR S:DGBTCSZ[DGBTCNA DGBTCSZ=DGBTCNA_", "_$S(+$P(DGBTVAR("T"),U,5)>0:$P(^DIC(5,$P(DGBTVAR("T"),U,5),0),U,2),1:"")_" "_$P(DGBTVAR("T"),U,6) S DGBTTCTY=DGBTCSZ
- FROM W !!," Depart From: ",$E($P(DGBTVAR("D"),U),1,30)
- W ?46,"To: ",$E($P(DGBTVAR("T"),U),1,30)
- W !?14 W:$P(DGBTVAR("D"),U,2)]"" $P(DGBTVAR("D"),U,2) W:$P(DGBTVAR("D"),U,2)="" $P(DGBTVAR("D"),U,3) W:$P(DGBTVAR("D"),U,2)=""&($P(DGBTVAR("D"),U,3)="") DGBTFCTY
- W ?50 W:$P(DGBTVAR("T"),U,2)]"" $P(DGBTVAR("T"),U,2) W:$P(DGBTVAR("T"),U,2)="" $P(DGBTVAR("T"),U,3) W:$P(DGBTVAR("T"),U,2)=""&($P(DGBTVAR("T"),U,3)="") DGBTTCTY
- W !?14 W:$P(DGBTVAR("D"),U,3)]"" $P(DGBTVAR("D"),U,3) W:$P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)="") DGBTFCTY
- W ?50 W:$P(DGBTVAR("T"),U,3)]"" $P(DGBTVAR("T"),U,3) W:$P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)="") DGBTTCTY
- W !?14 W:$P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)]"") DGBTFCTY
- W ?50 W:$P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)]"") DGBTTCTY
- ELIG W !!," Eligibility: " W:$P(DGBTVAR(0),U,3) $P(^DIC(8,$P(DGBTVAR(0),U,3),0),U) W:$P(DGBTVAR(0),U,4)]"" ?45,"SC%: ",$P(DGBTVAR(0),U,4)
- I $P(DGBTVAR(0),U,5) W ?57,"Cert. Date: " S VADAT("W")=9999999-$P($P(DGBTVAR(0),U,5),".") D ^VADATE W $P(VADATE("E"),"@") K VADAT,VADATE
- ACCT W !!?5,"Account: ",$S($P(DGBTVAR(0),U,6):$E($P(^DGBT(392.3,$P(DGBTVAR(0),U,6),0),U),1,15),1:"") W:$P(DGBTVAR("A"),U,3) ?31,"REVIEW VISIT"
- W ?51,"Most Econ. Cost: " S X=$P(DGBTVAR(0),U,8),X2="2$" D COMMA^%DTC W X
- ATT I DGBTACCT=4!(DGBTACCT=5) W !,"Attend/Payee: ",$S($D(DGBTVAR("A")):$P(DGBTVAR("A"),U,2),1:"")
- I DGBTACCT'=4&(DGBTACCT'=5) W !," Mode/Trans.: ",$S($P(DGBTVAR("A"),U,4):$P(^DGBT(392.4,$P(DGBTVAR("A"),U,4),0),U),1:"")
- I $D(^DG(43,1,"BT")) I $P(^DG(43,1,"BT"),U,2)=1 W ?51,"Meals & Lodging: " S X=$P(DGBTVAR("M"),U,4) D COMMA^%DTC W X
- I DGBTACCT=4!(DGBTACCT=5) W !,"One Way/"
- I DGBTACCT'=4&(DGBTACCT'=5) W !?5,"Carrier: ",$S($P(DGBTVAR(0),U,7):$P(^PRC(440,$P(DGBTVAR(0),U,7),0),U),1:"")
- I $D(^DG(43,1,"BT")) I $P(^DG(43,1,"BT"),U,2)=1 W ?46,"Ferry, Bridges, Etc.: " S X=$P(DGBTVAR("M"),U,5) D COMMA^%DTC W X
- I DGBTACCT=4!(DGBTACCT=5) W !?2,"Round Trip: ",$S($P(DGBTVAR("M"),U)=1:"ONE WAY",$P(DGBTVAR("M"),U)=2:"ROUND TRIP",1:"")
- I DGBTACCT'=4&(DGBTACCT'=5) W !,"Auth. Person: " I $P(DGBTVAR("A"),U) W $S($D(DGBTVAR("A"))&($D(^VA(200,$P(DGBTVAR("A"),U),0))):$P(^VA(200,$P(DGBTVAR("A"),U),0),U),1:"")
- I DGBTACCT=4!(DGBTACCT=5) W ?46,"Total Mileage Amount: " S X=$P(DGBTVAR("M"),U,3) D COMMA^%DTC W X
- I DGBTACCT=4!(DGBTACCT=5) W !,"Mileage/"
- DED W ?48,"Applied Deductible: " S X=$P(DGBTVAR(0),U,9) D COMMA^%DTC W X
- W ! W:DGBTACCT=4!(DGBTACCT=5) ?5,"One Way: ",$P(DGBTVAR("M"),U,2)_" MILES"
- W ?52,"Amount Payable: " S X=$P(DGBTVAR(0),U,10) D COMMA^%DTC W X
- QUIT K DGBTCNA,DGBTCSZ,DGBTFCTY,DGBTTCTY,DGBTCNA,DGBTDIV,VADAM,X,X2,I
- Q
- DGBTCD ;ALB/SCK - BENEFICIARY TRAVEL CLAIM DISPLAY; 12/15/92 4/14/93
- +1 ;;5.3;Registration;**60,119,1015**;Aug 13, 1993;Build 21
- +2 QUIT
- SCREEN IF '$DATA(^DGBT(392,DGBTDT,0))
- QUIT
- SET U="^"
- KILL DGBTVAR
- FOR I=0,"A","D","M","R","T"
- SET DGBTVAR(I)=$SELECT($DATA(^DGBT(392,DGBTDT,I)):^(I),1:"")
- +1 SET DGBTACCT=$SELECT($DATA(^DGBT(392.3,+$PIECE(DGBTVAR(0),U,6),0)):$PIECE($GET(^(0)),U,5),1:0)
- +2 IF 'DGBTACCT
- WRITE !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!"
- GOTO QUIT
- +3 WRITE @IOF
- +4 WRITE !?18,"Beneficiary Travel Claim Information <Display>"
- +5 WRITE !!,?2,"Claim Date: ",DGBTDTE
- IF $PIECE(DGBTVAR(0),U,11)'=""&($DATA(^DG(40.8,$PIECE(DGBTVAR(0),U,11),0)))
- WRITE ?40,"Division: ",$PIECE(^DG(40.8,$PIECE(DGBTVAR(0),U,11),0),U)
- +6 DO PID^VADPT6
- WRITE !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$PIECE(VADM(3),U,2)
- +7 SET (DGBTFCTY,DGBTTCTY)=""
- +8 IF $PIECE(DGBTVAR("D"),U,4)]""
- SET DGBTCNA=$PIECE(DGBTVAR("D"),U,4)
- DO CITY^DGBTCR
- IF DGBTCSZ[DGBTCNA
- Begin DoDot:1
- +9 SET DGBTCSZ=DGBTCNA_", "_$SELECT(+$PIECE(DGBTVAR("D"),U,5)>0:$PIECE(^DIC(5,$PIECE(DGBTVAR("D"),U,5),0),U,2),1:"")_" "
- +10 SET Y=$PIECE(DGBTVAR("D"),U,6)
- SET Y=$EXTRACT(Y,1,5)_$SELECT($EXTRACT(Y,6,9)]"":"-"_$EXTRACT(Y,6,9),1:"")
- SET DGBTCSZ=DGBTCSZ_Y
- SET DGBTFCTY=DGBTCSZ
- End DoDot:1
- +11 IF $PIECE(DGBTVAR("T"),U,4)]""
- SET DGBTCNA=$PIECE(DGBTVAR("T"),U,4)
- DO CITY^DGBTCR
- IF DGBTCSZ[DGBTCNA
- SET DGBTCSZ=DGBTCNA_", "_$SELECT(+$PIECE(DGBTVAR("T"),U,5)>0:$PIECE(^DIC(5,$PIECE(DGBTVAR("T"),U,5),0),U,2),1:"")_" "_$PIECE(DGBTVAR("T"),U,6)
- SET DGBTTCTY=DGBTCSZ
- FROM WRITE !!," Depart From: ",$EXTRACT($PIECE(DGBTVAR("D"),U),1,30)
- +1 WRITE ?46,"To: ",$EXTRACT($PIECE(DGBTVAR("T"),U),1,30)
- +2 WRITE !?14
- IF $PIECE(DGBTVAR("D"),U,2)]""
- WRITE $PIECE(DGBTVAR("D"),U,2)
- IF $PIECE(DGBTVAR("D"),U,2)=""
- WRITE $PIECE(DGBTVAR("D"),U,3)
- IF $PIECE(DGBTVAR("D"),U,2)=""&($PIECE(DGBTVAR("D"),U,3)="")
- WRITE DGBTFCTY
- +3 WRITE ?50
- IF $PIECE(DGBTVAR("T"),U,2)]""
- WRITE $PIECE(DGBTVAR("T"),U,2)
- IF $PIECE(DGBTVAR("T"),U,2)=""
- WRITE $PIECE(DGBTVAR("T"),U,3)
- IF $PIECE(DGBTVAR("T"),U,2)=""&($PIECE(DGBTVAR("T"),U,3)="")
- WRITE DGBTTCTY
- +4 WRITE !?14
- IF $PIECE(DGBTVAR("D"),U,3)]""
- WRITE $PIECE(DGBTVAR("D"),U,3)
- IF $PIECE(DGBTVAR("D"),U,2)]""&($PIECE(DGBTVAR("D"),U,3)="")
- WRITE DGBTFCTY
- +5 WRITE ?50
- IF $PIECE(DGBTVAR("T"),U,3)]""
- WRITE $PIECE(DGBTVAR("T"),U,3)
- IF $PIECE(DGBTVAR("T"),U,2)]""&($PIECE(DGBTVAR("T"),U,3)="")
- WRITE DGBTTCTY
- +6 WRITE !?14
- IF $PIECE(DGBTVAR("D"),U,2)]""&($PIECE(DGBTVAR("D"),U,3)]"")
- WRITE DGBTFCTY
- +7 WRITE ?50
- IF $PIECE(DGBTVAR("T"),U,2)]""&($PIECE(DGBTVAR("T"),U,3)]"")
- WRITE DGBTTCTY
- ELIG WRITE !!," Eligibility: "
- IF $PIECE(DGBTVAR(0),U,3)
- WRITE $PIECE(^DIC(8,$PIECE(DGBTVAR(0),U,3),0),U)
- IF $PIECE(DGBTVAR(0),U,4)]""
- WRITE ?45,"SC%: ",$PIECE(DGBTVAR(0),U,4)
- +1 IF $PIECE(DGBTVAR(0),U,5)
- WRITE ?57,"Cert. Date: "
- SET VADAT("W")=9999999-$PIECE($PIECE(DGBTVAR(0),U,5),".")
- DO ^VADATE
- WRITE $PIECE(VADATE("E"),"@")
- KILL VADAT,VADATE
- ACCT WRITE !!?5,"Account: ",$SELECT($PIECE(DGBTVAR(0),U,6):$EXTRACT($PIECE(^DGBT(392.3,$PIECE(DGBTVAR(0),U,6),0),U),1,15),1:"")
- IF $PIECE(DGBTVAR("A"),U,3)
- WRITE ?31,"REVIEW VISIT"
- +1 WRITE ?51,"Most Econ. Cost: "
- SET X=$PIECE(DGBTVAR(0),U,8)
- SET X2="2$"
- DO COMMA^%DTC
- WRITE X
- ATT IF DGBTACCT=4!(DGBTACCT=5)
- WRITE !,"Attend/Payee: ",$SELECT($DATA(DGBTVAR("A")):$PIECE(DGBTVAR("A"),U,2),1:"")
- +1 IF DGBTACCT'=4&(DGBTACCT'=5)
- WRITE !," Mode/Trans.: ",$SELECT($PIECE(DGBTVAR("A"),U,4):$PIECE(^DGBT(392.4,$PIECE(DGBTVAR("A"),U,4),0),U),1:"")
- +2 IF $DATA(^DG(43,1,"BT"))
- IF $PIECE(^DG(43,1,"BT"),U,2)=1
- WRITE ?51,"Meals & Lodging: "
- SET X=$PIECE(DGBTVAR("M"),U,4)
- DO COMMA^%DTC
- WRITE X
- +3 IF DGBTACCT=4!(DGBTACCT=5)
- WRITE !,"One Way/"
- +4 IF DGBTACCT'=4&(DGBTACCT'=5)
- WRITE !?5,"Carrier: ",$SELECT($PIECE(DGBTVAR(0),U,7):$PIECE(^PRC(440,$PIECE(DGBTVAR(0),U,7),0),U),1:"")
- +5 IF $DATA(^DG(43,1,"BT"))
- IF $PIECE(^DG(43,1,"BT"),U,2)=1
- WRITE ?46,"Ferry, Bridges, Etc.: "
- SET X=$PIECE(DGBTVAR("M"),U,5)
- DO COMMA^%DTC
- WRITE X
- +6 IF DGBTACCT=4!(DGBTACCT=5)
- WRITE !?2,"Round Trip: ",$SELECT($PIECE(DGBTVAR("M"),U)=1:"ONE WAY",$PIECE(DGBTVAR("M"),U)=2:"ROUND TRIP",1:"")
- +7 IF DGBTACCT'=4&(DGBTACCT'=5)
- WRITE !,"Auth. Person: "
- IF $PIECE(DGBTVAR("A"),U)
- WRITE $SELECT($DATA(DGBTVAR("A"))&($DATA(^VA(200,$PIECE(DGBTVAR("A"),U),0))):$PIECE(^VA(200,$PIECE(DGBTVAR("A"),U),0),U),1:"")
- +8 IF DGBTACCT=4!(DGBTACCT=5)
- WRITE ?46,"Total Mileage Amount: "
- SET X=$PIECE(DGBTVAR("M"),U,3)
- DO COMMA^%DTC
- WRITE X
- +9 IF DGBTACCT=4!(DGBTACCT=5)
- WRITE !,"Mileage/"
- DED WRITE ?48,"Applied Deductible: "
- SET X=$PIECE(DGBTVAR(0),U,9)
- DO COMMA^%DTC
- WRITE X
- +1 WRITE !
- IF DGBTACCT=4!(DGBTACCT=5)
- WRITE ?5,"One Way: ",$PIECE(DGBTVAR("M"),U,2)_" MILES"
- +2 WRITE ?52,"Amount Payable: "
- SET X=$PIECE(DGBTVAR(0),U,10)
- DO COMMA^%DTC
- WRITE X
- QUIT KILL DGBTCNA,DGBTCSZ,DGBTFCTY,DGBTTCTY,DGBTCNA,DGBTDIV,VADAM,X,X2,I
- +1 QUIT
