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

Package: Integrated Billing

Routine: IBCF3


Information

IBCF3 ;ALB/BGA -UB92 HCFA-1450 (gather demographics) ;19-AUG-93

Source Information

Source file <IBCF3.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 9 BSTAT^IBCDC  ENFMT^IBCF  $$DATE^IBCF2  SPLIT^IBCF3  ^IBCF31  ^IBCF32  ^IBCF33  ^IBCF3P  
($$BILLDEV,$$FTN)^IBCU3  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Accounts Receivable 1 $$BN1^PRCAFN  
Registration 1 DEM^VADPT  
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: 5

Package Total Caller Graph
Integrated Billing 5 IBCFP1  ^IBA(364.7  IBCF3  IBCF31  IBCF32  

Entry Points

Name Comments DBIA/ICR reference
EN ;This routine gathers demographics for printing of ub92 form.
PAT ; patient info
21 ; discharge hour: ptf (45,70), non-va (399,16), 99
22 ;
19 ; type of admission if outpatient leave blank
DATE(X) ;returns date in form format MMDDYY
DEV ;
TIME(X) ;returns hour stripped from date
Q
SPLIT(FLN,LINES,MAXCH,STRG) ;sets the string broken into lines that will fit in the FL block, in IBFL(FLN,x)=strg where max x=LINES
EXIT
20 ; source of admission
DATEY(X) ;returns date in form format MMDDYYYY

External References

Name Field # of Occurrence
^%ZIS DEV+10
HOME^%ZIS DEV+11
^%ZISC Q
^%ZTLOAD DEV+11
^DIE 22+4
BSTAT^IBCDC 22+5
ENFMT^IBCF DEV+4
$$DATE^IBCF2 DATE+1, DATEY+1
SPLIT^IBCF3 EN+16, EN+26
^IBCF31 22+1
^IBCF32 22+1
^IBCF33 22+1
^IBCF3P 22+1
$$BILLDEV^IBCU3 DEV+9
$$FTN^IBCU3 DEV+2
$$BN1^PRCAFN EN+17
DEM^VADPT PAT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NO SOMETHING"
  • Line Location: SPLIT+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+11
Routine Call
  • DIE
  • Line Location:
    • 22+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+6, EN+7, EN+8, EN+23, PAT+1, 22+4
^DGCR(399.1 - [#399.1] EN+19
^DGPT - [#45] PAT+9, 21+1
^DIC(36 - [#36] EN+8
^DIC(5 - [#5] EN+14
^IBE(350.9 - [#350.9] EN+12, EN+21
^IBE(353 - [#353] DEV+2
^TMP($J EXIT+1!

Label References

Name Line Occurrences
$$DATE EN+24, PAT+11
$$DATEY PAT+4
$$TIME PAT+11, 21+2
EN DEV+13
EXIT EN+6
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*
CNT SPLIT+3~*, SPLIT+4*, SPLIT+5*, SPLIT+6*
DA 22+4*!
>> DFN PAT+2*
DIC 22+4*!
DIE 22+4*!
DR 22+4*!
FLN SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6
IB DEV+2, EXIT!
IBCBCOMM EXIT!
IBCBILL EN+6*, EN+19, PAT+2, PAT+9, PAT+10, 21+1, 21+2, EXIT!
IBCINSN EN+8*, EN+9, EXIT!
IBCU2 EN+7*, EN+25, EXIT!
IBCUF3 EN+7*, EN+16, EN+26, EXIT!
IBCUF31 EN+7*, EXIT!
IBF DEV+1~, DEV+2*, DEV+3*, DEV+4
IBFL EXIT!
IBFL( SPLIT+4*, SPLIT+5*, SPLIT+6*
IBFL(0 EN+9*, EN+10*
IBFL(1 EN+13*, EN+14*, EN+15*
IBFL(12 PAT+3*
IBFL(13 PAT+1*
IBFL(14 PAT+4*
IBFL(15 PAT+3*
IBFL(16 PAT+7*
IBFL(17 PAT+11*
IBFL(18 PAT+11*
IBFL(19 19+1*
IBFL(20 20+1*
IBFL(21 21+1*, 21+2*
IBFL(3 EN+17*
IBFL(4 EN+19*
IBFL(5 EN+21*
IBFL(6 EN+24*
IBFL(7 EN+25*
IBFL(8 EN+25*
IBFT DEV+2*, DEV+5!
IBI EXIT!
>> IBIFN DEV+4, DEV+9, EN+6, EN+7, EN+8, EN+17, EN+23, PAT+1, 22+4, 22+5
IBINPAT PAT+9*, 19+1, 20+1, 21+1, EXIT!
IBJ EXIT!
IBMAIL1 EXIT!
IBNOCHG EXIT!
IBPG EXIT!
IBPMAILN PAT+1*, EXIT!
>> IBPNT EN+4*, EN+10
IBSIGN EN+21*, EXIT!
IBSTATE EN+23*, EN+24, 19+1, 20+1, EXIT!
IBX EN+12*, EN+13, EN+14, EN+15, EN+16*, EN+26*, PAT+6*, PAT+7, PAT+9*, PAT+10*
, PAT+11, 21+1*, 21+2*, EXIT!, SPLIT+3~
>> IBXIEN EXIT+1
IBY EXIT!
IBYY 22+4*!
IO DEV+13
IO("Q" DEV+11!
LINES SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6
MAXCH SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5, SPLIT+6
>> POP DEV+10
STRG SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5*, SPLIT+6*
U DEV+2, EN+8, EN+9, EN+13, EN+14, EN+15, EN+16, EN+19, EN+21, EN+24
, EN+25, EN+26, PAT+1, PAT+2, PAT+3, PAT+6, PAT+9, PAT+10, 19+1, 20+1
, 21+1, 21+2, 22+4
VA EXIT!
VADM EXIT!
VADM(1 PAT+3
VADM(10 PAT+6
VADM(3 PAT+4
VADM(5 PAT+3
VAERR EXIT!
X EXIT!, DATE~, DATE+1, DATEY~, DATEY+1, TIME~, TIME+1*, TIME+2
Y EXIT!
>> ZTDESC DEV+11*
>> ZTQUEUED Q
>> ZTRTN DEV+11*
>> ZTSAVE("DFN" DEV+11*
>> ZTSAVE("DG*" DEV+11*
>> ZTSAVE("IB*" DEV+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All