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 |