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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCAUTL

Package: Accounts Receivable

Routine: PRCAUTL


Information

PRCAUTL ;SF-ISC/YJK-AR UTILITY ROUTINES ;8/16/95 11:41 AM

Source Information

Source file <PRCAUTL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIC  FILE^DICN  
Accounts Receivable 1 $$DADD^RCAMADD  
Registration 1 $$EMGRES^DGUTL  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
Accounts Receivable 42 PRCABD  PRCABIL1  PRCABIL2  PRCABIL3  PRCABP2  PRCABPF  PRCACLM  PRCACM  
PRCAREP  PRCARETN  PRCARFD1  PRCARPS  PRCARPU  PRCASER  PRCASER1  PRCATA  
PRCATE  PRCATSE  PRCAUDT  PRCAUPD  PRCAWO  PRCAWREA  PRCAX  RCBECHGS  
RCCPC1  RCCPCPS  RCDMC90  RCDPAYER  RCEXINAD  RCJIBFN3  RCKATPD  RCRCACP  
RCRCRT  RCRCRT1  RCRCRT2  RCRCUTL  RCTCSPD4  RCTCSPD5  RCTCSWL  RCTOPD  
RCYPO237  ^PRCA(430  

Entry Points

Name Comments DBIA/ICR reference
SETTR ;Set a new transaction number. Return PRCAEN,X,DA
  • ICR #5218
    • Status: Active
    • Usage: Private
    BILL ;Look up a bill number - return PRCABN
    BILLN
    EXIT
    DEBTOR ;Check a debtor name,active address and other debtor's info.
    DEBNAM
    DEBADDR
    PATTR ;This transfers the pat# field in the file 430 to FILE 433
  • ICR #5218
    • Status: Active
    • Usage: Private
    PATR1
    TRANUP ;update the fiscal year amounts (file 430) from trans.file (433).
    UNIT ;move the DESCRIPTION field in the 430 to 433.
    TRUNIT ;transfer the DESCRIPTION field in the 433 to 430.
    UPATDD ;delete 433,"ATD" cross-reference of old debtor
    UPATDS ;set 433,"ATD" cross-reference of new debtor
    EMERES(DFN) ;This code flags a patient that is a victim of an emergent crisis.

    External References

    Name Field # of Occurrence
    $$EMGRES^DGUTL EMERES+9
    ^DIC BILLN+1
    FILE^DICN SETTR+2
    $$DADD^RCAMADD DEBADDR

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: BILLN+1
    Routine Call
    • DIC
    • Line Location:
      • BILLN+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCA(430 - [#430] Classic Fileman Calls
    ^PRCA(433 - [#433] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRCA(430 - [#430] BILLN+1, BILLN+2, DEBNAMPATTR+2, PATTR+3, PATTR+4, PATR1PATR1+1, TRANUP+2*, UNIT+1
    UNIT+2, UNIT+3, TRUNIT+2*
    ^PRCA(433 - [#433] SETTR+1, SETTR+2, SETTR+3*, SETTR+4*, PATTR+2!, PATTR+3*, PATTR+4*, PATR1*, PATR1+1*, TRANUP+2
    TRANUP+3*, UNIT+2*, UNIT+3*, TRUNIT+1, TRUNIT+2, UPATDD+3!, UPATDS+4*
    ^RC(342 - [#342] EMERES+10, EMERES+11
    ^RCD(340 - [#340] DEBNAMDEBNAM+1, DEBADDRUPATDS+3

    Label References

    Name Line Occurrences
    DEBADDR DEBTOR+2
    DEBNAM DEBTOR+2
    EXIT BILLN+1
    PATR1 PATTR+2
    SETTR SETTR+2

    Naked Globals

    Name Field # of Occurrence
    ^( PATR1+1
    ^(0 BILLN+1, BILLN+2, DEBNAM+1, PATR1UNIT+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A1 DEBNAM+1*, DEBNAM+2!, PATTR+2*, PATTR+3!, PATR1PATR1+1
    A2 DEBNAM+1*, DEBNAM+2!, PATTR+3!, PATR1+1*
    DA SETTR+3*, BILL+1!, UPATDD+1, UPATDD+2, UPATDS+1, UPATDS+2
    DD SETTR+2!
    DFN EMERES~, EMERES+4, EMERES+9
    DIC SETTR+2*!, BILL+1!, BILLN+1*, EXIT!
    DIC(0 SETTR+2*, BILLN+1*
    DINUM SETTR+1*, SETTR+2!
    DLAYGO SETTR+2*!
    DO SETTR+2!
    DPTNOFZK BILLN~*
    DPTNOFZY BILLN~*
    DT EMERES+13
    DUZ SETTR+4
    I PATTR+2*, PATR1+1*, UNIT+2*, UNIT+4!, TRUNIT+2*
    >> PRCA("APPR" SETTR+3, BILLN+2*
    >> PRCA("DEBTNM" DEBNAM+1*
    >> PRCA("DEBTOR" DEBADDR+2*
    >> PRCA("SEG" BILLN+1*
    >> PRCA("STATUS" BILLN+2*
    PRCA3 DEBNAM+1*, DEBNAM+2!
    PRCAATD UPATDD+1~, UPATDD+3*, UPATDS+1~, UPATDS+4*
    PRCABEG EMERES+5~, EMERES+10*, EMERES+12, EMERES+13
    PRCABN BILLN+1!*, BILLN+2, DEBNAMPATTR+2, PATTR+3, PATTR+4, PATR1PATR1+1, TRANUP+1, TRANUP+2
    UNIT+1, UNIT+2, UNIT+3, TRUNIT+1, TRUNIT+2, UPATDD+1~, UPATDD+2*, UPATDD+3, UPATDS+1~, UPATDS+2*
    UPATDS+4
    >> PRCACT DEBADDR*
    PRCADB DEBADDR*, DEBADDR+2!
    PRCADBPT DEBTOR+2, DEBNAM*, DEBNAM+1, DEBADDRDEBADDR+2!
    PRCADEB UPATDD+1~, UPATDD+2*, UPATDD+3, UPATDS+1~, UPATDS+2*, UPATDS+3, UPATDS+4
    PRCAEN SETTR+3*, SETTR+4, PATTR+2, PATTR+3, PATTR+4, PATR1PATR1+1, TRANUP+1, TRANUP+2, TRANUP+3
    UNIT+1, UNIT+2, UNIT+3, TRUNIT+1, TRUNIT+2, UPATDD+1~, UPATDD+3*, UPATDS+1~, UPATDS+4*
    PRCAEND EMERES+5~, EMERES+11*, EMERES+12*, EMERES+13
    PRCAK1 UNIT+1*, UNIT+2*, UNIT+4!, TRUNIT+1*, TRUNIT+2*, TRUNIT+3!
    >> PRCAKP DEBADDR*
    >> PRCAST DEBADDR+1*
    >> PRCAST1 DEBADDR*
    >> PRCAST2 DEBADDR*
    >> PRCATY BILLN+1*
    RCDA SETTR+2*!
    U SETTR+3, SETTR+4, BILLN+1, BILLN+2, DEBNAMDEBNAM+1, DEBADDRDEBADDR+1, PATTR+3, PATTR+4
    PATR1TRANUP+2, TRANUP+3, UNIT+2, UNIT+3, TRUNIT+2
    X SETTR+2*, DEBADDR*, DEBADDR+1, PATTR+3!, PATR1*, PATR1+1*, UPATDD+2, UPATDS+2, EMERES+5~, EMERES+9*
    , EMERES+13*, EMERES+14
    >> Y SETTR+2, SETTR+3, BILLN+1
    Z DEBADDR+2!
    Z1 TRANUP+2*, TRANUP+3!
    Z2 TRANUP+2*, TRANUP+3!
    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 |  Naked Globals |  Local Variables  | All