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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RCDMC90U

Package: Accounts Receivable

Routine: RCDMC90U


Information

RCDMC90U ;WASH IRMFO@ALTOONA,PA/TJK - DMC 90 DAY ;7/17/97 8:14 AM ; 10/24/96 3:21 PM [ 02/24/97 12:17 PM ]

Source Information

Source file <RCDMC90U.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 YX^%DTC  ^DIC  FILE^DIE  EN1^DIP  ^DIR  
Kernel 1 MES^XPDUTL  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Accounts Receivable 6 PRCA RCDMC 90 DAY REPORT  PRCA RCDMC CANCEL  PRCA RCDMC LESSER WITHHOLDING  PRCABJ  RCDMC90  RCDMC90S  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**45,108,121,163,400**;Mar 20, 1995;Build 13
COMPILE(MAX,CNTR,LINES,TLINE) ;COMPILES CODESHEETS INTO MAILMAN MESSAGES
COMPQ
PSEUDO(DFN,PSSN) ;Screens out patients with Pseudo-SSN's and sends mail message
NOW()
REPORT ;PRINT REPORT
PRINT
REPORTQ
PRNTOT
STARTUP ;Displays reminder message for mailgroups
LESSW ;ENTRY POINT FOR MENU OPTION TO ALLOW LESSER WITHHOLDING
LESSWA
LESSWQ
CANC ;ENTRY POINT FOR MENU OPTION TO ALLOW VAMC TO CANCEL DMC WITHOLDING
CANC1
CANC2
CANC3(DEBTOR,DELETE) ;ENTRY POINT FOR AUTODELETION BY SERVER
CANCQ
CANCDMC(DEBTOR) ; cancel DMC withholding (no user interaction) PRCA*4.5*400
ERROR(RCDOC,LKUP,DFN)
ERRORQ

External References

Name Field # of Occurrence
YX^%DTC NOW+1
^DIC LESSW+4, CANC1+1
FILE^DIE CANCDMC+21, CANCDMC+31
EN1^DIP PRINT
^DIR REPORT+8, LESSWA, CANC1+3
^XMD COMPILE+18, COMPILE+34, PSEUDO+10, ERROR+12
MES^XPDUTL STARTUP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DMC 90 DAY REFERRAL REPORT",!!
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !,"Select type of report"
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !!,DASH
  • Line Location: PRNTOT+2
Function Call: WRITE
  • Prompt: !,?6,"TOTALS:",?26,"PRINCIPLE",?36,"$"_$J(PRINTOT,15,2)
  • Line Location: PRNTOT+3
Function Call: WRITE
  • Prompt: !,?26,"INTEREST",?36,"$"_$J(INTTOT,15,2),!,?26,"ADMIN",?36,"$"_$J(ADMTOT,15,2)
  • Line Location: PRNTOT+4
Function Call: WRITE
  • Prompt: !,?26,"TOTAL",?36,"$"_$J(PRINTOT+INTTOT+ADMTOT,15,2)
  • Line Location: PRNTOT+5
Function Call: WRITE
  • Prompt: !,"DMC Lesser Withholding..."
  • Line Location: LESSW+2
Function Call: WRITE
  • Prompt: !!,*7,"Amount entered exceeds the amount currently at DMC which is ",$P(^(3),U,5),!,"Re-enter lesser amount"
  • Line Location: LESSWA+1
Function Call: WRITE
  • Prompt: !,"Deletion of Debtor From DMC"
  • Line Location: CANC+1
Routine Call
  • DIC
  • Line Location:
    • LESSW+4
    • CANC1+1
Routine Call
  • DIE
  • Line Location:
    • CANCDMC+21
    • CANCDMC+31
Routine Call
  • DIR
  • Line Location:
    • REPORT+8
    • LESSWA
    • CANC1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PSEUDO+9, ERROR+10
^PRCA(430 - [#430] CANC2!, CANCDMC+24, CANCDMC+30, CANCDMC+32
^RCD(340 - [#340] LESSWA, LESSWA+1, LESSWA+2*, CANC1+4*, CANC2+2!, CANCDMC+7, CANCDMC+8, CANCDMC+20, CANCDMC+22
^XTMP("RCDMC90" COMPILE+6!, COMPILE+9*, COMPILE+10*, COMPILE+25*, COMPILE+26*, COMPILE+27*, COMPILE+29*, COMPILE+31*, COMPILE+32*

Label References

Name Line Occurrences
$$NOW COMPILE+16
CANC1 CANC1+3, CANC2+1
CANC2 CANC3+2
CANCQ CANC1+1
LESSWA LESSWA+1
LESSWQ LESSW+4, LESSWA
PRINT REPORT+10

Naked Globals

Name Field # of Occurrence
^( COMPILE+32
^(0 ERROR+10
^(3 LESSWA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%H NOW~, NOW+1*
ADMTOT REPORT+1~, REPORT+11*, PRNTOT+4, PRNTOT+5
BY REPORT+1~, REPORT+10*, REPORT+13*
CNT COMPILE+2~, COMPILE+4*, COMPILE+5, COMPILE+9, COMPILE+10, COMPILE+11
CNTR COMPILE~, COMPILE+4, COMPILE+10, COMPILE+11
DASH PRNTOT~, PRNTOT+1*, PRNTOT+2
DEBTOR LESSW+1~, LESSW+4*, LESSWA, LESSWA+1, LESSWA+2, CANC+2~, CANC1+1*, CANC1+4, CANC2, CANC2+2
, CANC3~, CANCDMC~, CANCDMC+7, CANCDMC+8, CANCDMC+11, CANCDMC+20, CANCDMC+22, CANCDMC+24
DELETE CANC+2~, CANC2+1, CANC3~
DFN PSEUDO~, PSEUDO+9, ERROR~, ERROR+10
DIC REPORT+1~, REPORT+9*, LESSW+1~, LESSW+3*, CANC+2~, CANC1*
DIC("A" CANC1*
DIC("S" LESSW+3*, CANC1+1*
DIC(0 LESSW+3*, CANC1*
DIERR CANCDMC+6~
DIERR("DIERR" CANCDMC+23, CANCDMC+33
DIOEND REPORT+1~, REPORT+14*
DIR LESSW+1~, CANC+2~
DIR("?" REPORT+5*, REPORT+6*, REPORT+7*
DIR("A" REPORT+4*, CANC1+2*
DIR("B" LESSWA*, CANC1+3*
DIR(0 REPORT+4*, LESSWA*, CANC1+2*
DIS REPORT+1~
DIS(0 REPORT+12*
DT COMPILE+24
FDA CANCDMC+6~, CANCDMC+25!
FDA(340 CANCDMC+12*, CANCDMC+13*, CANCDMC+14*, CANCDMC+15*, CANCDMC+16*, CANCDMC+17*, CANCDMC+18*, CANCDMC+19*
FDA(430 CANCDMC+26*, CANCDMC+27*, CANCDMC+28*, CANCDMC+29*
FLDS REPORT+1~, REPORT+10*, REPORT+13*
FR REPORT+1~, REPORT+9*
I COMPILE+28*, COMPILE+29, COMPILE+32*, CANC2*, CANC3+1~
IENS CANCDMC+6~, CANCDMC+11*, CANCDMC+12, CANCDMC+13, CANCDMC+14, CANCDMC+15, CANCDMC+16, CANCDMC+17, CANCDMC+18, CANCDMC+19
, CANCDMC+25*, CANCDMC+26, CANCDMC+27, CANCDMC+28, CANCDMC+29
INTTOT REPORT+1~, REPORT+11*, PRNTOT+4, PRNTOT+5
L REPORT+1~, REPORT+9*
LINES COMPILE~, COMPILE+10
LKUP ERROR~, ERROR+7
MAX COMPILE~, COMPILE+5, COMPILE+11
MSG PSEUDO+1~, ERROR+1~
MSG(1 PSEUDO+5*, ERROR+6*
MSG(2 PSEUDO+6*, ERROR+7*
MSG(3 PSEUDO+7*, ERROR+8*
MSG(4 PSEUDO+8*, ERROR+9*
MSG(5 PSEUDO+9*, ERROR+10*
MSG(6 ERROR+11*
MSG(7 ERROR+11*
N3 CANCDMC+6~, CANCDMC+8*, CANCDMC+9, CANCDMC+10
PG REPORT+1~
PRINTOT REPORT+1~, REPORT+11*, PRNTOT+3, PRNTOT+5
PSSN PSEUDO~, PSEUDO+9
RCBILL CANCDMC+6~, CANCDMC+24*, CANCDMC+25, CANCDMC+30, CANCDMC+32
RCDOC COMPILE+14, COMPILE+15, COMPILE+22, COMPILE+23, COMPILE+24, ERROR~, ERROR+6, ERROR+11
RCMSG STARTUP+1~, STARTUP+4
RCMSG(1 STARTUP+1*
RCMSG(2 STARTUP+2*
RCMSG(3 STARTUP+3*
>> RCNT COMPILE+27, COMPILE+29, COMPILE+31
REC COMPILE+2~, COMPILE+3*, COMPILE+7*, COMPILE+9*, COMPILE+10
RES CANCDMC+6~, CANCDMC+24*, CANCDMC+30*, CANCDMC+33*, CANCDMC+35
SEQ COMPILE+2~, COMPILE+3*, COMPILE+6*, COMPILE+16
>> SITE COMPILE+10, COMPILE+16
TLINE COMPILE~, COMPILE+29, COMPILE+31
TO REPORT+1~, REPORT+9*
U COMPILE+29, COMPILE+31, PSEUDO+9, LESSWA, LESSWA+1, LESSWA+2, CANCDMC+9, CANCDMC+10, CANCDMC+24, ERROR+10
X COMPILE+32*, NOW~
XMDUZ COMPILE+2~, COMPILE+13*, COMPILE+21*, PSEUDO+1~, PSEUDO+4*, ERROR+1~, ERROR+4*
XMSUB COMPILE+12~, COMPILE+16*, COMPILE+24*, PSEUDO+1~, PSEUDO+2*, ERROR+1~, ERROR+2*
XMTEXT COMPILE+17*, COMPILE+33*, PSEUDO+1~, PSEUDO+4*, ERROR+1~, ERROR+5*
XMY COMPILE+12~, PSEUDO+1~, ERROR+1~
XMY("G.DMR" COMPILE+23*, PSEUDO+3*, ERROR+3*
XMY("G.DMX" COMPILE+22*
XMY("XXX@Q-DMR.DOMAIN.EXT" COMPILE+15*
XMY("XXX@Q-DMX.DOMAIN.EXT" COMPILE+14*
Y NOW~, NOW+2, REPORT+8, REPORT+10, LESSW+4, LESSWA, LESSWA+1, LESSWA+2, CANC+2~, CANC1+1
, CANC1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All