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

Package: Accounts Receivable

Routine: RCAM


Information

RCAM ;WASH-ISC@ALTOONA,PA/RGY-Manager Debtor Information ;12/19/96 12:48 PM

Source Information

Source file <RCAM.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 7 ^%DTC  ^DIC  FIELD^DID  ^DIE  ^DIK  $$EXTERNAL^DILFD  ^DIR  
Accounts Receivable 3 ($$ARDEB,$$DADD,$$PAT)^RCAMADD  $$NAM^RCFN01  (DASH,PAUSE)^RCRPRPU  
Kernel 2 $$FMTE^XLFDT  $$CJ^XLFSTR  

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

Package Total Caller Graph
Accounts Receivable 4 PRCA ACCOUNT INFORMATION  PRCA VEN BIL  PRCABIL1  ^RC(341  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**34,190,198,223,359,438,441,443**;Mar 20, 1995;Build 4
EDT ;Select AR Debtor address information
EN1(RCDB) ;Edit Debtor address PRCA*4.5*443
PER(RCDB) ;Edit person address
INSUR(RCDB) ;Edit insurance address
PAT(RCDB) ;Edit Patient Address
PAT1
CHK ;Check Address for patients
Q1
DELA ;Delete AR debtor address information
INST(RCDB) ;Edit institution
VEN(RCDB) ;Edit Vendor file
DIS(RCDB) ;Display address information
Q3
DIS1 ;
DIS2(ADR1,ADR2)
FOL ;Called by input transform from 341,4.02
ASKEDT() ; display "edit address" prompt PRCA*4.5*443
ASKAUD() ; display "view audit history" prompt PRCA*4.5*443
GETAUD(FILE,IEN) ; get audit file data PRCA*4.5*443
DISPAUD ; display audit file data PRCA*4.5*443
AUDHDR ; print audit file data header PRCA*4.5*443

External References

Name Field # of Occurrence
^%DTC PAT1+14
^DIC V+6, EDT+3
FIELD^DID DISPAUD+11
^DIE V+6, PER+2, PAT1+5, PAT1+6, DELA+1, VEN+2
^DIK PAT1+18
$$EXTERNAL^DILFD DISPAUD+13
^DIR PAT1+3, CHK+8, ASKEDT+8, ASKAUD+8
$$ARDEB^RCAMADD PAT+4
$$DADD^RCAMADD DIS+4
$$PAT^RCAMADD PAT+2, PAT+3, DIS+5
$$NAM^RCFN01 DIS+3
DASH^RCRPRPU AUDHDR+5
PAUSE^RCRPRPU AUDHDR+1
$$FMTE^XLFDT DISPAUD+13
$$CJ^XLFSTR DISPAUD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+3
Function Call: WRITE
  • Prompt: !!,"Sorry, edit to the insurance file must be done via MAS",!!
  • Line Location: INSUR+1
Function Call: WRITE
  • Prompt: ?40,"Confidential Address from Patient file:"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !,"Address from AR Debtor file: "
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: !!,"*** WARNING: There appears to be incomplete address information",!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !,"*** Old address information deleted from AR address file ***",!
  • Line Location: DELA+1
Function Call: WRITE
  • Prompt: !!,"You are not authorized to edit Institution file",!!
  • Line Location: INST+1
Function Call: WRITE
  • Prompt: @IOF,!,"Address Accounts Receivable will use: "
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: ?40,"Address for mailing to veteran:"
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: ?42,RCNAM
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: ?3,"Large print needed on statements: YES",!
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS1+2
Function Call: WRITE
  • Prompt: " ",?TAB2,$P(ADR2,U,1)
  • Line Location: DIS2+2
Function Call: WRITE
  • Prompt: " ",?TAB2,$P(ADR2,U,2)
  • Line Location: DIS2+3
Function Call: WRITE
  • Prompt: " ",?TAB2,$P(ADR2,U,3)
  • Line Location: DIS2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS2+14
Function Call: WRITE
  • Prompt: !!,*7,"Follow-up Date is before Date of Contact",!
  • Line Location: FOL+1
Function Call: WRITE
  • Prompt: !!,*7,"Date of Contact does not exist!",!
  • Line Location: FOL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKEDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKAUD+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No address change history found.",80)
  • Line Location: DISPAUD+7
Function Call: WRITE
  • Prompt: !,"AR Debtor Address change history",?68,"Page: ",PAGE
  • Line Location: AUDHDR+3
Function Call: WRITE
  • Prompt: !!,"Date/Time User Field"
  • Line Location: AUDHDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: AUDHDR+5
Routine Call
  • DIC
  • Line Location:
    • V+6
    • EDT+3
Routine Call
  • DIE
  • Line Location:
    • V+6
    • PER+2
    • PAT1+5
    • PAT1+6
    • DELA+1
    • VEN+2
Routine Call
  • DIR
  • Line Location:
    • PAT1+3
    • CHK+8
    • ASKEDT+8
    • ASKAUD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIA - [#1.1] EXTERNAL^DILFD
^VA(200 - [#200] Classic Fileman Calls
^RCD(340 - [#340] Classic Fileman Calls,  FIELD^DID
^RC(341 - [#341] Classic Fileman Calls
^PRC(440 - [#440] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIA - [#1.1] GETAUD+12, GETAUD+13, GETAUD+14
^PRCA(430 - [#430] PAT1+19*
^RC(341 - [#341] PAT1+9, PAT1+10, PAT1+12, PAT1+14, FOL+1, FOL+2
^RCD(340 - [#340] EDT+3, EN1+2, PAT1+2, PAT1+7, CHK+1, DIS+2, DIS+11
^TMP("AUD" GETAUD+11!, GETAUD+14*, GETAUD+15*, DISPAUD+7, DISPAUD+8, DISPAUD+9, DISPAUD+10, DISPAUD+21!
^XUSEC("PRCA MED DEBTOR EDIT" PAT+9

Label References

Name Line Occurrences
$$ASKAUD EN1+3
$$ASKEDT EN1+6
AUDHDR DISPAUD+6, DISPAUD+12
DELA CHK+7, CHK+9
DIS EN1+4
DIS2 PAT+6, PAT+8, DIS+10
DISPAUD EN1+5
EN1 EDT+3
GETAUD EN1+5
INST EN1+10
INSUR EN1+11
PAT EN1+8
PAT1 CHK+9
PER EN1+7
Q1 PAT1+4, CHK+3, CHK+4, CHK+5, CHK+7
Q3 DIS+2
VEN EN1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADR1 PAT+1~, PAT+2*, PAT+6, DIS+1~, DIS+4*, DIS+10, DIS2~, DIS2+2, DIS2+3, DIS2+4
, DIS2+5, DIS2+6*, DIS2+7, DIS2+9, DIS2+11, DIS2+12*, DIS2+13
ADR2 PAT+1~, PAT+3*, PAT+5, PAT+6, DIS+1~, DIS+4*, DIS+5*, DIS+7, DIS+9, DIS+10
, DIS2~, DIS2+2, DIS2+3, DIS2+4, DIS2+5, DIS2+8
ADR3 PAT+1~, PAT+4*, PAT+8
AUDFLG EN1+1~, EN1+3*, EN1+5
AUDIEN GETAUD+8~, GETAUD+12*, GETAUD+13, GETAUD+14
CNT GETAUD+12*, GETAUD+14*, GETAUD+15, DISPAUD+4~, DISPAUD+9*, DISPAUD+10
DA V+5~, V+6*, PER+1~, PER+2*, PAT+1~, PAT1*, PAT1+8~, PAT1+9*, PAT1+10*, PAT1+11
, PAT1+12, PAT1+13, PAT1+14, PAT1+16*, PAT1+19*, DELA+1*, VEN+1~, VEN+2*, FOL+1, FOL+2
DA(1 PAT1+19*
DATA DISPAUD+4~, DISPAUD+10*, DISPAUD+11, DISPAUD+13, DISPAUD+14, DISPAUD+15
DIC V+5~, V+6*, EDT+1~, EDT+3*
DIC(0 V+6*, EDT+3*
DIE V+5~, V+6*, PER+1~, PER+2*, PAT+1~, PAT1+5*, DELA+1*, VEN+1~, VEN+2*
DIK PAT1+8~, PAT1+17*
DIR V+5~, PAT+1~, ASKEDT+4~, ASKAUD+4~
DIR("A" CHK+8*, ASKEDT+6*, ASKAUD+6*
DIR("B" PAT1+2*, CHK+8*
DIR(0 PAT1+3*, CHK+8*, ASKEDT+7*, ASKAUD+7*
DIROUT PAT+1~, ASKEDT+4~, ASKEDT+9, ASKAUD+4~, ASKAUD+9
DIRUT V+5~, PAT+1~, PAT1+4, ASKEDT+4~, ASKEDT+9, ASKAUD+4~, ASKAUD+9
DPTNOFZK EDT+2~*
DPTNOFZY EDT+2~*
DR V+5~, V+6*, PER+1~, PER+2*, PAT+1~, PAT1+5*, PAT1+6*, PAT1+8~, DELA+1*, VEN+1~
, VEN+2*
DT PAT1+14
DTOUT V+5~, EDT+3, CHK+7*, ASKEDT+4~, ASKEDT+9, ASKAUD+4~, ASKAUD+9
DUOUT V+5~, PAT+1~, ASKEDT+4~, ASKEDT+9, ASKAUD+4~, ASKAUD+9
DUZ PAT+9
FILE GETAUD~, GETAUD+9, GETAUD+12, GETAUD+13, GETAUD+14
FLD DISPAUD+4~
FLD("LABEL" DISPAUD+13
IEN GETAUD~, GETAUD+10, GETAUD+12
IOF DIS+6
IOSL DISPAUD+12
LN DISPAUD+4~, DISPAUD+12, DISPAUD+18*, AUDHDR+2*
N0 GETAUD+8~, GETAUD+13*, GETAUD+14
NEWVAL DISPAUD+4~, DISPAUD+15*, DISPAUD+17
OLDVAL DISPAUD+4~, DISPAUD+14*, DISPAUD+16
PAGE DISPAUD+4~, DISPAUD+5*, AUDHDR+1, AUDHDR+2*, AUDHDR+3
RCAD PAT+1~, CHK+1*, CHK+2, CHK+4, CHK+5
RCCONF DIS+1~
RCDA PAT1+1~, PAT1+13*, PAT1+16
RCDB EDT+1~, EN1~, EN1+2, EN1+3, EN1+4, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11
, PER~, PER+2, INSUR~, PAT~, PAT+2, PAT+3, INST~, VEN~, VEN+2, DIS~
, DIS+4, DIS+5
RCDB0 EN1+1~, EN1+2*, EN1+5, PAT+4, PAT1, PAT1+2, PAT1+7, PAT1+9, PAT1+10, PAT1+19
, CHK+1, DELA+1, DIS+2, DIS+3, DIS+11
RCNAM DIS+1~, DIS+3*, DIS+9
RCPHN DIS2+10~, DIS2+11*, DIS2+12
TAB1 DIS2~, DIS2+1*, DIS2+2, DIS2+3, DIS2+4, DIS2+7, DIS2+13
TAB2 DIS2~, DIS2+1*, DIS2+2, DIS2+3, DIS2+4, DIS2+8
TSTAMP GETAUD+8~, GETAUD+13*, GETAUD+15, DISPAUD+4~, DISPAUD+8*, DISPAUD+9, DISPAUD+13
U V+6, EDT+3, PAT1+2, PAT1+7, PAT1+12, PAT1+14, PAT1+19, CHK+1, CHK+2, CHK+4
, CHK+5, DIS+11, DIS1+1, DIS1+2, DIS2+2, DIS2+3, DIS2+4, DIS2+5, DIS2+6, DIS2+7
, DIS2+8, DIS2+9, DIS2+11, DIS2+12, DIS2+13, FOL+1, FOL+2, GETAUD+13, GETAUD+14, DISPAUD+11
, DISPAUD+13, DISPAUD+14, DISPAUD+15
X PAT1+15, CHK+1*, DIS1+1*, DIS1+2, FOL+1!, FOL+2!, ASKEDT+4~, ASKAUD+4~
X1 PAT1+1~, PAT1+14*
X2 PAT1+1~, PAT1+14*
Y V+5~, V+6, EDT+1~, EDT+3, PAT1+5, CHK+1*, CHK+2*, CHK+3, CHK+9, ASKEDT+4~
, ASKEDT+10, ASKAUD+4~, ASKAUD+10
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