Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls