Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBAARR2

FBAARR2.m

Go to the documentation of this file.
  1. FBAARR2 ;AISC/GRR - REINITIATE REJECTED LINE ITEMS ;3/27/2012
  1. ;;3.5;FEE BASIS;**132**;JAN 30, 1995;Build 17
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. DELT ;TRAVEL LINE ITEM RE-INITIATE
  1. ; select patient
  1. S J=$$ASKVET^FBAAUTL1("I $D(^FBAAC(""AG"",B,+Y))")
  1. Q:'J
  1. K QQ
  1. S QQ=0 W @IOF D HEDP^FBAACCB0
  1. F K=0:0 S K=$O(^FBAAC("AG",B,J,K)) Q:K'>0 S QQ=QQ+1,QQ(QQ)=J_"^"_K S Y(0)=^FBAAC(J,3,K,0) D SETT^FBAACCB0
  1. RLT S DIR(0)="N^1:"_QQ,DIR("A")="Re-initiate which line item" D ^DIR K DIR G:$D(DIRUT) ENDT S HX=X
  1. I '$D(QQ(HX)) W !!,*7,"You just did that one!!" G RLT
  1. RIN S DIR(0)="Y",DIR("A")="Are you sure you want to re-initiate line item number: "_HX,DIR("B")="NO" D ^DIR K DIR G:$D(DIRUT)!'Y RLT
  1. S J=$P(QQ(HX),"^",1),K=$P(QQ(HX),"^",2)
  1. K FBERR
  1. D REJT^FBAARR1
  1. K QQ(HX)
  1. RASK S DIR(0)="Y",DIR("A")=$S($G(FBERR):"",1:"Line Re-initiated. ")_"Want to re-initiate another",DIR("B")="YES" D ^DIR K DIR G RASK:$D(DIRUT),ENDT:'Y,DELT:Y
  1. ENDT ;
  1. Q
  1. DELP ;PHARMACY LINE ITEM RE-INITIATE
  1. RDI W !! S DIC="^FBAA(162.1,",DIC(0)="AEQ" D ^DIC Q:X="^"!(X="") G:Y<0 RDI S A=+Y I '$D(^FBAA(162.1,"AF",B,A)) W !!,*7,"No payments rejected in this batch for that Invoice!" G RDI
  1. K QQ
  1. S QQ=0,FBIN=A W @IOF D SETV^FBAACCB0,HED^FBAACCB
  1. F B2=0:0 S B2=$O(^FBAA(162.1,"AF",B,A,B2)) Q:B2'>0 S QQ=QQ+1,QQ(QQ)=A_"^"_B2 S Z(0)=^FBAA(162.1,A,"RX",B2,0) D MORE^FBAACCB1
  1. RLP S DIR(0)="N^1:"_QQ,DIR("A")="Re-initiate which line item" D ^DIR K DIR G:$D(DIRUT) ENDP S HX=X
  1. I '$D(QQ(HX)) W !!,*7,"You just did that one!!" G RLP
  1. PRIN S DIR(0)="Y",DIR("A")="Are you sure you want to re-initiate item number: "_HX,DIR("B")="NO" D ^DIR K DIR G:$D(DIRUT)!'Y RLP
  1. S J=$P(QQ(HX),"^",1),K=$P(QQ(HX),"^",2)
  1. K FBERR
  1. D REJP^FBAARR1
  1. PASK S DIR(0)="Y",DIR("A")=$S($G(FBERR):"",1:"Line Re-initiated. ")_"Want to re-initiate another",DIR("B")="YES" D ^DIR K DIR G PASK:$D(DIRUT),DELP:Y,ENDP
  1. ENDP ;
  1. Q