| 1 | IBARXMP ;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 | ;
|
|---|
| 5 | PUSH ; 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
|
|---|
| 18 | I ; 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
|
|---|
| 36 | A ; 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
|
|---|
