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
