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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCF2

Package: Integrated Billing

Routine: IBCF2


Information

IBCF2 ;ALB/ARH - HCFA 1500 19-90 DATA (gather demographics) ;12-JUN-93

Source Information

Source file <IBCF2.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Integrated Billing 11 $$ICD9^IBACSV  BSTAT^IBCDC  F^IBCEF  $$EXTRACT^IBCEFG  $$NAME^IBCEFG1  ENFMT^IBCF  ^IBCF21  ^IBCF2P  
SET^IBCSC4D  $$FTN^IBCU3  $$NEEDMRA^IBEFUNC  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Registration 2 (ADD,DEM)^VADPT  ZIPOUT^VAFADDR  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Integrated Billing 11 IBCEF  IBCEF11  IBCEU3  IBCF21  IBCF22  IBCF3  IBCF33  IBCFP1  
IBCOMD1  ^IBA(364.5  ^IBA(364.7  

Entry Points

Name Comments DBIA/ICR reference
DATE(X,Y2K,NULL) ; returns date in form format
; X = date in FM format, Y2K = 1 if 4 digit year required
; If NULL = 1, then the delimiter should be null, not space
; Format is MM DD YY or MMDDYY or MM DD YYYY or MMDDYYYY
EN ;begin gathering data for printing of HCFA 1500
PAT
ENF ;Output the bill via formatter
PATADD
DEV ; IBIFN required
NEXT
Q
NAME31(IBIFN,IBZNM) ; Returns the name of the provider
; formatted to print in Box 31 on the HCFA 1500. Max length is 21
; IBZNM = PROVIDER NAME in last,first<space>middle^file 200 ien^cred
END ;set print status
DATE31(IBDT,IBIFN) ; Returns date to print in box 31 of HCFA 1500
; Either first print date (IBDT) or today's date if never printed
DXIND(IBIFN) ; Returns 0 for ICD10 codes and 9 for ICD9 codes.
; This sets the diagnosis ind to a 9. If the diagnosis is ICD10
; it is set to zero
NAMEQ
PRINT
MAIL
ARRAY ; Added "10D" for patch 488
STATE(X) ; returns 2 letter abbreviation for state pointer

External References

Name Field # of Occurrence
^%ZIS DEV+10
HOME^%ZIS DEV+11
^%ZISC Q
^%ZTLOAD DEV+11
^DIE END+2
$$ICD9^IBACSV DXIND+9
BSTAT^IBCDC END+3
F^IBCEF EN+5, NAME31+6
$$EXTRACT^IBCEFG ENF+2
$$NAME^IBCEFG1 NAME31+7
ENFMT^IBCF DEV+4
^IBCF21 NEXT
^IBCF2P PRINT
SET^IBCSC4D DXIND+4
$$FTN^IBCU3 DEV+2
$$NEEDMRA^IBEFUNC END+1
ADD^VADPT PATADD
DEM^VADPT PAT
ZIPOUT^VAFADDR MAIL+3
$$FMTE^XLFDT DATE31+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DEV+9, EN+3, MAIL, END+2, NAME31+4, DATE31+2
^DIC(5 - [#5] STATE+1
^DPT - [#2] EN+4, PAT+7, PAT+8
^IBE(353 - [#353] DEV+2, DEV+9

Label References

Name Line Occurrences
$$DATE PAT+3
$$STATE MAIL+4, PATADD+3
ARRAY EN+4
EN DEV+12
NAMEQ NAME31+4, NAME31+10, NAME31+13, NAME31+15
Q DEV+10, DEV+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+8*
>> %ZIS("A" DEV+8*
>> %ZIS("B" DEV+9*
DA END+2*!
DATA DXIND+3~, DXIND+9*
DFN EN+4*, PAT+7, PAT+8, END+5!
DIC END+2*!
DIE END+2*!
DR END+2*!
DT DATE31+3
IB DEV+2, END+5!
IB( MAIL*
IB("M" MAIL+1, MAIL+2, MAIL+3, MAIL+4
IB("M1" MAIL+2
IB(0 EN+3*, EN+4
IB1 NAME31+3~, NAME31+8*, NAME31+11, NAME31+14
IB2 NAME31+3~, NAME31+8*, NAME31+10, NAME31+11, NAME31+14, NAME31+16
IBDELIM DATE+4~, DATE+6*, DATE+7
IBDT DATE31~, DATE31+3*, DATE31+4
IBDXI END+5!, DXIND+3~, DXIND+5*, DXIND+8*, DXIND+9*, DXIND+10
IBDXX DXIND+3~, DXIND+4
IBF DEV+1~, DEV+2*, DEV+3*, DEV+4
IBFL END+5!
IBFLD EN+2!, END+5!
IBFLD( ARRAY+2*, ARRAY+3*, ARRAY+4*
IBFLD("1A" PAT+1*
IBFLD("3D" PAT+3*
IBFLD("3X" PAT+4*
IBFLD("5S" PATADD+3*
IBFLD("5T" PATADD+4*
IBFLD("8E" PAT+7*
IBFLD("8M" PAT+5*
IBFLD(0 EN+5*, MAIL+1*, MAIL+2*, MAIL+4*, ARRAY+1*
IBFLD(2 PAT+2*
IBFLD(5 PATADD+1*, PATADD+2*
IBFT DEV+2*, DEV+5!
IBI MAIL*, MAIL+2*, END+5!, ARRAY+1*, ARRAY+2*, ARRAY+3*, ARRAY+4*
IBIFN DEV+4, DEV+9, EN+3, EN+5, MAIL, END+1, END+2, END+3, ENF+2, NAME31~
, NAME31+4, NAME31+6, DATE31~, DATE31+2, DXIND~, DXIND+4
IBJ EN+5*, MAIL+1*, MAIL+2*, MAIL+4, END+5!, ARRAY+3*
IBK END+5!
IBMID NAME31+3~, NAME31+8*, NAME31+11
IBMIDI NAME31+3~, NAME31+8*, NAME31+14
IBNM NAME31+3~, NAME31+4*, NAME31+7*, NAME31+8, NAME31+10*, NAME31+11*, NAME31+13, NAME31+14*, NAME31+15, NAME31+16*
, NAMEQ
>> IBPNT EN+5*
IBPOX DXIND+3~, DXIND+4
IBPOX(1 DXIND+6, DXIND+7
IBSPE PAT+8*, END+5!
IBX END+5!
IBXDATA NAME31+3~
>> IBXERR END+1
>> IBXIEN EN+5*
>> IBXPARM("TEST" END+1
IBY END+5!
IBYY END+2*!
IBZ EN+2!, EN+5, NAME31+3~
IBZNM NAME31~, NAME31+4, NAME31+5, NAME31+7
ICD DXIND+3~, DXIND+7*, DXIND+9
IO DEV+12
IO("Q" DEV+11!
NULL DATE~, DATE+6
>> POP DEV+10
U DEV+2, EN+4, MAIL+1, MAIL+2, MAIL+3, MAIL+4, PAT+1, PAT+4, PAT+7, PAT+8
, PATADD+2, END+2, STATE+1, NAME31+4, NAME31+7, NAME31+8, DXIND+7, DXIND+9
VA PAT+6!
VADM PAT+6!
VADM(1 PAT+2
VADM(10 PAT+5
VADM(2 PAT+1
VADM(3 PAT+3
VADM(5 PAT+4
VAERR END+5!
VAPA PATADD+5!
VAPA(1 PATADD+1
VAPA(11 PATADD+2
VAPA(2 PATADD+1
VAPA(3 PATADD+1
VAPA(4 PATADD+2
VAPA(5 PATADD+3
VAPA(8 PATADD+4
X PAT+7*, END+5!, DATE~, DATE+7, STATE~, STATE+1
Y MAIL+3!*, MAIL+4, MAIL+5!, END+5!
Y2K DATE~, DATE+5*, DATE+7
Z ENF+1~, ENF+2*
>> ZTDESC DEV+11*
>> ZTQUEUED Q
>> ZTRTN DEV+11*
>> ZTSAVE("IB*" DEV+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All