Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGBTCDSP

DGBTCDSP.m

Go to the documentation of this file.
  1. 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
  1. Q
  1. SCREEN ;this will display the information screen at the end of a claim
  1. N TOSTATE,DPSTATE,Z,INFOLINE
  1. S:$G(INFOLINE)="" INFOLINE=1
  1. S:$G(DGBTDT)="" DGBTDT=$G(DGBTDTI)
  1. I $D(DGBTSP)'>1 D BLDARRY(.DGBTSP)
  1. S DGBTVAR(0)=^DGBT(392,DGBTDT,0)
  1. S DPSTATE=$O(^DIC(5,"B",DGBTSP("STATE OF DEPARTURE"),"")),DPSTATE=$P(^DIC(5,DPSTATE,0),"^",2)
  1. S TOSTATE=$O(^DIC(5,"B",DGBTINST("STATE"),"")),TOSTATE=$P(^DIC(5,TOSTATE,0),"^",2)
  1. S DGBTACCT=$S($D(DGBTSP("ACCOUNT")):DGBTSP("ACCOUNT"),1:0)
  1. I DGBTACCT=0 W !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!" G QUIT^DGBTEND
  1. W @IOF
  1. W !?18,"Beneficiary Travel Claim Information <Display>"
  1. W !!,?2,"Claim Date: ",$S($G(DGBTDTE)'="":DGBTDTE,1:VADATE("E")) W:$G(DGBTINST("DIVISION"))'="" ?40,"Division: ",$G(DGBTINST("DIVISION"))
  1. D PID^VADPT6
  1. W !!,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
  1. S (DGBTFCTY,DGBTTCTY)=""
  1. FROM W !!," Depart From: ",$G(DGBTSP("PLACE OF DEPARTURE"))
  1. W ?46,"To: ",$G(DGBTINST("INST NAME"))
  1. W !?14,DGBTSP("CITY OF DEPARTURE")_", "_DPSTATE_" "_DGBTSP("ZIP CODE/DEPARTURE")
  1. I $G(DGBTINST("ADDRESS1"))'="" W ?50,DGBTINST("ADDRESS1")
  1. W !,?50,$G(DGBTINST("CITY"))_", "_TOSTATE_" "_$G(DGBTINST("ZIP CODE"))
  1. ;
  1. 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))
  1. ;
  1. ACCT W !!,"Account: ",$G(DGBTSP("ACCOUNT"))
  1. ;question added for DG*1.0*20 E18
  1. W !!,"Mode/Trans: ",$G(DGBTSP("MODE OF TRANS"))
  1. ;
  1. W ?45,"One Way/Round Trip: "
  1. S X=$S($G(DGBTSP("RT/ONE WAY"))="R":"ROUND TRIP",1:"ONE WAY") W ?67,$J(X,11)
  1. ;
  1. W !,"Carrier: ",$$GET1^DIQ(392,DGBTDT_",",71) ;dbe patch DGBT*1*22 - modified to use vendor ien
  1. ;
  1. W ?45,"Total Miles Traveled: "
  1. S X=$G(DGBTSP("TOTAL MILES")),X2="2S" D COMMA^%DTC W ?67,X
  1. ;
  1. W !,"Invoice: ",$G(DGBTSP("INVOICE NUMBER"))
  1. ;
  1. W ?45,"Base Rate Fee: "
  1. S X=$G(DGBTSP("BASE RATE FEE")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. W !,"Date Received: ",$G(DGBTSP("DT INVOICE REC"))
  1. ;
  1. W ?45,"Mileage Fee: "
  1. S X=$G(DGBTSP("MILEAGE FEE")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. W !,"Pre-Authorized: ",$G(DGBTSP("PRE-AUTHORIZED"))
  1. ;
  1. W ?45,"No-Show/No Load Fee: "
  1. S X=$G(DGBTSP("NO SHOW")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. S PAYMENT=$$GET1^DIQ(392,DGBTDT,85)
  1. W !,"Payment: ",$S($G(PAYMENT)="YES":"APPROVED",$G(DGBTSP("AUTHORIZED"))="YES":"APPROVED",1:"DENIED")
  1. ;
  1. W ?45,"Wait Time Fee: "
  1. S X=$G(DGBTSP("WAIT TIME")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. ;;changing auth. person to field 12 of file 392 - dbe patch DGBT*1*21
  1. W !,"Auth. Person: ",$$GET1^DIQ(392,DGBTDT_",",12)
  1. ;
  1. W ?45,"Extra Crew Fee: "
  1. S X=$G(DGBTSP("EXTRA CREW")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. W ! ;,"Reason for Denial: " ;part of E11 will be added at that time
  1. ;
  1. W ?45,"Equipment Fee: "
  1. S X=$G(DGBTSP("SP EQUIP")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. W !,?45,"Total Invoice Amount: "
  1. S X=$G(DGBTSP("TOTAL INVOICE")),X2="2$" D COMMA^%DTC W ?67,X
  1. ;
  1. W !!,"Remarks: ",$G(DGBTSP("SP MODE OTHER REMARKS"))
  1. ;
  1. I INFOLINE D END Q
  1. ;R !!,"PRESS RETURN TO CONTINUE: ",X
  1. I 'INFOLINE K DGBTSP,DGBTCMTY ;D QUIT^DGBTEND,DISPLAY^DGBTR Q
  1. ;D DISPLAY^DGBTR
  1. Q
  1. ;
  1. BLDARRY(DGBTSP) ;
  1. K DGBTSP
  1. S DGBTSP("ACCOUNT")=$$GET1^DIQ(392,DGBTDT_",",6)
  1. ;
  1. S DGBTSP("CLAIM TYPE")=$$GET1^DIQ(392,DGBTDT_",",56)
  1. S DGBTSP("MODE OF TRANS")=$$GET1^DIQ(392,DGBTDT_",",57)
  1. S DGBTSP("INVOICE NUMBER")=$$GET1^DIQ(392,DGBTDT_",",58)
  1. S DGBTSP("DT INVOICE REC")=$$GET1^DIQ(392,DGBTDT_",",59)
  1. S DGBTSP("TOTAL INVOICE")=$$GET1^DIQ(392,DGBTDT_",",60)
  1. S DGBTSP("BASE RATE FEE")=$$GET1^DIQ(392,DGBTDT_",",61)
  1. S DGBTSP("MILEAGE FEE")=$$GET1^DIQ(392,DGBTDT_",",62)
  1. S DGBTSP("NO SHOW")=$$GET1^DIQ(392,DGBTDT_",",63)
  1. S DGBTSP("WAIT TIME")=$$GET1^DIQ(392,DGBTDT_",",64)
  1. S DGBTSP("EXTRA CREW")=$$GET1^DIQ(392,DGBTDT_",",65)
  1. S DGBTSP("SP EQUIP")=$$GET1^DIQ(392,DGBTDT_",",66)
  1. S DGBTSP("RT/ONE WAY")=$$GET1^DIQ(392,DGBTDT_",",67,"I") ;*28 modified to use internal value
  1. S DGBTSP("TOTAL MILES")=$$GET1^DIQ(392,DGBTDT_",",68)
  1. S DGBTSP("OTHER TRANS REMARKS")=$$GET1^DIQ(392,DGBTDT_",",69)
  1. S DGBTSP("PRE-AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",70)
  1. ;S DGBTSP("VENDOR")=$$GET1^DIQ(392,DGBTDT_",",71)
  1. S DGBTSP("SP MODE OTHER REMARKS")=$$GET1^DIQ(392,DGBTDT_",",72)
  1. S DGBTSP("PLACE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",73)
  1. ;
  1. S DGBTSP("PLACE OF DEPATURE 2")=$$GET1^DIQ(392,DGBTDT_",",74)
  1. S DGBTSP("CITY OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",75)
  1. S DGBTSP("STATE OF DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",76)
  1. S DGBTSP("ZIP CODE/DEPARTURE")=$$GET1^DIQ(392,DGBTDT_",",77)
  1. ;
  1. S DGBTINST("DIVISION")=$$GET1^DIQ(392,DGBTDT_",",78)
  1. S DGBTINST("INST NAME")=$$GET1^DIQ(392,DGBTDT_",",79)
  1. S DGBTINST("ADDRESS1")=$$GET1^DIQ(392,DGBTDT_",",80)
  1. S DGBTINST("CITY")=$$GET1^DIQ(392,DGBTDT_",",81)
  1. S DGBTINST("STATE")=$$GET1^DIQ(392,DGBTDT_",",82)
  1. S DGBTINST("ZIP CODE")=$$GET1^DIQ(392,DGBTDT_",",83)
  1. ;
  1. S DGBTSP("SP MODE CLAIM AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",85)
  1. S DGBTSP("DATE/TIME AUTHORIZED")=$$GET1^DIQ(392,DGBTDT_",",86)
  1. ;
  1. I $G(DGBTSP("AUTHORIZED"))="Y" D
  1. .S DGBTSP("AUTHORIZED PERSON")=$$GET1^DIQ(392,DGBTDT_",",84)
  1. S INFOLINE=0
  1. Q
  1. ;
  1. 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
  1. N PROMPT,DGBTSPFG
  1. K DGANS
  1. S SPCOMPLETE=0
  1. F Q:$G(DGANS)="Q"!($D(DIRUT)) D Q:$G(DGBTSPFG)!($D(DIRUT))!('$D(DGBTSP))
  1. .S Z="^INFORMATION^DISPLAY^EDIT",PROMPT="<I>nformation, <D>isplay claim, <E>dit claim,"
  1. .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"
  1. .D ^DIR K DIR S DGANS=Y
  1. .S DGBTX1=$S(DGANS="I":"SCREEN^DGBTE",DGANS="D":"SCREEN^DGBTCDSP",DGANS="E":"SPMODE^DGBTE",DGANS="Q":"PATIENT^DGBTE",1:"QUIT^DGBTEND")
  1. .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
  1. .I $G(DGBTX1)]""&($G(DGANS)'="Q") D @DGBTX1
  1. Q
  1. ;