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

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1IBARXMP ;LL/ELZ - PHARMCAY COPAY CAP PUSH TRANSACTION ;26-APR-2001
2 ;;2.0;INTEGRATED BILLING;**150,158**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5PUSH ; this entry point will allow the user to select one or all transactions
6 ; and transmit them to other treating facilities. This is used to try
7 ; to resolve untransmitted transactions. First IRM should verify the
8 ; HL7 link is working properly.
9 ;
10 N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,IBER
11 ;
12 W !!,"This option will attempt to transmit un-transmitted copay cap transactions.",!,"You can select to send all un-transmitted transactions or selected"
13 W !,"individual transactions. If you choose All, it could tie up your terminal",!,"session for some time.",!
14 S DIR(0)="S^A:All;I:Individual",DIR("A")="Do you want to transmit All or Individual transactions" D ^DIR Q:$D(DIRUT)
15 ;
16 D @Y
17 Q
18I ; transmits selected individual transactions
19 N DIC,X,Y,IBZ,IBX,%,%Y,IBTFL,DFN,IBY,IBS,IBONE
20 ;
21 S DIC="^IBAM(354.71,",DIC(0)="AEMNQZ",IBS=+$P($$SITE^IBARXMU,"^",3),DIC("S")="I $E(^(0),1,3)=IBS" D ^DIC Q:Y<1
22 S IBX=+Y,IBZ=Y(0),DFN=$P(IBZ,"^",2),IBTFL=$$TFL^IBARXMU(DFN,.IBTFL),IBY=1
23 ;
24 I IBTFL,($P(IBZ,"^",5)="C"!($P(IBZ,"^",5)="X")) W !!,"This transaction appears to already be transmitted.",!,"Do you want to transmit again" S %=2 D YN^DICN G:%'=1 I S IBONE=1
25 ;
26 I 'IBTFL W !!,"The patient for this transaction has no treating facilities to transmit to." D STATUS^IBARXMA(.IBY,IBX,0) G I
27 ;
28 D FOUND^IBARXMA(.IBY,IBX)
29 ;
30 U IO
31 I '$D(IBER) W !,"Transmission Successful !!",!
32 I $D(IBER) S X=0 F S X=$O(IBER(X)) Q:'X W !,"Error: ",X,"=",IBER(X)
33 W ! K IBER
34 ;
35 G I
36A ; transmits all un-transmitted transactions
37 N IBX,IBS
38 ;
39 I '$D(^IBAM(354.71,"AC","P")),'$D(^("Y")) W !!,"No Un-transmitted records to send.",!! Q
40 ;
41 F IBS="P","Y" S IBX=0 F S IBX=$O(^IBAM(354.71,"AC",IBS,IBX)) Q:IBX<1 D
42 . N IBER,IBY,IBZ,DFN
43 . S IBY=1,IBZ=^IBAM(354.71,IBX,0),DFN=$P(IBZ,"^",2)
44 . W !,"Now transmitting ",$P(IBZ,"^")
45 . D FOUND^IBARXMA(.IBY,IBX)
46 . U IO
47 . I '$D(IBER) W !,"Transmission Successful !!",! Q
48 . I $D(IBER) S X=0 F S X=$O(IBER(X)) Q:'X W !,"Error: ",IBER(X)
49 . W ! K IBER
50 Q
Note: See TracBrowser for help on using the repository browser.