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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBUTL135

Package: Fee Basis

Routine: FBUTL135


Information

FBUTL135 ;DSS/LJF - FEE BASIS UTILITY FOR UNIQUE CLAIM ID - FEE5010 ;3/23/2012

Source Information

Source file <FBUTL135.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ($$HTE,$$NOW)^XLFDT  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Fee Basis 1 STATION^FBAAUTL  

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 3 FB UCID DISPLAY  FB UCID UTILITY MENU  FBUTL136  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
UCLAIMNO(FBSTA,FBSRC,FBINT,FBCLT,FBCLAIMS) ; Unique Claim Identifier for patch 135
CLAIMNO() ; Return the value of field 39: UNIQUE CLAIM IDENTIFIER SEQ from file 161.4: FEE BASIS SITE PARAMETERS - incremented by one
VALIDATE(TYPE,UCID) ;
STATION() ; Set station
INVUCID(FBAAIN,FBSTA,FBSRC,FBINTYP,FBCLAIMS)
PAYUCID(DFN,FBV,FBSDI,FBAACPI,FBSTA,FBSRC,FBINTYP,FBCLTYP,FBCLAIMS)
OCLMTYP(FBCURVAL) ; Get Outpatient Claim Type from the user
UCIDUTL()
CLEAR()
UCIDRPT()
OUTDSPLY(FBSTRT,FBEND)
INDSPLY(FBSTRT,FBEND)

External References

Name Field # of Occurrence
DD^%DT UCIDUTL+51, UCIDRPT+5, UCIDRPT+29, UCIDRPT+32, OUTDSPLY+16, INDSPLY+14
^%ZIS UCIDRPT+25
^%ZISC UCIDRPT+38
^DIC UCIDUTL+36, UCIDUTL+61, UCIDUTL+69, UCIDUTL+79
FILE^DIE CLAIMNO+8, INVUCID+26, PAYUCID+34
$$GET1^DIQ CLAIMNO+5
^DIR OCLMTYP+8, UCIDUTL+21, UCIDRPT+10, UCIDRPT+19
STATION^FBAAUTL STATION+2
$$CPT^ICPTCOD UCIDUTL+92, OUTDSPLY+21
$$HTE^XLFDT CLAIMNO+5
$$NOW^XLFDT CLAIMNO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a required response."
  • Line Location: OCLMTYP+10
Function Call: WRITE
  • Prompt: !!,"This is a required response. '^' is not allowed."
  • Line Location: OCLMTYP+11
Function Call: WRITE
  • Prompt: !!,"This is a required response. '^' is not allowed."
  • Line Location: OCLMTYP+12
Function Call: WRITE
  • Prompt: !,"Enter a code from the list."
  • Line Location: OCLMTYP+14
Function Call: WRITE
  • Prompt: !,?5,"FEE BASIS PATCH 135 UNIQUE CLAIM IDENTIFIER DISPLAY"
  • Line Location: UCIDUTL+12
Function Call: WRITE
  • Prompt: !,"No Fee Basis Invoice Vendors found for this patient!"
  • Line Location: UCIDUTL+74
Function Call: WRITE
  • Prompt: !,"No Fee Basis Invoice DATE OF SERVICE found for this Vendor!"
  • Line Location: UCIDUTL+84
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEAR+2
Routine Call
  • DIC
  • Line Location:
    • UCIDUTL+36
    • UCIDUTL+61
    • UCIDUTL+69
    • UCIDUTL+79
Routine Call
  • DIE
  • Line Location:
    • CLAIMNO+8
    • INVUCID+26
    • PAYUCID+34
Routine Call
  • DIR
  • Line Location:
    • OCLMTYP+8
    • UCIDUTL+21
    • UCIDRPT+10
    • UCIDRPT+19
Routine Call
  • %ZIS
  • Line Location:
    • UCIDRPT+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.4 - [#161.4] GET1^DIQ
^FBAAC - [#162] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] UCIDUTL+52, OUTDSPLY+17, INDSPLY+15
^FBAA(161.4 - [#161.4] CLAIMNO+4
^FBAAA - [#161] UCIDUTL+48, INDSPLY+11
^FBAAC - [#162] PAYUCID+29, PAYUCID+35, UCIDUTL+67, UCIDUTL+77, UCIDUTL+88, UCIDUTL+90, UCIDUTL+91, UCIDUTL+92, OUTDSPLY+6, OUTDSPLY+8
, OUTDSPLY+10, OUTDSPLY+11, OUTDSPLY+19, OUTDSPLY+20, OUTDSPLY+21
^FBAAI - [#162.5] INVUCID+21, INVUCID+27, UCIDUTL+45, UCIDUTL+53, INDSPLY+5, INDSPLY+6, INDSPLY+16
^FBAAV - [#161.2] UCIDUTL+52, OUTDSPLY+17, INDSPLY+15

Label References

Name Line Occurrences
$$CLAIMNO UCLAIMNO+24
$$STATION UCLAIMNO+19
$$UCLAIMNO INVUCID+24, PAYUCID+32
CLEAR UCIDUTL+11, UCIDUTL+95
INDSPLY UCIDRPT+37
OUTDSPLY UCIDRPT+35
UCIDRPT UCIDUTL+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C PAYUCID+1~, PAYUCID+12*, PAYUCID+33
DA UCIDUTL+2~
DA(1 UCIDUTL+66*, UCIDUTL+67, UCIDUTL+68, UCIDUTL+75, UCIDUTL+76*, UCIDUTL+77, UCIDUTL+78, UCIDUTL+86, UCIDUTL+87*, UCIDUTL+88
, UCIDUTL+90, UCIDUTL+91, UCIDUTL+92
DA(2 UCIDUTL+75*, UCIDUTL+77, UCIDUTL+78, UCIDUTL+85, UCIDUTL+86*, UCIDUTL+88, UCIDUTL+90, UCIDUTL+91, UCIDUTL+92
DA(3 UCIDUTL+85*, UCIDUTL+88, UCIDUTL+90, UCIDUTL+91, UCIDUTL+92
DBDATE INDSPLY+3~
DFN PAYUCID~, PAYUCID+13, PAYUCID+15, PAYUCID+29, PAYUCID+33, PAYUCID+35
>> DIC UCIDUTL+33*, UCIDUTL+59*, UCIDUTL+68*, UCIDUTL+78*
>> DIC(0 UCIDUTL+34*, UCIDUTL+60*
>> DILOCTM CLAIMNO+4
DIR OCLMTYP+1~, UCIDUTL+2~, UCIDRPT+2~
DIR("A" UCIDUTL+14*, UCIDUTL+15*, UCIDUTL+16*, UCIDUTL+22!, UCIDRPT+7*, UCIDRPT+16*
DIR("B" OCLMTYP+2*, UCIDUTL+20*, UCIDRPT+9*, UCIDRPT+18*
DIR("L" OCLMTYP+4*, OCLMTYP+5*, OCLMTYP+6*
DIR(0 OCLMTYP+3*, UCIDUTL+17*, UCIDUTL+18*, UCIDUTL+19*, UCIDRPT+8*, UCIDRPT+17*
DIRUT OCLMTYP+1~, UCIDUTL+2~, UCIDUTL+24, UCIDUTL+38, UCIDUTL+63, UCIDUTL+71, UCIDUTL+81, UCIDRPT+12, UCIDRPT+21
DT UCIDRPT+4
DTOCNT OCLMTYP+1~, OCLMTYP+7*
DTOUT OCLMTYP+1~, OCLMTYP+9, UCIDUTL+2~, UCIDUTL+25, UCIDUTL+39, UCIDUTL+64, UCIDUTL+72, UCIDUTL+82, UCIDRPT+13, UCIDRPT+22
DUOUT OCLMTYP+1~, OCLMTYP+11!, OCLMTYP+12!, UCIDUTL+2~, UCIDUTL+23, UCIDUTL+37, UCIDUTL+62, UCIDUTL+70, UCIDUTL+80, UCIDRPT+11
, UCIDRPT+20
DUZ(2 UCIDUTL+7
FB STATION+1~
FBAACPI PAYUCID~, PAYUCID+13, PAYUCID+16, PAYUCID+29, PAYUCID+33, PAYUCID+35
FBAAIN INVUCID~, INVUCID+9, INVUCID+11, INVUCID+21, INVUCID+25, INVUCID+27
FBAASN STATION+1~
FBCLAIMS UCLAIMNO~, UCLAIMNO+18*, UCLAIMNO+24*, UCLAIMNO+25, CLAIMNO+1~, CLAIMNO+2*, CLAIMNO+5*, CLAIMNO+6*, CLAIMNO+7*, CLAIMNO+8
, CLAIMNO+9, INVUCID~, INVUCID+9, INVUCID+13, INVUCID+20, INVUCID+24, PAYUCID~, PAYUCID+13, PAYUCID+19, PAYUCID+28
, PAYUCID+32
FBCLMT VALIDATE+1~, VALIDATE+8*, VALIDATE+10, VALIDATE+16*, VALIDATE+18
FBCLT UCLAIMNO~, UCLAIMNO+23*, UCLAIMNO+25
FBCLTDF UCLAIMNO+1~, UCLAIMNO+18*, UCLAIMNO+23
FBCLTYP INVUCID+1~, INVUCID+8*, INVUCID+24, PAYUCID~, PAYUCID+13, PAYUCID+18, PAYUCID+26, PAYUCID+32
FBCURVAL OCLMTYP~, OCLMTYP+2*, OCLMTYP+9
FBDAT INVUCID+1~, PAYUCID+1~
FBDAT( INVUCID+25*, PAYUCID+33*
FBDATE UCIDUTL+46*, UCIDUTL+50, UCIDRPT+2~, OUTDSPLY+11*, OUTDSPLY+12, OUTDSPLY+15, INDSPLY+7*, INDSPLY+8, INDSPLY+13
FBDONE UCIDUTL+2~, UCIDUTL+5*, UCIDUTL+9*, UCIDUTL+13, UCIDUTL+23*, UCIDUTL+24*, UCIDUTL+25*, UCIDUTL+26*, UCIDUTL+27, UCIDUTL+54
, UCIDUTL+93
FBEDATE UCIDRPT+2~, UCIDRPT+33*, UCIDRPT+34, UCIDRPT+36
FBEND UCIDRPT+2~, UCIDRPT+23*, UCIDRPT+31, UCIDRPT+35, UCIDRPT+37, OUTDSPLY~, OUTDSPLY+12, INDSPLY~, INDSPLY+8
FBFDA UCLAIMNO+1~
FBFDA( CLAIMNO+8*
FBHELD UCLAIMNO+1~, CLAIMNO+4*
FBID UCIDUTL+2~
FBIEN UCIDUTL+44*, UCIDUTL+45, UCIDUTL+53, OUTDSPLY+4~, OUTDSPLY+5*, OUTDSPLY+6*, OUTDSPLY+8, OUTDSPLY+10, OUTDSPLY+11, OUTDSPLY+17
, OUTDSPLY+19, OUTDSPLY+20, OUTDSPLY+21, INDSPLY+3~, INDSPLY+4*, INDSPLY+5*, INDSPLY+6, INDSPLY+16
FBINT UCLAIMNO~, UCLAIMNO+22*, UCLAIMNO+25, VALIDATE+1~, VALIDATE+7*, VALIDATE+10, VALIDATE+15*, VALIDATE+18
FBINTDF UCLAIMNO+1~, UCLAIMNO+18*, UCLAIMNO+22
FBINTLDT UCIDRPT+2~, OUTDSPLY+4~, OUTDSPLY+9*, OUTDSPLY+10*, OUTDSPLY+11, OUTDSPLY+19, OUTDSPLY+20, OUTDSPLY+21
FBINTYP INVUCID~, INVUCID+9, INVUCID+12, INVUCID+18, INVUCID+24, PAYUCID~, PAYUCID+13, PAYUCID+18, PAYUCID+24, PAYUCID+32
FBLINE CLEAR+1~, CLEAR+2*
FBMSG INVUCID+1~, PAYUCID+1~
FBMSG("DIERR" INVUCID+27, PAYUCID+35
>> FBNODE UCIDUTL+45*, UCIDUTL+46, UCIDUTL+47, UCIDUTL+49, INDSPLY+6*, INDSPLY+7, INDSPLY+10, INDSPLY+12, INDSPLY+15
FBPAT UCIDUTL+48*, UCIDUTL+52, UCIDRPT+2~, INDSPLY+3~, INDSPLY+11*, INDSPLY+15
>> FBPNTR UCIDUTL+91*, UCIDUTL+92
FBPOP STATION+1~
FBPROG UCIDUTL+2~, UCIDUTL+28*, UCIDUTL+29, UCIDUTL+30, UCIDUTL+56
FBQUIT UCIDUTL+2~, UCIDUTL+4*, UCIDUTL+31*, UCIDUTL+32, UCIDUTL+37*, UCIDUTL+38*, UCIDUTL+39*, UCIDUTL+40*, UCIDUTL+41, UCIDUTL+54
, UCIDUTL+57*, UCIDUTL+58, UCIDUTL+62*, UCIDUTL+63*, UCIDUTL+64*, UCIDUTL+65, UCIDUTL+70*, UCIDUTL+71*, UCIDUTL+72*, UCIDUTL+73
, UCIDUTL+80*, UCIDUTL+81*, UCIDUTL+82*, UCIDUTL+83, UCIDUTL+93, UCIDRPT+2~, UCIDRPT+3*, UCIDRPT+11*, UCIDRPT+12*, UCIDRPT+13*
, UCIDRPT+15, UCIDRPT+20*, UCIDRPT+21*, UCIDRPT+22*, UCIDRPT+24
FBSDATE UCIDRPT+2~, UCIDRPT+30*, UCIDRPT+34, UCIDRPT+36
FBSDI PAYUCID~, PAYUCID+13, PAYUCID+16, PAYUCID+29, PAYUCID+33, PAYUCID+35
FBSITE STATION+1~
FBSN STATION+1~, STATION+2*, STATION+3
FBSNUM OUTDSPLY+4~, OUTDSPLY+18*, OUTDSPLY+19*, OUTDSPLY+20, OUTDSPLY+21
FBSRC UCLAIMNO~, UCLAIMNO+21*, UCLAIMNO+25, VALIDATE+1~, VALIDATE+6*, VALIDATE+10, VALIDATE+14*, VALIDATE+18, INVUCID~, INVUCID+9
, INVUCID+12, INVUCID+16, INVUCID+24, PAYUCID~, PAYUCID+13, PAYUCID+17, PAYUCID+22, PAYUCID+32
FBSRCDF UCLAIMNO+1~, UCLAIMNO+18*, UCLAIMNO+21
FBSRVC UCIDUTL+2~, UCIDUTL+89*, UCIDUTL+90*, UCIDUTL+91, UCIDUTL+92, OUTDSPLY+4~, OUTDSPLY+20*, OUTDSPLY+21
FBSTA UCLAIMNO~, UCLAIMNO+19*, UCLAIMNO+25, VALIDATE+1~, VALIDATE+5*, VALIDATE+13*, INVUCID~, INVUCID+9, INVUCID+11, INVUCID+15
, INVUCID+24, PAYUCID~, PAYUCID+13, PAYUCID+17, PAYUCID+21, PAYUCID+32
FBSTADF UCLAIMNO+1~
FBSTG1 UCIDUTL+2~
FBSTRT UCIDRPT+2~, UCIDRPT+14*, UCIDRPT+28, UCIDRPT+35, UCIDRPT+37, OUTDSPLY~, OUTDSPLY+12, INDSPLY~, INDSPLY+8
>> FBTODAY UCIDRPT+6*, UCIDRPT+9, UCIDRPT+18
FBV PAYUCID~, PAYUCID+13, PAYUCID+15, PAYUCID+29, PAYUCID+33, PAYUCID+35
FBVET UCIDUTL+47*, UCIDUTL+48, INDSPLY+3~, INDSPLY+10*, INDSPLY+11
FBVNDR UCIDUTL+49*, UCIDUTL+52, OUTDSPLY+4~, OUTDSPLY+7*, OUTDSPLY+8*, OUTDSPLY+10, OUTDSPLY+11, OUTDSPLY+17, OUTDSPLY+19, OUTDSPLY+20
, OUTDSPLY+21, INDSPLY+3~, INDSPLY+12*, INDSPLY+15
FBYEAR UCLAIMNO+1~, CLAIMNO+1~, CLAIMNO+5*, CLAIMNO+6, CLAIMNO+7
IO UCIDRPT+27
>> POP UCIDRPT+26
TYPE VALIDATE~, VALIDATE+3, VALIDATE+11
U INVUCID+11, INVUCID+12, INVUCID+13, INVUCID+15, INVUCID+17, INVUCID+19, INVUCID+20, INVUCID+21, PAYUCID+15, PAYUCID+16
, PAYUCID+17, PAYUCID+18, PAYUCID+19, PAYUCID+21, PAYUCID+23, PAYUCID+25, PAYUCID+27, PAYUCID+28, PAYUCID+29, UCIDUTL+44
, UCIDUTL+46, UCIDUTL+47, UCIDUTL+48, UCIDUTL+49, UCIDUTL+52, UCIDUTL+53, UCIDUTL+91, UCIDUTL+92, OUTDSPLY+11, OUTDSPLY+17
, OUTDSPLY+20, OUTDSPLY+21, INDSPLY+7, INDSPLY+10, INDSPLY+11, INDSPLY+12, INDSPLY+15, INDSPLY+16
UCID VALIDATE~, VALIDATE+4, VALIDATE+5, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9*, VALIDATE+10, VALIDATE+12, VALIDATE+13
, VALIDATE+14, VALIDATE+15, VALIDATE+16, VALIDATE+17*, VALIDATE+18, INVUCID+1~, INVUCID+8*, INVUCID+10, INVUCID+11*, INVUCID+12*
, INVUCID+13*, INVUCID+15*, INVUCID+17*, INVUCID+19*, INVUCID+20*, INVUCID+21*, INVUCID+22, INVUCID+24*, INVUCID+25, INVUCID+27*
, INVUCID+28, PAYUCID+1~, PAYUCID+12*, PAYUCID+14, PAYUCID+15*, PAYUCID+16*, PAYUCID+17*, PAYUCID+18*, PAYUCID+19*, PAYUCID+21*
, PAYUCID+23*, PAYUCID+25*, PAYUCID+27*, PAYUCID+28*, PAYUCID+29*, PAYUCID+30, PAYUCID+32*, PAYUCID+33, PAYUCID+35*, PAYUCID+36
VALID VALIDATE+1~, VALIDATE+2*, VALIDATE+3, VALIDATE+10*, VALIDATE+11, VALIDATE+18*, VALIDATE+19
X OCLMTYP+1~
Y OCLMTYP+1~, OCLMTYP+8, OCLMTYP+9*, OCLMTYP+10, OCLMTYP+11*, OCLMTYP+12*, OCLMTYP+13, OCLMTYP+14*, OCLMTYP+15, UCIDUTL+2~
, UCIDUTL+26, UCIDUTL+28, UCIDUTL+40, UCIDUTL+42, UCIDUTL+44, UCIDUTL+50*, UCIDUTL+52, UCIDUTL+66, UCIDUTL+74, UCIDUTL+76
, UCIDUTL+84, UCIDUTL+87, UCIDRPT+2~, UCIDRPT+4*, UCIDRPT+6, UCIDRPT+14, UCIDRPT+23, UCIDRPT+28*, UCIDRPT+30, UCIDRPT+31*
, UCIDRPT+33, OUTDSPLY+15*, OUTDSPLY+17, INDSPLY+13*, INDSPLY+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All