DGBTCDSP ;;ALB/BLD - BENEFICIARY TRAVEL CLAIM DISPLAY - SPECIAL MODE;02/03/2012
;;1.0;Beneficiary Travel;**20,21,22,28**;September 25, 2001;Build 12
Q
SCREEN ;this will display the information screen at the end of a claim
N TOSTATE,DPSTATE,Z,INFOLINE
S:$G(INFOLINE)="" INFOLINE=1
S:$G(DGBTDT)="" DGBTDT=$G(DGBTDTI)
I $D(DGBTSP)'>1 D BLDARRY(.DGBTSP)
S DGBTVAR(0)=^DGBT(392,DGBTDT,0)
S DPSTATE=$O(^DIC(5,"B",DGBTSP("STATE OF DEPARTURE"),"")),DPSTATE=$P(^DIC(5,DPSTATE,0),"^",2)
S TOSTATE=$O(^DIC(5,"B",DGBTINST("STATE"),"")),TOSTATE=$P(^DIC(5,TOSTATE,0),"^",2)
S DGBTACCT=$S($D(DGBTSP("ACCOUNT")):DGBTSP("ACCOUNT"),1:0)
I DGBTACCT=0 W !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!" G QUIT^DGBTEND
W @IOF
W !?18,"Beneficiary Travel Claim Information <Display>"
W !!,?2,"Claim Date: ",$S($G(DGBTDTE)'="":DGBTDTE,1:VADATE("E")) W:$G(DGBTINST("DIVISION"))'="" ?40,"Division: ",$G(DGBTINST("DIVISION"))
D PID^VADPT6
W !!,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
S (DGBTFCTY,DGBTTCTY)=""
FROM W !!," Depart From: ",$G(DGBTSP("PLACE OF DEPARTURE"))
W ?46,"To: ",$G(DGBTINST("INST NAME"))
W !?14,DGBTSP("CITY OF DEPARTURE")_", "_DPSTATE_" "_DGBTSP("ZIP CODE/DEPARTURE")
I $G(DGBTINST("ADDRESS1"))'="" W ?50,DGBTINST("ADDRESS1")
W !,?50,$G(DGBTINST("CITY"))_", "_TOSTATE_" "_$G(DGBTINST("ZIP CODE"))
;
ELIG W !!,"Eligibility: " W:$P(DGBTVAR(0),U,3) $P(^DIC(8,$P(DGBTVAR(0),U,3),0),U) W ?45,"SC%: ",$S($P(DGBTVAR(0),U,4)="":0,1:$P(DGBTVAR(0),U,4))
;
ACCT W !!,"Account: ",$G(DGBTSP("ACCOUNT"))
;question added for DG*1.0*20 E18
W !!,"Mode/Trans: ",$G(DGBTSP("MODE OF TRANS"))
;
W ?45,"One Way/Round Trip: "
S X=$S($G(DGBTSP("RT/ONE WAY"))="R":"ROUND TRIP",1:"ONE WAY") W ?67,$J(X,11)
;
W !,"Carrier: ",$$GET1^DIQ(392,DGBTDT_",",71) ;dbe patch DGBT*1*22 - modified to use vendor ien
;
W ?45,"Total Miles Traveled: "
S X=$G(DGBTSP("TOTAL MILES")),X2="2S" D COMMA^%DTC W ?67,X
;
W !,"Invoice: ",$G(DGBTSP("INVOICE NUMBER"))
;
W ?45,"Base Rate Fee: "
S X=$G(DGBTSP("BASE RATE FEE")),X2="2$" D COMMA^%DTC W ?67,X
;
W !,"Date Received: ",$G(DGBTSP("DT INVOICE REC"))
;
W ?45,"Mileage Fee: "
S X=$G(DGBTSP("MILEAGE FEE")),X2="2$" D COMMA^%DTC W ?67,X
;
W !,"Pre-Authorized: ",$G(DGBTSP("PRE-AUTHORIZED"))
;
W ?45,"No-Show/No Load Fee: "
S X=$G(DGBTSP("NO SHOW")),X2="2$" D COMMA^%DTC W ?67,X
;
S PAYMENT=$$GET1^DIQ(392,DGBTDT,85)
W !,"Payment: ",$S($G(PAYMENT)="YES":"APPROVED",$G(DGBTSP("AUTHORIZED"))="YES":"APPROVED",1:"DENIED")
;
W ?45,"Wait Time Fee: "
S X=$G(DGBTSP("WAIT TIME")),X2="2$" D COMMA^%DTC W ?67,X
;
;;changing auth. person to field 12 of file 392 - dbe patch DGBT*1*21
W !,"Auth. Person: ",$$GET1^DIQ(392,DGBTDT_",",12)
;
W ?45,"Extra Crew Fee: "
S X=$G(DGBTSP("EXTRA CREW")),X2="2$" D COMMA^%DTC W ?67,X
;
W ! ;,"Reason for Denial: " ;part of E11 will be added at that time
;
W ?45,"Equipment Fee: "
S X=$G(DGBTSP("SP EQUIP")),X2="2$" D COMMA^%DTC W ?67,X
;
W !,?45,"Total Invoice Amount: "
S X=$G(DGBTSP("TOTAL INVOICE")),X2="2$" D COMMA^%DTC W ?67,X
;
W !!,"Remarks: ",$G(DGBTSP("SP MODE OTHER REMARKS"))
;
I INFOLINE D END Q
;R !!,"PRESS RETURN TO CONTINUE: ",X
I 'INFOLINE K DGBTSP,DGBTCMTY ;D QUIT^DGBTEND,DISPLAY^DGBTR Q
;D DISPLAY^DGBTR
Q
;
BLDARRY(DGBTSP) ;
K DGBTSP
S DGBTSP("ACCOUNT")=$$GET1^DIQ(392,DGBTDT_",",6)
;
S DGBTSP("CLAIM TYPE")=$$GET1^DIQ(392,DGBTDT_",",56)
S DGBTSP("MODE OF TRANS")=$$GET1^DIQ(392,DGBTDT_",",57)
S DGBTSP("INVOICE NUMBER")=$$GET1^DIQ(392,DGBTDT_",",58)
S DGBTSP("DT INVOICE REC")=$$GET1^DIQ(392,DGBTDT_",",59)
S DGBTSP("TOTAL INVOICE")=$$GET1^DIQ(392,DGBTDT_",",60)
S DGBTSP("BASE RATE FEE")=$$GET1^DIQ(392,DGBTDT_",",61)
S DGBTSP("MILEAGE FEE")=$$GET1^DIQ(392,DGBTDT_",",62)
S DGBTSP("NO SHOW")=$$GET1^DIQ(392,DGBTDT_",",63)
S DGBTSP("WAIT TIME")=$$GET1^DIQ(392,DGBTDT_",",64)
S DGBTSP("EXTRA CREW")=$$GET1^DIQ(392,DGBTDT_",",65)
S DGBTSP("SP EQUIP")=$$GET1^DIQ(392,DGBTDT_",",66)
S DGBTSP("RT/ONE WAY")=$$GET1^DIQ(392,DGBTDT_",",67,"I") ;*28 modified to use internal value
S DGBTSP("TOTAL MILES")=$$GET1^DIQ(392,DGBTDT_",",68)
S DGBTSP("OTHER TRANS REMARKS")=$$GET1^DIQ(392,DGBTDT_",",69)
S DGBTSP("PRE-AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",70)
;S DGBTSP("VENDOR")=$$GET1^DIQ(392,DGBTDT_",",71)
S DGBTSP("SP MODE OTHER REMARKS")=$$GET1^DIQ(392,DGBTDT_",",72)
S DGBTSP("PLACE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",73)
;
S DGBTSP("PLACE OF DEPATURE 2")=$$GET1^DIQ(392,DGBTDT_",",74)
S DGBTSP("CITY OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",75)
S DGBTSP("STATE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",76)
S DGBTSP("ZIP CODE/DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",77)
;
S DGBTINST("DIVISION")=$$GET1^DIQ(392,DGBTDT_",",78)
S DGBTINST("INST NAME")=$$GET1^DIQ(392,DGBTDT_",",79)
S DGBTINST("ADDRESS1")=$$GET1^DIQ(392,DGBTDT_",",80)
S DGBTINST("CITY")=$$GET1^DIQ(392,DGBTDT_",",81)
S DGBTINST("STATE")=$$GET1^DIQ(392,DGBTDT_",",82)
S DGBTINST("ZIP CODE")=$$GET1^DIQ(392,DGBTDT_",",83)
;
S DGBTSP("SP MODE CLAIM AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",85)
S DGBTSP("DATE/TIME AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",86)
;
I $G(DGBTSP("AUTHORIZED"))="Y" D
.S DGBTSP("AUTHORIZED PERSON")=$$GET1^DIQ(392,DGBTDT_",",84)
S INFOLINE=0
Q
;
END ;display menu prompt at bottom of screen
;dbe patch DGBT*1*22 - added variable DGBTSPFG to replace DGANS as the exit flag when returning to the select patient prompt
N PROMPT,DGBTSPFG
K DGANS
S SPCOMPLETE=0
F Q:$G(DGANS)="Q"!($D(DIRUT)) D Q:$G(DGBTSPFG)!($D(DIRUT))!('$D(DGBTSP))
.S Z="^INFORMATION^DISPLAY^EDIT",PROMPT="<I>nformation, <D>isplay claim, <E>dit claim,"
.S DIR("A")=PROMPT_" or <Q>uit ",DIR("B")="Quit",DIR("?")="^D HELP^DGBTEND",DIR(0)="SA^Q:Quit;I:Information;D:Display;E:Edit;P:Print"
.D ^DIR K DIR S DGANS=Y
.S DGBTX1=$S(DGANS="I":"SCREEN^DGBTE",DGANS="D":"SCREEN^DGBTCDSP",DGANS="E":"SPMODE^DGBTE",DGANS="Q":"PATIENT^DGBTE",1:"QUIT^DGBTEND")
.I $G(DGBTX1)]""&($G(DGANS)="Q") K DGANS S DGBTSPFG=1 G @DGBTX1 ;dbe patch DGBT*1*22 - modified to correctly return to select patient prompt
.I $G(DGBTX1)]""&($G(DGANS)'="Q") D @DGBTX1
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTCDSP 6274 printed Apr 09, 2024@20:45:34 Page 2
DGBTCDSP ;;ALB/BLD - BENEFICIARY TRAVEL CLAIM DISPLAY - SPECIAL MODE;02/03/2012
+1 ;;1.0;Beneficiary Travel;**20,21,22,28**;September 25, 2001;Build 12
+2 QUIT
SCREEN ;this will display the information screen at the end of a claim
+1 NEW TOSTATE,DPSTATE,Z,INFOLINE
+2 if $GET(INFOLINE)=""
SET INFOLINE=1
+3 if $GET(DGBTDT)=""
SET DGBTDT=$GET(DGBTDTI)
+4 IF $DATA(DGBTSP)'>1
DO BLDARRY(.DGBTSP)
+5 SET DGBTVAR(0)=^DGBT(392,DGBTDT,0)
+6 SET DPSTATE=$ORDER(^DIC(5,"B",DGBTSP("STATE OF DEPARTURE"),""))
SET DPSTATE=$PIECE(^DIC(5,DPSTATE,0),"^",2)
+7 SET TOSTATE=$ORDER(^DIC(5,"B",DGBTINST("STATE"),""))
SET TOSTATE=$PIECE(^DIC(5,TOSTATE,0),"^",2)
+8 SET DGBTACCT=$SELECT($DATA(DGBTSP("ACCOUNT")):DGBTSP("ACCOUNT"),1:0)
+9 IF DGBTACCT=0
WRITE !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!"
GOTO QUIT^DGBTEND
+10 WRITE @IOF
+11 WRITE !?18,"Beneficiary Travel Claim Information <Display>"
+12 WRITE !!,?2,"Claim Date: ",$SELECT($GET(DGBTDTE)'="":DGBTDTE,1:VADATE("E"))
if $GET(DGBTINST("DIVISION"))'=""
WRITE ?40,"Division: ",$GET(DGBTINST("DIVISION"))
+13 DO PID^VADPT6
+14 WRITE !!,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$PIECE(VADM(3),U,2)
+15 SET (DGBTFCTY,DGBTTCTY)=""
FROM WRITE !!," Depart From: ",$GET(DGBTSP("PLACE OF DEPARTURE"))
+1 WRITE ?46,"To: ",$GET(DGBTINST("INST NAME"))
+2 WRITE !?14,DGBTSP("CITY OF DEPARTURE")_", "_DPSTATE_" "_DGBTSP("ZIP CODE/DEPARTURE")
+3 IF $GET(DGBTINST("ADDRESS1"))'=""
WRITE ?50,DGBTINST("ADDRESS1")
+4 WRITE !,?50,$GET(DGBTINST("CITY"))_", "_TOSTATE_" "_$GET(DGBTINST("ZIP CODE"))
+5 ;
ELIG WRITE !!,"Eligibility: "
if $PIECE(DGBTVAR(0),U,3)
WRITE $PIECE(^DIC(8,$PIECE(DGBTVAR(0),U,3),0),U)
WRITE ?45,"SC%: ",$SELECT($PIECE(DGBTVAR(0),U,4)="":0,1:$PIECE(DGBTVAR(0),U,4))
+1 ;
ACCT WRITE !!,"Account: ",$GET(DGBTSP("ACCOUNT"))
+1 ;question added for DG*1.0*20 E18
+2 WRITE !!,"Mode/Trans: ",$GET(DGBTSP("MODE OF TRANS"))
+3 ;
+4 WRITE ?45,"One Way/Round Trip: "
+5 SET X=$SELECT($GET(DGBTSP("RT/ONE WAY"))="R":"ROUND TRIP",1:"ONE WAY")
WRITE ?67,$JUSTIFY(X,11)
+6 ;
+7 ;dbe patch DGBT*1*22 - modified to use vendor ien
WRITE !,"Carrier: ",$$GET1^DIQ(392,DGBTDT_",",71)
+8 ;
+9 WRITE ?45,"Total Miles Traveled: "
+10 SET X=$GET(DGBTSP("TOTAL MILES"))
SET X2="2S"
DO COMMA^%DTC
WRITE ?67,X
+11 ;
+12 WRITE !,"Invoice: ",$GET(DGBTSP("INVOICE NUMBER"))
+13 ;
+14 WRITE ?45,"Base Rate Fee: "
+15 SET X=$GET(DGBTSP("BASE RATE FEE"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+16 ;
+17 WRITE !,"Date Received: ",$GET(DGBTSP("DT INVOICE REC"))
+18 ;
+19 WRITE ?45,"Mileage Fee: "
+20 SET X=$GET(DGBTSP("MILEAGE FEE"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+21 ;
+22 WRITE !,"Pre-Authorized: ",$GET(DGBTSP("PRE-AUTHORIZED"))
+23 ;
+24 WRITE ?45,"No-Show/No Load Fee: "
+25 SET X=$GET(DGBTSP("NO SHOW"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+26 ;
+27 SET PAYMENT=$$GET1^DIQ(392,DGBTDT,85)
+28 WRITE !,"Payment: ",$SELECT($GET(PAYMENT)="YES":"APPROVED",$GET(DGBTSP("AUTHORIZED"))="YES":"APPROVED",1:"DENIED")
+29 ;
+30 WRITE ?45,"Wait Time Fee: "
+31 SET X=$GET(DGBTSP("WAIT TIME"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+32 ;
+33 ;;changing auth. person to field 12 of file 392 - dbe patch DGBT*1*21
+34 WRITE !,"Auth. Person: ",$$GET1^DIQ(392,DGBTDT_",",12)
+35 ;
+36 WRITE ?45,"Extra Crew Fee: "
+37 SET X=$GET(DGBTSP("EXTRA CREW"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+38 ;
+39 ;,"Reason for Denial: " ;part of E11 will be added at that time
WRITE !
+40 ;
+41 WRITE ?45,"Equipment Fee: "
+42 SET X=$GET(DGBTSP("SP EQUIP"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+43 ;
+44 WRITE !,?45,"Total Invoice Amount: "
+45 SET X=$GET(DGBTSP("TOTAL INVOICE"))
SET X2="2$"
DO COMMA^%DTC
WRITE ?67,X
+46 ;
+47 WRITE !!,"Remarks: ",$GET(DGBTSP("SP MODE OTHER REMARKS"))
+48 ;
+49 IF INFOLINE
DO END
QUIT
+50 ;R !!,"PRESS RETURN TO CONTINUE: ",X
+51 ;D QUIT^DGBTEND,DISPLAY^DGBTR Q
IF 'INFOLINE
KILL DGBTSP,DGBTCMTY
+52 ;D DISPLAY^DGBTR
+53 QUIT
+54 ;
BLDARRY(DGBTSP) ;
+1 KILL DGBTSP
+2 SET DGBTSP("ACCOUNT")=$$GET1^DIQ(392,DGBTDT_",",6)
+3 ;
+4 SET DGBTSP("CLAIM TYPE")=$$GET1^DIQ(392,DGBTDT_",",56)
+5 SET DGBTSP("MODE OF TRANS")=$$GET1^DIQ(392,DGBTDT_",",57)
+6 SET DGBTSP("INVOICE NUMBER")=$$GET1^DIQ(392,DGBTDT_",",58)
+7 SET DGBTSP("DT INVOICE REC")=$$GET1^DIQ(392,DGBTDT_",",59)
+8 SET DGBTSP("TOTAL INVOICE")=$$GET1^DIQ(392,DGBTDT_",",60)
+9 SET DGBTSP("BASE RATE FEE")=$$GET1^DIQ(392,DGBTDT_",",61)
+10 SET DGBTSP("MILEAGE FEE")=$$GET1^DIQ(392,DGBTDT_",",62)
+11 SET DGBTSP("NO SHOW")=$$GET1^DIQ(392,DGBTDT_",",63)
+12 SET DGBTSP("WAIT TIME")=$$GET1^DIQ(392,DGBTDT_",",64)
+13 SET DGBTSP("EXTRA CREW")=$$GET1^DIQ(392,DGBTDT_",",65)
+14 SET DGBTSP("SP EQUIP")=$$GET1^DIQ(392,DGBTDT_",",66)
+15 ;*28 modified to use internal value
SET DGBTSP("RT/ONE WAY")=$$GET1^DIQ(392,DGBTDT_",",67,"I")
+16 SET DGBTSP("TOTAL MILES")=$$GET1^DIQ(392,DGBTDT_",",68)
+17 SET DGBTSP("OTHER TRANS REMARKS")=$$GET1^DIQ(392,DGBTDT_",",69)
+18 SET DGBTSP("PRE-AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",70)
+19 ;S DGBTSP("VENDOR")=$$GET1^DIQ(392,DGBTDT_",",71)
+20 SET DGBTSP("SP MODE OTHER REMARKS")=$$GET1^DIQ(392,DGBTDT_",",72)
+21 SET DGBTSP("PLACE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",73)
+22 ;
+23 SET DGBTSP("PLACE OF DEPATURE 2")=$$GET1^DIQ(392,DGBTDT_",",74)
+24 SET DGBTSP("CITY OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",75)
+25 SET DGBTSP("STATE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",76)
+26 SET DGBTSP("ZIP CODE/DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",77)
+27 ;
+28 SET DGBTINST("DIVISION")=$$GET1^DIQ(392,DGBTDT_",",78)
+29 SET DGBTINST("INST NAME")=$$GET1^DIQ(392,DGBTDT_",",79)
+30 SET DGBTINST("ADDRESS1")=$$GET1^DIQ(392,DGBTDT_",",80)
+31 SET DGBTINST("CITY")=$$GET1^DIQ(392,DGBTDT_",",81)
+32 SET DGBTINST("STATE")=$$GET1^DIQ(392,DGBTDT_",",82)
+33 SET DGBTINST("ZIP CODE")=$$GET1^DIQ(392,DGBTDT_",",83)
+34 ;
+35 SET DGBTSP("SP MODE CLAIM AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",85)
+36 SET DGBTSP("DATE/TIME AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",86)
+37 ;
+38 IF $GET(DGBTSP("AUTHORIZED"))="Y"
Begin DoDot:1
+39 SET DGBTSP("AUTHORIZED PERSON")=$$GET1^DIQ(392,DGBTDT_",",84)
End DoDot:1
+40 SET INFOLINE=0
+41 QUIT
+42 ;
END ;display menu prompt at bottom of screen
+1 ;dbe patch DGBT*1*22 - added variable DGBTSPFG to replace DGANS as the exit flag when returning to the select patient prompt
+2 NEW PROMPT,DGBTSPFG
+3 KILL DGANS
+4 SET SPCOMPLETE=0
+5 FOR
if $GET(DGANS)="Q"!($DATA(DIRUT))
QUIT
Begin DoDot:1
+6 SET Z="^INFORMATION^DISPLAY^EDIT"
SET PROMPT="<I>nformation, <D>isplay claim, <E>dit claim,"
+7 SET DIR("A")=PROMPT_" or <Q>uit "
SET DIR("B")="Quit"
SET DIR("?")="^D HELP^DGBTEND"
SET DIR(0)="SA^Q:Quit;I:Information;D:Display;E:Edit;P:Print"
+8 DO ^DIR
KILL DIR
SET DGANS=Y
+9 SET DGBTX1=$SELECT(DGANS="I":"SCREEN^DGBTE",DGANS="D":"SCREEN^DGBTCDSP",DGANS="E":"SPMODE^DGBTE",DGANS="Q":"PATIENT^DGBTE",1:"QUIT^DGBTEND")
+10 ;dbe patch DGBT*1*22 - modified to correctly return to select patient prompt
IF $GET(DGBTX1)]""&($GET(DGANS)="Q")
KILL DGANS
SET DGBTSPFG=1
GOTO @DGBTX1
+11 IF $GET(DGBTX1)]""&($GET(DGANS)'="Q")
DO @DGBTX1
End DoDot:1
if $GET(DGBTSPFG)!($DATA(DIRUT))!('$DATA(DGBTSP))
QUIT
+12 QUIT
+13 ;
