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: IBCF22

Package: Integrated Billing

Routine: IBCF22


Information

IBCF22 ;ALB/ARH - HCFA 1500 19-90 DATA (gather other data) ;12-JUN-93

Source Information

Source file <IBCF22.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 7 $$ICD9^IBACSV  F^IBCEF  ($$DATE,$$STATE)^IBCF2  ^IBCF23  SET^IBCSC4D  SET^IBCSC5A  $$NEEDMRA^IBEFUNC  
Accounts Receivable 1 $$BN1^PRCAFN  
Registration 1 INP^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: 3

Package Total Caller Graph
Integrated Billing 3 IBCBB2  IBCF21  ^IBA(364.5  

Entry Points

Name Comments DBIA/ICR reference
DATES ;S IBFLD(14)=$$DATE($$EVENT(IBIFN))
DX ;S X=14 F IBI="21A","21B","21C","21D" S IBFLD(IBI)=$P($G(^ICD9(+$P(IB("C"),U,X),0)),U,1),X=X+1
LAST3
END
EVENT(IBIFN,IBXSAVE,IBERR,IBD) ; The event date for box 14 on the
; HCFA 1500
; IBIFN = bill ien
; IBXSAVE = the array returned by the output formatter for data element
; N-OCCURRENCE CODES
; Returns IBERR=1 if passed by reference meaning more than one condition
; has been found
; IBD("LMP"), IBD("ACC"), IBD("ONS"), IBD("EVT") returned with
; Last menstrual period date, accident date, date of onset,
; event date if IBD passed by reference
; Function returns the appropriate date
DATE(X) ; format date(X) as MM DD YYYY
QUAL(IBIFN,IBXBOX,IBXSAVE,IBD) ; The event date for box 14 & box 15 on the
; HCFA 1500
; IBIFN = bill ien
; IBXBOX = BOX 14 OR BOX 15 of CMS-1500 form
; IBXSAVE = the array returned by the output formatter for data element
; N-OCCURRENCE CODES
;
; IBD("LMP"), IBD("ACC"), IBD("ONS"), IBD("EVT") returned with
; Last menstrual period date, accident date, date of onset,
; event date if IBD passed by reference
; Function returns the appropriate date
ACC ;Accident - 439
LXRY ; Last X-Ray - 455
SCPT ; Prescription - 471
LVC ;Latest Visit or Consultation - 304
INTTRT ;Initial Treatment - 454
AMCC ;Acute Manifestation of Chronic Condition - 453

External References

Name Field # of Occurrence
$$ICD9^IBACSV DX+9
F^IBCEF EVENT+19, QUAL+15, LVC+2
$$DATE^IBCF2 DATE+1
$$STATE^IBCF2 LAST3+4, LAST3+7
^IBCF23 DX+15
SET^IBCSC4D DX+6
SET^IBCSC5A SCPT+2
$$NEEDMRA^IBEFUNC DATES+8
$$BN1^PRCAFN DX+18
INP^VADPT DATES+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] IBCF22+8, LAST3, EVENT+17, QUAL+25, LXRY+1, INTTRT+1, AMCC+1
^DGPM - [#405] DATES+11
^DIC(4 - [#4] LAST3+1, LAST3+2
^IBE(350.9 - [#350.9] DX+17, LAST3+1, LAST3+5

Label References

Name Line Occurrences
$$DATE DATES+4, DATES+6, DATES+7, DATES+9, DATES+11
$$QUAL DATES+3, DATES+5
ACC QUAL+31
AMCC QUAL+33
INTTRT QUAL+35
LVC QUAL+36
LXRY QUAL+32
SCPT QUAL+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EVENT+12~, EVENT+25*, EVENT+26, QUAL+13~, ACC+4*, ACC+5
>> IB( IBCF22+8*
>> IB("U" DATES+7, DATES+9, DX+13
>> IB("U1" DX+19, DX+20
>> IB(0 DATES+9, DATES+10
IBD EVENT~, QUAL~
IBD("ACC" EVENT+26*, ACC+5*
IBD("AMC" LXRY+2*, AMCC+2*
IBD("EVT" EVENT+17*, QUAL+25*
IBD("INT" INTTRT+2*
IBD("LMP" EVENT+32*, QUAL+27*
IBD("LVC" LVC+3*
IBD("ONS" EVENT+33*, QUAL+26*
>> IBDXI( DX+10*
IBDXX DX+5~, DX+6
IBDXX( DX+10
IBERR EVENT~, EVENT+34*
IBF EVENT+12~, EVENT+17*, EVENT+32*, EVENT+33*, EVENT+34, ACC+1~, ACC+2*, ACC+4*, ACC+5
>> IBFLD( DATES+3*, DATES+5*
>> IBFLD("16A" DATES+7*
>> IBFLD("16B" DATES+7*
>> IBFLD("18A" DATES+9*, DATES+11*
>> IBFLD("18B" DATES+9*, DATES+11*
>> IBFLD("21A" DX+11*
>> IBFLD(12 IBCF22+9*
>> IBFLD(13 IBCF22+10*
>> IBFLD(14 DATES+3*, DATES+4*
>> IBFLD(15 DATES+5*, DATES+6*
>> IBFLD(17 DATES+8*
>> IBFLD(20 DATES+14*
>> IBFLD(21 DX+7*, DX+9*
>> IBFLD(23 DX+13*
>> IBFLD(25 DX+17*
>> IBFLD(26 DX+18*
>> IBFLD(28 DX+19*, DX+21
>> IBFLD(29 DX+20*, DX+21
>> IBFLD(30 DX+21*
>> IBFLD(31 LAST3*
>> IBFLD(32 LAST3+2*, LAST3+3*, LAST3+4*
>> IBFLD(33 LAST3+6*, LAST3+7*, LAST3+8*
>> IBI IBCF22+8*, DX+7*, DX+9, DX+10, LAST3+1*
IBIFN IBCF22+8, DATES+3, DATES+5, DATES+8, DX+6, DX+18, LAST3, EVENT~, EVENT+17, EVENT+19
, QUAL~, QUAL+15, QUAL+25, LXRY+1, SCPT+2, LVC+2, INTTRT+1, AMCC+1
IBPOX DX+5~, DX+6, DX+7
IBPOX( DX+8, DX+9, DX+10
IBRX SCPT+1~, SCPT+2, SCPT+3
IBRX( SCPT+6
IBRX("" SCPT+4
IBX LAST3+2*, LAST3+4, EVENT+12~, EVENT+17*, EVENT+33*, EVENT+35, QUAL+13~, QUAL+18*, QUAL+26*, QUAL+27*
, QUAL+30*, QUAL+31, QUAL+32, QUAL+33, QUAL+34, QUAL+35, QUAL+38, ACC+5*, ACC+6*, LXRY+1*
, LXRY+2*, SCPT+8*, LVC+3*, INTTRT+1*, INTTRT+2*, AMCC+1*, AMCC+2*
IBXBOX QUAL~, QUAL+19, QUAL+29
>> IBXDATA LVC+1*, LVC+3
IBXSAVE EVENT~, QUAL~
IBXSAVE("OCC" EVENT+19, EVENT+20, QUAL+15, QUAL+16
RXDT SCPT+1~, SCPT+6*, SCPT+7, SCPT+8
RXNM SCPT+1~, SCPT+4*, SCPT+5, SCPT+6
U DATES+3, DATES+4, DATES+5, DATES+6, DATES+7, DATES+9, DATES+10, DATES+11, DX+7, DX+9
, DX+13, DX+17, DX+20, LAST3+1, LAST3+2, LAST3+3, LAST3+4, LAST3+6, LAST3+7, LAST3+8
, EVENT+17, EVENT+20, QUAL+16, QUAL+25, QUAL+26, QUAL+27, ACC+6, LXRY+1, LXRY+2, SCPT+8
, LVC+3, INTTRT+1, INTTRT+2, AMCC+1, AMCC+2
VAIN DATES+12!
VAIN(1 DATES+10, DATES+11
VAIN(7 DATES+11
VAINDT DATES+10*, DATES+12!
X DX+7*, DX+8*, DX+9, DX+10, LAST3+1*, LAST3+2, LAST3+5*, LAST3+6, LAST3+7, LAST3+8
, DATE~, DATE+1
>> Y LAST3+1*, LAST3+2*, LAST3+3, LAST3+4
Z EVENT+12~, EVENT+20*, QUAL+13~, QUAL+16*
Z0 EVENT+12~, QUAL+13~
Z0( EVENT+20*, EVENT+22, EVENT+25, EVENT+26, QUAL+16*, ACC+3, ACC+4, ACC+5
Z0(10 EVENT+32, QUAL+27
Z0(11 EVENT+33, QUAL+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All