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 |  Marked Items  | All
Print Page as PDF
Routine: FBCHCR

Package: Fee Basis

Routine: FBCHCR


Information

FBCHCR ;AISC/CMR-CIVIL HOSPITAL COST REPORT ;7/23/01

Source Information

Source file <FBCHCR.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Fee Basis 4 ($$DATX,$$SSN,CLOSE,DATE,ZIS)^FBAAUTL  (ANCIL,SUMMARY)^FBCHCR1  $$NAME^FBCHREQ2  $$ASKMB^FBUCUTL9  
VA FileMan 2 ^%DTC  ^DIR  

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 FBCH COST REPORT  FBCH UC COST REPORT  FBCHCR1  FBCNH COST REPORT  

Entry Points

Name Comments DBIA/ICR reference
START
DETAIL
END
PRINT
HED
HED1
HED2
PGCHK
TEXT ;

External References

Name Field # of Occurrence
^%DTC START+6
^DIR FBCHCR+9, PGCHK
$$DATX^FBAAUTL PRINT+3, HED+1
$$SSN^FBAAUTL PRINT+3
CLOSE^FBAAUTL END+1
DATE^FBAAUTL FBCHCR+5
ZIS^FBAAUTL FBCHCR+10
ANCIL^FBCHCR1 START+10
SUMMARY^FBCHCR1 DETAIL+10
$$NAME^FBCHREQ2 START+6
$$ASKMB^FBUCUTL9 FBCHCR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FBCHCR+9
Function Call: WRITE
  • Prompt: !!,"No payments found within specified timeframe!"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!!,?22,"** Indicates an Ancillary Payment"
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: !!!?22,"** Indicates an Ancillary Payment"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !,$E(FBNAME,1,23),?24,$$SSN^FBAAUTL(DFN),?40,$S(FBREF="FB7078":$P(^FB7078(FBREF1,0),"^"),1:$$DATX^FBAAUTL($P(^FB583(FBREF1,0),"^"))),?53,$S($G(FBAMT):$J($FN(FBAMT,",",2),10),1:""),?63,$S(FBANC:"**",1:""),?71,FBDRG,?75,$J(FBLOS,5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?22,$S(FB1725R="M":"MILL BILL (1725) ",FB1725R="N":" NON-MILL BILL ",1:" "),"UNAUTHORIZED CLAIMS"
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !,@$S(FBTP=6:"?25",1:"?22"),"COST REPORT FOR ",$S(FBTP=6:"CIVIL HOSPITAL",1:"CONTRACT NURSING HOME"),!?28,$$DATX^FBAAUTL(BEGDATE)," THROUGH ",$$DATX^FBAAUTL(ENDDATE),!,@$S(FBTP=6:"?25",1:"?22"),Q
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !!!,"PATIENT NAME",?25,"PATIENT ID"
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: ?40,"DT CLAIM REC"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: ?40,"ASSOC 7078"
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: ?55,"AMT PAID",?66,"FINAL DRG",?77,"LOS",!,QQ
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !!?5,"TREATING SPECIALTY: "
  • Line Location: HED1+0
Function Call: WRITE
  • Prompt: $P(J,";",4)
  • Line Location: HED1+0
Function Call: WRITE
  • Prompt: !!,?35,"SUMMARY",!!?22,"LOS",?40,"# CASES",?60,"AVE. AMT. PAID",!,QQ
  • Line Location: HED2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGCHK+1
Routine Call
  • DIR
  • Line Location:
    • FBCHCR+9
    • PGCHK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] START+5, PRINT+3
^FB7078 - [#162.4] PRINT+3
^FBAAI - [#162.5] START+1, START+2
^FBAAI("AD" START+1
^TMP($J START!, START+7, START+8*, START+9*, START+11, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6
, DETAIL+7, DETAIL+8, END+1!

Label References

Name Line Occurrences
END FBCHCR+5, FBCHCR+8, FBCHCR+9, FBCHCR+10, START+11, DETAIL+9
HED START+11, DETAIL+1, PGCHK+1
HED1 PRINT+2
HED2 HED+2
PGCHK PRINT+1
PRINT DETAIL+5, DETAIL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDATE FBCHCR+10, START, END!, HED+1
BEGDT START*, START+1, END!
DFN START+6*, START+9, DETAIL*, DETAIL+5*, DETAIL+8*, END!, PRINT+3
DIR FBCHCR+9!, PGCHK!
DIR("A" FBCHCR+9*
DIR("B" FBCHCR+9*
DIR(0 FBCHCR+9*, PGCHK*
>> DIRUT FBCHCR+9
ENDDATE FBCHCR+10, START+1, END!, HED+1
FB1725 START+5*, END!
FB1725R FBCHCR+7*, FBCHCR+8*, START+5, END!, HED
FB583 END!
FB7078 END!
FBAAOUT START*, DETAIL+2, DETAIL+4, DETAIL+6, DETAIL+7, DETAIL+9, END!, PRINT+1, PGCHK*
FBAMT START+6*, START+7, START+9, DETAIL*, DETAIL+5*, DETAIL+8*, END!, PRINT+3
FBANC DETAIL*, DETAIL+8*, END!, PRINT+3
FBCHK DETAIL*, END!, PRINT+2*
FBCTR START*, DETAIL+4*, END!
FBDRG START+6*, START+9, DETAIL*, DETAIL+5*, DETAIL+8*, END!, PRINT+3
FBDT START+1*, END!
FBEND START+11*, END!, HED+2
FBIEN START*, START+1*, START+2, START+9, DETAIL*, DETAIL+4*, DETAIL+5, END!
FBINV START+2*, START+5, START+6, DETAIL+5*, DETAIL+8*, END!
FBJ END!
FBLOS START+6*, START+7, START+8, START+9, DETAIL*, DETAIL+5*, DETAIL+8*, END!, PRINT+3
FBNAME START+6*, START+9, DETAIL*, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+8
, END!, PRINT+3
>> FBPOP FBCHCR+5, FBCHCR+10
FBPTC START+2*, START+7, START+8, START+9, DETAIL*, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6
, DETAIL+7, DETAIL+8, END!, PRINT+2, HED1
FBREF FBCHCR+8, FBCHCR+10, START+2, START+5, START+9, END!, PRINT+3, HED, HED+4, HED+5
FBREF1 DETAIL*, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+8, END!, PRINT+3
FBRT FBCHCR+9*, FBCHCR+10, DETAIL+1, DETAIL+5, DETAIL+8, DETAIL+9, END!
FBSUM START+7*, START+8, END!
FBSUM1 END!
FBSUM2 END!
FBTAMT START*, DETAIL+5*, END!
FBTLOS START*, DETAIL+5*, END!
FBTP FBCHCR+8, FBCHCR+10, START+1, START+5, END!, HED+1
FBTYPE START+1*, END!
I END!, HED1*
IO START+11
IOF START+11, PGCHK+1
>> IOP FBCHCR+10*
IOSL PRINT, PGCHK, PGCHK+1
IOST START+11, PGCHK
J END!, HED+1*, HED1*
K END!
L DETAIL*, DETAIL+6*, DETAIL+7, DETAIL+8, END!
M DETAIL*, DETAIL+7*, DETAIL+8, END!
N DETAIL*, DETAIL+7*, DETAIL+8, END!
>> PGM FBCHCR+10*
Q START*, END!, HED+1
QQ START*, END!, HED+6, HED2
U START+5
>> VAL FBCHCR+10*
>> VAR FBCHCR+10*
>> X START+6
>> X1 START+6*
>> X2 START+6*
>> Y FBCHCR+9, PGCHK

Marked Items

Name Field # of Occurrence
$T(TEXT+I HED1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All