FBAAV5 ;AISC/GRR - CREATE TRANSACTIONS FOR CH/CNH PAYMENTS ;11 Apr 2006 2:54 PM
Source file <FBAAV5.m>
| Package | Total | Call Graph |
|---|---|---|
| Fee Basis | 12 | ($$IPACID,$$IPACREQD)^FBAAMP (CRARC,STATION)^FBAAUTL PAT^FBAAUTL2 ($$PYMTH,UPD)^FBAAV0 ($$PADZ,CKB9V,NEWMSG,STORE,XMIT)^FBAAV01 $$HL7NAME^FBAAV2 ($$AUSAMT,$$AUSDT,$$AUSNUM)^FBAAV3 ^FBAAV6 LOADADJ^FBCHFA LOADRR^FBCHFR ($$FRDTINV,$$ICD0,$$ICD9)^FBCSV1 $$EN^FBNPILK |
| Kernel | 2 | $$FMADD^XLFDT ($$LJ,$$RJ)^XLFSTR |
| VA FileMan | 2 | FILE^DIE ($$GET1,GETS)^DIQ |
| DRG Grouper | 1 | $$CODEABA^ICDEX |
| Registration | 1 | ADD^VADPT |
| 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 |
|---|---|---|
| DETCH |
|
|
| GOT | ; process an inpatient invoice
|
|
| AUTHIP(IENS) | ;
|
|
| PSA(X,Y) | ;call to set default Primary Service Area (PSA)
|
|
| B9ADMIT(FBIENS) | ; Determine Admission Date for a B9 payment
; input ; FBIENS ; returns admission date in internal FileMan format or null value |
|
| B9DISCHG(FBIENS) | ; Determine Discharge Date and Type for a B9 payment
; input ; FBIENS - Invoice IEN (file 162.5) with trailing comma ; returns discharge date in internal FileMan format or null value and ; discharge type or null value |
|
| DX(FBDX,FBDATE,FBPOA) | ; format diagnosis & POA for B9
; Input ; FBDX = pointer to file 80 (ICD diagnosis) ; FBDATE = fileman date ; FBPOA = (optional) poiner to file 161.94 (present on admission) ; Returns formatted string of 8 characters |
|
| PROC(FBPROC,FBDATE) | ; format procedure for B9
; Input ; FBPROC = pointer to file 80.1 (ICD operation/procedure) ; FBDATE = fileman date ; Returns formatted string of 7 characters |
|
| CRARC(FBIENS,FBCRARC) | ; load CARCs and RARCs
|
| FileNo | Call Tags |
|---|---|
| ^FBAAI - [#162.5] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | PSA+7 |
| ^DIC(5 - [#5] | GOT+108, GOT+111 |
| ^DPT - [#2] | GOT+101 |
| ^FB(161.94 - [#161.94] | DX+14 |
| ^FB583 - [#162.7] | B9ADMIT+22, B9DISCHG+14 |
| ^FB7078 - [#162.4] | AUTHIP+7, B9ADMIT+12, B9DISCHG+21 |
| ^FBAA(161.27 - [#161.27] | GOT+50 |
| ^FBAA(161.43 - [#161.43] | GOT+72 |
| ^FBAA(161.82 - [#161.82] | GOT+46 |
| ^FBAA(161.95 - [#161.95] | GOT+15 |
| ^FBAAA("AG" | B9DISCHG+33 |
| ^FBAACNH - [#162.3] | B9DISCHG+41, B9DISCHG+48 |
| ^FBAACNH("AC" | B9DISCHG+47 |
| ^FBAACNH("AF" | B9DISCHG+39, B9DISCHG+40 |
| ^FBAAI - [#162.5] | DETCH+2, GOT+74, GOT+86, GOT+93 |
| ^FBAAI("AC" | DETCH+2 |
| ^FBAAV - [#161.2] | GOT+11, GOT+43 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | GOT+1~, GOT+98*, GOT+101, GOT+107, B9DISCHG+30~, B9DISCHG+31*, B9DISCHG+33, B9DISCHG+39, B9DISCHG+40 |
| >> FB | AUTHIP+5 |
| >> FB( | AUTHIP+5, AUTHIP+6 |
| FB4LN | GOT+3~, GOT+127*, GOT+156 |
| FB7078 | AUTHIP+6*, AUTHIP+7, B9ADMIT+4~, B9ADMIT+7*, B9ADMIT+10, B9ADMIT+12, B9ADMIT+20, B9ADMIT+22, B9DISCHG+5~, B9DISCHG+8* , B9DISCHG+12, B9DISCHG+14, B9DISCHG+19, B9DISCHG+21, B9DISCHG+33 |
| >> FBAAON | GOT+130 |
| >> FBAASN | GOT+7, GOT+8, GOT+130 |
| >> FBAC | GOT+55*, GOT+143 |
| FBACTA | B9DISCHG+30~, B9DISCHG+36*, B9DISCHG+39, B9DISCHG+42*, B9DISCHG+43, B9DISCHG+47 |
| FBADJ | GOT+1~, CRARC+2~, CRARC+3, CRARC+5 |
| FBADJA | GOT+1~, GOT+142*, GOT+143, GOT+176*, GOT+177 |
| FBADJG | GOT+2~, GOT+166*, GOT+169, GOT+172*, GOT+177 |
| FBADJR | GOT+1~, GOT+141*, GOT+143, GOT+173*, GOT+177 |
| FBADMIT | GOT+1~, GOT+114*, GOT+143, B9DISCHG+30~, B9DISCHG+32*, B9DISCHG+37, B9DISCHG+38 |
| FBADMITR | B9DISCHG+30~, B9DISCHG+37*, B9DISCHG+39 |
| FBADMTDX | GOT+3~, GOT+68*, GOT+79, GOT+81 |
| >> FBAP | GOT+54*, GOT+130 |
| FBAUTHF | GOT+1~, GOT+58*, GOT+143 |
| FBAUTHNUM | GOT+3~, GOT+65*, GOT+66*, GOT+164 |
| FBAUTHP | B9DISCHG+30~, B9DISCHG+33*, B9DISCHG+42 |
| FBBILAMT | GOT+3~, GOT+63*, GOT+179 |
| FBCDAYS | GOT+1~, GOT+121*, GOT+143 |
| >> FBCHB | FBAAV5+7 |
| FBCLAMT | GOT+4~, GOT+67*, GOT+165 |
| FBCNTRN | GOT+3~, GOT+72*, GOT+73*, GOT+143 |
| FBCNTRP | GOT+70~, GOT+71*, GOT+72 |
| FBCRARC | GOT+2~, GOT+124, CRARC~, CRARC+5 |
| FBCRARC( | GOT+172, GOT+173, GOT+174, GOT+175, GOT+176 |
| FBCRARC(1 | GOT+141, GOT+142, GOT+166, GOT+167, GOT+168 |
| FBCSID | GOT+3~, GOT+59*, GOT+143 |
| FBCSVDT | GOT+3~, GOT+6*, GOT+81, GOT+88, GOT+95 |
| >> FBCTY | GOT+111*, GOT+112*, GOT+132 |
| FBDA | B9DISCHG+30~, B9DISCHG+40*, B9DISCHG+41, B9DISCHG+42, B9DISCHG+46*, B9DISCHG+47*, B9DISCHG+48 |
| FBDATE | DX~, DX+9, PROC~, PROC+8 |
| >> FBDIN | GOT+53*, GOT+131 |
| FBDISDT | GOT+1~, GOT+117*, GOT+143, B9DISCHG+5~, B9DISCHG+6*, B9DISCHG+15*, B9DISCHG+25*, B9DISCHG+47, B9DISCHG+50*, B9DISCHG+55 |
| FBDISTY | GOT+1~, GOT+118*, GOT+143, B9DISCHG+5~, B9DISCHG+6*, B9DISCHG+16*, B9DISCHG+26*, B9DISCHG+51*, B9DISCHG+52*, B9DISCHG+55 |
| >> FBDOB | GOT+105*, GOT+143 |
| FBDODINV | GOT+4~, GOT+16*, GOT+29*, GOT+31, GOT+34*, GOT+38*, GOT+144 |
| FBDRG | GOT+2~, GOT+57*, GOT+143 |
| FBDRGWT | GOT+3~, GOT+60*, GOT+179 |
| FBDTR | B9DISCHG+30~, B9DISCHG+38*, B9DISCHG+39*, B9DISCHG+40 |
| FBDX | GOT+76!, DX~, DX+8, DX+9 |
| FBDX( | GOT+78*, GOT+88*, GOT+134, GOT+149, GOT+157 |
| FBDX(0 | GOT+77*, GOT+85*, GOT+143 |
| FBDX(11 | GOT+127 |
| FBEDIF | GOT+3~, GOT+74*, GOT+143 |
| FBERR | FBAAV5+6! |
| FBFPPSID | GOT+2~, GOT+64*, GOT+163 |
| >> FBFTD | GOT+48*, GOT+131 |
| >> FBI | GOT+171*, GOT+172, GOT+173, GOT+174, GOT+175, GOT+176 |
| FBIA | GOT+4~, GOT+14*, GOT+15*, GOT+21*, GOT+26*, GOT+37*, GOT+144 |
| FBIAFDA | GOT+22~, GOT+30~ |
| FBIAFDA( | GOT+23*, GOT+31* |
| FBIENS | GOT+2~, GOT+5*, GOT+23, GOT+31, GOT+65, GOT+114, GOT+116, GOT+121, GOT+124, B9ADMIT~ , B9ADMIT+7, B9DISCHG~, B9DISCHG+8, B9DISCHG+16, B9DISCHG+26, CRARC~, CRARC+3, CRARC+4 |
| >> FBINVN | GOT+51*, GOT+52*, GOT+131 |
| FBIPIEN | GOT+18~, GOT+21, GOT+23 |
| FBNPI | GOT+1~, GOT+40*, GOT+143 |
| FBPA | GOT+2~, GOT+56*, GOT+143 |
| >> FBPATT | GOT+47*, GOT+131 |
| >> FBPAYT | GOT+9*, GOT+42, GOT+130 |
| FBPICN | DETCH+3~, DETCH+4*, GOT+139 |
| FBPNAMX | GOT+2~, GOT+107*, GOT+130 |
| FBPOA | DX~, DX+14 |
| >> FBPOV | GOT+46*, GOT+131 |
| FBPRC | GOT+91! |
| FBPRC( | GOT+92*, GOT+95*, GOT+140, GOT+150, GOT+158 |
| FBPRC(11 | GOT+127 |
| FBPROC | PROC~, PROC+7, PROC+8 |
| >> FBPSA | GOT+8*, GOT+133 |
| FBPYMTH | GOT+4~, GOT+61*, GOT+62*, GOT+179 |
| FBRET | B9ADMIT+4~, B9ADMIT+5*, B9ADMIT+14*, B9ADMIT+16*, B9ADMIT+23*, B9ADMIT+26, DX+6~, DX+7*, DX+16*, DX+17 , PROC+5~, PROC+6*, PROC+11*, PROC+12 |
| FBRRC1 | GOT+2~, GOT+167*, GOT+169, GOT+174*, GOT+177 |
| FBRRC2 | GOT+2~, GOT+168*, GOT+169, GOT+175*, GOT+177 |
| FBRRMK | CRARC+2~, CRARC+4, CRARC+5 |
| >> FBSSN | GOT+130 |
| >> FBST | GOT+108*, GOT+109*, GOT+110*, GOT+111, GOT+132 |
| >> FBSTAT | FBAAV5+7 |
| >> FBSTR | GOT+130*, GOT+131*, GOT+132*, GOT+133*, GOT+134*, GOT+135*, GOT+139*, GOT+140*, GOT+143*, GOT+144* , GOT+148*, GOT+149*, GOT+150*, GOT+151*, GOT+155*, GOT+157*, GOT+158*, GOT+159*, GOT+163*, GOT+164* , GOT+165*, GOT+169*, GOT+177*, GOT+179*, GOT+180*, GOT+181*, GOT+182*, GOT+183* |
| >> FBSUSP | GOT+50*, GOT+130 |
| >> FBTTD | GOT+49*, GOT+131 |
| >> FBTXT | DETCH*, DETCH+6*, DETCH+8 |
| >> FBVID | GOT+11*, GOT+41*, GOT+42*, GOT+130 |
| FBVMID | GOT+2~, GOT+43*, GOT+44*, GOT+131 |
| FBX | GOT+2~, GOT+80~, GOT+81*, GOT+82, GOT+84*, GOT+85, GOT+116*, GOT+117, GOT+118, GOT+119! , DX+6~, DX+9*, DX+10, DX+12*, DX+13*, DX+16, PROC+5~, PROC+8*, PROC+9, PROC+10* , PROC+11 |
| FBX2 | DX+6~, DX+14*, DX+15*, DX+16 |
| FBY | DETCH+3~, DETCH+5*, GOT+133, GOT+139, B9ADMIT+11~, B9ADMIT+12*, B9ADMIT+14, B9ADMIT+16, B9ADMIT+21~, B9ADMIT+22* , B9ADMIT+23, B9DISCHG+13~, B9DISCHG+14*, B9DISCHG+15, B9DISCHG+20~, B9DISCHG+21*, B9DISCHG+24, B9DISCHG+25, B9DISCHG+29, B9DISCHG+31 , B9DISCHG+32, B9DISCHG+41*, B9DISCHG+42, B9DISCHG+48*, B9DISCHG+49, B9DISCHG+50, B9DISCHG+51 |
| FBYDX | GOT+86*, GOT+87, GOT+88, GOT+89! |
| FBYPOA | GOT+86*, GOT+88, GOT+89! |
| FBYPROC | GOT+93*, GOT+94, GOT+95, GOT+96! |
| >> FBZIP | GOT+113*, GOT+132 |
| >> I | GOT+134*, GOT+140*, GOT+149*, GOT+150*, GOT+157*, GOT+158* |
| IENS | AUTHIP~, AUTHIP+4, AUTHIP+5, AUTHIP+6 |
| >> J | DETCH+2 |
| >> K | DETCH+2*, DETCH+4, GOT+5, GOT+6, GOT+74, GOT+86, GOT+93 |
| >> L | GOT+10*, GOT+11, GOT+17, GOT+21, GOT+40, GOT+43 |
| >> M | GOT+78*, GOT+87*, GOT+88, GOT+92*, GOT+94*, GOT+95 |
| >> PAD | GOT+41, GOT+42, GOT+44, GOT+57, GOT+110, GOT+132, GOT+133 |
| >> POV | GOT+45*, GOT+46* |
| REFNUM | AUTHIP+2~, AUTHIP+3*, AUTHIP+7*, AUTHIP+8 |
| U | DETCH+5, GOT+8, GOT+14, GOT+15, GOT+16, GOT+29, GOT+58, GOT+60, GOT+61, GOT+63 , GOT+64, GOT+65, GOT+67, GOT+113, GOT+117, GOT+118, GOT+133, GOT+141, GOT+142, GOT+166 , GOT+167, GOT+168, GOT+172, GOT+173, GOT+174, GOT+175, GOT+176, AUTHIP+7, PSA+7, B9ADMIT+14 , B9ADMIT+16, B9ADMIT+23, B9DISCHG+15, B9DISCHG+24, B9DISCHG+25, B9DISCHG+29, B9DISCHG+31, B9DISCHG+32, B9DISCHG+42, B9DISCHG+49 , B9DISCHG+50, B9DISCHG+51 |
| >> VAPA("P" | GOT+101* |
| >> VAPA(11 | GOT+113 |
| >> VAPA(5 | GOT+108, GOT+111 |
| >> VAPA(6 | GOT+113 |
| >> VAPA(7 | GOT+111 |
| X | PSA~, PSA+7 |
| Y | PSA~, PSA+6*, PSA+7 |
| Y(0 | FBAAV5+7, DETCH+2*, DETCH+5, GOT+8, GOT+9, GOT+10, GOT+45, GOT+47, GOT+48, GOT+49 , GOT+50, GOT+51, GOT+53, GOT+54, GOT+55, GOT+56, GOT+57, GOT+58, GOT+63, GOT+98 , GOT+101*, GOT+105 |
| Y(2 | DETCH+2*, DETCH+5, GOT+29, GOT+59, GOT+60, GOT+61 |
| Y(3 | DETCH+2*, GOT+64 |
| Y(5 | DETCH+2*, GOT+14, GOT+16, GOT+68, GOT+71 |
| Y(7 | DETCH+2*, GOT+65, GOT+67 |
