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: FBCHEP1

Package: Fee Basis

Routine: FBCHEP1


Information

FBCHEP1 ;AISC/DMK - EDIT PAYMENT FOR CONTRACT HOSPITAL ;10/01/14

Source Information

Source file <FBCHEP1.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT ;ENTRY POINT TO EDIT PAYMENT
BT
INV
END
BADDATE(INVRCVDT,TEMPDA) ;Compare edited Invoice Received Date to Treatment Date, reject if before. Called from [FBCH EDIT PAYMENT] template.
LAST(FBDA,FBNODE) ; Returns number (0-25) of last code in node for invoice
RMVGAP(FBDA,FBWRT) ; Remove gaps in ICD diagnosis and procedure codes
; input
; FBDA IEN of invoice
; FBWRT (optional) =1 if messages can be written to the screen
; remove any gaps
FLDLIST ; Provide list of fields for diagnosis, POA, and procedures
GETIPAC(FBDA,FBVEN,FBIA,FBDODINV) ; Get vendor/IPAC data for Inpatient (FB*3.5*123)
; All parameters required and assumed to exist
; Called by $$IPACEDIT^FBAAPET1
DELIPAC(FBDA) ; Delete all IPAC data on file for Inpatient (FB*3.5*123)
; Called by $$IPACEDIT^FBAAPET1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BT+0
Function Call: WRITE
  • Prompt: !!,*7,?3,"You must Reopen the batch prior to editing the invoice.",!
  • Line Location: BT+4
Function Call: WRITE
  • Prompt: !!,*7,?3,"You must be a holder of the FBAA LEVEL 2 security key",!,?3,"to edit this invoice.",!
  • Line Location: BT+5
Function Call: WRITE
  • Prompt: !!,?3,"Batch has already been sent to Austin for payment.",!
  • Line Location: BT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+0
Function Call: WRITE
  • Prompt: !!,"You cannot process a payment associated with authorization ",FBDFN,"-",FTP
  • Line Location: INV+7
Function Call: WRITE
  • Prompt: !,"due to separation of duties."
  • Line Location: INV+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INV+15
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+35
Function Call: WRITE
  • Prompt: !,"Diagnosis codes were moved to remove gaps"
  • Line Location: RMVGAP+29
Function Call: WRITE
  • Prompt: !,"Procedure codes were moved to remove gaps"
  • Line Location: RMVGAP+47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.7 - [#161.7] Classic Fileman Calls
^FBAAI - [#162.5] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call