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

Package: Fee Basis

Routine: FBUCDE


Information

FBUCDE ;BOIFO/SGJ-UNAUTHORIZED EDI CLAIMS THAT WERE NOT APPROVED ;12/18/03

Source Information

Source file <FBUCDE.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data by date
HD ; page header
ONE
PRINT ; print claims
EXIT ; kill variables, tmp global and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"no entries found.",!
  • Line Location: GATHER+22
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST",!
  • Line Location: GATHER+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"UNAUTHORIZED EDI CLAIMS THAT WERE NOT APPROVED",?67,FBDTR
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?68,"Page: ",FBPG
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,"Date of Disposition",?23,"Disposition",?42,"FPPS Claim ID",?62,"Fee Program"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?2,"Veteran",?38,"Vendor"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !?2,"Treatment From",?31,"Treatment To",?58,"Amt Claimed"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !!,$$DATX^FBAAUTL($E(FBDT,1,7)),?21,$E($P($$PTR^FBUCUTL("^FB(162.91,",$P(FBZ,U,11)),U),1,30),?44,$O(^TMP("FBDE",$J,FBDT,FBDA,0)),?62,$$PROG^FBUCUTL($P(FBZ,U,2))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?2,$E($$VET^FBUCUTL($P(FBZ,U,4)),1,30),?35,$E($$VEN^FBUCUTL($P(FBZ,U,3)),1,30)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?2,$$DATX^FBAAUTL($E($P(FBZ,U,5),1,7)),?32,$$DATX^FBAAUTL($E($P(FBZ,U,6),1,7)),?58,$J(FBAC,6)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,FBSET_$P(^FB(162.94,I,0),U)
  • Line Location: PRINT+11
Info |  Source |  Entry Points |  Interaction Calls