BPSOSO2 ;BHAM ISC/FCS/DRS/DLF - NCPDP Override-Fman utils ;06/01/2004
Source file <BPSOSO2.m>
| 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 |
