IBTRP.m

IBTRP	;ALB/AAS - CLAIMS TRACKING PARAMETER EDIT ; 27-JUN-93

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;Per VHA Directive 10-93-142, 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"

	D ^DIE K DA,DR,DIE

	L -^IBE(350.9,1)

	D DISP,PAUSE^IBOUTL

END	Q

	;

DISP	; -- Display tracking parameters

	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)

	W !!!

	Q

IBTRP     ;ALB/AAS - CLAIMS TRACKING PARAMETER EDIT ; 27-JUN-93

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, 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        DO ^DIE

           KILL DA,DR,DIE

 +4        LOCK -^IBE(350.9,1)

 +5        DO DISP

           DO PAUSE^IBOUTL

END        QUIT 

 +1       ;

DISP      ; -- Display tracking parameters

 +1        IF '$DATA(IOF)

               DO HOME^%ZIS

 +2        SET IBTRKR=$GET(^IBE(350.9,1,6))

 +3        WRITE @IOF,?22,"Claims Tracking Parameter Enter Edit"

 +4        WRITE !,$TRANSLATE($JUSTIFY(" ",IOM)," ","-")

 +5        WRITE !!,"Initialization Date: ",$$DAT1^IBOUTL(+IBTRKR)

 +6        WRITE !,"Use Admission Sheet: ",$$EXPAND^IBTRE(350.9,6.06,$PIECE(IBTRKR,"^",6))

 +7        WRITE !,"      Header line 1: ",$PIECE($GET(^IBE(350.9,1,5)),"^")

 +8        WRITE !,"      Header line 2: ",$PIECE($GET(^IBE(350.9,1,5)),"^",2)

 +9        WRITE !,"      Header line 3: ",$PIECE($GET(^IBE(350.9,1,5)),"^",3)

 +10       WRITE !!,"    Track Inpatient: ",$$EXPAND^IBTRE(350.9,6.02,$PIECE(IBTRKR,"^",2))

 +11       WRITE ?40,"    Track Outpatient: ",$$EXPAND^IBTRE(350.9,6.03,$PIECE(IBTRKR,"^",3))

 +12       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        WRITE !!!

 +9        QUIT