RCDPUREC ;WISC/RFJ - receipt utilities ;Jun 06, 2014@19:11:19
Source file <RCDPUREC.m>
| 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
|
|
| 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
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| 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 |
