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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FBFPDS

Package: Fee Basis

Routine: FBFPDS


Information

FBFPDS ;WCIOFO/SAB-REPORT OF VENDORS WITHOUT FPDS DATA ;9/15/97

Source Information

Source file <FBFPDS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
QEN ; queued entry point
EXIT ;
HD ; header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,FBNAME,?50,"ID: ",FBID
  • Line Location: QEN+41
Function Call: WRITE
  • Prompt: !!,$J("Name:",13),?15,$E(FBNAME,1,30),?48,"ID Number: ",FBID
  • Line Location: QEN+45
Function Call: WRITE
  • Prompt: !?19,"==> FLAGGED FOR DELETION <=="
  • Line Location: QEN+46
Function Call: WRITE
  • Prompt: !?20,"==> AWAITING AUSTIN APPROVAL <=="
  • Line Location: QEN+47
Function Call: WRITE
  • Prompt: !,$J("Address:",13),?15,$P(FBY(0),U,3)
  • Line Location: QEN+48
Function Call: WRITE
  • Prompt: ?48,"Specialty: ",$E($$GET1^DIQ(161.2,FBIEN,.05),1,20)
  • Line Location: QEN+49
Function Call: WRITE
  • Prompt: !,$J("Address [2]:",13),?15,$P(FBY(0),U,14)
  • Line Location: QEN+50
Function Call: WRITE
  • Prompt: !,$J("City:",13),?15,$P(FBY(0),U,4)
  • Line Location: QEN+51
Function Call: WRITE
  • Prompt: ?53,"Type:",?59,$$EXTERNAL^DILFD(161.2,6,"",$P(FBY(0),U,7))
  • Line Location: QEN+52
Function Call: WRITE
  • Prompt: !,$J("State:",13),?15,$$GET1^DIQ(161.2,FBIEN,4)
  • Line Location: QEN+53
Function Call: WRITE
  • Prompt: ?39,"Participation Code:",?59,$S(FBX]"":$E(FBX,1,21),1:"UNKNOWN")
  • Line Location: QEN+55
Function Call: WRITE
  • Prompt: !,$J("ZIP:",13),?15,$P(FBY(0),U,6)
  • Line Location: QEN+56
Function Call: WRITE
  • Prompt: ?39,"Medicare ID Number:",?59,$P(FBY(0),U,17)
  • Line Location: QEN+57
Function Call: WRITE
  • Prompt: !,$J("County:",13),?15,$$GET1^DIQ(161.2,FBIEN,5.5)
  • Line Location: QEN+58
Function Call: WRITE
  • Prompt: ?52,"Chain: ",$P(FBY(0),U,10)
  • Line Location: QEN+59
Function Call: WRITE
  • Prompt: !,$J("Phone:",13),?15,$P(FBY(1),U)
  • Line Location: QEN+60
Function Call: WRITE
  • Prompt: !,$J("Fax:",13),?15,$P(FBY(1),U,9)
  • Line Location: QEN+61
Function Call: WRITE
  • Prompt: !,$J("Type (FPDS):",13)
  • Line Location: QEN+63
Function Call: WRITE
  • Prompt: ?15,$$EXTERNAL^DILFD(161.2,24,"",$P(FBY(1),U,10))
  • Line Location: QEN+64
Function Call: WRITE
  • Prompt: !,$J("Group (FPDS):",13),?15,$E(FBX,1,21)
  • Line Location: QEN+69
Function Call: WRITE
  • Prompt: ?45,"Group (FPDS):",?59,$E(FBX,1,21)
  • Line Location: QEN+70
Function Call: WRITE
  • Prompt: !,$J("Austin Name:",13),?15,$P(FBY("AMS"),U)
  • Line Location: QEN+71
Function Call: WRITE
  • Prompt: !,$J("Last Change ",13),?44,"Last Change"
  • Line Location: QEN+72
Function Call: WRITE
  • Prompt: " by ",$S($P(FBY("ADEL"),U,5)="000":"Non-Fee User",1:"Station "_$P(FBY("ADEL"),U,5))
  • Line Location: QEN+73
Function Call: WRITE
  • Prompt: !,$J("TO Austin:",13),?15,$$DATX^FBAAUTL($P(FBY("ADEL"),U,2))
  • Line Location: QEN+74
Function Call: WRITE
  • Prompt: ?46,"FROM Austin: ",$$DATX^FBAAUTL($P(FBY("ADEL"),U,4))
  • Line Location: QEN+75
Function Call: WRITE
  • Prompt: !!,"JOB STOPPED AT USER REQUEST"
  • Line Location: QEN+77
Function Call: WRITE
  • Prompt: !!,"TOTAL number of vendors missing FPDS data: ",FBT
  • Line Location: QEN+78
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"FEE BASIS VENDOR'S WITH BLANK FPDS DATA",?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"of those with activity since ",$$FMTE^XLFDT(FBACT("D"))
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBDASH
  • Line Location: HD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] EXTERNAL^DILFD,  GET1^DIQ
^PRCD(420.6 - [#420.6] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call