source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRP.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1IBTRP ;ALB/AAS - CLAIMS TRACKING PARAMETER EDIT ; 27-JUN-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5% D DISP
6 L +^IBE(350.9,1):5 I '$T D LOCKED^IBTRCD1 G END
7 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"
8 D ^DIE K DA,DR,DIE
9 L -^IBE(350.9,1)
10 D DISP,PAUSE^IBOUTL
11END Q
12 ;
13DISP ; -- Display tracking parameters
14 I '$D(IOF) D HOME^%ZIS
15 S IBTRKR=$G(^IBE(350.9,1,6))
16 W @IOF,?22,"Claims Tracking Parameter Enter Edit"
17 W !,$TR($J(" ",IOM)," ","-")
18 W !!,"Initialization Date: ",$$DAT1^IBOUTL(+IBTRKR)
19 W !,"Use Admission Sheet: ",$$EXPAND^IBTRE(350.9,6.06,$P(IBTRKR,"^",6))
20 W !," Header line 1: ",$P($G(^IBE(350.9,1,5)),"^")
21 W !," Header line 2: ",$P($G(^IBE(350.9,1,5)),"^",2)
22 W !," Header line 3: ",$P($G(^IBE(350.9,1,5)),"^",3)
23 W !!," Track Inpatient: ",$$EXPAND^IBTRE(350.9,6.02,$P(IBTRKR,"^",2))
24 W ?40," Track Outpatient: ",$$EXPAND^IBTRE(350.9,6.03,$P(IBTRKR,"^",3))
25 W !," Track Rx: ",$$EXPAND^IBTRE(350.9,6.04,$P(IBTRKR,"^",4))
26D W ?40," Track Prosthetics: ",$$EXPAND^IBTRE(350.9,6.05,$P(IBTRKR,"^",5))
27 W !," Reports can Add CT: ",$$EXPAND^IBTRE(350.9,6.23,$P(IBTRKR,"^",23))
28 W !!," Medicine Sample: ",$J($P(IBTRKR,"^",8),3)
29 W ?40," Surgery Sample: ",$J($P(IBTRKR,"^",13),3)
30 W !,"Medicine Admissions: ",$J($P(IBTRKR,"^",9),3)
31 W ?40," Surgery Admissions: ",$J($P(IBTRKR,"^",14),3)
32 W !!," Psych Sample: ",$J($P(IBTRKR,"^",18),3)
33 W !," Psych Admissions: ",$J($P(IBTRKR,"^",19),3)
34 W !!!
35 Q
Note: See TracBrowser for help on using the repository browser.