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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FBMRASVR

Package: Fee Basis

Routine: FBMRASVR


Information

FBMRASVR ;AISC/CMR-Server Routine for MRA Messages ;11 Apr 2006 2:50 PM

Source Information

Source file <FBMRASVR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Fee Basis 5 STATION^FBAAUTL  UPDGRP^FBAAUTL6  CHANGE^FBMRASV1  (EDIT,ER,MSG)^FBMRASV2  LOCK^FBUCUTL  
VA FileMan 3 %XY^%RCR  ^DIE  (,IX1)^DIK  
Kernel 1 (T0,T1)^%ZOSV  

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

Package Total Caller Graph
Fee Basis 6 FBMRASV1  FBPAID1  FBPAY21  FBPAY3  FBPAY671  FBUCPAY  

Entry Points

Name Comments DBIA/ICR reference
TEST
PARSE ;Extracts pharmacy or medical mra data
EXTRACT ;Calls to remove leading/trailing spaces and zeros
CKID(X) ;determine if 1st 9 char of id is numeric
ADD ;Process Add or Unsolicted Add Record
FPDS ;Process FPDS-Only or Unsolicated FPDS-Only Record
GET ;Get ICN and MRA entry from MRA file.
FILEV ;Files MRA fm Austin in Vendor file.
DELMRA ;Deletes MRA entry in FB Vendor Correction File.
EXTRL(V,T) ;Removes leading spaces or zeros.
  • ICR #5114
    • Status: Retired
    • Usage: Controlled Subscription
    EXTRT(V,T) ;Removes trailing spaces or zeros.

    External References

    Name Field # of Occurrence
    %XY^%RCR FILEV+2
    T0^%ZOSV EXTRACT+1
    T1^%ZOSV EXTRACT+11
    ^DIE FILEV+7, DELMRA+3
    ^DIK FILEV+2, DELMRA+5
    IX1^DIK FILEV+2
    STATION^FBAAUTL TEST
    UPDGRP^FBAAUTL6 FILEV+8
    CHANGE^FBMRASV1 TEST+2
    EDIT^FBMRASV2 EXTRACT+9
    ER^FBMRASV2 TEST+2, PARSE+3, PARSE+10, ADD+1, ADD+2, FPDS+9, FPDS+11
    MSG^FBMRASV2 TEST+4
    LOCK^FBUCUTL DELMRA+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAV - [#161.2] Classic Fileman Calls
    ^FBAA(161.25 - [#161.25] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TRAP" FBMRASVR+3
    ^DIC(5 - [#5] EXTRACT+7, EXTRACT+8
    ^FBAA(161.25 - [#161.25] GET+2, DELMRA+2, DELMRA+3
    ^FBAA(161.6 - [#161.6] PARSE+14
    ^FBAA(161.81 - [#161.81] PARSE+14
    ^FBAAV - [#161.2] EXTRACT+8, FPDS+4, FPDS+5, FPDS+6, FPDS+7, FILEV+1, FILEV+6, FILEV+9
    ^FBAAV("C" FPDS+3
    ^TMP("FBER" FBMRASVR+5!
    ^TMP("FBMRA" FBMRASVR+5!, FBMRASVR+6*, TEST+1

    Label References

    Name Line Occurrences
    $$CKID TEST+2
    $$EXTRL PARSE+7, PARSE+14, EXTRACT+2, EXTRACT+3
    $$EXTRT EXTRACT+2, EXTRACT+4, EXTRACT+5
    ADD TEST+2
    DELMRA ADD+2, FPDS+11
    EXTRACT TEST+2
    FILEV ADD+2, FPDS+8, FPDS+11
    FPDS TEST+2
    GET ADD+2, FPDS+11
    PARSE TEST+1

    Naked Globals

    Name Field # of Occurrence
    ^( TEST+1, EXTRACT+8
    ^(0 FILEV+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %X FILEV+2*!
    %Y FILEV+2*!
    DA FILEV+2*!, FILEV+3*, FILEV+7!, DELMRA+2*, DELMRA+3, DELMRA+5*!
    DIE FILEV+3*, FILEV+7!, DELMRA+1*, DELMRA+3
    DIK FILEV+2*!, DELMRA+5*!
    DR FILEV+4*, FILEV+7!, DELMRA+2*
    DR(1 FILEV+5*
    EC FPDS+2~*, FPDS+5*, FPDS+7*, FPDS+9*
    FB1 DELMRA+2*, DELMRA+5!
    >> FB1099 PARSE+5*, PARSE+12*
    >> FBAC TEST+1*, TEST+2, TEST+3, EXTRACT+9, FILEV+2, DELMRA+1, DELMRA+2
    >> FBADD1 PARSE+4*, PARSE+11*, EXTRACT+2*
    >> FBADD2 PARSE+4*, PARSE+11*, EXTRACT+2*
    >> FBATOT TEST*, TEST+3*
    >> FBBT PARSE+6*, PARSE+13*, EXTRACT+4*, FILEV+5
    >> FBCC PARSE+5*, PARSE+12*, EXTRACT+8*, FILEV+1*
    >> FBCHAIN PARSE+4*, PARSE+7*, FPDS+5
    >> FBCITY PARSE+4*, PARSE+11*, EXTRACT+2*
    >> FBCNT TEST*, ADD+2*, FPDS+8*, FPDS+11*
    >> FBCTOT TEST*, TEST+3*
    >> FBER TEST*, TEST+2, PARSE+3, PARSE+10, ADD+1, ADD+2, FPDS+9, FPDS+11
    >> FBERR TEST+1*, TEST+2*, PARSE+3*, PARSE+10*, FPDS+2*, FPDS+8*, FPDS+9*
    >> FBFEEO PARSE+4*, PARSE+11*
    >> FBFTOT TEST*, TEST+3*
    >> FBI TEST*, TEST+1*
    >> FBICN PARSE+5*, PARSE+12*, EXTRACT+2*, EXTRACT+8, FPDS+2*, FPDS+3*, FPDS+4, FPDS+5, FPDS+6, FPDS+7
    , GET+1*, GET+2, FILEV+1, FILEV+2, FILEV+3, FILEV+6, FILEV+8, FILEV+9, DELMRA+1
    >> FBICN1 FILEV+2, DELMRA+1
    >> FBID TEST*, TEST+2*
    >> FBJ TEST+1*, TEST+2, PARSE+2*, PARSE+3, PARSE+4, PARSE+5, PARSE+6, PARSE+9*, PARSE+10, PARSE+11
    , PARSE+12, PARSE+13, ADD+1, ADD+2, FPDS+9, FPDS+11
    FBL EXTRT+3~, EXTRT+5*
    FBLDA DELMRA+2*, DELMRA+5!
    FBLOCK DELMRA+3, DELMRA+4!
    >> FBMRA ADD+2, FPDS+11, GET+2*
    >> FBMRC PARSE+4*, PARSE+12*, EXTRACT+3*
    FBNAM FILEV+1~
    >> FBNPI PARSE+5*, PARSE+11*, EXTRACT+10*
    >> FBOUT FPDS+2*, FPDS+3, FPDS+8*
    >> FBPART PARSE+11*, PARSE+14*
    >> FBPC PARSE+5*, PARSE+12*
    >> FBQTOT TEST*, TEST+3*
    >> FBRT TEST+1*, PARSE+1, PARSE+8, FPDS+5, FPDS+6, FILEV+4
    >> FBSC PARSE+11*, PARSE+14*
    >> FBSG( PARSE+6*, PARSE+13*, EXTRACT+5*!
    >> FBSG(0 FILEV+8
    >> FBSN ADD+1, FPDS+1, FPDS+10
    >> FBST PARSE+4*, PARSE+11*, EXTRACT+2*, EXTRACT+7
    >> FBSTATE EXTRACT+7*, EXTRACT+8
    >> FBSTN EXTRACT+2*, ADD+1, FPDS+1, FPDS+10
    >> FBTID PARSE+5*, PARSE+12*, FILEV+1*
    >> FBVID TEST+2, PARSE+4*, PARSE+11*, EXTRACT+2*, FPDS+3
    FBVIEN DELMRA+1*, DELMRA+2, DELMRA+5!
    >> FBVNAME PARSE+4*, PARSE+11*, EXTRACT+2*, FPDS+7
    >> FBVT PARSE+5*, PARSE+12*
    >> FBZIP PARSE+4*, PARSE+11*, EXTRACT+7*
    >> FBZIP1 EXTRACT+7*
    >> I FBMRASVR+6*, PARSE+6*, PARSE+13*, EXTRACT+5*
    T EXTRL~, EXTRL+4*, EXTRL+5, EXTRT~, EXTRT+4*, EXTRT+5
    U FPDS+5, FPDS+6, FPDS+7
    V EXTRL~, EXTRL+5*, EXTRL+6, EXTRT~, EXTRT+5*, EXTRT+6
    X FBMRASVR+3*, CKID~, CKID+3
    >> XMER FBMRASVR+6
    >> XMREC FBMRASVR+6
    >> XMRG FBMRASVR+6
    >> XRT0 EXTRACT+11
    >> XRTL EXTRACT+1
    >> XRTN EXTRACT+11*

    Marked Items

    Name Field # of Occurrence
    $T( EXTRACT+11
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All