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

FBCHFED.m

Go to the documentation of this file.
  1. FBCHFED ;WOIFO/SAB - FPPS DATA EDIT INPATIENT INVOICE ;5/15/14 18:25
  1. ;;3.5;FEE BASIS;**61,154**;JAN 30, 1995;Build 12
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. S FBAAOUT=0
  1. F D INVED Q:FBAAOUT
  1. D CLEAN
  1. Q
  1. ;
  1. INVED ; Invoice Edit
  1. ;
  1. ASKINV ; Select Invoice to Edit
  1. W ! S DIC="^FBAAI(",DIC(0)="AEQZ"
  1. S DIC("S")="I $P($G(^(3)),U)]""""" ; screen on EDI claim
  1. D ^DIC K DIC I Y'>0 S FBAAOUT=1 Q
  1. S FBDA=+Y
  1. ;
  1. I $$CKFPPS^FBFHLL(FBDA)'=1 D G ASKINV
  1. . W !?5,"Invoice ",FBDA," has not been transmitted to FPPS."
  1. ;
  1. ; save FPPS Claim ID and Line Item data prior to edit session
  1. S (FBFPPSC,FBFPPSC(0))=$P($G(^FBAAI(FBDA,3)),U)
  1. S (FBFPPSL,FBFPPSL(0))=$P($G(^FBAAI(FBDA,3)),U,2)
  1. S FBINVCHG=0 ; initialize invoice changed flag
  1. ;
  1. EDITFC ; edit FPPS CLAIM ID
  1. S FBX=$$FPPSC^FBUTL5(1,FBFPPSC)
  1. I FBX=-1 S FBAAOUT=1 G INVEDX
  1. ; need to verify if following restriction is appropriate
  1. I FBX="" D G EDITFC
  1. . W !,$C(7),"Can not change EDI from YES to NO on invoice that has been sent to FPPS!"
  1. S FBFPPSC=FBX
  1. ;
  1. ; if FPPS CLAIM ID changed, then update file and audit log
  1. I FBFPPSC'=FBFPPSC(0) D
  1. . ; set invoice changed flag
  1. . S FBINVCHG=1
  1. . ;
  1. . ; file data in 162.5
  1. . K FBFDA
  1. . S FBFDA(162.5,FBDA_",",56)=$S(FBFPPSC="":"@",1:FBFPPSC)
  1. . I $D(FBFDA) D FILE^DIE("","FBFDA") D MSG^DIALOG()
  1. . ;
  1. . ; add record to audit log
  1. . K FBFDA
  1. . S FBFDA(163.7,"+1,",.01)=FBDA ; invoice number
  1. . S FBFDA(163.7,"+1,",1)=$$NOW^XLFDT() ; date/time changed
  1. . S FBFDA(163.7,"+1,",2)=162.5 ; file #
  1. . S FBFDA(163.7,"+1,",3)=FBDA_"," ; iens
  1. . S FBFDA(163.7,"+1,",4)=56 ; field #
  1. . S FBFDA(163.7,"+1,",5)=FBFPPSC(0) ; old value
  1. . S FBFDA(163.7,"+1,",6)=FBFPPSC ; new value
  1. . S FBFDA(163.7,"+1,",7)=DUZ ; user
  1. . I $D(FBFDA) D UPDATE^DIE("","FBFDA") D MSG^DIALOG()
  1. ;
  1. ;
  1. EDITFL ; edit FPPS Line Item
  1. W !
  1. S FBX=$$FPPSL^FBUTL5(FBFPPSL,1)
  1. I FBX=-1 S FBAAOUT=1 G INVEDX
  1. S FBFPPSL=FBX
  1. ;
  1. ; if FPPS LINE ITEM changed, then update file and audit log
  1. I FBFPPSL'=FBFPPSL(0) D
  1. . ; set invoice changed flag
  1. . S FBINVCHG=1
  1. . ;
  1. . ; file data in 162.5
  1. . K FBFDA
  1. . S FBFDA(162.5,FBDA_",",57)=FBFPPSL
  1. . I $D(FBFDA) D FILE^DIE("","FBFDA") D MSG^DIALOG()
  1. . ;
  1. . ; add record to audit log
  1. . K FBFDA
  1. . S FBFDA(163.7,"+1,",.01)=FBDA ; invoice number
  1. . S FBFDA(163.7,"+1,",1)=$$NOW^XLFDT() ; date/time changed
  1. . S FBFDA(163.7,"+1,",2)=162.5 ; file #
  1. . S FBFDA(163.7,"+1,",3)=FBDA_"," ; iens
  1. . S FBFDA(163.7,"+1,",4)=57 ; field #
  1. . S FBFDA(163.7,"+1,",5)=FBFPPSL(0) ; old value
  1. . S FBFDA(163.7,"+1,",6)=FBFPPSL ; new value
  1. . S FBFDA(163.7,"+1,",7)=DUZ ; user
  1. . I $D(FBFDA) D UPDATE^DIE("","FBFDA") D MSG^DIALOG()
  1. ;
  1. INVEDX ; Invoice Edit Exit
  1. ; if invoice changed then queue for retransmit to FPPS
  1. I FBINVCHG D FILEQUE^FBFHLL(FBDA,9)
  1. Q
  1. ;
  1. CLEAN K DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. K FBAAOUT,FBDA,FBFDA,FBFPPSC,FBFPPSL,FBINVCHG,FBX
  1. Q
  1. ;FBCHFED