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

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.

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

FileMan Files Accessed Via FileMan Db Call

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