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

Package: Accounts Receivable

Routine: RCDMCEDT


Information

RCDMCEDT ;HEC/SBW - Enter/Edit DMC Debt Valid Field ;26-Oct-2007

Source Information

Source file <RCDMCEDT.m>

Entry Points

Name Comments DBIA/ICR reference
UPDTDMC ;This is the main entry to enter/edit DMC Debt Valid field in
EDIT(DA,RETVAL) ;Allows user to enter/edit DMC Debt Valid Field
EDITQ ;Used to allow a common exit and to unlock the record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDTDMC+4
Function Call: WRITE
  • Prompt: !!," Bill doesn't have an associated Patient.",!
  • Line Location: UPDTDMC+21
Function Call: WRITE
  • Prompt: !!,"Veteran's Name:",?17,$G(VADM(1)),!
  • Line Location: UPDTDMC+22
Function Call: WRITE
  • Prompt: "Veteran's SSN:",?17,$G(VA("PID")),!
  • Line Location: UPDTDMC+23
Function Call: WRITE
  • Prompt: !," Only First Party bills can be edited.",!
  • Line Location: UPDTDMC+25
Function Call: WRITE
  • Prompt: "Category Type:",?17,$G(ARDATA(430,IENS,2,"E")),!
  • Line Location: UPDTDMC+30
Function Call: WRITE
  • Prompt: "Bill Status: ",?17,BSTAT,!
  • Line Location: UPDTDMC+32
Function Call: WRITE
  • Prompt: !?5," Only Open, Active & Suspended bills may be edited.",!
  • Line Location: UPDTDMC+34
Function Call: WRITE
  • Prompt: !,"Bill already referred to DMC on ",REFDT,!
  • Line Location: UPDTDMC+36
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDTDMC+40
Function Call: WRITE
  • Prompt: "Outpatient Date: ",$$FMTE^XLFDT($P(SERDT,U,2),"1P"),!
  • Line Location: UPDTDMC+41
Function Call: WRITE
  • Prompt: "Discharge Date: ",$$FMTE^XLFDT($P(SERDT,U,3),"1P"),1
  • Line Location: UPDTDMC+42
Function Call: WRITE
  • Prompt: "RX/Refill Date: ",$$FMTE^XLFDT($P(SERDT,U,4),"1P"),!
  • Line Location: UPDTDMC+43
Function Call: WRITE
  • Prompt: !,"DMC Debt Valid: ",?17,DVAL
  • Line Location: UPDTDMC+49
Function Call: WRITE
  • Prompt: " DMC Debt referral stopped on ",DVALDT,!
  • Line Location: UPDTDMC+50
Function Call: WRITE
  • Prompt: " Updated by ",DVALUSER," on ",DVALDT,!
  • Line Location: UPDTDMC+51
Function Call: WRITE
  • Prompt: !!," Debt may be referred to DMC if it meets existing DMC referral criteria.",!
  • Line Location: UPDTDMC+54
Function Call: WRITE
  • Prompt: !!," Please cancel this bill and/or refund payment if appropriate.",!
  • Line Location: UPDTDMC+55
Function Call: WRITE
  • Prompt: !!," *** Deletions not allowed. ***",!
  • Line Location: EDIT+21
Function Call: WRITE
  • Prompt: !!," *** PENDING is reserved for nightly DMC job. ***",!
  • Line Location: EDIT+23
Function Call: WRITE
  • Prompt: !!," *** No change entered. Field not updated. ***",!
  • Line Location: EDIT+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call