FBARCH0 ; HINOIFO/RVD - ARCH IMPORT ELIGIBILITY AND UTILITY ; 01/08/11 12:30pm
Source file <FBARCH0.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Fee Basis | 2 | FB ARCH DATA UPLOAD FB ARCH REMINDER DELAY |
Clinical Reminders | 1 | PXRMARCH |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^FBAAA - [#161] | Classic Fileman Calls |
^FBAA(161.4 - [#161.4] | Classic Fileman Calls |
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* |
>> | 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 |