Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Fee Basis 5 (DELIPAC,GETIPAC,SAVEIPAC)^FBAAEPI  ($$IPAC,$$IPACINV,$$IPACREQD,IPACDISP)^FBAAMP  ($$MODL,MODDATA)^FBAAUTL4  (DELIPAC,GETIPAC)^FBCHEP1  $$FPPSL^FBUTL5  
VA FileMan 5 MSG^DIALOG  FILE^DIE  DA^DILF  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Fee Basis 6 FBAAEPI  FBAAFED  FBAAPET  FBCHEP1  FBCHPET  FBCHRR  

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

External References

Name Field # of Occurrence
MSG^DIALOG CKINVEDI+45
FILE^DIE CKINVEDI+45, DELIPAC+5, SAVEIPAC+6
DA^DILF DSPLIL+4
$$GET1^DIQ DSPLIL+8, DSPLIL+9, DSPLIL+11, DSPLIL+12
^DIR ASKQUES+6
DELIPAC^FBAAEPI IPACEDIT+40
GETIPAC^FBAAEPI IPACEDIT+21
SAVEIPAC^FBAAEPI IE1+5
$$IPAC^FBAAMP IPACEDIT+51
$$IPACINV^FBAAMP IPACEDIT+53
$$IPACREQD^FBAAMP IPACEDIT+35
IPACDISP^FBAAMP IPACEDIT+31
$$MODL^FBAAUTL4 DSPLIL+6
MODDATA^FBAAUTL4 DSPLIL+5
DELIPAC^FBCHEP1 IPACEDIT+41
GETIPAC^FBCHEP1 IPACEDIT+22
$$FPPSL^FBUTL5 CKINVEDI+43

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
Routine Call
  • DIALOG
  • Line Location:
    • CKINVEDI+45
Routine Call
  • DIE
  • Line Location:
    • CKINVEDI+45
    • DELIPAC+5
    • SAVEIPAC+6
Routine Call
  • DIR
  • Line Location:
    • ASKQUES+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.02 GET1^DIQ
162.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAAC - [#162] GETIPAC+4
^FBAAC("C" MILL+22, MILL+24, MILL+26, MILL+28

Label References

Name Line Occurrences
$$ASKQUES IPACEDIT+37, IPACEDIT+48
DELIPAC IPACEDIT+39
DSPLIL CKINVEDI+43
GETIPAC IPACEDIT+20
IE1 IPACEDIT+48
IPEDITX IPACEDIT+25, IPACEDIT+35, IE1+1, IE1+2
MILL CKINVEDI+24
SAVEIPAC IE1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MILL+16~, MILL+27*, MILL+28*, MILL+30, DSPLIL+3~, DSPLIL+4, DSPLIL+5
DA(1 MILL+25*, MILL+26*, MILL+28, MILL+30, DSPLIL+5, DSPLIL+8
DA(2 MILL+23*, MILL+24*, MILL+26, MILL+28, MILL+30, DSPLIL+5, DSPLIL+8
DA(3 MILL+21*, MILL+22*, MILL+24, MILL+26, MILL+28, MILL+30, DSPLIL+5, DSPLIL+8
DIR ASKQUES+2~, ASKQUES+6!
DIR("A" ASKQUES+4*, ASKQUES+5*
DIR("B" ASKQUES+4*, ASKQUES+5*
DIR(0 ASKQUES+3*
DIROUT ASKQUES+2~
DIRUT ASKQUES+2~, ASKQUES+7
DTOUT ASKQUES+2~
DUOUT ASKQUES+2~
FBAAIN CKINVEDI~, CKINVEDI+24, MILL~, MILL+22, MILL+24, MILL+26, MILL+28
FBASKLN CKINVEDI+17~, CKINVEDI+28*, CKINVEDI+30*, CKINVEDI+34, CKINVEDI+43
FBC MILL+16~, MILL+19*, MILL+29*, MILL+30, MILL+32
FBDA IPACEDIT~, IPACEDIT+20, IPACEDIT+21, IPACEDIT+22, IPACEDIT+39, IPACEDIT+40, IPACEDIT+41, IE1+4, IE1+5, GETIPAC~
, GETIPAC+4, DELIPAC~, DELIPAC+2, SAVEIPAC~, SAVEIPAC+3
FBDA(1 GETIPAC+4, DELIPAC+2, SAVEIPAC+3
FBDA(2 GETIPAC+3, GETIPAC+4, DELIPAC+2, SAVEIPAC+3
FBDA(3 GETIPAC+4, DELIPAC+2, SAVEIPAC+3
FBDD IPACEDIT~, IPACEDIT+20, IPACEDIT+21, IPACEDIT+22, IPACEDIT+39, IPACEDIT+40, IPACEDIT+41, IE1+4, IE1+5, IE1+6
, IPEDITX+1
FBDODINV IPACEDIT~, IPACEDIT+20, IPACEDIT+21, IPACEDIT+22, IPACEDIT+24, IPACEDIT+29, IPACEDIT+31, IPACEDIT+43*, IPACEDIT+53, IE1+2
, IE1+4, IE1+5, GETIPAC~, GETIPAC+6*, SAVEIPAC~, SAVEIPAC+5
FBFDA CKINVEDI+17~, CKINVEDI+45
FBFDA( CKINVEDI+42*, CKINVEDI+44*
FBFPPSC CKINVEDI+17~, CKINVEDI+29*, CKINVEDI+30*, CKINVEDI+31*, CKINVEDI+42
FBFPPSC0 CKINVEDI~, CKINVEDI+21, CKINVEDI+29, CKINVEDI+30, CKINVEDI+31
FBFPPSC1 CKINVEDI~, CKINVEDI+21, CKINVEDI+29, CKINVEDI+30, CKINVEDI+31
FBFPPSL CKINVEDI+17~, CKINVEDI+29*, CKINVEDI+43*, CKINVEDI+44
FBI CKINVEDI+17~, CKINVEDI+39*, CKINVEDI+40
FBIA IPACEDIT~, IPACEDIT+20, IPACEDIT+21, IPACEDIT+22, IPACEDIT+29, IPACEDIT+31, IPACEDIT+43*, IPACEDIT+51*, IE1+1, IE1+4
, IE1+5, GETIPAC~, GETIPAC+5*, SAVEIPAC~, SAVEIPAC+4
FBIAEDIT IPACEDIT+16~, IPACEDIT+28*, IPACEDIT+30*, IPACEDIT+36, IPACEDIT+48
FBIAFDA DELIPAC+1~, SAVEIPAC+1~
FBIAFDA( DELIPAC+3*, DELIPAC+4*, SAVEIPAC+4*, SAVEIPAC+5*
FBIENS CKINVEDI+17~, CKINVEDI+40*, CKINVEDI+41, CKINVEDI+42, CKINVEDI+44, DSPLIL+4, DSPLIL+9, DSPLIL+11, DSPLIL+12, DELIPAC+1~
, DELIPAC+2*, DELIPAC+3, DELIPAC+4, SAVEIPAC+1~, SAVEIPAC+3*, SAVEIPAC+4, SAVEIPAC+5
FBIENSE CKINVEDI~, CKINVEDI+19*, CKINVEDI+26, CKINVEDI+41
FBINVDEF IPACEDIT+16~, IPACEDIT+24*, IPACEDIT+53
FBMILL CKINVEDI+17~, CKINVEDI+24, MILL~, MILL+18!
FBMILL( CKINVEDI+39, CKINVEDI+40, MILL+30*
FBMILL(0 CKINVEDI+26, MILL+32*
FBMODA DSPLIL+3~
FBMODL DSPLIL+3~, DSPLIL+6*, DSPLIL+10
FBRET IPACEDIT+16~, IPACEDIT+17*, IE1+1*, IE1+2*, IPEDITX+1, IPEDITX+2
FBUPDLN CKINVEDI+17~, CKINVEDI+28*, CKINVEDI+29*, CKINVEDI+30*, CKINVEDI+44
FBVEN IPACEDIT+16~, IPACEDIT+20, IPACEDIT+21, IPACEDIT+22, IPACEDIT+25, IPACEDIT+35, IPACEDIT+51, GETIPAC~, GETIPAC+3*
FBZ IPACEDIT+16~, IPACEDIT+53*
GX3 GETIPAC+2~, GETIPAC+4*, GETIPAC+5, GETIPAC+6
RET ASKQUES+2~, ASKQUES+8*, ASKQUES+9*, ASKQUES+11
U GETIPAC+5, GETIPAC+6
WHICH IPACEDIT~, IPACEDIT+18*, IPACEDIT+50, IPACEDIT+52, IE1+1, IE1+2, IE1+4, IE1+5, SAVEIPAC~, SAVEIPAC+2*
, SAVEIPAC+4, SAVEIPAC+5
X ASKQUES+2~
Y ASKQUES+2~, ASKQUES+8
Z ASKQUES~, ASKQUES+4, ASKQUES+5, ASKQUES+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All