FBPMRG ;WCIOFO/SAB - FEE BASIS PATIENT MERGE ROUTINE ;6/4/2014
Source file <FBPMRG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(ARRAY) | ; Entry point
; Called during patient (file #2) merge due to AFFECTS RECORD MERGE ; in PACKAGE (#9.4) file. ; Input ; ARRAY - name of array with the PATIENT (#2) From IENs and To IENs ; format: name(ien_from,ien_to,"ien_from;DPT(","ien_to;DPT(") ; example: TEST(1000,500,"1000;DPT(","500;DPT(")="" |
|
| F161 | ; File 161 FEE BASIS PATIENT - The .01 field points to and is
; dinumed with the PATIENT (#2) file ; input ; FBFR - ien of patient (files #2,161) being merged from ; FBTO - ien of patient (files #2,161) being merged to |
|
| IDCARD | ; if both records have id card numbers the pairs are removed from merge.
; all other cases will be handled by merge. |
|
| UAUTHP | ; Update 'free-text' pointers to authorization
; input ; FBFR - ien of patient (files #2,161) being merged from ; FBFR1 - ien of authorization in FBFR ; FBTO - ien of patient (files #2,161) being merged to ; FBTO1 - ien of authorization in FBTO |
| FileNo | Call Tags |
|---|---|
| ^FBAA(161.26 - [#161.26] | Classic Fileman Calls |
| ^FBAACNH - [#162.3] | Classic Fileman Calls |
| ^FB583 - [#162.7] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^FB583 - [#162.7] | UAUTHP+82 |
| ^FB583("D" | UAUTHP+79 |
| ^FBAA(161.26 - [#161.26] | UAUTHP+12, UAUTHP+15 |
| ^FBAA(162.1 - [#162.1] | UAUTHP+52, UAUTHP+54, UAUTHP+56, UAUTHP+59 |
| ^FBAAA - [#161] | F161+8, IDCARD+3, IDCARD+4, IDCARD+19, IDCARD+31, IDCARD+37, IDCARD+46*, IDCARD+62, IDCARD+68, IDCARD+77* |
| ^FBAAC - [#162] | UAUTHP+40, UAUTHP+43 |
| ^FBAAC("AFN" | UAUTHP+25, UAUTHP+28, UAUTHP+31 |
| ^FBAACNH - [#162.3] | UAUTHP+70 |
| ^FBAACNH("AE" | UAUTHP+67 |
| ^TMP("DDB" | IDCARD+13* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | EN~, EN+10, EN+11, IDCARD+6, IDCARD+7, IDCARD+9, IDCARD+10 |
| AUTHP | UAUTHP+6~, UAUTHP+15*, UAUTHP+16, UAUTHP+43*, UAUTHP+44, UAUTHP+59*, UAUTHP+60, UAUTHP+70*, UAUTHP+71, UAUTHP+82* , UAUTHP+83 |
| DA | F161+6~, IDCARD+34!, IDCARD+50*, IDCARD+51!, IDCARD+55*, IDCARD+56!, IDCARD+65!, IDCARD+81*, IDCARD+82!, IDCARD+86* , UAUTHP+6~, UAUTHP+12!*, UAUTHP+15, UAUTHP+23!, UAUTHP+30*, UAUTHP+31*, UAUTHP+38!, UAUTHP+40*, UAUTHP+43, UAUTHP+52! , UAUTHP+56*, UAUTHP+59, UAUTHP+67!*, UAUTHP+70, UAUTHP+79!*, UAUTHP+82 |
| DA(1 | IDCARD+36*, IDCARD+50*, IDCARD+55*, IDCARD+67*, IDCARD+81*, IDCARD+86*, UAUTHP+27*, UAUTHP+28*, UAUTHP+31, UAUTHP+33 , UAUTHP+38*, UAUTHP+40, UAUTHP+43, UAUTHP+45, UAUTHP+54*, UAUTHP+56, UAUTHP+59, UAUTHP+61 |
| DA(2 | UAUTHP+25*, UAUTHP+28, UAUTHP+31, UAUTHP+33 |
| DA(3 | UAUTHP+23*, UAUTHP+25, UAUTHP+28, UAUTHP+31, UAUTHP+33 |
| DD | F161+6~, IDCARD+34!, IDCARD+65! |
| DIC | F161+6~, IDCARD+35*, IDCARD+39, IDCARD+41!, IDCARD+66*, IDCARD+70, IDCARD+72! |
| DIC(0 | IDCARD+35*, IDCARD+66* |
| DIE | UAUTHP+6~, UAUTHP+17*, UAUTHP+33*, UAUTHP+45*, UAUTHP+61*, UAUTHP+72*, UAUTHP+84* |
| DIK | F161+6~, IDCARD+49*, IDCARD+51!, IDCARD+54*, IDCARD+56!, IDCARD+80*, IDCARD+82!, IDCARD+85* |
| DINUM | F161+6~, IDCARD+39*, IDCARD+41!, IDCARD+70*, IDCARD+72! |
| DLAYGO | F161+6~, IDCARD+40*, IDCARD+41!, IDCARD+71*, IDCARD+72! |
| DO | F161+6~, IDCARD+34!, IDCARD+65! |
| DR | UAUTHP+6~, UAUTHP+18*, UAUTHP+34*, UAUTHP+46*, UAUTHP+62*, UAUTHP+73*, UAUTHP+85* |
| FBFR | EN+8~, EN+10*, EN+11, F161+8, IDCARD+3, IDCARD+6, IDCARD+7, IDCARD+9, IDCARD+10, IDCARD+13 , IDCARD+31, IDCARD+37, IDCARD+46, IDCARD+49, IDCARD+50, IDCARD+62, IDCARD+68, IDCARD+77, IDCARD+80, IDCARD+81 , UAUTHP+12, UAUTHP+23, UAUTHP+38, UAUTHP+52, UAUTHP+54, UAUTHP+56, UAUTHP+67, UAUTHP+79 |
| FBFR1 | F161+5~, IDCARD+31*, IDCARD+37, IDCARD+39, IDCARD+46, IDCARD+50, IDCARD+59, IDCARD+62*, IDCARD+68, IDCARD+70 , IDCARD+77, IDCARD+81, UAUTHP+8, UAUTHP+16, UAUTHP+25, UAUTHP+28, UAUTHP+31, UAUTHP+44, UAUTHP+60, UAUTHP+71 , UAUTHP+83 |
| FBTO | EN+8~, EN+11*, IDCARD+4, IDCARD+6, IDCARD+7, IDCARD+9, IDCARD+10, IDCARD+13, IDCARD+19, IDCARD+35 , IDCARD+36, IDCARD+46, IDCARD+54, IDCARD+55, IDCARD+66, IDCARD+67, IDCARD+77, IDCARD+85, IDCARD+86 |
| FBTO1 | F161+5~, IDCARD+43*, IDCARD+46, IDCARD+55, IDCARD+59, IDCARD+74*, IDCARD+77, IDCARD+86, UAUTHP+8 |
| IEN | IDCARD+8*, IDCARD+9*, IDCARD+10, IDCARD+16! |
| IENFRM | IDCARD+6*, IDCARD+7, IDCARD+9, IDCARD+16! |
| IENTO | IDCARD+7*, IDCARD+9, IDCARD+16! |
| U | IDCARD+3, IDCARD+4, IDCARD+37, IDCARD+42, IDCARD+68, IDCARD+73, UAUTHP+15, UAUTHP+43, UAUTHP+59, UAUTHP+70 , UAUTHP+82 |
| X | F161+6~, IDCARD+37*, IDCARD+38, IDCARD+68*, IDCARD+69, UAUTHP+6~ |
| X1 | UAUTHP+6~, UAUTHP+52*, UAUTHP+54, UAUTHP+56 |
| XMSUB | IDCARD+11~, IDCARD+12*, IDCARD+15 |
| XMTEXT | IDCARD+11~, IDCARD+14*, IDCARD+15 |
| Y | F161+6~, IDCARD+42, IDCARD+43, IDCARD+73, IDCARD+74, UAUTHP+6~ |
