Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FBAAPET1

Package: Fee Basis

Routine: FBAAPET1


Information

FBAAPET1 ;WOIFO/SAB-EDIT PAYMENT ;7/10/2003

Source Information

Source file <FBAAPET1.m>

Entry Points

Name Comments DBIA/ICR reference
CKINVEDI(FBFPPSC0,FBFPPSC1,FBAAIN,FBIENSE) ; Check Invoice for EDI
; Input
; FBFPPSC0 - old FPPS CLAIM ID
; FBFPPSC1 - new FPPS CLAIM ID
; FBAAIN - invoice number
; FBIENSE - optional, iens of line on invoice that was already edited
; Result
; Lines on invoice may be updated (FPPS CLAIM ID, FPPS LINE ITEM)
MILL(FBAAIN,FBMILL) ; Medical Invoice Line List
; Input
; FBAAIN - invoice #
; FBMILL - array, passed by reference
; Result
;
; Output
; FBMILL - input array will be updated to contain
; FBMILL(0)=FBC
; FBMILL(FBI)=FBIENS
; Where
; FBC = number of lines on invoice
; FBI = integer number
; FBIENS = internal entry number of line item (subfile 162.03),
; fileman DBS format
;
DSPLIL ; Display Invoice Line
; Input
; FBIENS - iens of line to display
IPACEDIT(FBDD,FBDA,FBIA,FBDODINV,WHICH) ; Enter/Edit IPAC information for all payment types (FB*3.5*123)
; FBDD - required input. Either 162.03 for Outpatient/Ancillary, or 162.1 for Pharmacy, or 162.5 for Inpatient
; FBDA - required input. This is the DA(n) array specifying the record to be edited. Note in the case of Inpatient
; invoices, there is no array but rather the ien to file 162.5.
; WHICH- Optional input. Null to ask both IPAC Agreement and DOD Invoice Number
; 1 - Just ask for IPAC Agreement
; 2 - Just ask for DOD Invoice #
; Output
; FBIA - ien to file 161.95 - IPAC agreement ien. Pass by reference to get this value back if needed. Note the FBIA
; value will be retrieved from the database in this subroutine.
; FBDODINV - DoD invoice#. Pass by reference to get this value back if needed. Note the FBDODINV value will be
; retrieved from the database in this subroutine.
IE1 ; make sure data is there for filing
IPEDITX ;
ASKQUES(Z) ; Ask user a Yes/No question related to IPAC processing
; Function value is 1 if the answer is Yes, 0 Otherwise
GETIPAC(FBDA,FBVEN,FBIA,FBDODINV) ; Get vendor/IPAC data for Outpatient
; All parameters required and assumed to exist
DELIPAC(FBDA) ; Delete all IPAC data on file for Outpatient
SAVEIPAC(FBDA,FBIA,FBDODINV,WHICH) ; Store IPAC data into the database for Outpatient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"FPPS CLAIM ID was changed. Updating lines on invoice..."
  • Line Location: CKINVEDI+33
Function Call: WRITE
  • Prompt: !,"Since EDI Claim from FPPS was changed from NO to YES, the"
  • Line Location: CKINVEDI+35
Function Call: WRITE
  • Prompt: !,"FPPS LINE ITEM must be entered for each line on the invoice."
  • Line Location: CKINVEDI+36
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPLIL+7
Function Call: WRITE
  • Prompt: "SVC DATE: ",$$GET1^DIQ(162.02,DA(1)_","_DA(2)_","_DA(3)_",",.01)
  • Line Location: DSPLIL+8
Function Call: WRITE
  • Prompt: ?23,"CPT-MOD: ",$$GET1^DIQ(162.03,FBIENS,.01)
  • Line Location: DSPLIL+9
Function Call: WRITE
  • Prompt: "-",FBMODL
  • Line Location: DSPLIL+10
Function Call: WRITE
  • Prompt: ?43,"REV. CODE: ",$$GET1^DIQ(162.03,FBIENS,48)
  • Line Location: DSPLIL+11
Function Call: WRITE
  • Prompt: ?63,"AMT CLAIMED: ",$$GET1^DIQ(162.03,FBIENS,1)
  • Line Location: DSPLIL+12
Function Call: WRITE
  • Prompt: !,"IPAC Data has been removed.",!
  • Line Location: IPACEDIT+42
Function Call: WRITE
  • Prompt: !!,$C(7),"Required IPAC data is missing. Editing halted for this "_$S(FBDD=162.03:"line item",1:"invoice")_".",!
  • Line Location: IPEDITX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKQUES+6
Function Call: WRITE
  • Prompt: " Not "_$S(Z="CHANGE":"modifying",1:"deleting")_" the IPAC data ... "
  • Line Location: ASKQUES+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKQUES+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.02 GET1^DIQ
162.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call