FBARCH0 ; HINOIFO/RVD - ARCH IMPORT ELIGIBILITY AND UTILITY ; 01/08/11 12:30pm
Source file <FBARCH0.m>
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 |
|
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) |
|
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^FBAAA - [#161] | Classic Fileman Calls |
^FBAA(161.4 - [#161.4] | Classic Fileman Calls |