IBTRP ;ALB/AAS - CLAIMS TRACKING PARAMETER EDIT ;23-OCT-2014
;;2.0;INTEGRATED BILLING;**517**;21-MAR-94;Build 240
;;Per VA Directive 6402, this routine should not be modified.
;
% D DISP
L +^IBE(350.9,1):5 I '$T D LOCKED^IBTRCD1 G END
S DIE="^IBE(350.9,",DA=1,DR="4.01;6.01;6.02;6.03;6.04;6.05;6.23;6.06;I 'X S Y=""@50"";5.01;5.02;5.03;@50;6.08;6.09;6.13;6.14;6.18;6.19"
;
; IB*2.0*517 added If statement below for new parameter questions
I $D(^XUSEC("IB HCSR PARAM EDIT",DUZ)) D
. S DR=DR_";62.1Inquiry can be Triggered for Appointment"
. S DR=DR_";62.11Inquiry can be Triggered for Admission;"
. S DR=DR_"62.12Days to wait to purge entry on HCSR Response"
;
D ^DIE K DA,DR,DIE
L -^IBE(350.9,1)
D DISP,PAUSE^IBOUTL
END Q
;
DISP ; -- Display tracking parameters
N IBTRKR
I '$D(IOF) D HOME^%ZIS
S IBTRKR=$G(^IBE(350.9,1,6))
W @IOF,?22,"Claims Tracking Parameter Enter Edit"
W !,$TR($J(" ",IOM)," ","-")
W !!,"Initialization Date: ",$$DAT1^IBOUTL(+IBTRKR)
W !,"Use Admission Sheet: ",$$EXPAND^IBTRE(350.9,6.06,$P(IBTRKR,"^",6))
W !," Header line 1: ",$P($G(^IBE(350.9,1,5)),"^")
W !," Header line 2: ",$P($G(^IBE(350.9,1,5)),"^",2)
W !," Header line 3: ",$P($G(^IBE(350.9,1,5)),"^",3)
W !!," Track Inpatient: ",$$EXPAND^IBTRE(350.9,6.02,$P(IBTRKR,"^",2))
W ?40," Track Outpatient: ",$$EXPAND^IBTRE(350.9,6.03,$P(IBTRKR,"^",3))
W !," Track Rx: ",$$EXPAND^IBTRE(350.9,6.04,$P(IBTRKR,"^",4))
D W ?40," Track Prosthetics: ",$$EXPAND^IBTRE(350.9,6.05,$P(IBTRKR,"^",5))
W !," Reports can Add CT: ",$$EXPAND^IBTRE(350.9,6.23,$P(IBTRKR,"^",23))
W !!," Medicine Sample: ",$J($P(IBTRKR,"^",8),3)
W ?40," Surgery Sample: ",$J($P(IBTRKR,"^",13),3)
W !,"Medicine Admissions: ",$J($P(IBTRKR,"^",9),3)
W ?40," Surgery Admissions: ",$J($P(IBTRKR,"^",14),3)
W !!," Psych Sample: ",$J($P(IBTRKR,"^",18),3)
W !," Psych Admissions: ",$J($P(IBTRKR,"^",19),3)
;
; IB*2.0*517 added next 3 lines for new parameter questions
W !!," Inquiry can be Triggered for Appointment: ",$J($P($G(^IBE(350.9,1,62)),"^",10),3)," Days"
W !," Inquiry can be Triggered for Admission: ",$J($P($G(^IBE(350.9,1,62)),"^",11),3)," Days"
W !,"Days to wait to purge entry on HCSR Response: ",$J($P($G(^IBE(350.9,1,62)),"^",12),3)," Days"
;
; IB*2.0*517 added next two lines of warning text
W !!,"Note: There are additional HCSR parameters that can be accessed"
W !," through MCCR Site Parameter Display/Edit"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTRP 2521 printed Nov 22, 2024@17:38:50 Page 2
IBTRP ;ALB/AAS - CLAIMS TRACKING PARAMETER EDIT ;23-OCT-2014
+1 ;;2.0;INTEGRATED BILLING;**517**;21-MAR-94;Build 240
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
% DO DISP
+1 LOCK +^IBE(350.9,1):5
IF '$TEST
DO LOCKED^IBTRCD1
GOTO END
+2 SET DIE="^IBE(350.9,"
SET DA=1
SET DR="4.01;6.01;6.02;6.03;6.04;6.05;6.23;6.06;I 'X S Y=""@50"";5.01;5.02;5.03;@50;6.08;6.09;6.13;6.14;6.18;6.19"
+3 ;
+4 ; IB*2.0*517 added If statement below for new parameter questions
+5 IF $DATA(^XUSEC("IB HCSR PARAM EDIT",DUZ))
Begin DoDot:1
+6 SET DR=DR_";62.1Inquiry can be Triggered for Appointment"
+7 SET DR=DR_";62.11Inquiry can be Triggered for Admission;"
+8 SET DR=DR_"62.12Days to wait to purge entry on HCSR Response"
End DoDot:1
+9 ;
+10 DO ^DIE
KILL DA,DR,DIE
+11 LOCK -^IBE(350.9,1)
+12 DO DISP
DO PAUSE^IBOUTL
END QUIT
+1 ;
DISP ; -- Display tracking parameters
+1 NEW IBTRKR
+2 IF '$DATA(IOF)
DO HOME^%ZIS
+3 SET IBTRKR=$GET(^IBE(350.9,1,6))
+4 WRITE @IOF,?22,"Claims Tracking Parameter Enter Edit"
+5 WRITE !,$TRANSLATE($JUSTIFY(" ",IOM)," ","-")
+6 WRITE !!,"Initialization Date: ",$$DAT1^IBOUTL(+IBTRKR)
+7 WRITE !,"Use Admission Sheet: ",$$EXPAND^IBTRE(350.9,6.06,$PIECE(IBTRKR,"^",6))
+8 WRITE !," Header line 1: ",$PIECE($GET(^IBE(350.9,1,5)),"^")
+9 WRITE !," Header line 2: ",$PIECE($GET(^IBE(350.9,1,5)),"^",2)
+10 WRITE !," Header line 3: ",$PIECE($GET(^IBE(350.9,1,5)),"^",3)
+11 WRITE !!," Track Inpatient: ",$$EXPAND^IBTRE(350.9,6.02,$PIECE(IBTRKR,"^",2))
+12 WRITE ?40," Track Outpatient: ",$$EXPAND^IBTRE(350.9,6.03,$PIECE(IBTRKR,"^",3))
+13 WRITE !," Track Rx: ",$$EXPAND^IBTRE(350.9,6.04,$PIECE(IBTRKR,"^",4))
D WRITE ?40," Track Prosthetics: ",$$EXPAND^IBTRE(350.9,6.05,$PIECE(IBTRKR,"^",5))
+1 WRITE !," Reports can Add CT: ",$$EXPAND^IBTRE(350.9,6.23,$PIECE(IBTRKR,"^",23))
+2 WRITE !!," Medicine Sample: ",$JUSTIFY($PIECE(IBTRKR,"^",8),3)
+3 WRITE ?40," Surgery Sample: ",$JUSTIFY($PIECE(IBTRKR,"^",13),3)
+4 WRITE !,"Medicine Admissions: ",$JUSTIFY($PIECE(IBTRKR,"^",9),3)
+5 WRITE ?40," Surgery Admissions: ",$JUSTIFY($PIECE(IBTRKR,"^",14),3)
+6 WRITE !!," Psych Sample: ",$JUSTIFY($PIECE(IBTRKR,"^",18),3)
+7 WRITE !," Psych Admissions: ",$JUSTIFY($PIECE(IBTRKR,"^",19),3)
+8 ;
+9 ; IB*2.0*517 added next 3 lines for new parameter questions
+10 WRITE !!," Inquiry can be Triggered for Appointment: ",$JUSTIFY($PIECE($GET(^IBE(350.9,1,62)),"^",10),3)," Days"
+11 WRITE !," Inquiry can be Triggered for Admission: ",$JUSTIFY($PIECE($GET(^IBE(350.9,1,62)),"^",11),3)," Days"
+12 WRITE !,"Days to wait to purge entry on HCSR Response: ",$JUSTIFY($PIECE($GET(^IBE(350.9,1,62)),"^",12),3)," Days"
+13 ;
+14 ; IB*2.0*517 added next two lines of warning text
+15 WRITE !!,"Note: There are additional HCSR parameters that can be accessed"
+16 WRITE !," through MCCR Site Parameter Display/Edit"
+17 QUIT
