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 |