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

FBXI165A.m

Go to the documentation of this file. 
  1. FBXI165A ;OI&T/LKG - POST-INIT CONVERSION FB*3.5*165 ;11/17/15  17:07
  1.  ;;3.5;FEE BASIS;**165**;JAN 30, 1995;Build 7
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  W !,"This FB*3.5*165 conversion routine should not be called directly." Q
  1.  ;
  1.  ; ICRs
  1.  ;  #2053    FILE^DIE
  1.  ;  #2054    CLEAN^DILF
  1.  ;  #10141   BMES^XPDUTL, MES^XPDUTL
  1.  ;
  1. IN ;Entry point for removing payment lines with populated DATE PAID
  1.  ; or CANCELLATION DATE from in process but not yet transmitted batches
  1.  D BMES^XPDUTL("    Removing paid or payment cancelled payment lines from")
  1.  D MES^XPDUTL("        not yet transmitted batches.")
  1.  N FBCANDT,FBCHANGE,FBH,FBLCNT,FBPAID,FBSTATUS,FBTOTAL,FBTYPE
  1.  N FBB2L,FBB3L,FBB5L,FBB9L,FBBCTR S (FBB2L,FBB3L,FBB5L,FBB9L)=0
  1.  S FBH=0
  1.  F  S FBH=$O(^FBAA(161.7,FBH)) Q:+FBH'=FBH  S FBSTATUS=$P($G(^FBAA(161.7,FBH,"ST")),U) I "^T^F^V^"'[("^"_FBSTATUS_"^") D
  1.  . S FBTYPE=$P($G(^FBAA(161.7,FBH,0)),U,3) Q:"^B2^B3^B5^B9^"'[("^"_FBTYPE_"^")
  1.  . S FBCHANGE=0
  1.  . I FBTYPE="B3" D
  1.  . . N FBCHK,FBI,FBJ,FBK,FBL S (FBI,FBJ,FBK,FBL)=0
  1.  . . F  S FBI=$O(^FBAAC("AC",FBH,FBI)) Q:'FBI  F  S FBJ=$O(^FBAAC("AC",FBH,FBI,FBJ)) Q:'FBJ  F  S FBK=$O(^FBAAC("AC",FBH,FBI,FBJ,FBK)) Q:'FBK  F  S FBL=$O(^FBAAC("AC",FBH,FBI,FBJ,FBK,FBL)) Q:'FBL  D
  1.  . . . S FBPAID=$P($P($G(^FBAAC(FBI,1,FBJ,1,FBK,1,FBL,0)),U,14),".")
  1.  . . . S FBCANDT=$P($P($G(^FBAAC(FBI,1,FBJ,1,FBK,1,FBL,2)),U,4),"."),FBCHK=$P($G(^(2)),U,3)
  1.  . . . Q:FBPAID=""&(FBCANDT="")
  1.  . . . I FBCANDT="",FBPAID<3110107,FBCHK="" Q
  1.  . . . Q:FBPAID>3130306  Q:FBCANDT>3130306
  1.  . . . S FBCHANGE=1,FBB3L=FBB3L+1
  1.  . . . N FBARR,FBIENS,FBDATE,FBERR S FBIENS=FBL_","_FBK_","_FBJ_","_FBI_","
  1.  . . . S ^XTMP("FB*3.5*165","RMVPAY",162.03,FBH,FBIENS)="7^5:"_$P($G(^FBAAC(FBI,1,FBJ,1,FBK,1,FBL,0)),U,6)
  1.  . . . S FBDATE=$S(FBCANDT>FBPAID:FBCANDT,1:FBPAID)
  1.  . . . S FBARR(162.03,FBIENS,7)="@",FBARR(162.03,FBIENS,5)=FBDATE
  1.  . . . D FILE^DIE("K","FBARR","FBERR")
  1.  . . . D:$D(FBERR) MES^XPDUTL("    Error updating file 162.03 record with IENS "_FBIENS)
  1.  . I FBTYPE="B9" D
  1.  . . N FBI S FBI=0
  1.  . . F  S FBI=$O(^FBAAI("AC",FBH,FBI)) Q:'FBI  D
  1.  . . . S FBPAID=$P($P($G(^FBAAI(FBI,2)),U),"."),FBCANDT=$P($P($G(^(2)),U,5),".")
  1.  . . . Q:FBPAID=""&(FBCANDT="")
  1.  . . . Q:FBPAID>3130306  Q:FBCANDT>3130306
  1.  . . . S FBCHANGE=1,FBB9L=FBB9L+1
  1.  . . . N FBARR,FBIENS,FBDATE,FBERR S FBIENS=FBI_","
  1.  . . . S ^XTMP("FB*3.5*165","RMVPAY",162.5,FBH,FBIENS)="20^19:"_$P($G(^FBAAI(FBI,0)),U,16)
  1.  . . . S FBDATE=$S(FBCANDT>FBPAID:FBCANDT,1:FBPAID)
  1.  . . . S FBARR(162.5,FBIENS,20)="@",FBARR(162.5,FBIENS,19)=FBDATE
  1.  . . . D FILE^DIE("K","FBARR","FBERR")
  1.  . . . D:$D(FBERR) MES^XPDUTL("    Error updating file 162.5 record with IENS "_FBIENS)
  1.  . I FBTYPE="B2" D
  1.  . . N FBI,FBJ S (FBI,FBJ)=0
  1.  . . F  S FBI=$O(^FBAAC("AD",FBH,FBI)) Q:'FBI  F  S FBJ=$O(^FBAAC("AD",FBH,FBI,FBJ)) Q:'FBJ  D
  1.  . . . S FBPAID=$P($P($G(^FBAAC(FBI,3,FBJ,0)),U,6),".")
  1.  . . . S FBCANDT=$P($P($G(^FBAAC(FBI,3,FBJ,0)),U,8),".")
  1.  . . . Q:FBPAID=""&(FBCANDT="")
  1.  . . . Q:FBPAID>3130306  Q:FBCANDT>3130306
  1.  . . . S FBCHANGE=1,FBB2L=FBB2L+1
  1.  . . . N FBARR,FBIENS,FBERR S FBIENS=FBJ_","_FBI_","
  1.  . . . S ^XTMP("FB*3.5*165","RMVPAY",162.04,FBH,FBIENS)="1"
  1.  . . . S FBARR(162.04,FBIENS,1)="@"
  1.  . . . D FILE^DIE("K","FBARR","FBERR")
  1.  . . . D:$D(FBERR) MES^XPDUTL("    Error updating file 162.04 record with IENS "_FBIENS)
  1.  . I FBTYPE="B5" D
  1.  . . N FBI,FBJ S (FBI,FBJ)=0
  1.  . . F  S FBI=$O(^FBAA(162.1,"AE",FBH,FBI)) Q:'FBI  F  S FBJ=$O(^FBAA(162.1,"AE",FBH,FBI,FBJ)) Q:'FBJ  D
  1.  . . . S FBPAID=$P($P($G(^FBAA(162.1,FBI,"RX",FBJ,2)),U,8),".")
  1.  . . . S FBCANDT=$P($P($G(^FBAA(162.1,FBI,"RX",FBJ,2)),U,11),".")
  1.  . . . Q:FBPAID=""&(FBCANDT="")
  1.  . . . Q:FBPAID>3130306  Q:FBCANDT>3130306
  1.  . . . S FBCHANGE=1,FBB5L=FBB5L+1
  1.  . . . N FBARR,FBIENS,FBERR S FBIENS=FBJ_","_FBI_","
  1.  . . . S ^XTMP("FB*3.5*165","RMVPAY",162.11,FBH,FBIENS)="13"
  1.  . . . S FBARR(162.11,FBIENS,13)="@"
  1.  . . . D FILE^DIE("K","FBARR","FBERR")
  1.  . . . D:$D(FBERR) MES^XPDUTL("    Error updating file 162.11 record with IENS "_FBIENS)
  1.  . I FBCHANGE D
  1.  . . S:FBSTATUS="" FBSTATUS="NULL" S FBBCTR(FBSTATUS)=$G(FBBCTR(FBSTATUS))+1
  1.  . . D CNTTOT^FBAARB(FBH)
  1.  . . N FBARR,FBIENS,FBERR S FBIENS=FBH_","
  1.  . . S FBARR(161.7,FBIENS,8)=FBTOTAL,FBARR(161.7,FBIENS,10)=FBLCNT
  1.  . . I FBTYPE="B9" S FBARR(161.7,FBIENS,9)=FBLCNT
  1.  . . I FBTYPE="B5" D
  1.  . . . N FBMCNT,FBM S FBMCNT=0,FBM=""
  1.  . . . F  S FBM=$O(^FBAA(162.1,"AE",FBH,FBM)) Q:FBM=""  S FBMCNT=FBMCNT+1
  1.  . . . S FBARR(161.7,FBIENS,9)=FBMCNT
  1.  . . D FILE^DIE("K","FBARR","FBERR")
  1.  . . D:$D(FBERR) MES^XPDUTL("    Error updating batch file 161.7 entry with IENS "_FBIENS)
  1.  ;Output statistics
  1.  D BMES^XPDUTL("*** Statistics For Removing Payments From Batches ***")
  1.  N FBCNT S FBCNT=0
  1.  S FBSTATUS=""
  1.  F  S FBSTATUS=$O(FBBCTR(FBSTATUS)) Q:FBSTATUS=""  D
  1.  . S FBH="Batches of Status '"_FBSTATUS_"' Updated: "_FBBCTR(FBSTATUS)
  1.  . D MES^XPDUTL(FBH)
  1.  . S FBCNT=FBCNT+FBBCTR(FBSTATUS)
  1.  D BMES^XPDUTL("Total Number of Batches Updated: "_FBCNT)
  1.  S FBH="B2 Batch Payment Lines Edited: "_FBB2L D BMES^XPDUTL(FBH)
  1.  S FBH="B3 Batch Payment Lines Edited: "_FBB3L D MES^XPDUTL(FBH)
  1.  S FBH="B5 Batch Payment Lines Edited: "_FBB5L D MES^XPDUTL(FBH)
  1.  S FBH="B9 Batch Payment Lines Edited: "_FBB9L D MES^XPDUTL(FBH)
  1.  D BMES^XPDUTL("Total Number of Payment Lines Edited: "_(FBB2L+FBB3L+FBB5L+FBB9L))
  1.  D CLEAN^DILF
  1.  Q
  1.  ;
  1.  ;FBXI165A