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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIE  GETS^DIQ  ^DIR  
Accounts Receivable 1 ($$FIRSTPAR,$$GETDEM,$$GETSERDT)^RCDMCUT1  
Kernel 1 $$FMTE^XLFDT  
Registration 1 KVAR^VADPT  

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

Package Total Caller Graph
Accounts Receivable 1 RCDMCEDT ENTER/EDIT DMC DEBT   

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

External References

Name Field # of Occurrence
^DIE EDIT+33
GETS^DIQ UPDTDMC+28
^DIR UPDTDMC+9, EDIT+18
$$FIRSTPAR^RCDMCUT1 UPDTDMC+17
$$GETDEM^RCDMCUT1 UPDTDMC+21
$$GETSERDT^RCDMCUT1 UPDTDMC+38
KVAR^VADPT UPDTDMC+24
$$FMTE^XLFDT UPDTDMC+41, UPDTDMC+42, UPDTDMC+43

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
Routine Call
  • DIE
  • Line Location:
    • EDIT+33
Routine Call
  • DIR
  • Line Location:
    • UPDTDMC+9
    • EDIT+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] EDIT+10, EDIT+17, EDITQ+1

Label References

Name Line Occurrences
EDIT UPDTDMC+53
EDITQ EDIT+20, EDIT+22, EDIT+24, EDIT+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDTDMC+5~
%X UPDTDMC+5~
ARDATA UPDTDMC+6~
ARDATA(430 UPDTDMC+30, UPDTDMC+31, UPDTDMC+35, UPDTDMC+45, UPDTDMC+46, UPDTDMC+47
BSTAT UPDTDMC+5~, UPDTDMC+31*, UPDTDMC+32, UPDTDMC+33
C UPDTDMC+5~
DA EDIT~, EDIT+8, EDIT+10, EDIT+17, EDITQ+1
DFN UPDTDMC+5~
DIE EDIT+6~, EDIT+31*
DIR UPDTDMC+5~, EDIT+6~
DIR("A" UPDTDMC+8*, EDIT+16*
DIR("B" EDIT+17*, EDIT+24
DIR(0 UPDTDMC+7*, EDIT+15*
DIROUT UPDTDMC+2~, UPDTDMC+3
DIRUT UPDTDMC+2~, UPDTDMC+10, UPDTDMC+56, EDIT+6~, EDIT+27
DR EDIT+6~, EDIT+32*
DTOUT UPDTDMC+2~, UPDTDMC+10, UPDTDMC+56, EDIT+6~
DUOUT UPDTDMC+2~, UPDTDMC+10, UPDTDMC+56, EDIT+6~
DVAL UPDTDMC+6~, UPDTDMC+45*, UPDTDMC+48, UPDTDMC+49, UPDTDMC+50, UPDTDMC+51
DVALDT UPDTDMC+6~, UPDTDMC+47*, UPDTDMC+50, UPDTDMC+51
DVALUSER UPDTDMC+6~, UPDTDMC+46*, UPDTDMC+51
FIRSTPAR UPDTDMC+5~, UPDTDMC+17*, UPDTDMC+20, UPDTDMC+25
IENS UPDTDMC+6~, UPDTDMC+27*, UPDTDMC+28, UPDTDMC+30, UPDTDMC+31, UPDTDMC+35, UPDTDMC+45, UPDTDMC+46, UPDTDMC+47
PATIENT UPDTDMC+6~, UPDTDMC+16*, UPDTDMC+20*, UPDTDMC+21
RCQUIT UPDTDMC+2~, UPDTDMC+3, UPDTDMC+10*, UPDTDMC+56*
RCY UPDTDMC+5~, UPDTDMC+12*, UPDTDMC+17, UPDTDMC+27, UPDTDMC+53
RCY(0 UPDTDMC+13*, UPDTDMC+16, UPDTDMC+38
REFDT UPDTDMC+5~, UPDTDMC+35*, UPDTDMC+36
RETVAL UPDTDMC+5~, UPDTDMC+53, UPDTDMC+54, UPDTDMC+55, EDIT~, EDIT+7*, EDIT+28*
SERDT UPDTDMC+6~, UPDTDMC+38*, UPDTDMC+39, UPDTDMC+41, UPDTDMC+42, UPDTDMC+43
U UPDTDMC+16, UPDTDMC+20, UPDTDMC+27, UPDTDMC+33, UPDTDMC+38, UPDTDMC+41, UPDTDMC+42, UPDTDMC+43, EDIT+17
VA UPDTDMC+5~
VA("PID" UPDTDMC+23
VADM UPDTDMC+5~
VADM(1 UPDTDMC+22
VAERR UPDTDMC+5~
X UPDTDMC+5~, EDIT+6~, EDIT+20
Y UPDTDMC+5~, UPDTDMC+11, UPDTDMC+12, EDIT+6~, EDIT+20, EDIT+22, EDIT+24, EDIT+28, EDIT+32
Y(0 UPDTDMC+13
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 |  Local Variables  | All