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

Package: Accounts Receivable

Routine: RCDPUREC


Information

RCDPUREC ;WISC/RFJ - receipt utilities ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPUREC.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Accounts Receivable 3 ($$EDILBEV,$$LBEVENT)^RCDPEU  $$ASKEFT^RCDPEU2  EDIT4^RCDPURE1  
Generic Code Sheet 1 $$STATUS^GECSSGET  
Kernel 1 OWNSKEY^XUSRB  

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

Package Total Caller Graph
Accounts Receivable 26 RCDPDPL1  RCDPDPLM  RCDPE8NZ  RCDPEAP  RCDPEM0  RCDPEM21  RCDPEMA  RCDPEREC  
RCDPEWL4  RCDPEWL5  RCDPEWL7  RCDPLPL1  RCDPLPL2  RCDPLPL4  RCDPLPLM  RCDPRLIS  
RCDPRPL1  RCDPRPL3  RCDPRPL4  RCDPRPLM  RCDPTAR  RCDPURE1  RCDPURET  RCDPUT  
RCDPXPAP  ^RCY(344  
Integrated Billing 1 IBJTTB1  

Entry Points

Name Comments DBIA/ICR reference
ADDRECT(TRANDATE,RCDEPTDA,PAYTYPDA) ;EP Add a receipt
; Input: TRANDATE - Deposit Date in fileman format
; RCDEPTDA - IEN in AR DEPOSIT file (#344.1)
; PAYTYPDA - AR Event Type IEN (#341.1)
; Returns: 0 - No receipt added or receipt IEN otherwise
BLDRCPT(TRANDATE,RCDEPTDA,PAYTYPDA,RCDUZ) ;EP Build a receipt with/without deposit
; LAYGO new entry to AR BATCH PAYMENT file (#344)
; Input: TRANDATE - Deposit Date in fileman format
; RCDEPTDA - IEN in AR DEPOSIT file (#344.1)
; PAYTYPDA - AR Event Type IEN (#341.1)
; RCDUZ - User IEN (#200)
; Returns: New IEN on success, else zero
NEXT(RECEIPT) ; function, get next 2 chars. in sequence 00 to ZZ for receipt
SELRECT(ADDNEW,RCDEPTDA) ; select a receipt
; if $g(addnew) allow adding a new receipt
; if $g(rcdeptda) allow selection of receipts for the deposit only
; if $g(addnew) and $g(rcdeptda) deposit number auto set for new receipt
; returns -1 for timeout or ^, 0 for no selection, or ien of receipt
DICW ; write identifier code for receipt lookup
LOOKUP ; special lookup on receipts, called from ^dd(344,.01,7.5)
; if rcreflup flag not set, do not use special lookup
EDITREC(DA,DR) ; edit the receipt (DR = string of fields to ask) in AR BATCH PAYMENT file (#344)
; RCBPYMNT - AR BATCH PAYMENT entry before edit
EDITREC2(RCDA,OLDET,NEWEFT) ;EP from RCDPRPL3@EDITREC
; Edit Receipt action for Recipts with a payment type of OGC-CHK
LBT(Y) ; Determine if Y should be set to @99 in DR string to skip field #.18 ERA REFERENCE
; DR(1,344,2)="I $P($G(^RCY(344,DA,0)),U,17) S Y=""@1001"";.06;@1001;D LBT^RCDPUREC(.Y);.18;@99"
; code below assumes DA,RCM3 are set
TYP(Y) ; Determine where to jump to in the 'type' edit of
; Y - passed by ref. from DR string logic
; DR(1,344,1)="@20;.04;S RCNO=0,RCN4=X D TYP^RCDPUREC(.Y);.17////^S X=RCNE;S Y=""@22"";@21;.04////^S X=RCO4;I RCOE="""" S Y=""@23"";.17////^S X=RCOE;@23;W !,*7,$S(RCO4=14:$S('RCNO:RCM1,1:RCM2),1:RCM) S Y=""@20"";@22"
; Assumes RCP,RCNO,RCN4,RCO4,DA defined
TYPQ ;
; If type changed to EDI LOCKBOX, must have an EFT reference
LASTEDIT(DA) ; set when receipt last edit
MARKPROC(DA,FMSDOCNO) ; mark receipt as processed, set receipt as closed,
; store fms document number if passed
FMSSTAT(RCRECTDA) ; return the fms cr document ^ status ^ if sent before lockbox
  • ICR #6851
    • Status: Active
    • Usage: Private
    ASK17(DA) ; function, Ask, return the EFT detail record IEN for a receipt
    ; Input: DA = the ien of the RECEIPT (file 344)
    ; Returns: IEN in EDI THIRD PARTY EFT DETAIL (#344.31) or zero
    G17 ; Reprompt for new EFT
    G1
    EFTKEY() ;Check if user has UNMATCH EFT key
    ; Input: None
    ; Returns; 1 if user owns RCDPEPP key ; otherwise 0.
    EFTUPD(DA,MATCH) ; Update EFT record if payment type is changed
    ; Input: DA = Internal entry number of EFT record.
    ; MATCH = New match status for the EFT
    ; Output: Notification to user screen, RCMSG.
    PAUSE ; Pause screen till user hits enter
    ; Input: None
    ; output: None
    DIC19 ;
    ISCHMPVA(RCTYP) ; Returns whether the given receipt type is CHAMPVA or not

    External References

    Name Field # of Occurrence
    ^DIC SELRECT+33
    FILE^DICN BLDRCPT+43
    ^DIE SELRECT+41, EDITREC+14, EDITREC+18, EDITREC+23, EDITREC+31, EDITREC+40, EDITREC2+4, LASTEDIT+4, MARKPROC+6, EFTUPD+6
    ^DIK SELRECT+39
    $$GET1^DIQ TYP+17, TYP+24, TYP+34, ASK17+9, EFTUPD+7, EFTUPD+9
    GETS^DIQ ASK17+8
    ^DIR TYP+35, ASK17+18, PAUSE+4
    $$STATUS^GECSSGET FMSSTAT+6
    $$EDILBEV^RCDPEU EDITREC+18
    $$LBEVENT^RCDPEU SELRECT+24, LBT+5
    $$ASKEFT^RCDPEU2 G1
    EDIT4^RCDPURE1 EDITREC+9
    OWNSKEY^XUSRB EFTKEY+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,*7,"NO EFT REFERENCED - RECEIPT NOT ADDED"
    • Line Location: SELRECT+38
    Function Call: WRITE
    • Prompt: ?13,"by: ",$E($P($G(^VA(200,+$P(DATA,"^",2),0)),"^"),1,15)
    • Line Location: DICW+4
    Function Call: WRITE
    • Prompt: ?35," on: ",$E($P(DATA,"^",3),4,5),"/",$E($P(DATA,"^",3),6,7),"/",$E($P(DATA,"^",3),2,3)
    • Line Location: DICW+7
    Function Call: WRITE
    • Prompt: ?50," ",$E($P($G(^RC(341.1,+$P(DATA,"^",4),0)),"^"),1,18)
    • Line Location: DICW+9
    Function Call: WRITE
    • Prompt: ?70," ",$S($P(DATA,"^",14):"OPEN",1:"CLOSED")
    • Line Location: DICW+11
    Function Call: WRITE
    • Prompt: !,RCM3
    • Line Location: LBT+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: TYP+35
    Function Call: WRITE
    • Prompt: !,"Existing EFT: "_$$GET1^DIQ(344.31,OLDEFT_",",.01,"E")_" "_RCARR(344.31,OLDEFT_",",.02)
    • Line Location: ASK17+9
    Function Call: WRITE
    • Prompt: " "_RCARR(344.31,OLDEFT_",",.04)_" "_RCARR(344.31,OLDEFT_",",.07)
    • Line Location: ASK17+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK17+11
    Function Call: WRITE
    • Prompt: !,*7,"Must have an EFT for an EDI Lockbox payment type"
    • Line Location: G1+3
    Function Call: WRITE
    • Prompt: !," "_RCMSG
    • Line Location: EFTUPD+11
    Function Call: WRITE
    • Prompt: !,G,!,@G
    • Line Location: DIC19+1
    Routine Call
    • DIC
    • Line Location:
      • SELRECT+33
    Routine Call
    • DIE
    • Line Location:
      • SELRECT+41
      • EDITREC+14
      • EDITREC+18
      • EDITREC+23
      • EDITREC+31
      • EDITREC+40
      • EDITREC2+4
      • LASTEDIT+4
      • MARKPROC+6
      • EFTUPD+6
    Routine Call
    • DIR
    • Line Location:
      • TYP+35
      • ASK17+18
      • PAUSE+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RC(341.1 - [#341.1] GET1^DIQ
    ^RCY(344 - [#344] Classic Fileman Calls
    ^RCY(344.31 - [#344.31] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRCA(433 - [#433] BLDRCPT+28
    ^RC(341.1 - [#341.1] BLDRCPT+14, DICW+9, ISCHMPVA+1
    ^RCY(344 - [#344] BLDRCPT+27, BLDRCPT+32, BLDRCPT+44, NEXT+3, NEXT+7, NEXT+20, SELRECT+37, SELRECT+41, DICW+2, EDITREC+6
    , EDITREC+12, EDITREC+18, EDITREC+19, EDITREC+22, EDITREC+29, EDITREC+38, LBT+5, LBT+11, TYP+14, TYP+15
    , TYP+16*, TYP+21, TYP+22*, TYP+27, TYP+30, TYP+36*, TYPQ+4, FMSSTAT+3, FMSSTAT+5, FMSSTAT+10
    , ASK17+4, G17+6, G17+8
    ^RCY(344.1 - [#344.1] SELRECT+16, FMSSTAT+5
    ^RCY(344.3 - [#344.3] SELRECT+13
    ^RCY(344.31 - [#344.31] TYPQ+4
    ^RCY(344.4 - [#344.4] TYP+14
    ^RCY(344.49 - [#344.49] LBT+9
    ^VA(200 - [#200] DICW+4

    Label References

    Name Line Occurrences
    $$ASK17 TYPQ+5
    $$BLDRCPT ADDRECT+17
    $$EFTKEY EDITREC+4
    $$NEXT BLDRCPT+25
    EFTUPD EDITREC+24, EDITREC+32, EDITREC+41, EDITREC+42, EDITREC2+5, EDITREC2+6
    G1 G1+2
    LASTEDIT EDITREC+46, EDITREC2+7
    PAUSE EDITREC+25, EDITREC+33, EDITREC+43
    TYPQ TYP+8, TYP+12

    Naked Globals

    Name Field # of Occurrence
    ^(0 EDITREC+18, TYPQ+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % BLDRCPT+35~, SELRECT+5~
    %DT BLDRCPT+35~, LASTEDIT+1~, MARKPROC+2~
    %Y SELRECT+5~
    ADDNEW SELRECT~, SELRECT+21
    C SELRECT+5~
    D EDITREC+2~, LASTEDIT+1~, MARKPROC+2~
    D0 BLDRCPT+35~, SELRECT+5~, EDITREC+2~, LASTEDIT+1~, MARKPROC+2~
    DA ADDRECT+9~, BLDRCPT+35~, SELRECT+5~, SELRECT+39*, SELRECT+41*, EDITREC~, EDITREC+3, EDITREC+12, EDITREC+23!*, EDITREC+30~
    , EDITREC+31*, EDITREC+39~, EDITREC+40*, EDITREC2+2~, EDITREC2+3*, LBT+5, LBT+9, LBT+11, TYP+14, TYP+15
    , TYP+16, TYP+21, TYP+22, TYP+27, TYP+30, TYP+36, TYPQ+4, TYPQ+5, LASTEDIT~, MARKPROC~
    , ASK17~, ASK17+4, G17+6, G17+8, EFTUPD~, EFTUPD+6, EFTUPD+7, EFTUPD+9
    DATA ADDRECT+9~, DICW+1~, DICW+2*, DICW+4, DICW+6*, DICW+7, DICW+9, DICW+11
    DD BLDRCPT+35~
    DG SELRECT+5~
    DI BLDRCPT+35~, SELRECT+5~, EDITREC+2~, LASTEDIT+1~, MARKPROC+2~
    DIC BLDRCPT+35~, BLDRCPT+36*, SELRECT+5~, SELRECT+8*, EDITREC+2~, EDITREC+3*, LASTEDIT+1~, LASTEDIT+2*, MARKPROC+2~, MARKPROC+3*
    DIC("A" SELRECT+8*, SELRECT+16*, SELRECT+22*
    DIC("DR" BLDRCPT+40*, BLDRCPT+41*, SELRECT+24*, SELRECT+29*, SELRECT+31*, SELRECT+32*
    DIC("S" SELRECT+15*, LOOKUP+4*, LOOKUP+6*, LOOKUP+7!
    DIC("W" SELRECT+9*
    DIC(0 BLDRCPT+36*, SELRECT+8*, SELRECT+23*
    DIE BLDRCPT+35~, SELRECT+5~, SELRECT+41*, EDITREC+2~, EDITREC+3*, EDITREC+18*, EDITREC+23*, EDITREC+30~, EDITREC+31*, EDITREC+39~
    , EDITREC+40*, EDITREC2+2~, EDITREC2+3*, LASTEDIT+1~, LASTEDIT+2*, MARKPROC+2~, MARKPROC+3*, EFTUPD+4~, EFTUPD+5*
    DIGIT1 NEXT+5~, NEXT+8*, NEXT+14*, NEXT+15*, NEXT+17*, NEXT+20, NEXT+23
    DIGIT2 NEXT+5~, NEXT+8*, NEXT+10*, NEXT+12*, NEXT+14*, NEXT+17*, NEXT+20, NEXT+23
    DIK SELRECT+5~, SELRECT+39*
    >> DILOCKTM BLDRCPT+32
    DIR TYP+4~, TYP+33!, ASK17+3~, ASK17+7~, EFTUPD+4~, PAUSE+3~
    DIR("?" ASK17+14*, ASK17+15*, ASK17+16*, ASK17+17*
    DIR("A" TYP+34*, ASK17+13*, PAUSE+4*
    DIR("B" TYP+34*, ASK17+12*
    DIR(0 TYP+33*, ASK17+12*, PAUSE+4*
    DLAYGO BLDRCPT+35~, BLDRCPT+36*, SELRECT+5~, SELRECT+23*
    DO BLDRCPT+35~
    DQ BLDRCPT+35~, SELRECT+5~, EDITREC+2~, LASTEDIT+1~, MARKPROC+2~
    DR BLDRCPT+35~, SELRECT+5~, SELRECT+41*, EDITREC~, EDITREC+5~, EDITREC+6*, EDITREC+8, EDITREC+9, EDITREC+10*, EDITREC+18*
    , EDITREC+23!*, EDITREC+30~, EDITREC+31*, EDITREC+39~, EDITREC+40*, EDITREC2+2~, EDITREC2+3*, LASTEDIT+1~, LASTEDIT+3*, MARKPROC+2~
    , MARKPROC+4*, MARKPROC+5*, EFTUPD+4~, EFTUPD+6*
    DR(1 EDITREC+10*
    DTOUT SELRECT+5~, SELRECT+35, ASK17+7~, ASK17+19
    DUOUT SELRECT+5~, SELRECT+35, ASK17+7~, ASK17+19
    DUZ BLDRCPT+40, SELRECT+24, LASTEDIT+3, MARKPROC+4, EFTKEY+4
    EFTKEY EDITREC+2~, EDITREC+4*, TYP+6, TYP+27, TYP+30, TYPQ+4
    FDA G17+1~
    FMSDOCNO MARKPROC~, MARKPROC+5, FMSSTAT+1~, FMSSTAT+3*, FMSSTAT+5*, FMSSTAT+6, FMSSTAT+10, FMSSTAT+13*, FMSSTAT+15
    >> G DIC19+1*
    GOTONE BLDRCPT+8~, BLDRCPT+11*, BLDRCPT+22, BLDRCPT+29*
    LAST NEXT+5~, NEXT+7*, NEXT+8
    MATCH EFTUPD~, EFTUPD+6
    MSG EFTKEY+3~, EFTKEY+4
    MSG(0 EFTKEY+5
    NEWEFT EDITREC2~, EDITREC2+3, EDITREC2+6
    OLDEFT EDITREC2+5, ASK17+3~, ASK17+4*, ASK17+6, ASK17+8, ASK17+9, ASK17+10
    OLDET EDITREC2~
    PAYTYPDA ADDRECT~, ADDRECT+7, ADDRECT+17, BLDRCPT~, BLDRCPT+14, BLDRCPT+41
    PRELOCK FMSSTAT+1~, FMSSTAT+5*, FMSSTAT+15
    QUIT ASK17+3~, ASK17+5*, ASK17+6, ASK17+19*
    RC1 SELRECT+6~, SELRECT+20*
    RC2 SELRECT+6~, SELRECT+20*
    RCARR ASK17+3~
    RCARR( ASK17+9, ASK17+10
    RCBPYMNT EDITREC+2~, EDITREC+12*
    RCBPYMNT(0 EDITREC+22, EDITREC+29, EDITREC+32, EDITREC+38, EDITREC+41
    RCCHANGE TYP+4~, TYP+11*, TYP+12
    RCDA EDITREC+2~, EDITREC+3*, EDITREC+6, EDITREC+9, EDITREC+18, EDITREC+19, EDITREC+22, EDITREC+23, EDITREC+29, EDITREC+31
    , EDITREC+38, EDITREC+40, EDITREC+46, EDITREC2~, EDITREC2+3, EDITREC2+7
    RCDE SELRECT+6~, SELRECT+13*, SELRECT+24, SELRECT+31
    RCDEPTDA ADDRECT~, ADDRECT+7, ADDRECT+17, BLDRCPT~, BLDRCPT+16*, BLDRCPT+41, SELRECT~, SELRECT+13, SELRECT+14, SELRECT+16
    , SELRECT+18, SELRECT+31
    RCDPFLAG ADDRECT+9~
    RCDR1 EDITREC+2~, EDITREC+9, EDITREC+10
    RCDR2 EDITREC+2~, EDITREC+9, EDITREC+10
    RCDR3 EDITREC+2~, EDITREC+9, EDITREC+10
    RCDUZ BLDRCPT~, BLDRCPT+40
    RCEFTSWP TYP+4~, TYP+6*, TYP+8
    RCERA TYP+4~, TYP+14*
    RCHMP SELRECT+6~
    RCLB SELRECT+6~
    >> RCM3 LBT+12
    RCMSG EFTUPD+4~, EFTUPD+9*, EFTUPD+10*, EFTUPD+11
    >> RCN4 TYP+6, TYP+8, TYP+11, TYP+15, TYP+21, TYP+30, TYP+32, TYP+34, TYP+37, TYP+40
    RCNE EDITREC+2~, EDITREC+22, EDITREC+23, EDITREC+24, EDITREC+38, EDITREC+40, EDITREC+42, TYPQ+5*
    >> RCNO TYPQ+5*
    >> RCO4 TYP+6, TYP+8, TYP+11, TYP+16, TYP+21, TYP+22, TYP+24, TYP+27, TYP+32, TYP+36
    >> RCP TYP+8, TYP+15, TYP+21, TYP+27, TYP+30, TYP+36, TYP+37, TYP+40, TYPQ+4, TYPQ+5
    RCPAYTYP SELRECT+6~, SELRECT+7*
    RCPROMPT G17+1~, G17+2*, G1
    RCRECTDA FMSSTAT~, FMSSTAT+3, FMSSTAT+5, FMSSTAT+10
    RCREFLUP SELRECT+6~, SELRECT+18*, LOOKUP+2
    RCREQ SELRECT+6~, SELRECT+36
    RCSCREEN G17+1~, G17+3*, G17+7*, G17+9*, G1
    RCTRC TYP+4~, TYP+5*, TYP+14*, TYP+15
    RCTYP ISCHMPVA~, ISCHMPVA+1
    RCY SELRECT+6~, SELRECT+34*, SELRECT+35*, SELRECT+36, SELRECT+37, SELRECT+39, SELRECT+40*, SELRECT+41, SELRECT+42
    RECEIPT ADDRECT+9~, BLDRCPT+8~, BLDRCPT+22, BLDRCPT+25*, BLDRCPT+26, BLDRCPT+27, BLDRCPT+28, BLDRCPT+32, BLDRCPT+42, BLDRCPT+44
    , NEXT~, NEXT+3, NEXT+7, NEXT+20, NEXT+21*, NEXT+23
    STATUS FMSSTAT+1~, FMSSTAT+6*, FMSSTAT+7*, FMSSTAT+10*, FMSSTAT+15
    TRANDATE ADDRECT~, ADDRECT+17, BLDRCPT~, BLDRCPT+25, BLDRCPT+41
    TYPE ADDRECT+9~, BLDRCPT+8~, BLDRCPT+14*, BLDRCPT+15*, BLDRCPT+16*, BLDRCPT+25
    U SELRECT+36, SELRECT+37, SELRECT+41, EDITREC+6, EDITREC+18, EDITREC+22, EDITREC+29, EDITREC+32, EDITREC+38, EDITREC+41
    , LBT+5, LBT+9, LBT+11, TYP+14, TYP+16, TYP+27, TYPQ+4, ASK17+4, ISCHMPVA+1
    X BLDRCPT+35~, BLDRCPT+42*, SELRECT+6~, LOOKUP+4*, LOOKUP+6*, EDITREC+2~, LASTEDIT+1~, MARKPROC+2~, ASK17+3~, ASK17+7~
    , EFTUPD+4~, PAUSE+3~
    Y BLDRCPT+35~, BLDRCPT+45, SELRECT+6~, SELRECT+34, DICW+2, EDITREC+2~, LBT~, LBT+9*, LBT+11*, TYP~
    , TYP+8*, TYP+12, TYP+15*, TYP+21*, TYP+27*, TYP+30*, TYP+36*, TYP+37*, TYP+40*, TYPQ+2
    , TYPQ+4*, TYPQ+5*, TYPQ+7*, LASTEDIT+1~, MARKPROC+2~, ASK17+3~, ASK17+7~, ASK17+19, G17+1~, G1*
    , G1+1, G1+2, G1+5, EFTUPD+4~, EFTUPD+7*, EFTUPD+8, EFTUPD+9, PAUSE+3~
    Z LBT+3~, LBT+5*, LBT+11
    Z0 LBT+3~, LBT+5*, LBT+9
    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