Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FBAAV5

Package: Fee Basis

Routine: FBAAV5


Information

FBAAV5 ;AISC/GRR - CREATE TRANSACTIONS FOR CH/CNH PAYMENTS ;11 Apr 2006 2:54 PM

Source Information

Source file <FBAAV5.m>

Call Graph

Call Graph

Call Graph Total: 18

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Fee Basis 4 FBAAIARC  FBAAV0  FBAAV2  FBCSV1  

Entry Points

Name Comments DBIA/ICR reference
DETCH
  • ICR #5111
    • Status: Under Revision
    • Usage: Private
    GOT ; process an inpatient invoice
    AUTHIP(IENS) ;
    PSA(X,Y) ;call to set default Primary Service Area (PSA)
  • ICR #5111
    • Status: Under Revision
    • Usage: Private
    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

    External References

    Name Field # of Occurrence
    FILE^DIE GOT+24, GOT+32
    $$GET1^DIQ GOT+121, B9ADMIT+7, B9DISCHG+8, B9DISCHG+16, B9DISCHG+26
    GETS^DIQ AUTHIP+4
    $$IPACID^FBAAMP GOT+21
    $$IPACREQD^FBAAMP GOT+17
    CRARC^FBAAUTL CRARC+5
    STATION^FBAAUTL GOT+7
    PAT^FBAAUTL2 GOT+102
    $$PYMTH^FBAAV0 GOT+61
    UPD^FBAAV0 DETCH+6
    $$PADZ^FBAAV01 GOT+139, GOT+182
    CKB9V^FBAAV01 FBAAV5+6
    NEWMSG^FBAAV01 DETCH+6
    STORE^FBAAV01 DETCH+6, GOT+136, GOT+145, GOT+152, GOT+160, GOT+184
    XMIT^FBAAV01 DETCH+8
    $$HL7NAME^FBAAV2 GOT+107
    $$AUSAMT^FBAAV3 GOT+54, GOT+55, GOT+56, GOT+63, GOT+67, GOT+142, GOT+176
    $$AUSDT^FBAAV3 GOT+48, GOT+49, GOT+53, GOT+105, GOT+114, GOT+117, GOT+139
    $$AUSNUM^FBAAV3 GOT+60
    ^FBAAV6 FBAAV5+7
    LOADADJ^FBCHFA CRARC+3
    LOADRR^FBCHFR CRARC+4
    $$FRDTINV^FBCSV1 GOT+6
    $$ICD0^FBCSV1 PROC+8
    $$ICD9^FBCSV1 GOT+81, DX+9
    $$EN^FBNPILK GOT+40
    $$CODEABA^ICDEX GOT+84, DX+12
    ADD^VADPT GOT+106
    $$FMADD^XLFDT B9DISCHG+38
    $$LJ^XLFSTR GOT+37, GOT+38, GOT+59, GOT+66, GOT+73
    $$RJ^XLFSTR GOT+62, GOT+64, GOT+118, GOT+121, GOT+141, GOT+166, GOT+167, GOT+168, GOT+172, GOT+173
    , GOT+174, GOT+175

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAI - [#162.5] GET1^DIQ,  GETS^DIQ

    Global Variables Directly Accessed

    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

    Label References

    Name Line Occurrences
    $$AUTHIP GOT+65
    $$B9ADMIT GOT+114
    $$B9DISCHG GOT+116
    $$DX GOT+88
    $$PROC GOT+95
    $$PSA GOT+8
    CRARC GOT+124
    GOT DETCH+7

    Naked Globals

    Name Field # of Occurrence
    ^(0 GOT+11, GOT+43, GOT+46, GOT+50, GOT+101, GOT+108, GOT+111
    ^(2 DETCH+2
    ^(3 DETCH+2
    ^(5 DETCH+2
    ^(7 DETCH+2
    ^(99 PSA+7

    Local Variables

    Legend:

    >> 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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All