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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBARCH0

Package: Fee Basis

Routine: FBARCH0


Information

FBARCH0 ; HINOIFO/RVD - ARCH IMPORT ELIGIBILITY AND UTILITY ; 01/08/11 12:30pm

Source Information

Source file <FBARCH0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 FILE^DICN  ^DIE  DT^DILF  ^DIR  
Fee Basis 1 SITEP^FBAAUTL  
Kernel 1 ($$FTG,$$LIST,$$PWD)^%ZISH  
Master Patient Index VistA 1 $$GETDFN^MPIF001  

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

Package Total Caller Graph
Fee Basis 2 FB ARCH DATA UPLOAD  FB ARCH REMINDER DELAY  
Clinical Reminders 1 PXRMARCH  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
STARTX ;
SETREC(DFN,FBDATE) ; create/update entry in file 161
; DFN - ien in file 2/file 161
; FBDATE - ARCH eligibility date
ELIG(DFN,FBBDT,FBEDT,FBDATA) ;this function returns if pt is ARCH eligible or NOT
; input: = DFN - patient IEN (pointer to file #161)
; FBBDT - beginning dt
; FBEDT - ending dt
; output: FBDATA = 1 if eligible and FBDATA()=DFN^0 or 1^date of eligibility
; from most recent to the oldest
; FBDATA = 0 if not eligible
  • ICR #5619
    • Status: Active
    • Usage: Private
    LIST(FBBDT,FBEDT) ;this function returns a list of ARCH patients w/in the date range.
    ; input: = FBBGT - beginning dt
    ; FBEDT - ending dt
    ; output:= number of ARCH eligible pt and ^TMP($J,"ARCHFEE",#)=DFN^0 or 1^date of eligibility
    ; from the OLDEST to the MOST RECENT
    ; FBJ - internal entry number of file #161 which is DINUM to Patient File (2)
  • ICR #5619
    • Status: Active
    • Usage: Private
    PARSE(FB) ; parse - remove double quotes and trailing blanks if any
    GETDELAY() ; return the Project ARCH Reminder Delay - default is 1.
    SETDELAY ; Edit the Fee Basis Site Parameters for the Project ARCH Reminder Delay

    External References

    Name Field # of Occurrence
    $$FTG^%ZISH EN+27
    $$LIST^%ZISH EN+20
    $$PWD^%ZISH EN+4
    FILE^DICN SETREC+6, SETREC+11
    ^DIE SETDELAY+3
    DT^DILF EN+46
    ^DIR EN+10, EN+17, EN+23, EN+30, EN+33, EN+37, EN+54
    SITEP^FBAAUTL SETDELAY+2
    $$GETDFN^MPIF001 EN+44

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Loading data into temporary global..."
    • Line Location: EN+26
    Function Call: WRITE
    • Prompt: "No records found."
    • Line Location: EN+33
    Function Call: WRITE
    • Prompt: "Done."
    • Line Location: EN+34
    Function Call: WRITE
    • Prompt: !!,FBTOT," records found",!
    • Line Location: EN+35
    Function Call: WRITE
    • Prompt: !!,"Processing records..."
    • Line Location: EN+40
    Function Call: WRITE
    • Prompt: "."
    • Line Location: EN+47
    Function Call: WRITE
    • Prompt: "Done"
    • Line Location: EN+51
    Function Call: WRITE
    • Prompt: !!,CNT," records processed."
    • Line Location: EN+52
    Function Call: WRITE
    • Prompt: !,"Upload complete",!
    • Line Location: EN+53
    Function Call: WRITE
    • Prompt: !!
    • Line Location: SETDELAY+3
    Routine Call
    • DIE
    • Line Location:
      • SETDELAY+3
    Routine Call
    • DIR
    • Line Location:
      • EN+10
      • EN+17
      • EN+23
      • EN+30
      • EN+33
      • EN+37
      • EN+54

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAA - [#161] Classic Fileman Calls
    ^FBAA(161.4 - [#161.4] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.4 - [#161.4] GETDELAY+2
    ^FBAAA - [#161] ELIG+13, ELIG+14, ELIG+15, ELIG+19, ELIG+20, LIST+15
    ^FBAAA("ARCH" SETREC+8, LIST+8, LIST+12, LIST+13, LIST+14
    ^FBAAA("B" SETREC+5
    ^TMP("FBARCH" EN+3!, EN+27, EN+32, EN+41, EN+42, STARTX+1!
    ^TMP($J LIST+7!, LIST+18*

    Label References

    Name Line Occurrences
    SETREC EN+49
    STARTX EN+12, EN+19, EN+21, EN+28, EN+33, EN+38

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    B PARSE+1~, PARSE+6*, PARSE+7
    CNT EN+2~, EN+41*, EN+47*, EN+52
    DA SETREC+3~, SETREC+6*, SETREC+9!, SETDELAY+1~, SETDELAY+3*
    DA(1 SETREC+10*
    DFN EN+2~, EN+44*, EN+49, SETREC~, SETREC+5, SETREC+6, SETREC+8, ELIG~, ELIG+13, ELIG+14
    , ELIG+15, ELIG+19, ELIG+20
    DIC SETREC+3~, SETREC+6*, SETREC+10*, SETDELAY+1~
    DIC("DR" SETREC+10*
    DIC(0 SETREC+6*, SETREC+10*, SETDELAY+3*
    DIE SETDELAY+1~, SETDELAY+3*
    DINUM SETREC+3~, SETREC+6*!
    DIR EN+2~, EN+10!, EN+17!, EN+37!
    DIR("?" EN+7*, EN+8*, EN+15*
    DIR("A" EN+6*, EN+14*, EN+36*
    DIR("B" EN+6*, EN+36*
    DIR(0 EN+9*, EN+16*, EN+23*, EN+30*, EN+33*, EN+36*, EN+54*
    DIROUT EN+2~
    DIRUT EN+2~
    DLAYGO SETREC+3~, SETREC+6*, SETREC+10*
    DO SETREC+6!, SETREC+9!
    DR SETDELAY+1~, SETDELAY+3*
    DTOUT EN+2~, EN+11, EN+18
    DUOUT EN+2~, EN+11, EN+18
    FB PARSE~, PARSE+2, PARSE+3*, PARSE+4*, PARSE+5, PARSE+6, PARSE+7*, PARSE+8
    FBBDT ELIG~, ELIG+10*, ELIG+12, LIST~, LIST+9*, LIST+11
    FBCNT ELIG+8~, ELIG+9*, ELIG+18*, ELIG+22*, ELIG+23
    FBCOUNT LIST+6~, LIST+7*, LIST+8, LIST+11, LIST+17*, LIST+18, LIST+19
    FBDAT ELIG+8~, ELIG+15*, ELIG+17, ELIG+20*, ELIG+22
    FBDATA EN+2~, EN+42*, EN+44, EN+46, ELIG~, ELIG+9*, ELIG+12, ELIG+13, ELIG+18*, ELIG+25*
    , ELIG+26
    FBDATA( ELIG+18*, ELIG+23*
    FBDATA(1 ELIG+25
    FBDATE EN+2~, EN+46, EN+49, SETREC~, SETREC+8, SETREC+10
    FBDELAY GETDELAY+1~, GETDELAY+2*, GETDELAY+3
    FBDFI LIST+6~, LIST+14*, LIST+15
    FBDIR EN+2~, EN+4*, EN+6, EN+8, EN+11*, EN+12, EN+20, EN+22, EN+27, EN+29
    FBEDAT LIST+6~, LIST+15*, LIST+18
    FBEDT ELIG~, ELIG+11*, ELIG+12, ELIG+16, ELIG+21, LIST~, LIST+10*, LIST+11, LIST+16
    FBEL ELIG+8~, ELIG+9*, ELIG+17*, ELIG+18, ELIG+22*, ELIG+23, LIST+6~
    FBELDA LIST+6~
    FBELDT ELIG+8~, ELIG+9*, LIST+6~, LIST+7*, LIST+15*, LIST+16, LIST+18
    FBFILE EN+2~, EN+18*, EN+19, EN+20, EN+22, EN+27, EN+29
    FBH LIST+6~
    FBHDAT LIST+6~
    FBHDT ELIG+8~, ELIG+9*, LIST+6~
    FBI ELIG+8~, ELIG+14*, ELIG+15, ELIG+16, ELIG+18, ELIG+19*, ELIG+20, ELIG+21, ELIG+23, LIST+6~
    , LIST+7*, LIST+12*, LIST+13, LIST+14
    FBJ ELIG+8~, ELIG+15*, ELIG+20*, LIST+6~, LIST+13*, LIST+14, LIST+15, LIST+18
    FBPOP SETDELAY+1~, SETDELAY+2
    FBSAV1 ELIG+8~
    FBSAV2 ELIG+8~
    FBTOT EN+2~, EN+32*, EN+33, EN+35
    FBX EN+2~, EN+20!
    FBX( EN+20*
    FBY EN+2~, EN+20!
    I PARSE+1~, PARSE+6*
    IEN SETREC+3~, SETREC+5*, SETREC+6*, SETREC+10
    U EN+44, EN+46, ELIG+17, ELIG+18, ELIG+22, ELIG+23, ELIG+25, LIST+15, LIST+18, GETDELAY+2
    X EN+2~, SETREC+3~, SETREC+6*, SETREC+10*
    Y EN+2~, EN+11, EN+18, EN+38, SETREC+3~, SETREC+6
    Z EN+2~, EN+20*, EN+21, EN+27*, EN+28, EN+41*, EN+42
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All