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 |
Package | Total | Caller Graph |
---|---|---|
E Claims Management Engine | 2 | BPSOSCD BPSOSO |
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 |