Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 $$FIND1^DIC  (,FILE,UPDATE)^DIE  $$GET1^DIQ  
E Claims Management Engine 2 ZWRITE^BPSOS  $$IMPOSS^BPSOSUE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
E Claims Management Engine 2 BPSOSCD  BPSOSO  

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.

External References

Name Field # of Occurrence
ZWRITE^BPSOS NEW1+4, SETV1+7, DE5+4, SEE
$$IMPOSS^BPSOSUE NEW+1, NEW1+3, NEW2+4, SETV1+8, DE5+5
$$FIND1^DIC FIELDIEN+1, HASVALUE+2
^DIE EDIT+11, EDITGEN+4
FILE^DIE NEW2+2, DE5
UPDATE^DIE NEW1+2, SETV1+1
$$GET1^DIQ FIELDNAM+1, GETVALUE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSF(9002313.91 - [#9002313.91] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T( NEW+1, NEW1+3, NEW2+4, SETV1+8, DE5+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All