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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Fee Basis 10 $$IPACEDIT^FBAAPET1  END^FBCHDI  START^FBCHDI2  (FILEADJ,LOADADJ)^FBCHFA  (FILERR,LOADRR)^FBCHFR  $$FRDTINV^FBCSV1  $$ADJL^FBUTL2  $$RRL^FBUTL4  
(FILERP,LOADRP)^FBUTL8  $$UOKPAY^FBUTL9  
VA FileMan 4 MSG^DIALOG  ^DIC  (,FILE)^DIE  $$GET1^DIQ  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Fee Basis 4 FBAAPET1  FBAAV6  FBCH EDIT PAYMENT  FBCHRR  

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

External References

Name Field # of Occurrence
^%ZIS EDIT+2
MSG^DIALOG RMVGAP+24, RMVGAP+44
^DIC BT, INV
^DIE INV+50, DELIPAC+3
FILE^DIE RMVGAP+24, RMVGAP+44
$$GET1^DIQ BADDATE+2, BADDATE+3
$$IPACEDIT^FBAAPET1 INV+12
END^FBCHDI END+4
START^FBCHDI2 INV+15
FILEADJ^FBCHFA INV+52
LOADADJ^FBCHFA INV+25
FILERR^FBCHFR INV+54
LOADRR^FBCHFR INV+29
$$FRDTINV^FBCSV1 INV+38
$$ADJL^FBUTL2 INV+27, INV+52
$$RRL^FBUTL4 INV+33, INV+54
FILERP^FBUTL8 INV+58
LOADRP^FBUTL8 INV+31
$$UOKPAY^FBUTL9 INV+6

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
Routine Call
  • %ZIS
  • Line Location:
    • EDIT+2
Routine Call
  • DIALOG
  • Line Location:
    • RMVGAP+24
    • RMVGAP+44
Routine Call
  • DIC
  • Line Location:
    • BT
    • INV
Routine Call
  • DIE
  • Line Location:
    • INV+50
    • DELIPAC+3
Routine Call
  • DIE
  • Line Location:
    • RMVGAP+24
    • RMVGAP+44

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] INV+20
^FBAA(161.7 - [#161.7] BT+3, INV+61*
^FBAAA - [#161] INV+48, INV+49
^FBAAA("AG" INV+5, INV+47
^FBAAI - [#162.5] INV+3, INV+4, INV+14, INV+15, INV+19, INV+22, INV+23, INV+40, INV+41, INV+42
, INV+43, INV+44, INV+45, INV+60, LAST+5, RMVGAP+8, RMVGAP+9, RMVGAP+31, GETIPAC+4, GETIPAC+5
^XUSEC("FBAA LEVEL 2" BT, BT+4, BT+5

Label References

Name Line Occurrences
$$LAST INV+34
BT BT+1, INV
END BT+1, BT+4, BT+5, BT+6
FLDLIST RMVGAP+6
INV INV, INV+12
RMVGAP INV+56, LAST+1

Naked Globals

Name Field # of Occurrence
^(0 INV+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT END+1!
D0 END+1!
DA INV+35*, INV+38, INV+40, INV+41, INV+42, INV+43, INV+44, INV+45, END!, DELIPAC+2~
, DELIPAC+3*
DAT END!
DFN INV+37~, INV+43*, INV+47, INV+48, INV+49, END!
DIC BT*, INV*, INV+35*, END!, DELIPAC+2~
DIC("S" BT*, INV*!
DIC(0 BT*, INV*, INV+35*
DIE INV+35*, END!, DELIPAC+2~, DELIPAC+3*
DR INV+35*, END!, DELIPAC+2~, DELIPAC+3*
DUOUT END+1!
DUZ BT, BT+4, BT+5
DXFLD RMVGAP+5~, RMVGAP+20, RMVGAP+22, FLDLIST+1*
F END+1!
FB1725 INV+20*, END+1!
FB583 INV+37~, INV+46*, END!
FB7078 END+1!
FB7078I INV+4*, INV+5, END+3!
FBAABDT END+1!
FBAAEDT END+1!
FBAAI INV+15*, END+1!
FBAAMM INV+59!
FBAAMM1 INV+37~, INV+40*, INV+59!
FBAAOUT END!
FBAAPN END!
FBAAPTC INV+37~, INV+44*
FBADJ INV+25, INV+27, INV+52, END+2!
FBADJD END+2!
>> FBADJL(0 INV+27*, INV+52
FBASSOC END!, END+1!
FBAUT END+1!
FBBAMT BT+3*, INV+61, END+1!
FBCNTRA INV+37~, INV+49*
FBCNTRP INV+37~, INV+41*
FBDA LAST~, LAST+1, LAST+4, LAST+5, RMVGAP~, RMVGAP+8, RMVGAP+9, RMVGAP+20, RMVGAP+21, RMVGAP+22
, RMVGAP+23, RMVGAP+31, RMVGAP+42, RMVGAP+43, GETIPAC~, GETIPAC+4, GETIPAC+5, DELIPAC~, DELIPAC+3
FBDEL END!
FBDFN INV+3*, INV+5, INV+6, INV+7, END+3!
FBDODINV INV+12, END+2!, GETIPAC~, GETIPAC+7*
FBDX END!, RMVGAP+5~, RMVGAP+8*, RMVGAP+14, RMVGAP+20, RMVGAP+25*, RMVGAP+27*
FBEXMPT BT+2*, END+1!
FBFDA RMVGAP+5~, RMVGAP+19!, RMVGAP+41!
FBFDA( RMVGAP+20*, RMVGAP+21*, RMVGAP+22*, RMVGAP+23*, RMVGAP+42*, RMVGAP+43*
FBFPPSC INV+22*, END+2!
FBFPPSL INV+23*, END+2!
FBI INV*, INV+3, INV+4, INV+12, INV+14, INV+15*, INV+19, INV+22, INV+23, INV+25
, INV+29, INV+31, INV+34, INV+35, INV+52, INV+54, INV+56, INV+58, INV+60, END!
, LAST+2~, LAST+6*, RMVGAP+5~, RMVGAP+12*, RMVGAP+14, RMVGAP+16, RMVGAP+20, RMVGAP+21, RMVGAP+22, RMVGAP+23
, RMVGAP+25, RMVGAP+26, RMVGAP+27, RMVGAP+28, RMVGAP+34*, RMVGAP+36, RMVGAP+38, RMVGAP+42, RMVGAP+43, RMVGAP+45
, RMVGAP+46
FBIA INV+12, END+2!, GETIPAC~, GETIPAC+6*
FBIFN END!
FBIN END!
FBK INV+14*, INV+61, END!
FBLISTC INV+15*, END!
FBLOC END!, END+1!
FBMOVED RMVGAP+5~, RMVGAP+10*, RMVGAP+18*, RMVGAP+29, RMVGAP+32*, RMVGAP+40*, RMVGAP+47
FBN BT+1*, BT+3, INV+61, END!, RMVGAP+5~, RMVGAP+11*, RMVGAP+15*, RMVGAP+16, RMVGAP+20, RMVGAP+21
, RMVGAP+25, RMVGAP+26, RMVGAP+33*, RMVGAP+37*, RMVGAP+38, RMVGAP+42, RMVGAP+45
FBN(0 BT+1*, BT+2, BT+3
FBNK INV+60*, INV+61, END!
FBNODE LAST~, LAST+4, LAST+5
FBPAMT END+1!
FBPOA RMVGAP+5~, RMVGAP+9*, RMVGAP+21, RMVGAP+26*, RMVGAP+28*
FBPOV END+1!
FBPRICE INV+15*, END!
FBPROC END!, RMVGAP+5~, RMVGAP+31*, RMVGAP+36, RMVGAP+42, RMVGAP+45*, RMVGAP+46*
FBPROG END+1!
>> FBPROV INV+31, INV+58
FBPSA END+1!
FBPT END+1!
FBRET LAST+2~, LAST+3*, LAST+6*, LAST+7
FBRR END+1!
FBRRMK INV+29, INV+33, INV+54, END+2!
FBRRMKD END+2!
>> FBRRMKL(0 INV+33*, INV+54
FBSTAT BT+3*, BT+4, BT+5, BT+6, END!
FBTT END+1!
FBTYPE END+1!
FBV INV+37~, INV+42*
FBVEN INV+37~, INV+48*, END!, GETIPAC~, GETIPAC+4*
FBVET END+1!
FBVID END!
FBWRT RMVGAP~, RMVGAP+24, RMVGAP+29, RMVGAP+44, RMVGAP+47
FBX LAST+2~, LAST+5*, LAST+6
FBXX END+1!
FBY INV+18~, INV+19*, INV+20
FTP INV+5*, INV+6, INV+7, INV+37~, INV+47*, INV+48, INV+49, END+1!
GX5 GETIPAC+3~, GETIPAC+5*, GETIPAC+6, GETIPAC+7
I END+1!
ICDVDT INV+37~, INV+38*
INVRCVDT BADDATE~, BADDATE+1, BADDATE+4
IOF INV+15
ION EDIT+2
IOP EDIT+2*!
J END!
K END!
L END!
LASTDX EDIT+1~, INV+34*
LASTPROC EDIT+1~, INV+34*
MSG1 BADDATE+6~*, BADDATE+7
MSG2 BADDATE+6~*, BADDATE+7
PI END+1!
POAFLD RMVGAP+5~, RMVGAP+21, RMVGAP+23, FLDLIST+2*
POP END!
PROCFLD RMVGAP+5~, RMVGAP+42, RMVGAP+43, FLDLIST+3*
PTYPE END+1!
Q END!
SHODAT BADDATE+2~*, BADDATE+3*, BADDATE+6
SHOTDAT BADDATE+5~*, BADDATE+6
T END+1!
TA END+1!
TDAT BADDATE+2~*, BADDATE+3*, BADDATE+4, BADDATE+5
TEMPDA BADDATE~, BADDATE+2, BADDATE+3
U INV+3, INV+4, INV+20, INV+22, INV+23, INV+40, INV+41, INV+42, INV+43, INV+44
, INV+45, INV+48, INV+49, LAST+4, RMVGAP+14, RMVGAP+20, RMVGAP+21, RMVGAP+22, RMVGAP+23, RMVGAP+25
, RMVGAP+26, RMVGAP+27, RMVGAP+28, RMVGAP+36, RMVGAP+42, RMVGAP+43, RMVGAP+45, RMVGAP+46, GETIPAC+4, GETIPAC+6
, GETIPAC+7
VA END!
VADM END!
VAL END+1!
X BT+1, INV, INV+45*, INV+46, INV+47, END!
Y BT+1, INV, END!
Y(0 BT+1
Z END+1!
ZZ END+1!
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 |  Naked Globals |  Local Variables |  All