12. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/17/2018 8:06:35 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

12.1 Files compared

#	Location	File	Last Modified
1	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US1907+v1.00.docx	Sun Mar 11 20:11:07 2018 UTC
2	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US1907+v1.00.docx	Wed Apr 18 00:58:31 2018 UTC

12.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	1	920
Changed	0	0
Inserted	0	0
Removed	0	0

12.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

12.4 Active regular expressions

No regular expressions were active.

12.5 Comparison detail

	1	MCCF EDI T AS US1907
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	September 2017
	10	Version 1. 0
	11	User Story Number: U S1907
	12	User Story Name: Dat e Range in Change Vi ew In Addi tion to Nu mber of Da ys
	13	Product Ba cklog ID:
	14	Backlog Pr iority:
	15	Initial Si zing Estim ate:
	16	Rational I D: tbd
	17	Rally ID: US1907
	18	Epic Taxon omy: Updat e
	19
	20	Design – S ummary
	21	List of Co mponents:
	22	Routine: B PSSCRCV
	23	Routine: B PSSCRSL
	24	Routine: B PSSCR01
	25	Routine: B PSSCRU1
	26
	27	Design – D etail
	28	Add a new user promp t that wil l allow th e user to select to display ei ther an Ac tivity Dat e Range or Timeframe . If Acti vity Date Range was selected, prompt the user for Activity B eginning a nd Ending Date. Add new field s in order to store what the u ser entere d at the n ew prompts .
	29	Subroutine Name
	30	EDITPROF^B PSSCRCV
	31	Enhancemen t Category
	32	New
	33	Modify
	34	Delete
	35	No Change
	36	Story
	37	US1907
	38	Related Me nu Options or ListMa n Actions
	39	ECME User Screen
	40	Related Ro utines
	41	This Subro utine is C alled By
	42	This Subro utine Call s
	43
	44	CV^BPSSCRC V
	45	$$DS^BPSSC RDS, $$EDI TRX^BPSSCR PR, $$INSU RSEL^BPSSC RCU
	46	Related In tegration Control Re gistration s (ICRs)
	47
	48	Data Passi ng
	49	Parameter Input
	50	Parameter Output
	51	Function Return Val ue
	52	Global Mo dified
	53	Input Attr ibute Name and Defin ition
	54	Name: BPAR R
	55	Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR”
	56	New Modify Delete No Cha nge
	57	Name: BPDU Z7
	58	Definition : DUZ
	59	New Modify Delete No Cha nge
	60	Output Att ribute Nam e and Defi nition
	61	Name: BPAR R
	62	Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR”
	63	New Modify Delete No Cha nge
	64	Name: BPDU Z7
	65	Definition : DUZ
	66	New Modify Delete No Cha nge
	67	Current Lo gic
	68
	69	BPSSCRCV ; BHAM ISC/S S - ECME S CREEN CHAN GE VIEW ;0 5-APR-05 ; ;1.0;E CLA IMS MGMT E NGINE;1, 5,7,11,14, 20,22;JU N 2004;Bui ld 27 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;U SER SCREEN Q ;**** ; This softw are is usi ng PARAMET ER TOOLS ( see XT7.3 26) to st ore user's settings: ;PARAMETE R DEFINITI ON NAME="B PS USRSCR" (file #89 89.51, IA# 2263) ;EN TITY is "U SR" , i.e. IEN in ^V A(200 -- s ee definit ion for "B PS USRSCR" ;INSTANCE s are as f ollows: ;1 .01 ONE/AL L USERS -- 'U' ONE US ER, 'A' AL L; Display claims fo r ONE or A LL users ;1.02 ONE/ ALL PATIEN TS --'P' F OR ONE PAT IENT; 'A' FOR ALL; D isplay cla ims for ON E/ALL PATI ENTS ;1.0 3 ONE/ALL RX --'R' F OR ONE RX; 'A' FOR A LL; Displa y claims f or ONE or ALL RX
	70	;1.04 HOU RS/DAYS -- 'D' FOR D AYS; 'H' F OR HOURS; Use HOURS or DAYS to specify t imeframe ;1.05 TIME FRAME -- N UMBER Depe nds on the value of the field "USR SCR H OURS/DAYS" this fiel d will ;st ore the de fault numb er of HOUR S from NOW or DAYS f rom TODAY to select claims to display ; 1.06 REJEC TED/PAYABL E --'R' FO R REJECTS; 'P' FOR P AYABLES; ' U' FOR UNS TRANDED; ' A' FOR ALL ; Display Rejects or Payables or Unstran ded or ALL claims ; 1.07 RELEA SED/NOT RE LEASED --' R' FOR REL EASED; 'N' FOR NON-R ELEASED; ' A' FOR ALL ; Display Released R xs or Non- Released R xs or ALL ;1.08 CMO P/MAIL/WIN DOW --'C' FOR CMOP; 'M' FOR MA IL;'W' FOR WINDOW;'A ' FOR ALL; Display C MOP or Mai l or Windo w or ALL R xs ;1.09 REALTIME/B ACKBILL -- 'R' FOR RE ALTIME; 'B ' FOR BACK BILLS; 'P' FOR PRO O ption; 'S' FOR ECME User Scree n Resubmit s; ; 'A' F OR ALL; Di splay Real Time, Back bills, PRO Option, R esubmissio n, or ALL ;1.1 REJEC T CODE/ALL --'R' FOR REJECT CO DE; 'A' FO R ALL; Dis play Speci fic Reject Code or A LL Reject ;Codes 0 m eans ALL R eject Code s otherwis e - Reject Code valu e ;1.11 S PECIFIC/AL L INSURANC ES --'I' F OR SPECIFI C INSURANC E(S);'A' F OR ALL; Di splay Spec ific Insur ance Compa ny(s) or A ll null - ALL otherw ise - poin ter to INS URANCE COM PANY file #36 ;1.12 SORT LIST --'T' FOR TRANSACTI ON DATE;'D ' FOR DIVI SION; 'I' FOR INSURA NCE; 'C' F OR REJECT CODE; ;'P ' FOR PATI ENT NAME - - 'N' FOR DRUG NAME; 'B' FOR B ILL TYPE ( BB/P2/RT/R S); 'L' FO R FILL LOC ATION; ;'R ' FOR RELE ASED/NON-R ELEASED -- 'A' FOR A CTIVE/DISC ONTINUED; the field used to so rt claims in the lis t ;1.13 A LL ECME PH ARMACY DIV ISIONS --' D' FOR DIV ISION; 'A' FOR ALL; ;1.14 SEL ECTED INSU RANCE -- S ingle, or multiple, insurance( s) to sele ct claims for the Us er Screen, to store INSURANCE COMPANY po inter (#36 ) ;1.15 S ELECTED RE JECTED COD E --POINTE R TO BPS N CPDP REJEC T CODES FI LE (#90023 13.93) Rej ect code s elected by the user to filter claims. ;1 .16 SELECT ED USER -- POINTER T O NEW PERS ON FILE (# 200) Selec ted user f or the use r screen ;1.17 SELE CTED PATIE NT -- POIN TER TO PAT IENT FILE (#2) Selec ted patien t for the User Scree n ;1.18 S ELECTED RX -- POINTE R TO PRESC RIPTION FI LE (#52) S elected RX ;1.19 NO N-BILLABLE TRI/CVA E NTRIES OPE N/CLOSED/A LL -- 'O' Open; 'C' Closed; 'A ' All ;2 E CME PHARMA CY DIVISIO N -- the l ist of POI NTERs TO B PS PHARMAC IES FILE ( #9002313.5 6) separat ed by ";" ;should st art and en d with ";" , example: ";4;5;" ; 2.01 ELIGI BILITY TYP E --'V' FO R VETERAN; 'T' FOR TR ICARE;'C' FOR CHAMPV A;'A' FOR ALL; Displ ay claims for specif ic Eligibi lity Type or ALL (BN T BPS1.0 7) ;2.02 O PEN/CLOSED /ALL --'O' OPEN CLAI MS;'C' CLO SED CLAIMS ;'A' FOR A LL; Displa y Open, Cl osed, or A LL claims (BNT BPS1 .07) ;2.0 3 SUBMISSI ON TYPE -- 'B' BILLIN G REQUESTS ;'R' REVER SALS;'A' F OR ALL; Di splay spec ific submi ssion type claims or ALL (BNT BPS1.07) ;2.04 INS URANCES -- List of P OINTERs to the INSUR ANCE COMPA NY FILE (# 36) separa ted by ";" ;should s tart and e nd with "; ", example : ";4;5;" ;NOTE: use D ^XPARED IT to add/ edit value s ; ;***** . . .
	71
	72
	73	EDITPROF(B PARR,BPDUZ 7) ; I +$G (DUZ)=0 D ERRMSG("Un known User ") Q N BP1 ,BPTF,BPQ, BPINP N BP RET N DIR, DR,DIE,DA ;get ONE/A LL USERS? ;EDITFLD(F ILENO,FLDN O,RECIEN,C ODESET,PRM TMSG,DFLTC ODE) ; S B PRET=$$DS^ BPSSCRDS(. BPARR,+BPD UZ7) ;get divisions Q:BPRET=-2 ;quit due to timeou t or ^ Q:$ $EDITFLD(2 .01,+BPDUZ 7,"S^V:VET ERAN;T:TRI CARE;C:CHA MPVA;A:ALL ","Select Certain El igibility Type or (A )ll","V",. BPARR)=-1 S BPQ=0 F D Q:BPQ' =0 . S BPI NP=$$EDITF LD(1.01,+B PDUZ7,"S^U :ONE USER; A:ALL","Di splay One ECME (U)se r or (A)LL ","ALL",.B PARR) . S: BPINP=-1 B PQ=-1 S:$P (BPINP,U,2 )="A" BPQ= 1 I BPQ'=0 Q . S BPI NP=$$EDITF LD(1.16,+B PDUZ7,"P^V A(200,","S elect User ","",.BPAR R) . S:BPI NP=-1 BPQ= -1 S:$P(BP INP,U,2)'= "" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ; quit due t o timeout or ^ S BPQ =0 F D Q :BPQ'=0 . S BPINP=$$ EDITFLD(1. 02,+BPDUZ7 ,"S^P:ONE PATIENT;A: ALL","Disp lay One (P )atient or (A)LL","A LL",.BPARR ) . S:BPIN P=-1 BPQ=- 1 S:$P(BPI NP,U,2)="A " BPQ=1 I BPQ'=0 Q . S BPINP=$ $EDITFLD(1 .17,+BPDUZ 7,"P^DPT(" ,"Select P atient","" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)'="" B PQ=1 I BPQ '=0 Q Q:BP Q=-1 ;quit due to ti meout or ^ S BPQ=0 F D Q:BPQ '=0 . S BP INP=$$EDIT FLD(1.03,+ BPDUZ7,"S^ R:ONE RX;A :ALL","Dis play One ( R)x or (A) LL","ALL", .BPARR) . S:BPINP=-1 BPQ=-1 S: $P(BPINP,U ,2)="A" BP Q=1 I BPQ' =0 Q . S B PINP=$$EDI TRX^BPSSCR PR(1.18,+B PDUZ7,"Sel ect RX","" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)'="" B PQ=1 I BPQ '=0 Q Q:BP Q=-1 ;quit due to ti meout or ^ S BPINP=$ $EDITFLD(1 .04,+BPDUZ 7,"S^D:DAY S;H:HOURS" ,"Activity Timeframe (H)ours o r (D)ays", "DAYS",.BP ARR) I BPI NP=-1 Q ; quit due t o timeout or ^ S BPT F=$P(BPINP ,U,2) Q:$$ EDITFLD(1. 05,+BPDUZ7 ,"N^1:999: 0","Activi ty Timefra me Value", $S(BPTF="H ":24,1:7), .BPARR)=-1 Q:$$EDITF LD(2.02,+B PDUZ7,"S^O :OPEN CLAI MS;C:CLOSE D CLAIMS;A :ALL","Sel ect Open/C losed or A ll Claims" ,"O",.BPAR R)=-1 Q:$$ EDITFLD(1. 19,+BPDUZ7 ,"S^O:Open Non-Billa ble Entrie s;C:Closed Non-Billa ble Entrie s;A:ALL"," Display (O )pen or (C )losed or (A)ll Non- Billable E ntries","A ",.BPARR)= -1 Q:$$EDI TFLD(2.03, +BPDUZ7,"S ^B:BILLING REQUESTS; R:REVERSAL S;A:ALL"," Select Sub mission Ty pe","A",.B PARR)=-1 Q :$$EDITFLD (1.06,+BPD UZ7,"S^R:R EJECTS;P:P AYABLES;U: UNSTRANDED ;A:ALL","D isplay (R) ejects or (P)ayables or (U)nst randed or (A)LL","RE JECTS",.BP ARR)=-1 Q: $$EDITFLD( 1.07,+BPDU Z7,"S^R:RE LEASED;N:N ON-RELEASE D;A:ALL"," Display (R )eleased R xs or (N)o n-Released Rxs or (A )LL","RELE ASED",.BPA RR)=-1 Q:$ $EDITFLD(1 .08,+BPDUZ 7,"S^C:CMO P;M:MAIL;W :WINDOW;A: ALL","Disp lay (C)MOP or (M)ail or (W)ind ow or (A)L L","ALL",. BPARR)=-1 Q:$$EDITFL D(1.09,+BP DUZ7,"S^R: REALTIME;B :BACKBILLS ;P:PRO OPT ION;S:RESU BMISSION;A :ALL","Dis play (R)ea lTime, (B) ackbills, (P)RO Opti on, Re(S)u bmission o r (A)LL"," ALL",.BPAR R)=-1 S BP Q=0 F D Q:BPQ'=0 . S BPINP=$ $EDITFLD(1 .1,+BPDUZ7 ,"S^R:REJE CT CODE;A: ALL","Disp lay Specif ic (R)ejec t Code or (A)LL","AL L",.BPARR) . S:BPINP =-1 BPQ=-1 S:$P(BPIN P,U,2)="A" BPQ=1 I B PQ'=0 Q . S BPINP=$$ EDITFLD(1. 15,+BPDUZ7 ,"P^BPSF(9 002313.93, ","Select Reject Cod e","",.BPA RR) . S:BP INP=-1 BPQ =-1 S:$P(B PINP,U,2)' ="" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ;quit due to timeout or ^ Q:$$ INSURSEL^B PSSCRCU(.B PARR,+BPDU Z7)=-1
	74	Q ;
	75
	76	Modified L ogic (Chan ges are hi ghlighted)
	77
	78	BPSSCRCV ; BHAM ISC/S S - ECME S CREEN CHAN GE VIEW ;0 5-APR-05 ; ;1.0;E CLA IMS MGMT E NGINE;1, 5,7,11,14, 20,22,23 ;JUN 2004; Build 27 ; ;Per VA Di rective 64 02, this r outine sho uld not be modified. ;USER SCR EEN Q ;*** * ;This so ftware is using PARA METER TOOL S (see XT* 7.3*26) to store use r's settin gs: ;PARAM ETER DEFIN ITION NAME ="BPS USRS CR" (file #8989.51, IA# 2263) ;ENTITY is "USR" , i .e. IEN in ^VA(200 - - see defi nition for "BPS USRS CR" ;INSTA NCEs are a s follows: ;1.01 ONE /ALL USERS --'U' ONE USER, 'A' ALL; Disp lay claims for ONE o r ALL user s ;1.02 O NE/ALL PAT IENTS --'P ' FOR ONE PATIENT; ' A' FOR ALL ; Display claims for ONE/ALL P ATIENTS ; 1.03 ONE/A LL RX --'R ' FOR ONE RX; 'A' FO R ALL; Dis play claim s for ONE or ALL RX ;1.031 DAT E RANGE/TI MEFRAME -- 'D' FOR D ATE RANGE; 'T' FOR T IMEFRAME;
	79	;1.032 AC TIVITY BEG INNING DAT E – Beginn ing Date o f the Date Range
	80	;1.033 AC TIVITY END ING DATE – Ending Da te of the Date Range
	81	;1.04 HOU RS/DAYS -- 'D' FOR D AYS; 'H' F OR HOURS; Use HOURS or DAYS to specify t imeframe ;1.05 TIME FRAME -- N UMBER Depe nds on the value of the field "USR SCR H OURS/DAYS" this fiel d will ;st ore the de fault numb er of HOUR S from NOW or DAYS f rom TODAY to select claims to display ; 1.06 REJEC TED/PAYABL E --'R' FO R REJECTS; 'P' FOR P AYABLES; ' U' FOR UNS TRANDED; ' A' FOR ALL ; Display Rejects or Payables or Unstran ded or ALL claims ; 1.07 RELEA SED/NOT RE LEASED --' R' FOR REL EASED; 'N' FOR NON-R ELEASED; ' A' FOR ALL ; Display Released R xs or Non- Released R xs or ALL ;1.08 CMO P/MAIL/WIN DOW --'C' FOR CMOP; 'M' FOR MA IL;'W' FOR WINDOW;'A ' FOR ALL; Display C MOP or Mai l or Windo w or ALL R xs ;1.09 REALTIME/B ACKBILL -- 'R' FOR RE ALTIME; 'B ' FOR BACK BILLS; 'P' FOR PRO O ption; 'S' FOR ECME User Scree n Resubmit s; ; 'A' F OR ALL; Di splay Real Time, Back bills, PRO Option, R esubmissio n, or ALL ;1.1 REJEC T CODE/ALL --'R' FOR REJECT CO DE; 'A' FO R ALL; Dis play Speci fic Reject Code or A LL Reject ;Codes 0 m eans ALL R eject Code s otherwis e - Reject Code valu e ;1.11 S PECIFIC/AL L INSURANC ES --'I' F OR SPECIFI C INSURANC E(S);'A' F OR ALL; Di splay Spec ific Insur ance Compa ny(s) or A ll null - ALL otherw ise - poin ter to INS URANCE COM PANY file #36 ;1.12 SORT LIST --'T' FOR TRANSACTI ON DATE;'D ' FOR DIVI SION; 'I' FOR INSURA NCE; 'C' F OR REJECT CODE; ;'P ' FOR PATI ENT NAME - - 'N' FOR DRUG NAME; 'B' FOR B ILL TYPE ( BB/P2/RT/R S); 'L' FO R FILL LOC ATION; ;'R ' FOR RELE ASED/NON-R ELEASED -- 'A' FOR A CTIVE/DISC ONTINUED; the field used to so rt claims in the lis t ;1.13 A LL ECME PH ARMACY DIV ISIONS --' D' FOR DIV ISION; 'A' FOR ALL; ;1.14 SEL ECTED INSU RANCE -- S ingle, or multiple, insurance( s) to sele ct claims for the Us er Screen, to store INSURANCE COMPANY po inter (#36 ) ;1.15 S ELECTED RE JECTED COD E --POINTE R TO BPS N CPDP REJEC T CODES FI LE (#90023 13.93) Rej ect code s elected by the user to filter claims. ;1 .16 SELECT ED USER -- POINTER T O NEW PERS ON FILE (# 200) Selec ted user f or the use r screen ;1.17 SELE CTED PATIE NT -- POIN TER TO PAT IENT FILE (#2) Selec ted patien t for the User Scree n ;1.18 S ELECTED RX -- POINTE R TO PRESC RIPTION FI LE (#52) S elected RX ;1.19 NO N-BILLABLE TRI/CVA E NTRIES OPE N/CLOSED/A LL -- 'O' Open; 'C' Closed; 'A ' All ;2 E CME PHARMA CY DIVISIO N -- the l ist of POI NTERs TO B PS PHARMAC IES FILE ( #9002313.5 6) separat ed by ";" ;should st art and en d with ";" , example: ";4;5;" ; 2.01 ELIGI BILITY TYP E --'V' FO R VETERAN; 'T' FOR TR ICARE;'C' FOR CHAMPV A;'A' FOR ALL; Displ ay claims for specif ic Eligibi lity Type or ALL (BN T BPS1.0 7) ;2.02 O PEN/CLOSED /ALL --'O' OPEN CLAI MS;'C' CLO SED CLAIMS ;'A' FOR A LL; Displa y Open, Cl osed, or A LL claims (BNT BPS1 .07) ;2.0 3 SUBMISSI ON TYPE -- 'B' BILLIN G REQUESTS ;'R' REVER SALS;'A' F OR ALL; Di splay spec ific submi ssion type claims or ALL (BNT BPS1.07) ;2.04 INS URANCES -- List of P OINTERs to the INSUR ANCE COMPA NY FILE (# 36) separa ted by ";" ;should s tart and e nd with "; ", example : ";4;5;" ;NOTE: use D ^XPARED IT to add/ edit value s ; ;***** . . .
	82
	83
	84	EDITPROF(B PARR,BPDUZ 7) ; I +$G (DUZ)=0 D ERRMSG("Un known User ") Q N BP1 ,BPACT,BPT F,BPQ,BPIN P N BPRET N DIR,DR,D IE,DA ;get ONE/ALL U SERS? ;EDI TFLD(FILEN O,FLDNO,RE CIEN,CODES ET,PRMTMSG ,DFLTCODE) ; S BPRET =$$DS^BPSS CRDS(.BPAR R,+BPDUZ7) ;get divi sions Q:BP RET=-2 ;qu it due to timeout or ^ Q:$$EDI TFLD(2.01, +BPDUZ7,"S ^V:VETERAN ;T:TRICARE ;C:CHAMPVA ;A:ALL","S elect Cert ain Eligib ility Type or (A)ll" ,"V",.BPAR R)=-1 S BP Q=0 F D Q:BPQ'=0 . S BPINP=$ $EDITFLD(1 .01,+BPDUZ 7,"S^U:ONE USER;A:AL L","Displa y One ECME (U)ser or (A)LL","A LL",.BPARR ) . S:BPIN P=-1 BPQ=- 1 S:$P(BPI NP,U,2)="A " BPQ=1 I BPQ'=0 Q . S BPINP=$ $EDITFLD(1 .16,+BPDUZ 7,"P^VA(20 0,","Selec t User","" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)'="" B PQ=1 I BPQ '=0 Q Q:BP Q=-1 ;quit due to ti meout or ^ S BPQ=0 F D Q:BPQ '=0 . S BP INP=$$EDIT FLD(1.02,+ BPDUZ7,"S^ P:ONE PATI ENT;A:ALL" ,"Display One (P)ati ent or (A) LL","ALL", .BPARR) . S:BPINP=-1 BPQ=-1 S: $P(BPINP,U ,2)="A" BP Q=1 I BPQ' =0 Q . S B PINP=$$EDI TFLD(1.17, +BPDUZ7,"P ^DPT(","Se lect Patie nt","",.BP ARR) . S:B PINP=-1 BP Q=-1 S:$P( BPINP,U,2) '="" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ;quit due to timeou t or ^ S B PQ=0 F D Q:BPQ'=0 . S BPINP= $$EDITFLD( 1.03,+BPDU Z7,"S^R:ON E RX;A:ALL ","Display One (R)x or (A)LL", "ALL",.BPA RR) . S:BP INP=-1 BPQ =-1 S:$P(B PINP,U,2)= "A" BPQ=1 I BPQ'=0 Q . S BPINP =$$EDITRX^ BPSSCRPR(1 .18,+BPDUZ 7,"Select RX","",.BP ARR) . S:B PINP=-1 BP Q=-1 S:$P( BPINP,U,2) '="" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ;quit due to timeou t or ^ ; P rompt the user to se lect Displ ay Activit y Date Ran ge or Time frame. S B PINP=$$ACT TYP() Q:BP INP=-1 ;qu it due to timeout or ^
	85	;
	86	S BPACT=B PINP
	87	S BPQ=0
	88	; ; If Da te Range w as selecte d, prompt for Activi ty Beginni ng and End ing Date. I BPACT="D " D
	89	. ; Clear out Timef rame param eters.
	90	. S (BPAR R(1.04),BP ARR(1.05)) =""
	91	. ; . S B PINP=$$BEG DATE() . I BPINP=-1 S BPQ=-1 Q . S BPINP =$$ENDDATE () . I BPI NP=-1 S BP Q=-1 Q Q:B PQ=-1 ;qui t due to t imeout or ^ ; ; If Timeframe was select ed, prompt for Days or Hours a nd Activit y Timefram e Value. I BPACT="T" D . ; Cle ar out Dat e Range Pa rameters.
	92	. S (BPAR R(1.031),B PARR(1.032 ),BPARR(1. 033))=""
	93	. ; . S B PINP=$$EDI TFLD(1.04, +BPDUZ7,"S ^D:DAYS;H: HOURS","Ac tivity Tim eframe (H) ours or (D )ays","DAY S",.BPARR) . I BPINP =-1 S BPQ= -1 Q . S B PTF=$P(BPI NP,U,2) . S BPINP=$$ EDITFLD(1. 05,+BPDUZ7 ,"N^1:180: 0","Activi ty Timefra me Value", $S(BPTF="H ":24,1:7), .BPARR) . I BPINP=-1 S BPQ=-1 Q Q:BPQ=-1 ;quit due to timeou t or ^
	94	; Q:$$EDI TFLD(2.02, +BPDUZ7,"S ^O:OPEN CL AIMS;C:CLO SED CLAIMS ;A:ALL","S elect Open /Closed or All Claim s","O",.BP ARR)=-1 Q: $$EDITFLD( 1.19,+BPDU Z7,"S^O:Op en Non-Bil lable Entr ies;C:Clos ed Non-Bil lable Entr ies;A:ALL" ,"Display (O)pen or (C)losed o r (A)ll No n-Billable Entries", "A",.BPARR )=-1 Q:$$E DITFLD(2.0 3,+BPDUZ7, "S^B:BILLI NG REQUEST S;R:REVERS ALS;A:ALL" ,"Select S ubmission Type","A", .BPARR)=-1 Q:$$EDITF LD(1.06,+B PDUZ7,"S^R :REJECTS;P :PAYABLES; U:UNSTRAND ED;A:ALL", "Display ( R)ejects o r (P)ayabl es or (U)n stranded o r (A)LL"," REJECTS",. BPARR)=-1 Q:$$EDITFL D(1.07,+BP DUZ7,"S^R: RELEASED;N :NON-RELEA SED;A:ALL" ,"Display (R)eleased Rxs or (N )on-Releas ed Rxs or (A)LL","RE LEASED",.B PARR)=-1 Q :$$EDITFLD (1.08,+BPD UZ7,"S^C:C MOP;M:MAIL ;W:WINDOW; A:ALL","Di splay (C)M OP or (M)a il or (W)i ndow or (A )LL","ALL" ,.BPARR)=- 1 Q:$$EDIT FLD(1.09,+ BPDUZ7,"S^ R:REALTIME ;B:BACKBIL LS;P:PRO O PTION;S:RE SUBMISSION ;A:ALL","D isplay (R) ealTime, ( B)ackbills , (P)RO Op tion, Re(S )ubmission or (A)LL" ,"ALL",.BP ARR)=-1 S BPQ=0 F D Q:BPQ'=0 . S BPINP =$$EDITFLD (1.1,+BPDU Z7,"S^R:RE JECT CODE; A:ALL","Di splay Spec ific (R)ej ect Code o r (A)LL"," ALL",.BPAR R) . S:BPI NP=-1 BPQ= -1 S:$P(BP INP,U,2)=" A" BPQ=1 I BPQ'=0 Q . S BPINP= $$EDITFLD( 1.15,+BPDU Z7,"P^BPSF (9002313.9 3,","Selec t Reject C ode","",.B PARR) . S: BPINP=-1 B PQ=-1 S:$P (BPINP,U,2 )'="" BPQ= 1 I BPQ'=0 Q Q:BPQ=- 1 ;quit du e to timeo ut or ^ Q: $$INSURSEL ^BPSSCRCU( .BPARR,+BP DUZ7)=-1 Q
	95	;
	96
	97
	98	Add a new subroutine that will prompt th e user to select dis play the A ctivity Da te Range o r Timefram e. This p rompt will be requir ed and wil l not have a default .
	99	Subroutine Name
	100	ACTTYP^BPS SCRCV
	101	Enhancemen t Category
	102	New
	103	Modify
	104	Delete
	105	No Change
	106	Story
	107	US1907
	108	Related Me nu Options or ListMa n Actions
	109	ECME User Screen
	110	Related Ro utines
	111	This Subro utine is C alled By
	112	This Subro utine Call s
	113
	114	EDITPROF^B PSSCRCV
	115	DIR
	116	Related In tegration Control Re gistration s (ICRs)
	117	N/A
	118	Data Passi ng
	119	Parameter Input
	120	Parameter Output
	121	Function Return Val ue
	122	Global Mo dified
	123	Input Attr ibute Name and Defin ition
	124	Name:
	125	Definition :
	126	New Modify Delete No Cha nge
	127	Output Att ribute Nam e and Defi nition
	128	Name:
	129	Definition :
	130	New Modify Delete No Cha nge
	131	Current Lo gic
	132
	133	N/A – new subroutine
	134
	135	Modified L ogic (Chan ges are hi ghlighted)
	136
	137	ACTTYP() ; Prompt th e user to select Dis play Activ ity Date R ange or Ti meframe.
	138	; The use r is requi red to sel ect D or T and there is no def ault value . ; N DIR, DIROUT,DIR UT,DTOUT,D UOUT,X,Y S DIR(0)=”S ^D:Date Ra nge;T:Time frame”
	139	S DIR("A" )="Display Activity (D)ate Ran ge or (T)i meframe?" S DIR("?", 1)="" S DI R("?",2)=" Date Range will allow a u ser to spe cify an ac tivity beg inning and end date. " S DIR("? ")=" T imeframe w ill allow a user to specify th e activity by days o r hours." D ^DIR
	140	;
	141	;quit due to timeou t or ^ I $ D(DIRUT) Q -1 ; S BP ARR(1.031) =Y Q PARR( 1.031) ;
	142
	143
	144	If the use r selected to Displa y Activity Date Rang e the user will need to input a range of dates. A new subro utine BEGD ATE^BPSSCR CV will be added in order to a llow the u ser to ent er an Acti vity Begin ning Date.
	145	Subroutine Name
	146	BEGDATE^BP SSCRCV
	147	Enhancemen t Category
	148	New
	149	Modify
	150	Delete
	151	No Change
	152	Story
	153	US1907
	154	Related Me nu Options or ListMa n Actions
	155	ECME User Screen
	156	Related Ro utines
	157	This Subro utine is C alled By
	158	This Subro utine Call s
	159
	160	EDITPROF^B PSSCRCV
	161	DIR
	162	Related In tegration Control Re gistration s (ICRs)
	163	N/A
	164	Data Passi ng
	165	Parameter Input
	166	Parameter Output
	167	Function Return Val ue
	168	Global Mo dified
	169	Input Attr ibute Name and Defin ition
	170	Name:
	171	Definition :
	172	New Modify Delete No Cha nge
	173	Output Att ribute Nam e and Defi nition
	174	Name:
	175	Definition :
	176	New Modify Delete No Cha nge
	177	Current Lo gic
	178
	179	N/A – new subroutine
	180
	181	Modified L ogic (Chan ges are hi ghlighted)
	182
	183	BEGDATE() ; Enter Ac tivity Beg inning Dat e when Dat e Range is selected N DIR,DIRO UT,DIRUT,D TOUT,DUOUT ,X,YBEGDAT E1 ; S DIR (0)="D" S DIR("A")=" Activity B eginning D ate" S DIR ("?",1)="" S DIR("?" )=" En ter a date which is less than or equal t o "_$$FMTE ^XLFDT($$N OW^XLFDT() ,"D") D ^D IR
	184	;
	185	;quit due to timeou t or ^ I $ D(DIRUT) Q -1
	186	; I Y>$$N OW^XLFDT() W !," Enter a d ate less t han or equ al to "_$$ FMTE^XLFDT ($$NOW^XLF DT(),"D"), ! G BEGDAT E1 ; W " (",Y(0),") "
	187	S BPARR(1 .032)=Y Q BPARR(1.03 2) ;
	188
	189
	190	If the use r selected to Displa y Activity Date Rang e the user will need to input a range of dates. A new subro utine ENDD ATE^BPSSCR CV will be added in order to a llow the u ser to ent er an Acti vity Endin g Date.
	191	Subroutine Name
	192	ENDDATE^BP SSCRCV
	193	Enhancemen t Category
	194	New
	195	Modify
	196	Delete
	197	No Change
	198	Story
	199	US1907
	200	Related Me nu Options or ListMa n Actions
	201	ECME User Screen
	202	Related Ro utines
	203	This Subro utine is C alled By
	204	This Subro utine Call s
	205
	206	EDITPROF^B PSSCRCV
	207	DIR
	208	Related In tegration Control Re gistration s (ICRs)
	209	N/A
	210	Data Passi ng
	211	Parameter Input
	212	Parameter Output
	213	Function Return Val ue
	214	Global Mo dified
	215	Input Attr ibute Name and Defin ition
	216	Name:
	217	Definition :
	218	New Modify Delete No Cha nge
	219	Output Att ribute Nam e and Defi nition
	220	Name:
	221	Definition :
	222	New Modify Delete No Cha nge
	223	Current Lo gic
	224
	225	N/A – new subroutine
	226
	227	Modified L ogic (Chan ges are hi ghlighted)
	228
	229	ENDDATE() ; Enter Ac tivity End ing Date w hen Date R ange is se lected N D IR,DIROUT, DIRUT,DTOU T,DUOUT,X, YENDDATE1 ; S DIR(0) ="D" S DIR ("A")="Act ivity Endi ng Date" S DIR("?",1 )=""
	230	S DIR("?" )=" En ter a date which is no more th an 180 day s after th e Beginnin g Date." D ^DIR
	231	;
	232	;quit due to timeou t or ^ I $ D(DIRUT) Q -1 ;
	233	I Y<BPARR (1.032) W !,"Ending Date prece des Beginn ing Date." ,! G ENDDA TE1
	234	; I $$FMD IFF^XLFDT( Y,BPARR(1. 032))>180 W !,"Date range exce eds 180 da y limit. Select an Ending Dat e no more than 180 d ays",!,"af ter the Be ginning Da te.",! G E NDDATE1 ; W " (",Y( 0),")" S B PARR(1.033 )=Y Q BPAR R(1.033) ;
	235
	236
	237	The new fi elds 1.031 , 1.032, a nd 1.033 n eeds to be added to BPFLDNO in order for them to b e included in the re turn the p rofile inf ormation.
	238	Subroutine Name
	239	READPROF^B PSSCRSL
	240	Enhancemen t Category
	241	New
	242	Modify
	243	Delete
	244	No Change
	245	Story
	246	US1907
	247	Related Me nu Options or ListMa n Actions
	248	ECME User Screen
	249	Related Ro utines
	250	This Subro utine is C alled By
	251	This Subro utine Call s
	252
	253	INIT^BPSSC R01,
	254	CV^BPSSCRC V
	255	$$GETPARAM
	256	Related In tegration Control Re gistration s (ICRs)
	257	N/A
	258	Data Passi ng
	259	Parameter Input
	260	Parameter Output
	261	Function Return Val ue
	262	Global Mo dified
	263	Input Attr ibute Name and Defin ition
	264	Name: BPDU Z7
	265	Definition : DUZ
	266	New Modify Delete No Cha nge
	267	Output Att ribute Nam e and Defi nition
	268	Name: BPAR RAY
	269	Definition : to retur n back pro file infor mation
	270	New Modify Delete No Cha nge
	271	Current Lo gic
	272
	273	BPSSCRSL ; BHAM ISC/S S - ECME S CREEN SORT LIST ;05- APR-05 ;;1 .0;E CLAIM S MGMT ENG INE;1,7, 11,20,22 ;JUN 2004; Build 27 ; ;Per VA Di rective 64 02, this r outine sho uld not be modified. ;USER SCR EEN ; ;Thi s software is using PARAMETER TOOLS (see XT7.326 ) to store user's se ttings: ;P ARAMETER D EFINITION NAME="BPS USRSCR" (f ile #8989. 51, IA# 22 63) ;ENTIT Y is "USR" , i.e. IE N in ^VA(2 00 -- see definition for "BPS USRSCR" ;I NSTANCEs a re as foll ows: ;1.01 ONE/ALL U SERS --'U' ONE USER, 'A' ALL; Display cl aims for O NE or ALL users ;1. 02 ONE/ALL PATIENTS --'P' FOR ONE PATIEN T; 'A' FOR ALL; Disp lay claims for ONE/A LL PATIENT S ;1.03 O NE/ALL RX --'R' FOR ONE RX; 'A ' FOR ALL; Display c laims for ONE or ALL RX ;1.04 HOURS/DAY S -- 'D' F OR DAYS; ' H' FOR HOU RS; Use HO URS or DAY S to speci fy timefra me ;1.05 TIMEFRAME -- NUMBER Depends on the value of the fi eld "USR S CR HOURS/D AYS" this field will ;store th e default number of HOURS from NOW or DA YS from TO DAY to sel ect claims to displa y
	274	. . .
	275
	276	;read pro file infor mation (us ed in othe r routines as well)
	277	;input:
	278	;BPDUZ7 - DUZ
	279	;input/ou tput:
	280	;BPARRAY - to retur n back pro file infor mation, as reference
	281	;see desc ription in the top o f the rout ine
	282	READPROF(B PARRAY,BPD UZ7) ;
	283	N RETV,RE TARR,BPFLD NO,BPDIV,B P1
	284	N RECIENS
	285	S RECIENS =BPDUZ7_", "
	286	F BPFLDNO =1.01,1.02 ,1.03,1.04 ,1.05,1.06 ,1.07,1.08 ,1.09,1.1, 1.11,1.12, 1.13,1.14, 1.15,1.16, 1.17,1.18, 1.19,2.01, 2.02,2.03, 2.04 D
	287	. S RETV= $$GETPARAM (BPFLDNO,+ BPDUZ7)
	288	. S BPARR AY(BPFLDNO )=RETV
	289	I BPARRAY (1.13)="D" D
	290	. S BPARR AY("DIVS") =$$GETPARA M(2,+BPDUZ 7)
	291	I BPARRAY (1.11)="I" D
	292	. S BPARR AY("INS")= $$GETPARAM (2.04,+BPD UZ7)
	293	Q
	294	;
	295
	296	Modified L ogic (Chan ges are hi ghlighted)
	297
	298	BPSSCRSL ;BHAM ISC/ SS - ECME SCREEN SOR T LIST ;05 -APR-05 ;; 1.0;E CLAI MS MGMT EN GINE;1,7 ,11,20,22, 23;JUN 2 004;Build 27 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ;USER SCREEN ; ;This soft ware is us ing PARAME TER TOOLS (see XT7. 326) to s tore user' s settings : ;PARAMET ER DEFINIT ION NAME=" BPS USRSCR " (file #8 989.51, IA # 2263) ;E NTITY is " USR" , i.e . IEN in ^ VA(200 -- see defini tion for " BPS USRSCR " ;INSTANC Es are as follows: ; 1.01 ONE/A LL USERS - -'U' ONE U SER, 'A' A LL; Displa y claims f or ONE or ALL users ;1.02 ONE /ALL PATIE NTS --'P' FOR ONE PA TIENT; 'A' FOR ALL; Display cl aims for O NE/ALL PAT IENTS ;1. 03 ONE/ALL RX --'R' FOR ONE RX ; 'A' FOR ALL; Displ ay claims for ONE or ALL RX
	299	;1.031 DA TE RANGE/T IMEFRAME - - 'D' FOR DATE RANGE ; 'T' FOR TIMEFRAME;
	300	;1.032 AC TIVITY BEG INNING DAT E – Beginn ing Date o f the Date Range
	301	;1.033 AC TIVITY END ING DATE – Ending Da te of the Date Range ;1.04 HO URS/DAYS - - 'D' FOR DAYS; 'H' FOR HOURS; Use HOURS or DAYS t o specify timeframe ;1.05 TIM EFRAME -- NUMBER Dep ends on th e value of the field "USR SCR HOURS/DAYS " this fie ld will ;s tore the d efault num ber of HOU RS from NO W or DAYS from TODAY to select claims to display
	302	. . .
	303
	304	;read pro file infor mation (us ed in othe r routines as well)
	305	;input:
	306	;BPDUZ7 - DUZ
	307	;input/ou tput:
	308	;BPARRAY - to retur n back pro file infor mation, as reference
	309	;see desc ription in the top o f the rout ine
	310	READPROF(B PARRAY,BPD UZ7) ;
	311	N RETV,RE TARR,BPFLD NO,BPDIV,B P1
	312	N RECIENS
	313	S RECIENS =BPDUZ7_", "
	314	F BPFLDNO =1.01,1.02 ,1.03,1.03 1,1.032,1. 033,1.04,1 .05,1.06,1 .07,1.08,1 .09,1.1,1. 11,1.12,1. 13,1.14,1. 15,1.16,1. 17,1.18,1. 19,2.01,2. 02,2.03,2. 04 D
	315	. S RETV= $$GETPARAM (BPFLDNO,+ BPDUZ7)
	316	. S BPARR AY(BPFLDNO )=RETV
	317	I BPARRAY (1.13)="D" D
	318	. S BPARR AY("DIVS") =$$GETPARA M(2,+BPDUZ 7)
	319	I BPARRAY (1.11)="I" D
	320	. S BPARR AY("INS")= $$GETPARAM (2.04,+BPD UZ7)
	321	Q
	322	;
	323
	324
	325	The report header wi ll show th e date ran ge if acti vity date range was selected.
	326	Subroutine Name
	327	$$GETVDETS ^BPSSCR01
	328	Enhancemen t Category
	329	New
	330	Modify
	331	Delete
	332	No Change
	333	Story
	334	US1907
	335	Related Me nu Options or ListMa n Actions
	336	ECME User Screen
	337	Related Ro utines
	338	This Subro utine is C alled By
	339	This Subro utine Call s
	340
	341	HDR^BPSCMT
	342	HDR^BPSSCR 01
	343	$$LJ^BPPSC R02
	344	Related In tegration Control Re gistration s (ICRs)
	345	N/A
	346	Data Passi ng
	347	Parameter Input
	348	Parameter Output
	349	Function Return Val ue
	350	Global Mo dified
	351	Input Attr ibute Name and Defin ition
	352	Name: BPAR R
	353	Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR”
	354	New Modify Delete No Cha nge
	355	Output Att ribute Nam e and Defi nition
	356	Name: N/A
	357	Definition :
	358	New Modify Delete No Cha nge
	359	Current Lo gic
	360
	361	GETVDETS(B PARR) ;*/ N BPSTR I $G(BPARR(1 .01))="A" S BPSTR=$$ LJ^BPSSCR0 2("Transmi tted by AL L users",3 1) E S BP STR=$$LJ^B PSSCR02("T ransmitted by "_$$GE TUSRNM^BPS SCRU1($G(B PARR(1.16) )),31) S B PSTR=BPSTR _$$LJ^BPSS CR02(" Act ivity Date Range: wi thin the p ast "_$G(B PARR(1.05) )_$S($G(BP ARR(1.04)) ="H":" hou r(s)",1:" day(s)"),4 9) Q BPSTR
	362
	363	Modified L ogic (Chan ges are hi ghlighted)
	364
	365	GETVDETS(B PARR) ;*/ N BPSTR I $G(BPARR(1 .01))="A" S BPSTR=$$ LJ^BPSSCR0 2("Transmi tted by AL L users",3 1) E S BP STR=$$LJ^B PSSCR02("T ransmitted by "_$$GE TUSRNM^BPS SCRU1($G(B PARR(1.16) )),31)
	366	; If Date Range was selected display th e Activity Beginning and Endin g Dates. I $G(BPARR( 1.031))="D " S BPSTR= BPSTR_$$LJ ^BPSSCR02( "Activity Date Range : "_$$FMTE ^XLFDT(BPA RR(1.032)) _" - "_$$F MTE^XLFDT( BPARR(1.03 3)),61)
	367	;
	368	; If Time frame was selected d isplay the number of hours or days.
	369	E S BPST R=BPSTR_$$ LJ^BPSSCR0 2(" Activi ty Date Ra nge: withi n the past "_$G(BPAR R(1.05))_$ S($G(BPARR (1.04))="H ":" hour(s )",1:" day (s)"),49) Q BPSTR
	370
	371	In subrout ine GETDT^ BPSSCRU1 w ill need t o be modif ied in ord er to hand le the Act ivity Begi nning and Ending Dat e if activ ity date r ange was s elected.
	372	Subroutine Name
	373	GETDT^BPSS CRU1
	374	Enhancemen t Category
	375	New
	376	Modify
	377	Delete
	378	No Change
	379	Story
	380	US1907
	381	Related Me nu Options or ListMa n Actions
	382	ECME User Screen
	383	Related Ro utines
	384	This Subro utine is C alled By
	385	This Subro utine Call s
	386
	387	INIT^BPSSC R01
	388	NOW^%DTC,
	389	$$FMADD^XL FDT
	390	Related In tegration Control Re gistration s (ICRs)
	391	N/A
	392	Data Passi ng
	393	Parameter Input
	394	Parameter Output
	395	Function Return Val ue
	396	Global Mo dified
	397	Input Attr ibute Name and Defin ition
	398	Name: BPRO F
	399	Definition : store us er profile info
	400	New Modify Delete No Cha nge
	401	Output Att ribute Nam e and Defi nition
	402	Name: BPRO F(“BDT”)
	403	Definition : start da tetime in FM format
	404	New Modify Delete No Cha nge
	405	Name: BPRO F(“EDT”)
	406	Definition : end date time in FM format
	407	New Modify Delete No Cha nge
	408	Current Lo gic
	409
	410	;get date /time rang e
	411	;input:
	412	; BPROF - to store usre profi le info
	413	;output:
	414	; BPROF(" BDT") - st art dateti me in FM f ormat
	415	; BPROF(" EDT") - en d datetime in FM for mat
	416	GETDT(BPRO F) ;
	417	N BPNOW,X ,BPHORL,%
	418	D NOW^%DT C S BPNOW= %
	419	I ($G(BPR OF(1.04))' ="D")&($G( BPROF(1.04 ))'="H") S BPROF(1.0 4)="D"
	420	I +$G(BPR OF(1.05))= 0 S BPROF( 1.05)=1
	421	I $G(BPRO F(1.04))=" D" D
	422	. S BPROF ("BDT")=$$ FMADD^XLFD T(BPNOW\1, -$G(BPROF( 1.05)))-0. 000001
	423	. S BPROF ("EDT")=(B PNOW\1)+0. 9
	424	I $G(BPRO F(1.04))=" H" D
	425	. S BPROF ("BDT")=$$ FMADD^XLFD T(BPNOW,0, -$G(BPROF( 1.05)))
	426	. S BPROF ("EDT")=BP NOW
	427	Q 1
	428	;
	429
	430	Modified L ogic (Chan ges are hi ghlighted)
	431
	432	;get date /time rang e
	433	;input:
	434	; BPROF - to store usrer prof ile info
	435	;output:
	436	; BPROF(" BDT") - st art dateti me in FM f ormat
	437	; BPROF(" EDT") - en d datetime in FM for mat
	438	GETDT(BPRO F) ;
	439	N BPNOW,X ,BPHORL,%
	440	; If the user selec ted Displa y Activity Date Rang e.
	441	I $G(BPRO F(1.031))= "D" D Q 1
	442	. ; Adds seconds to the begin ning date (BPROF(1.0 32)-1) in order
	443	. ; to pi ck up ever ything for that begi nning date .
	444	. ; Exam ple: BPROF (1.032)=31 70901, BPR OF("BDT")= 3170900.99 9999
	445	. ; . S B PROF("BDT" )=$G(BPROF (1.032))-0 .000001
	446	. ;
	447	. ; Adds seconds to the endin g date (BP ROF(1.033) ) in order
	448	. ; to pi ck up ever ything for the endin g date.
	449	. ; Exam ple: BPROF (1.033)=31 70906, BPR OF("BDT")= 3170906.9
	450	. ; . S B PROF("EDT" )=$G(BPROF (1.033))+0 .9 ;
	451	; If the user selec ted Displa y Timefram e.
	452	I $G(BPRO F(1.031))= "T" D . D NOW^%DTC S BPNOW=%
	453	. I ($G(B PROF(1.04) )'="D")&($ G(BPROF(1. 04))'="H") S BPROF(1 .04)="D" . I +$G(BPR OF(1.05))= 0 S BPROF( 1.05)=1 . I $G(BPROF (1.04))="D " D . . S BPROF("BDT ")=$$FMADD ^XLFDT(BPN OW\1,-$G(B PROF(1.05) ))-0.00000 1 . . S BP ROF("EDT") =(BPNOW\1) +0.9 . I $ G(BPROF(1. 04))="H" D . . S BPR OF("BDT")= $$FMADD^XL FDT(BPNOW, 0,-$G(BPRO F(1.05))) . . S BPRO F("EDT")=B PNOW
	454	Q 1
	455	;
	456
	457
	458	Back Out/R ollback Pr ocedure
	459	This story includes modificati ons to exi sting rout ines.
	460	To back ou t this enh ancement, all the ro utines whi ch are a p art of thi s patch sh ould be ba cked up pr ior to ins tallation. Reverting to the pr evious ver sion of th ese routin es would b ack out th is enhance ment. Alte rnatively, the previ ous versio n of these routines could be d istributed via an em ergency pa tch.