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

FBAAVR3.m

Go to the documentation of this file. 
  1. FBAAVR3 ;WOIFO/SAB - FINALIZE BATCH (CONT) ;4/10/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.  Q
  1.  ;
  1. CHKSPLT ; check for split invoices for batch
  1.  ; input FBN - batch IEN (file 161.7), must be type B3
  1.  ; output FBLNLST(FBIENS) - array of line items still in batch for
  1.  ;                          split invoices
  1.  N DIR,DIROUT,DIRUT,DTOUT,FBINLST,X,Y
  1.  ;
  1.  ; build list of split invoices
  1.  D LSTSPIN(FBN,.FBINLST)
  1.  ; build list of line items for split invoices
  1.  D LSTLN(FBN,.FBINLST,.FBLNLST)
  1.  ;
  1.  I $D(FBINLST) D
  1.  . W !,"This batch contains split invoice(s)."
  1.  . W !," An invoice is split when some lines on invoice are flagged as"
  1.  . W !," rejected and other lines are not flagged as rejected."
  1.  . W !," Current policy is to keep all invoice lines together."
  1.  . ;
  1.  . S DIR(0)="Y",DIR("A")="Do you want a list of split invoices"
  1.  . S DIR("B")="YES"
  1.  . D ^DIR Q:$D(DIRUT)
  1.  . ;
  1.  . I Y D
  1.  . . N FBDFN,FBIN,FBX
  1.  . . ; loop thru split invoices
  1.  . . S FBIN="" F  S FBIN=$O(FBINLST(FBIN)) Q:FBIN=""  D
  1.  . . . W !,"  Invoice ",FBIN," is split"
  1.  . . . S FBDFN=0 F  S FBDFN=$O(FBINLST(FBIN,FBDFN)) Q:'FBDFN  D
  1.  . . . . S FBX=FBINLST(FBIN,FBDFN)
  1.  . . . . W !,"    Patient: ",$P(FBX,"^")," with ",$P(FBX,"^",2)," line",$S($P(FBX,"^",2)'=1:"s that are",1:" that is")," not rejected."
  1.  . ;
  1.  . W !
  1.  ;
  1.  Q
  1.  ;
  1. LSTSPIN(FBN,FBINLST) ; build list of split invoices for a batch
  1.  ; input
  1.  ;   FBN - batch IEN file 161.7. must be type B3
  1.  ;   FBINLST - array, passed by reference
  1.  ; output
  1.  ;   FBLST - initialized and updated
  1.  ;     FBINLST(FBIN)=""
  1.  ;       where FBIN is an invoice number
  1.  ;       note: FBINLST will not be defined if batch is empty
  1.  ;
  1.  N FBDA,FBIENS,FBIN
  1.  K FBINLST
  1.  Q:'$G(FBN)
  1.  ;
  1.  ; loop thru rejected lines for batch
  1.  S FBDA(3)=0 F  S FBDA(3)=$O(^FBAAC("AH",FBN,FBDA(3))) Q:'FBDA(3)  D
  1.  . S FBDA(2)=0
  1.  . F  S FBDA(2)=$O(^FBAAC("AH",FBN,FBDA(3),FBDA(2))) Q:'FBDA(2)  D
  1.  . . S FBDA(1)=0
  1.  . . F  S FBDA(1)=$O(^FBAAC("AH",FBN,FBDA(3),FBDA(2),FBDA(1))) Q:'FBDA(1)  D
  1.  . . . S FBDA=0
  1.  . . . F  S FBDA=$O(^FBAAC("AH",FBN,FBDA(3),FBDA(2),FBDA(1),FBDA)) Q:'FBDA  D
  1.  . . . . S FBIENS=FBDA_","_FBDA(1)_","_FBDA(2)_","_FBDA(3)_","
  1.  . . . . S FBIN=$$GET1^DIQ(162.03,FBIENS,14) ; INVOICE NUMBER
  1.  . . . . Q:FBIN=""
  1.  . . . . Q:'$D(^FBAAC("AJ",FBN,FBIN))  ; no unrejected lines in batch
  1.  . . . . S FBINLST(FBIN)="" ; add to list of split invoices
  1.  ;
  1.  Q
  1.  ;
  1. LSTLN(FBN,FBINLST,FBLNLST) ; build list of line items
  1.  ; input
  1.  ;   FBN     - batch IEN file 161.7. must be type B3
  1.  ;   FBINLST - array of invoices, passed by reference
  1.  ;             FBINLST(FBIN)
  1.  ;             where FBIN is an invoice number
  1.  ;   FBLNLST - array of line items, passed by reference
  1.  ; output
  1.  ;   FBINLST - array of invoices, passed by reference
  1.  ;             will be updated by adding the following node
  1.  ;             FBINLST(FBIN,FBDFN)=patient name^line item count
  1.  ;             where FBDFN is the patient IEN (file 161 & file 2)
  1.  ;   FBLNLST - array of line items, passed by reference
  1.  ;             FBLNLST(FBIENS)=""
  1.  ;             where FBIENS is the IENS for a line item,
  1.  ;               FileMan DBS format
  1.  ;             this array will contain a list of line items still in
  1.  ;             input batch FBN for the invoices in input array FBINLST 
  1.  ;             Note: array is initialized and will not be defined
  1.  ;               if there are no line items
  1.  ;
  1.  N FBC,FBDA,FBIN
  1.  K FBLNLST
  1.  Q:'$G(FBN)
  1.  ;
  1.  ; loop thru invoices in array
  1.  S FBIN="" F  S FBIN=$O(FBINLST(FBIN)) Q:FBIN=""  D
  1.  . ; loop thru patients for invoice in batch
  1.  . S FBDA(3)=0
  1.  . F  S FBDA(3)=$O(^FBAAC("AJ",FBN,FBIN,FBDA(3))) Q:'FBDA(3)  D
  1.  . . S FBC=0 ; init line count for invoice & patient
  1.  . . S FBDA(2)=0
  1.  . . F  S FBDA(2)=$O(^FBAAC("AJ",FBN,FBIN,FBDA(3),FBDA(2))) Q:'FBDA(2)  D
  1.  . . . S FBDA(1)=0
  1.  . . . F  S FBDA(1)=$O(^FBAAC("AJ",FBN,FBIN,FBDA(3),FBDA(2),FBDA(1))) Q:'FBDA(1)  D
  1.  . . . . S FBDA=0 F  S FBDA=$O(^FBAAC("AJ",FBN,FBIN,FBDA(3),FBDA(2),FBDA(1),FBDA)) Q:'FBDA  D
  1.  . . . . . ; add to line item array
  1.  . . . . . S FBLNLST(FBDA_","_FBDA(1)_","_FBDA(2)_","_FBDA(3)_",")=""
  1.  . . . . . ; increment line count for invoice & patient
  1.  . . . . . S FBC=FBC+1
  1.  . . ;
  1.  . . ; update invoice array with save patient name and line count
  1.  . . S FBINLST(FBIN,FBDA(3))=$$GET1^DIQ(161,FBDA(3),.01)_"^"_FBC
  1.  ;
  1.  Q
  1.  ;
  1.  ;FBAAVR3