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

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1IBCF13 ;ALB/AAS - PRINT UB-82 FROM A ;8/2/90
2 ;;2.0;INTEGRATED BILLING;**63,363**;21-MAR-94;Build 35
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;MAP TO DGCRP3
5 ;
6 ;Entry point for AR to print 2nd and 3rd Notice UB-82's
7 ;Device handling to be done by calling routine
8 ;Requires input - PRCASV("ARREC") = internal number of bill
9 ; - PRCASV("NOTICE")= number of notice
10 ;ouputs - IBAR("ERR") = error message
11 ; - IBAR("OKAY") = 1 normal finish, 0 not finished
12 ;
13REPRNT N I,J,DFN ;AR variables that need newing
14 N IBECME
15 K IBAR("ERR")
16 S IBAR("OKAY")=0 I '$D(PRCASV("ARREC"))!('$D(PRCASV("NOTICE"))) S IBAR("ERR")="MISSING INPUT VARIABLES" Q
17 S IBIFN=PRCASV("ARREC"),IB0=$S($D(^DGCR(399,IBIFN,0)):^(0),1:"") I IB0="" S IBAR("ERR")="BILL NON-EXISTANT" Q
18 S DGSTAT=$P(IB0,"^",13) I $S(DGSTAT=3:0,DGSTAT=4:0,1:1) S IBAR("ERR")=$S(DGSTAT=7:"BILL CANCELLED",1:"BILL STATUS INAPPROPRIATE") Q
19 ; IB*2*363 next line was added to prevent the print of forms for ePharmacy bills
20 Q:$P($G(^DGCR(399,IBIFN,"M1")),"^",8)]"" ;ECME number exists so the bill was electronically submitted
21 ; S DFN=$P(IB0,"^",2),IBPNT=PRCASV("NOTICE"),IBAC=4 D ENP^IBCF1
22 ; replaced above line with following 2 lines 4/28/92 RLW
23 ;S DFN=$P(IB0,"^",2),IBAC=4 I $P(^DGCR(399,IBIFN,0),"^",19)>1 D EN2^IBCF G REPRNTQ
24 S DFN=$P(IB0,"^",2),IBAC=4 I $$FT^IBCU3(IBIFN)>1 D EN2^IBCF,EN5^IBCF G REPRNTQ
25 S IBPNT=PRCASV("NOTICE") D ENP^IBCF1
26 S IBAR("OKAY")=1
27REPRNTQ K DFN,I,J
28 K M,X,X2,Y,Z,VADM,VAERR,DR,DA,D1,DGBS,DGCNT,IB,IBBILL,IBBNO,IBBT,IBC,IBCPT,IBEPAR,IBDPT,IBDT,IBF,IBIP,IBLS,IBO,IBPNT,DGSTAT,IBAC,IBIFN,IB0
29 K IBPTF,IBRATY,IBREV,IBREVC,IBST,IBTF,IBU,IBUTL,DGDA,DGLCNT,DGPAG,DGPT,DGRVC,DGRV,DGTOTPAG,DGTEXT,DGTEXT1,IBDI,IBDIN,IBBS,IBCC,IBPT,DGREVC,DGRSPAC,DGSM
30 Q
31 ;
32PRINT ;Entry for A/R to create option to print bills.
33 S IBVIEW=1 D KILL^IBCMENU,GEN^IBCB,KILL^IBCMENU
34 Q
Note: See TracBrowser for help on using the repository browser.