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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAA - [#161] Classic Fileman Calls
    ^FBAA(161.4 - [#161.4] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call