- 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 Feb 18, 2025@23:06:49 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 ;