BPSUTIL2 ;BHAM ISC/SS - General Utility functions ;08/01/2006
Source file <BPSUTIL2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INSITEM(BPFILE,BPIEN,BPVAL01,NEWRECNO,BPFLGS,LCKGL,LCKTIME,BPNEWREC) | ;*/
|
|
FILLFLDS(FILENO,FLDNO,RECIEN,NEWVAL) | ;
|
|
GETPLN59(BPIEN59) | ;
|
|
GETPLN77(BPIEN77) | ;
|
|
GETRQST(IEN59) | ; Return the BPS Request IEN for a BPS Transaction record
|
|
COB59(BPSIEN59) | ;
|
|
PLANCOB(BPSIEN59,BPSENTRY) | ;
|
|
CLAIM59(BPS02) | ;
|
|
ALLCOB59(BP59) | ;
|
|
CLMINFO(BPS59) | ;
|
|
PAYBLSEC(BPSRIM59) | ;
|
|
PAYBLPRI(BPSSEC59) | ;
|
|
LASTDOS(BP59,FMT) | ;last date of service from most recent claim
; input: ; BP59 -> claim/transaction ; FMT -> Date format indicator (0:MM/DD; 1:Mmm dd,yyyy) ; output: ; Date of Service e.g. 06/01 |
|
CLMECME(ECME,RCDATE) | ;
|
|
VALECME(ECMENUM) | ; Validates the ECME Number
; Input: ECMENUM - ECME Number to be validated |
Name | Field # of Occurrence |
---|---|
^%DT | LASTDOS+17 |
DD^%DT | LASTDOS+19 |
$$IEN59^BPSOSRX | ALLCOB59+3 |
$$STATUS^BPSOSRX | PAYBLSEC+5, PAYBLPRI+5 |
$$PAYABLE^BPSOSRX5 | PAYBLSEC+7, PAYBLPRI+7 |
$$DOSCLM^BPSSCRLG | LASTDOS+14 |
$$RXREF^BPSSCRU2 | ALLCOB59+2, PAYBLSEC+2, PAYBLPRI+2 |
$$INSNAME^BPSSCRU6 | CLMINFO+4 |
FILE^DIE | FILLFLDS+8 |
UPDATE^DIE | INSITEM+13 |
$$GET1^DIQ | GETPLN59+3, GETRQST+3, GETRQST+5, GETRQST+7 |
$$RXBILL^IBNCPUT3 | PAYBLPRI+8 |
BMES^XPDUTL | INSITEM+15 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^BPST - [#9002313.59] | GET1^DIQ |
9002313.59902 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPS(9002313.77 - [#9002313.77] | GETPLN77+5, GETPLN77+8 |
^BPS(9002313.78 - [#9002313.78] | GETPLN77+11 |
^BPSC - [#9002313.02] | CLAIM59+1 |
^BPST - [#9002313.59] | GETPLN59+2, GETPLN59+4, COB59+3, PLANCOB+2, ALLCOB59+4, ALLCOB59+5, LASTDOS+11, LASTDOS+12 |
^BPSTL - [#9002313.57] | CLMECME+5, CLMECME+6 |
^BPSTL("AEC" | CLMECME+4, VALECME+6 |
Name | Line Occurrences |
---|---|
$$COB59 | CLMINFO+3 |
$$PLANCOB | CLMINFO+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | CLMECME+1~, CLMECME+11 |
ARY("D" | CLMECME+9*, CLMECME+10*, CLMECME+12 |
ARY("F" | CLMECME+9*, CLMECME+10*, CLMECME+14 |
BEFORE | CLMECME+1~, CLMECME+3*, CLMECME+4, CLMECME+8* |
BFILL | PAYBLSEC+1~, PAYBLSEC+4*, PAYBLSEC+5, PAYBLPRI+1~, PAYBLPRI+4*, PAYBLPRI+5, PAYBLPRI+8 |
BP59 | ALLCOB59~, ALLCOB59+2, LASTDOS~, LASTDOS+11, LASTDOS+12 |
BPCLAIM | LASTDOS+7~, LASTDOS+10*, LASTDOS+11*, LASTDOS+12*, LASTDOS+13, LASTDOS+14 |
BPERR | INSITEM+7~, INSITEM+15 |
BPERR("DIERR" | INSITEM+15 |
BPFDA | INSITEM+7~ |
BPFDA( | INSITEM+11* |
BPFILE | INSITEM~, INSITEM+1, INSITEM+11 |
BPFLGS | INSITEM~, INSITEM+13 |
BPIEN | INSITEM~, INSITEM+2, INSITEM+9, INSITEM+10 |
BPIEN59 | GETPLN59~, GETPLN59+2, GETPLN59+4 |
BPIEN77 | GETPLN77~, GETPLN77+2, GETPLN77+5, GETPLN77+8 |
BPIENS | INSITEM+7~, INSITEM+9*, INSITEM+10*, INSITEM+11 |
BPINSDAT | GETPLN77+1~, GETPLN77+11*, GETPLN77+12, GETPLN77+13 |
BPINSIEN | GETPLN77+1~, GETPLN77+3*, GETPLN77+5*, GETPLN77+6, GETPLN77+8 |
BPLOCK | INSITEM+4~*, INSITEM+12*, INSITEM+14 |
BPNEWREC | INSITEM~, INSITEM+2 |
BPRX | ALLCOB59+1~, ALLCOB59+2* |
BPRXI | ALLCOB59+1~, ALLCOB59+2*, ALLCOB59+3 |
BPRXR | ALLCOB59+1~, ALLCOB59+2*, ALLCOB59+3 |
BPS02 | CLAIM59~, CLAIM59+1 |
BPS59 | CLMINFO~, CLMINFO+2, CLMINFO+3, CLMINFO+4 |
BPSARR | PAYBLPRI+1~, PAYBLPRI+8 |
BPSARR(999999999 | PAYBLPRI+10 |
BPSENTRY | PLANCOB~, PLANCOB+1*, PLANCOB+2 |
BPSIEN59 | COB59~, COB59+2, COB59+3, PLANCOB~, PLANCOB+2 |
BPSINSUR | GETPLN77+1~, GETPLN77+8*, GETPLN77+9, GETPLN77+11 |
BPSP | ALLCOB59+1~, ALLCOB59+3*, ALLCOB59+4*, ALLCOB59+6 |
BPSRIM59 | PAYBLSEC~, PAYBLSEC+2 |
BPSS | ALLCOB59+1~, ALLCOB59+3*, ALLCOB59+5*, ALLCOB59+6 |
BPSSEC59 | PAYBLPRI~, PAYBLPRI+2 |
BPSSI | INSITEM+7~ |
BPSSI(1 | INSITEM+9*, INSITEM+10*, INSITEM+16 |
BPSSTAT1 | PAYBLPRI+1~, PAYBLPRI+5*, PAYBLPRI+7 |
BPSSTAT2 | PAYBLSEC+1~, PAYBLSEC+5*, PAYBLSEC+7 |
BPSTL | CLMECME+1~, CLMECME+4*, CLMECME+5, CLMECME+6 |
BPTYPE | GETRQST+1~, GETRQST+3*, GETRQST+5 |
BPVAL01 | INSITEM~, INSITEM+3, INSITEM+11 |
BPZ | PAYBLSEC+1~, PAYBLSEC+2*, PAYBLSEC+3, PAYBLSEC+4, PAYBLPRI+1~, PAYBLPRI+2*, PAYBLPRI+3, PAYBLPRI+4, PAYBLPRI+8*, PAYBLPRI+9 |
BPZ1 | PAYBLPRI+1~, PAYBLPRI+10*, PAYBLPRI+11 |
BRXIEN | PAYBLSEC+1~, PAYBLSEC+3*, PAYBLSEC+5, PAYBLPRI+1~, PAYBLPRI+3*, PAYBLPRI+5, PAYBLPRI+8 |
DATE | CLMECME+1~ |
DOS | CLMECME+1~, CLMECME+6*, CLMECME+7, CLMECME+8, CLMECME+9, CLMECME+10 |
DOSDT | LASTDOS+7~, LASTDOS+10*, LASTDOS+14*, LASTDOS+15*, LASTDOS+17, LASTDOS+18*, LASTDOS+19*, LASTDOS+20 |
ECME | CLMECME~, CLMECME+2, CLMECME+3*, CLMECME+4 |
ECMENUM | VALECME~, VALECME+5 |
ERRARR | FILLFLDS+5~, FILLFLDS+9 |
ERRARR("DIERR" | FILLFLDS+9 |
FDA | FILLFLDS+5~ |
FDA( | FILLFLDS+7* |
FILENO | FILLFLDS~, FILLFLDS+1, FILLFLDS+7 |
FILL | CLMECME+1~, CLMECME+3*, CLMECME+6*, CLMECME+7, CLMECME+9, CLMECME+10, CLMECME+12*, CLMECME+13, CLMECME+14 |
FLDNO | FILLFLDS~, FILLFLDS+2, FILLFLDS+7 |
FMT | LASTDOS~, LASTDOS+9*, LASTDOS+15, LASTDOS+16 |
GRPNM | GETPLN59+1~, GETPLN59+3*, GETPLN59+4 |
IEN59 | GETRQST~, GETRQST+2, GETRQST+3, GETRQST+5, GETRQST+7 |
IEN77 | GETRQST+1~ |
IENS | GETPLN59+1~, GETPLN59+2*, GETPLN59+3 |
LCKGL | INSITEM~, INSITEM+12, INSITEM+14 |
LCKTIME | INSITEM~, INSITEM+12 |
NEWRECNO | INSITEM~, INSITEM+2, INSITEM+8~*, INSITEM+9, INSITEM+10 |
NEWVAL | FILLFLDS~, FILLFLDS+4, FILLFLDS+7, FILLFLDS+9, FILLFLDS+10 |
NUMVAL | VALECME+4~, VALECME+5*, VALECME+6 |
RCDATE | CLMECME~, CLMECME+2, CLMECME+8, CLMECME+12 |
RECIEN | FILLFLDS~, FILLFLDS+3, FILLFLDS+6 |
RECIENS | FILLFLDS+5~, FILLFLDS+6*, FILLFLDS+7 |
RETV | CLMINFO+1~, CLMINFO+2*, CLMINFO+3*, CLMINFO+4*, CLMINFO+5 |
SUBMIT | CLMECME+1~, CLMECME+6*, CLMECME+10 |
U | GETPLN77+8, GETPLN77+13, COB59+3, PLANCOB+2, CLAIM59+1, ALLCOB59+2, CLMINFO+2, CLMINFO+3, CLMINFO+4, PAYBLSEC+4 , PAYBLSEC+5, PAYBLPRI+4, PAYBLPRI+5, PAYBLPRI+9, LASTDOS+11, LASTDOS+12, CLMECME+6 |
X | LASTDOS+7~, LASTDOS+17* |
Y | LASTDOS+7~, LASTDOS+18, LASTDOS+19 |