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 |