BPSOSO2 ;BHAM ISC/FCS/DRS/DLF - NCPDP Override-Fman utils ;06/01/2004
Source file <BPSOSO2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT(IEN,FIELDNUM) | ;
|
|
| EDITGEN(IEN) | ; general edit
; First pass: quick & dirty Fileman ^DIE call ; Future: Screenman interface |
|
| GET511(IEN,ARR101,ARR402) | ;function, called from BPSOSCD - load arrays with data from IEN
|
|
| LOCK() | ||
| UNLOCK | ||
| FILENUM() | ||
| SUBFNUM() | ||
| FLOCK() | ||
| FUNLOCK | ||
| FIELDIEN(FIELDNUM) | ; function, ien of BPS NCPDP FIELD DEFS (#9002313.91) Data Dictionary field
|
|
| FIELDNAM(FIELDNUM) | ; function, name of a 9002313.91 NCPDP Data Dictionary field
|
|
| FIELDNUM(IEN91) | ||
| NEW() | ;EP - function, create new entry in 9002313.511
|
|
| NEW1 | ;
|
|
| NEW2 | ;
|
|
| HASVALUE(IEN,FIELDNUM) | ; function, does the FIELDNUM have an override value?
; returns IEN into the subfile |
|
| GETVALUE(IEN,FIELDNUM) | ; function, return currently-set override value for given FIELDNUM
|
|
| SETVALUE(IEN,FIELDNUM,VALUE) | ; function, returns ien in subfile for this FIELDNUM
; Special case for the override file: if you're trying to set the ; field's value to "@", don't just delete the field value, ; which would leave the field defined with a null value. ; Instead, delete the entire override for the field. ; This prevents accidentally overriding a genuine value with null. |
|
| SETV1 | ;
|
|
| DELVALUE(IEN,FIELDNUM) | ;
|
|
| DE5 | ||
| ERRHDR() | ||
| SEE(IEN) | ||
| PRIORA(IEN) | ;IHS/SD/lwj 9/3/02 Prior Authorization
; used to populate fields 461, 462 and 416. 416 will be created based on the input into fields 461, and 462. |
| FileNo | Call Tags |
|---|---|
| ^BPSF(9002313.91 - [#9002313.91] | FIND1^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPS( | NEW1+1, SEE |
| ^BPS(9002313.511 - [#9002313.511] | EDITGEN+6, EDITGEN+7, GET511+8, GET511+9, LOCK, UNLOCK, FLOCK, FUNLOCK |
| ^BPSF(9002313.91 - [#9002313.91] | EDITGEN+9, FIELDNUM |
| ^TMP("BPS" | SETV1+3!, SETV1+4*, SETV1+5*, SETV1+6*, DE5+2!, DE5+3* |
| Name | Line Occurrences |
|---|---|
| $$ERRHDR | SETV1+4, DE5+3 |
| $$FIELDIEN | FIELDNAM+1 |
| $$FIELDNAM | EDIT+10 |
| $$FIELDNUM | GET511+13 |
| $$FILENUM | EDITGEN+4, NEW+2, SEE |
| $$FLOCK | NEW+1 |
| $$GETVALUE | EDIT+13, PRIORA+13, PRIORA+14 |
| $$HASVALUE | EDIT+4, GETVALUE+1, SETVALUE+11, DELVALUE+1 |
| $$SETVALUE | EDIT+7, PRIORA+18, PRIORA+19 |
| $$SUBFNUM | HASVALUE+2, GETVALUE+2, SETVALUE+15, SETVALUE+16, DELVALUE+3 |
| DE5 | DE5+5 |
| DELVALUE | EDIT+13, EDITGEN+10, SETVALUE+6 |
| EDIT | PRIORA+6, PRIORA+8 |
| EDITGEN | EDIT+1 |
| FUNLOCK | NEW+4 |
| NEW1 | NEW+3, NEW1+3 |
| NEW2 | NEW2+4 |
| SETV1 | SETVALUE+17, SETV1+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | EDITGEN+6~*, EDITGEN+7, GET511+2~, GET511+7*, GET511+8*, GET511+9 |
| ARR101 | GET511~, GET511+15 |
| ARR402 | GET511~, GET511+16 |
| BPFLDNUM | GET511+2~, GET511+13*, GET511+14, GET511+15, GET511+16 |
| C | GET511+2~, GET511+7*, GET511+18*, GET511+20 |
| DA | EDIT+3~, EDIT+4*, EDIT+7*, EDITGEN+3~, EDITGEN+4*, PRIORA+12~, PRIORA+18*, PRIORA+19* |
| DA(1 | EDIT+9* |
| DIDEL | EDIT+3~, EDITGEN+3~ |
| DIE | EDIT+3~, EDIT+9*, EDITGEN+3~, EDITGEN+4* |
| DR | EDIT+3~, EDIT+10*, EDITGEN+3~, EDITGEN+4* |
| DTOUT | EDIT+3~, EDITGEN+3~ |
| ENTRY | SETVALUE+11~*, SETVALUE+12*, SETVALUE+14, SETVALUE+18*, SETVALUE+19, DELVALUE+1~*, DELVALUE+3 |
| F | GET511+2~, GET511+10*, GET511+13, GET511+15, GET511+16 |
| FDA | NEW+2~, SETVALUE+9~, DELVALUE+2~ |
| FDA( | NEW1+1*, NEW2+1*, SETVALUE+15*, SETVALUE+16*, DELVALUE+3* |
| FIELDNAM | EDIT+3~ |
| FIELDNUM | EDIT~, EDIT+1, EDIT+4, EDIT+7, EDIT+10, EDIT+13, EDITGEN+9~*, EDITGEN+10, FIELDIEN~, FIELDIEN+1 , FIELDNAM~, FIELDNAM+1, HASVALUE~, HASVALUE+2, GETVALUE~, GETVALUE+1, SETVALUE~, SETVALUE+6, SETVALUE+11, SETVALUE+15 , DELVALUE~, DELVALUE+1, PRIORA+3~, PRIORA+5*, PRIORA+6, PRIORA+7*, PRIORA+8 |
| FLAGS | NEW+2~ |
| FN | NEW+2~*, NEW1+1, NEW2+1 |
| HDRLST | GET511+2~, GET511+5*, GET511+15 |
| IEN | EDIT~, EDIT+1, EDIT+4, EDIT+7, EDIT+9, EDIT+13, EDITGEN~, EDITGEN+4, EDITGEN+6, EDITGEN+7 , EDITGEN+10, GET511~, GET511+8, GET511+9, LOCK, UNLOCK, NEW+2~, HASVALUE~, HASVALUE+2, GETVALUE~ , GETVALUE+1, GETVALUE+2, SETVALUE~, SETVALUE+6, SETVALUE+11, SETVALUE+14, DELVALUE~, DELVALUE+1, DELVALUE+3, SEE~ , PRIORA~, PRIORA+6, PRIORA+8, PRIORA+13, PRIORA+14, PRIORA+18, PRIORA+19 |
| IEN(1 | NEW1+6 |
| IEN91 | FIELDNUM~ |
| IENARRAY | SETVALUE+9~, SETV1+6 |
| IENARRAY(1 | SETVALUE+18 |
| IENS | SETVALUE+9~, SETVALUE+14*, SETVALUE+15, SETVALUE+16 |
| MSG | NEW+2~, NEW1+3, NEW1+5!, NEW2+3, SETVALUE+9~, SETV1+2, SETV1+5, DELVALUE+2~, DE5+1 |
| MULTLST | GET511+2~, GET511+5*, GET511+16 |
| NEWREC | NEW+2~, NEW+5, NEW1+6*, NEW2+1 |
| TFLD | GET511+2~, GET511+14*, GET511+15, GET511+16 |
| TMP | SEE~* |
| U | EDITGEN+8, EDITGEN+9, GET511+10, GET511+15, GET511+16, FIELDNUM |
| VAL416 | PRIORA+12~, PRIORA+15*, PRIORA+16, PRIORA+19 |
| VAL461 | PRIORA+12~, PRIORA+13*, PRIORA+15 |
| VAL462 | PRIORA+12~, PRIORA+14*, PRIORA+15 |
| VALUE | SETVALUE~, SETVALUE+6, SETVALUE+16 |
| X | EDITGEN+7~*, EDITGEN+8, EDITGEN+9, GET511+2~, GET511+9*, GET511+10, GET511+15, GET511+16, NEW+2~, GETVALUE+1~* , GETVALUE+2 |
