Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: BPSOSO2

Package: E Claims Management Engine

Routine: BPSOSO2


Information

BPSOSO2 ;BHAM ISC/FCS/DRS/DLF - NCPDP Override-Fman utils ;06/01/2004

Source Information

Source file <BPSOSO2.m>

Entry Points

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.

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSF(9002313.91 - [#9002313.91] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call