FBPCR2 ;AISC/DMK,GRR,TET-OUTPATIENT POTENTIAL COST RECOVERY SORT/PRINT ;7/1/2006
Source file <FBPCR2.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;entry point
|
|
| SORT | ;sort by date finalized, patient, vendor, treatment ien, service ien
|
|
| KILL | ;kill variables set in this routine
|
|
| SET | ;set variables - also entry point from FBPCR67
|
|
| SETTMP | ;sort data by primary service facility, patient, fee program, vendor, date
|
|
| SETTR | ||
| EN1 | ;entry point to set variables, called by fbpcr67, anc
|
|
| ;write output
|
||
| HDR | ;main header
|
|
| HDR1 | ||
| SH | ;subheader - vendor, prints when name changed
|
|
| CR | ;read for display
|
|
| PAGE | ;new page
|
|
| PRNT5010(FBTYPE,FBNODE) | ; Format and print based on data type ; FB*3.5*122 FB*3.5*133
|
|
| FBAUTH(FBAUTH,FBDFN) | ;Get Authorization Data if it exists FB*3.5*163
|
|
| PRTAUTH(FBX) | ;Print Data from Authorization FB*3.5*163
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | PRNT5010+12, PRNT5010+33, FBAUTH+5, FBAUTH+6, FBAUTH+7, FBAUTH+8, FBAUTH+9, FBAUTH+10, FBAUTH+11, FBAUTH+12 , FBAUTH+13, FBAUTH+15, FBAUTH+16 |
| ^DIR | CR+1 |
| $$ADJLRA^FBAAFA | SET+26 |
| $$RRL^FBAAFR | SET+29 |
| $$DATX^FBAAUTL | SET+9, SETTR+2 |
| $$CPT^FBAAUTL4 | SET+16 |
| $$MODL^FBAAUTL4 | SET+21 |
| $$DT2FMDT^FBCSV1 | PRINT+40 |
| $$ICD9^FBCSV1 | PRINT+40 |
| $$ICD9P^FBCSV1 | PRINT+40 |
| $$CATC^FBPCR | SET+13 |
| HDR^FBPCR | HDR+1 |
| VET^FBPCR | SORT+5 |
| $$FILTER^FBPCR4 | SETTMP+3 |
| $$INSURED^FBPCR4 | SET+13 |
| CHKBILL^IBFBUTIL | SETTMP+5 |
| 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 |
|
| 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 |
|
| 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 |
|
| 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 |
|
| FileNo | Call Tags |
|---|---|
| 161.01 | GET1^DIQ |
| ^FBAAV - [#161.2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^FBAA(161.27 - [#161.27] | SET+18, SET+22 |
| ^FBAA(161.7 - [#161.7] | SET+19 |
| ^FBAAC - [#162] | SET+2, SET+3, SET+4, SET+7, SET+13, SETTR, SETTR+1 |
| ^FBAAC("AK" | SORT+4, SORT+6 |
| ^FBAAV - [#161.2] | SET+5 |
| ^TMP($J | SET+7*, SETTMP+7*, SETTMP+8*, SETTMP+9*, SETTMP+10*, SETTMP+11*, SETTMP+14*, SETTMP+15*, SETTMP+16*, PRINT+9 , PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRNT5010+3, PRNT5010+16, PRNT5010+17, PRNT5010+22, PRNT5010+23 , PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A1 | KILL+1!, SET+31*, SETTMP+7 |
| A2 | KILL+1!, SET+31*, SETTMP+7 |
| A3 | KILL+1!, SET+31*, SETTR*, SETTR+1*, PRINT+51* |
| D | KILL+1!, SETTR*, SETTR+1, SETTR+2 |
| D2 | KILL+1!, SET+9*, SETTMP+7 |
| DFN | SORT+5*, KILL+1!, SET+13, SET+20 |
| DIR | CR+1! |
| DIR(0 | CR+1* |
| >> DTOUT | CR+1 |
| >> DUOUT | CR+1 |
| FB5010PV | PRINT+1~, PRINT+2*, PRINT+9*, PRINT+52 |
| FBAACPTC | KILL+1!, SET+16*, SETTMP+7 |
| FBADJ | KILL+2!, PRINT+13*, PRINT+23, PRINT+34, PRINT+35, PRINT+36, PRINT+37 |
| FBADJLA | KILL+2!, SET+28*, SETTMP+8 |
| FBADJLR | KILL+2!, SET+27*, SETTMP+8 |
| FBADX1 | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+5* |
| FBADX2 | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+6* |
| FBADX3 | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+7* |
| FBAICD | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+8* |
| FBAIEN | KILL+3! |
| FBAREF | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+9* |
| FBAREFA | KILL+3!, FBAUTH+2*, FBAUTH+10*, FBAUTH+11 |
| FBARNPI | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+11* |
| FBAUPR | PRTAUTH+1~, PRTAUTH+3*, PRTAUTH+5, PRTAUTH+6, PRTAUTH+7, PRTAUTH+8, PRTAUTH+9 |
| FBAUTH | KILL+3!, SET+34*, SET+35, SETTMP+11, FBAUTH~, FBAUTH+3, FBAUTH+4 |
| FBAVND | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+12* |
| FBAVNDA | KILL+3!, FBAUTH+2*, FBAUTH+13*, FBAUTH+14, FBAUTH+15, FBAUTH+16 |
| FBAVNPI | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+15* |
| FBAVTAX | KILL+3!, SETTMP+11, FBAUTH+2*, FBAUTH+16* |
| >> FBBDATE | SORT+4 |
| FBBILL | SETTMP+1~, SETTMP+2*, SETTMP+9, PRINT+1~, PRINT+14*, PRINT+38 |
| FBBN | KILL+1!, SET+19*, SETTMP+7 |
| FBCATC | EN+1*, SORT+6*, SORT+7, KILL+1!, SET+13*, SET+14, SETTMP+7, PRINT+12*, PRINT+42, PRINT+44 , PRINT+45, PRINT+46, PRINT+47, PRINT+48 |
| FBCNT | PRNT5010+1~, PRNT5010+5*, PRNT5010+6, PRNT5010+7, PRNT5010+8*, PRNT5010+9, PRNT5010+24*, PRNT5010+25, PRNT5010+26, PRNT5010+27* , PRNT5010+28 |
| FBCP | KILL+1!, SET+9*, SET+12, SETTMP+7 |
| FBCSID | KILL+2!, SET+25*, SETTMP+8 |
| >> FBDASH | HDR1+6 |
| FBDAT002 | KILL+2! |
| FBDAT003 | KILL+2!, SET+3*, SET+34, SETTMP+14! |
| FBDAT004 | KILL+2!, SET+4*, SETTMP+15! |
| FBDAT005 | KILL+2!, SET+4*, SETTMP+16! |
| >> FBDATA | PRINT+12*, PRINT+19, PRINT+21, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+29, PRINT+32, PRINT+33 , PRINT+34, PRINT+40*, PRINT+41 |
| FBDFN | FBAUTH~, FBAUTH+4 |
| FBDOB | KILL+1! |
| FBDOS | KILL+1!, SET+9* |
| FBDT | KILL+1!, SET+32, SETTR+2*, PRINT+10*, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRNT5010+16, PRNT5010+17 , PRNT5010+22, PRNT5010+23, PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| FBDT1 | KILL+1!, SET+32*, SETTMP+7, EN1+1~ |
| >> FBEDATE | SORT+4 |
| FBI | PRINT+28~, PRINT+29* |
| FBIEN | FBAUTH+1~, FBAUTH+4*, FBAUTH+5, FBAUTH+6, FBAUTH+7, FBAUTH+8, FBAUTH+9, FBAUTH+10, FBAUTH+12, FBAUTH+13 |
| FBIN | KILL+1!, SET+19*, SET+31*, SETTMP+5, SETTMP+7 |
| FBINAU | SETTMP+1~, SETTMP+2*, SETTMP+10, PRINT+1~, PRINT+15*, PRINT+39 |
| FBINS | EN+1*, SORT+6*, SORT+7, KILL+1!, SET+13*, SET+14, SETTMP+7, PRINT+12*, PRINT+42, PRINT+45 , PRINT+46, PRINT+47, PRINT+48 |
| FBLIPVL | SORT+3*, KILL+2!, PRINT+1~, PRINT+7*, PRNT5010+18, PRNT5010+19 |
| FBMOD | PRINT+28~, PRINT+29*, PRINT+31 |
| FBMODLE | KILL+1!, SET+21*, SETTMP+7 |
| FBNODE | PRNT5010~, PRNT5010+3, PRNT5010+16, PRNT5010+17, PRNT5010+22, PRNT5010+23, PRNT5010+30, PRNT5010+31 |
| >> FBNPB | SETTMP+6 |
| FBOB | KILL+1!, SET+17*, SETTMP+7 |
| >> FBOUT | PRINT+9, PRINT+10, PRINT+11, PRINT+27, PRINT+29, PRINT+30, HDR+1, SH+1, CR+1*, PAGE+1 |
| FBP | KILL+1!, SET+6*, SETTMP+7, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16 |
| FBPAT | KILL+1!, SET+20*, SETTMP+7, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16 , EN1+1~ |
| FBPCR | KILL+1!, SET+1~, SET+13* |
| FBPDX | KILL+1!, SET+6*, SETTMP+7, PRINT+40* |
| FBPDXC | KILL+1!, PRINT+40*, PRINT+41 |
| >> FBPI | SETTMP+4, SETTMP+7, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRNT5010+3, PRNT5010+16 , PRNT5010+17, PRNT5010+22, PRNT5010+23, PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| FBPID | KILL+1! |
| FBPNAME | KILL+1!, SET+20 |
| FBPSF | EN+1*, SORT+6*, SORT+7, KILL+1!, SET+6*, SET+7, SET+12, SETTMP+7, SETTMP+8, SETTMP+9 , SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14 , PRINT+15, PRNT5010+3, PRNT5010+16, PRNT5010+17, PRNT5010+22, PRNT5010+23, PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| >> FBPSV | SORT+7, SET+12 |
| >> FBPSV( | SORT+7, SET+12 |
| >> FBPT | PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRNT5010+3, PRNT5010+16, PRNT5010+17, PRNT5010+22 , PRNT5010+23, PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| FBPVL133 | KILL+2!, PRINT+5*, PRINT+6*, PRNT5010+25, PRNT5010+26, PRNT5010+28 |
| FBPVLIST | SORT+1*, SORT+2*, KILL+2!, PRINT+1~, PRINT+3*, PRINT+4*, PRNT5010+6, PRNT5010+7, PRNT5010+9 |
| FBRRMKL | KILL+2!, SET+29*, SETTMP+8 |
| FBSC | KILL+1!, SET+6*, SET+8*, SETTMP+7 |
| FBSKIP | SETTMP+1~, SETTMP+2*, SETTMP+6 |
| FBTA | KILL+1!, SETTR+1* |
| FBTYPE | KILL+1!, SET+19*, SET+32, PRNT5010~, PRNT5010+2, PRNT5010+15 |
| FBUNITS | KILL+2!, SET+24*, SETTMP+8 |
| FBVDAT | PRNT5010+1~, PRNT5010+3*, PRNT5010+5, PRNT5010+6, PRNT5010+7, PRNT5010+8, PRNT5010+9, PRNT5010+10, PRNT5010+11, PRNT5010+12 , PRNT5010+13, PRNT5010+17*, PRNT5010+18, PRNT5010+19, PRNT5010+23*, PRNT5010+24, PRNT5010+25, PRNT5010+26, PRNT5010+27, PRNT5010+28 , PRNT5010+31*, PRNT5010+32, PRNT5010+33, PRNT5010+34 |
| FBVEN | KILL+1!, SET+20*, SETTMP+7, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16 , EN1+1~ |
| >> FBVI | PRINT+8*, PRINT+9*, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, SH+3, SH+4, PRNT5010+16 , PRNT5010+17, PRNT5010+22, PRNT5010+23, PRNT5010+30, PRNT5010+31, PRTAUTH+2, PRTAUTH+3 |
| FBVID | KILL+1!, SET+5*, SET+20 |
| FBVNAME | KILL+1!, SET+5*, SET+20 |
| FBVP | KILL+1!, SET+19*, SET+32 |
| FBX | SET+1~, SET+26*, SET+27, SET+28, PRTAUTH~, PRTAUTH+2, PRTAUTH+3 |
| >> FBXPROG | HDR1 |
| >> FBY | SET+3*, SET+24, SET+25 |
| I | SORT+4*, SORT+6, KILL+1!, SETTMP+7, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15 , SETTMP+16 |
| IOM | HDR1 |
| IOSL | PRINT+11, PRINT+30, SH+1 |
| J | SORT+4*, SORT+5, SORT+6, KILL+1!, SET+2, SET+3, SET+4, SET+7, SET+13, SET+21 , SET+26, SET+29, SET+35, SETTR, SETTR+1 |
| K | SORT+6*, KILL+1!, SET+2, SET+3, SET+4, SET+5, SET+7, SET+13, SET+21, SET+26 , SET+29, SETTR |
| L | SORT+6*, KILL+1!, SET+2, SET+3, SET+4, SET+7, SET+13, SET+21, SET+26, SET+29 , SETTMP+7, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16, SETTR |
| M | SORT+6*, KILL+1!, SET+2, SET+3, SET+4, SET+21, SET+26, SET+29, SETTMP+7, SETTMP+8 , SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16, PRINT+10*, PRINT+12, PRINT+13, PRINT+14 , PRINT+15, PRINT+49, PRINT+50 |
| T | KILL+1!, KILL+2!, SET+9*, SET+18*, SET+22*, SETTMP+7 |
| TAMT | KILL+2!, SET+23*, SETTMP+8 |
| U | SET+2, SET+5, SET+6, SET+9, SET+13, SET+16, SET+17, SET+18, SET+19, SET+22 , SET+23, SET+24, SET+25, SET+27, SET+28, SET+31, SET+34, SETTMP+4, SETTMP+7, SETTMP+8 , SETTMP+11, SETTMP+14, SETTMP+15, SETTMP+16, PRINT+12, PRINT+19, PRINT+21, PRINT+23, PRINT+24, PRINT+25 , PRINT+26, PRINT+27, PRINT+29, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+37, PRINT+40 , PRINT+41, PRNT5010+5, PRNT5010+6, PRNT5010+7, PRNT5010+8, PRNT5010+9, PRNT5010+10, PRNT5010+11, PRNT5010+12, PRNT5010+13 , PRNT5010+18, PRNT5010+19, PRNT5010+24, PRNT5010+25, PRNT5010+26, PRNT5010+27, PRNT5010+28, PRNT5010+32, PRNT5010+33, PRNT5010+34 , PRTAUTH+5, PRTAUTH+6, PRTAUTH+7, PRTAUTH+8, PRTAUTH+9 |
| Y | KILL+1!, SET+2*, SET+6, SET+9, SET+13, SET+16, SET+17, SET+19, SET+23, SET+31 , SETTMP+4 |