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

Package: Fee Basis

Routine: FBCHVP


Information

FBCHVP ;AISC/CMR - VOID & CANCEL VOIDED INPATIENT PAYMENT ;5/16/14 16:17

Source Information

Source file <FBCHVP.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Fee Basis 7 FBCKI^FBAACCB1  PMNT^FBAACCB2  ($$DATX,$$SSN)^FBAAUTL  $$ADJLRA^FBCHFA  $$RRL^FBCHFR  $$NAME^FBCHREQ2  $$ICD^FBCSV1  
VA FileMan 4 ^DIC  DT^DICRW  ^DIE  ^DIR  
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 FBCH DELETE VOID  FBCH VOID PAYMENT  FBCNH DELETE VOID  FBCNH VOID PAYMENT  

Entry Points

Name Comments DBIA/ICR reference
RDP ;Get veteran if they have an inpatient invoice (DFN).
RDV ;Get vendor if an inpatient provider for this patient (FBV).
Q
EN1 ;Find finalized payments that match FBTYPE and store in ^TMP.
WRT
WRT1
HED
SETR ;Set/delete void node on record.
CONF ;Print void/cancel void confirmation.

External References

Name Field # of Occurrence
^%ZIS EN1+2
^DIC RDP+1, RDV+1
DT^DICRW FBCHVP+5
^DIE SETR+4
^DIR RDV+4, RDV+6
FBCKI^FBAACCB1 WRT1+2
PMNT^FBAACCB2 WRT1+7
$$DATX^FBAAUTL WRT1+3
$$SSN^FBAAUTL HED
$$ADJLRA^FBCHFA WRT+1
$$RRL^FBCHFR WRT+8
$$NAME^FBCHREQ2 CONF+1
$$ICD^FBCSV1 WRT1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDV+1
Function Call: WRITE
  • Prompt: !!,"Which payment item(s) would you like to ",$S($D(FBVOID):"Cancel the void on",1:"Void")," ? "
  • Line Location: RDV+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RDV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RDV+5
Function Call: WRITE
  • Prompt: !,?5,".... Done.",!
  • Line Location: RDV+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !,FBCTR_") "
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: !?3,"Reason:",!?10,^("R"),!
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: $S(FBREIM="R":"*",1:""),$S(FBVD="VP":"#",1:""),?3,$$DATX^FBAAUTL(FBFDT),?16,$$DATX^FBAAUTL(FBTDT)
  • Line Location: WRT1+3
Function Call: WRITE
  • Prompt: ?26,$S($G(FBDRG):$J($$ICD^FBCSV1(FBDRG,$G(FBFDT)),4),1:""),?35,$J($FN(FBAMTC,",",2),8),?48,$J($FN(FBAMTP,",",2),8),?62,$J(FBNUM,5),?72,$J($P($G(^FBAA(161.7,+FBBAT,0)),"^"),6)
  • Line Location: WRT1+4
Function Call: WRITE
  • Prompt: !,?5,$P(FBMRVP,U),?19,$P(FBMRVP,U,2),?34,$P(FBMRVP,U,3),?54,$P(FBMRVP,U,4)
  • Line Location: WRT1+5
Function Call: WRITE
  • Prompt: !,?5,"FPPS Claim ID: ",$P(FBMRVP,U,5),?33,"FPPS Line Item: ",$P(FBMRVP,U,6)
  • Line Location: WRT1+6
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$P(^DPT(DFN,0),"^"),?50,"Pt.ID ",$$SSN^FBAAUTL(DFN),!!,?2,"VENDOR: ",$P(^FBAAV(FBV,0),"^"),!,?10,"('*' Represents Reimbursement to Patient)",!,?10,"('#' Represents a Voided Payment)"
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !," FROM DATE",?16,"TO DATE",?26,"DRG",?33,"AMT CLAIMED",?48,"AMT PAID",?60,"INVOICE #",?72,"BATCH #"
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !,?5,"COV.DAYS",?19,"ADJ CODE",?34,"REMIT REMARKS",?55,"PATIENT CONTROL #"
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !,Q,!
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,?10,$S($D(FBVOID):"Cancel Voided",1:"Void")," payment for ",$$NAME^FBCHREQ2(DFN),!,*7,"You must adjust control point accordingly through IFCAP!"
  • Line Location: CONF+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+2
Routine Call
  • DIC
  • Line Location:
    • RDP+1
    • RDV+1
Routine Call
  • DIE
  • Line Location:
    • SETR+4
Routine Call
  • DIR
  • Line Location:
    • RDV+4
    • RDV+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAI - [#162.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HED
^FBAA(161.7 - [#161.7] WRT1+4
^FBAAI - [#162.5] EN1+3, WRT+2, WRT+3, WRT+14
^FBAAI("AK" EN1+3
^FBAAV - [#161.2] HED
^TMP($J RDP+1!, RDV+5*, RDV+7, Q!, WRT+10*, WRT+11*, WRT1

Label References

Name Line Occurrences
CONF RDV+7
EN1 RDV+2
HED RDV+4, WRT+12
Q RDP+1, RDV+1
RDP RDP+1, RDV+6
RDV RDV+1, RDV+3, RDV+4
SETR RDV+7
WRT EN1+3
WRT1 RDV+5, WRT+14

Naked Globals

Name Field # of Occurrence
^("FBREJ" EN1+3
^("R" WRT+14
^(0 EN1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A RDV+5*
A2 WRT1+7~*
DA Q!, SETR+1*
DFN RDP+1*, Q!, EN1+3, HED, CONF+1
DIC RDP+1*!, RDV+1*!
DIC("S" RDP+1*, RDV+1*
DIC(0 RDP+1*, RDV+1*
DIDEL SETR+4*!
DIE Q!, SETR+4*
DIR RDV+6!
DIR("A" RDV+6*
DIR("B" RDV+6*
DIR(0 RDV+4*, RDV+6*
>> DIRUT RDV+4, RDV+6
DR Q!, SETR+2*, SETR+3*
>> DTOUT RDP+1, RDV+1
>> DUOUT RDP+1, RDV+1
FBADJLR WRT~, WRT+9*, WRT+11
FBAMTC Q!, WRT1+1*, WRT1+4
FBAMTP Q!, WRT1+1*, WRT1+4, WRT1+7
FBBAT Q!, WRT1+1*, WRT1+4
FBCDAYS WRT~, WRT+4*, WRT+11
FBCTR RDV+3, RDV+4, RDV+5, Q!, EN1+1*, WRT+12, WRT+13*, WRT+14
FBDRG Q!, WRT1+1*, WRT1+4
FBFDT Q!, WRT1+1*, WRT1+3, WRT1+4
FBFPPSC WRT~, WRT+6*, WRT+11
FBFPPSL WRT~, WRT+7*, WRT+11
FBI RDV+5*, RDV+7*, Q!, EN1+1*, EN1+3*, WRT+1, WRT+2, WRT+3, WRT+8, WRT+10
, WRT+11, WRT+13, WRT+14, WRT1, WRT1+2, SETR+1
FBI( RDV+5, WRT+13*
FBINV RDV+5*, Q!, EN1+3*, WRT+10, WRT1+1
FBMRVP WRT1~*, WRT1+5, WRT1+6
FBNUM Q!, WRT1+1*, WRT1+4
FBREIM Q!, WRT1+1*, WRT1+3
FBRRMKL WRT~, WRT+8*, WRT+11
FBSCID WRT~, WRT+5*, WRT+11
FBTDT Q!, WRT1+1*, WRT1+3
FBTYPE RDV+3, Q!, EN1+3
FBV RDV+1*, Q!, EN1+3, HED
FBVD RDV+5*, Q!, EN1+3*, WRT1+3
FBVOID RDV+3, RDV+4, RDV+6, Q!, EN1+3, WRT+14, SETR+1, SETR+2, SETR+3, CONF+1
FBVR Q!, SETR+3
FBX RDV+4*, RDV+5, Q!, WRT~, WRT+1*, WRT+9
FBY2 WRT~, WRT+2*, WRT+4, WRT+5
FBY3 WRT~, WRT+3*, WRT+6, WRT+7
IOF RDV+4, WRT+12
ION EN1+2
IOP EN1+2*!
IOSL WRT+12
Q Q!, EN1+1*, HED+3
U WRT+4, WRT+5, WRT+6, WRT+7, WRT+9, WRT+11, WRT1+5, WRT1+6
VP Q!, SETR+1*
>> X RDP+1, RDV+1, RDV+5*
Y RDP+1, RDV+1, RDV+4, RDV+6, Q!
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