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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZISC  $$S^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 3 $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Fee Basis 2 $$CKVEN^FBAADV  ($$DATX,ZIS)^FBAAUTL  

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

Package Total Caller Graph
Fee Basis 1 FB VEN FPDS BLANK  

Entry Points

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

External References

Name Field # of Occurrence
^%ZISC QEN+80
$$S^%ZTLOAD QEN+7, HD+1
$$EXTERNAL^DILFD QEN+52, QEN+64
$$GET1^DIQ QEN+49, QEN+53, QEN+54, QEN+58, QEN+67
^DIR EN+9, EN+13, EN+17, QEN+79, HD+2
$$CKVEN^FBAADV QEN+47
$$DATX^FBAAUTL QEN+74, QEN+75
ZIS^FBAAUTL EN+19
$$FMADD^XLFDT EN+12
$$FMTE^XLFDT EN+12, QEN+32, HD+6
$$NOW^XLFDT QEN+32

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
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • EN+13
    • EN+17
    • QEN+79
    • HD+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] EXTERNAL^DILFD,  GET1^DIQ
^PRCD(420.6 - [#420.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(162.1 - [#162.1] QEN+19, QEN+20
^FBAAC("AX" QEN+15
^FBAAI("AF" QEN+23
^FBAAV - [#161.2] QEN+5, QEN+8, QEN+11, QEN+27, QEN+38, QEN+44, QEN+65, QEN+66
^TMP($J QEN+4!, QEN+28*, QEN+35, QEN+36, EXIT+2!

Label References

Name Line Occurrences
EXIT EN+9, EN+10, EN+17, EN+19
HD QEN+33, QEN+41, QEN+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EN+9!, EN+13!, EN+17!, QEN+79!, HD+2!
DIR("?" EN+4*, EN+5*, EN+6*, EN+7*, EN+8*
DIR("A" EN+2*, EN+11*, EN+15*
DIR("B" EN+3*, EN+12*, EN+16*
DIR(0 EN+2*, EN+11*, EN+15*, QEN+79*, HD+2*
DIROUT EXIT+2!
DIRUT EN+9, EN+10, EN+13, EN+17, EXIT+2!
DT EN+12
DTOUT EXIT+2!
DUOUT EXIT+2!
FBACT EN+9*, EN+10, QEN+12, EXIT+4!, HD+6
FBACT("D" EN+13*, QEN+17, QEN+21, QEN+25, HD+6
FBBT QEN+8*, QEN+9, EXIT+4!
FBC QEN+65*, QEN+68*, QEN+69, QEN+70, EXIT+4!
FBDASH QEN+31*, EXIT+3!, HD+7
FBDASH1 QEN+31*, EXIT+3!
FBDTR QEN+32*, EXIT+3!, HD+5
FBI QEN+19*, QEN+20, QEN+65*, QEN+66, EXIT+4!
FBID QEN+40*, QEN+41, QEN+45, EXIT+4!
FBIEN QEN+5*, QEN+8, QEN+11, QEN+15, QEN+19, QEN+23, QEN+27, QEN+28, QEN+36*, QEN+38
, QEN+44, QEN+47, QEN+49, QEN+53, QEN+54, QEN+58, QEN+65, QEN+66, EXIT+4!
FBNAME QEN+27*, QEN+28, QEN+35*, QEN+36, QEN+39*, QEN+41, QEN+45, EXIT+4!
FBOUT QEN+2*, QEN+5, QEN+7*, QEN+35, QEN+36, QEN+41, QEN+43, QEN+77, QEN+78, QEN+79
, EXIT+3!, HD+1*, HD+2*
FBPG QEN+31*, EXIT+3!, HD+2, HD+3, HD+4*, HD+5
FBPOP EN+19, EXIT+3!
FBT QEN+5*, QEN+6*, QEN+7, QEN+34*, QEN+37*, QEN+78, EXIT+4!
FBVD EN+17*, QEN+41, EXIT+4!
FBVENACT QEN+12, QEN+13*, QEN+17*, QEN+21*, QEN+25*, EXIT+4!
FBX QEN+15*, QEN+16, QEN+23*, QEN+24, QEN+44*, QEN+54*, QEN+55, QEN+66*, QEN+67*, QEN+69
, QEN+70, EXIT+4!
FBX("D" QEN+16*, QEN+17, QEN+20*, QEN+21, QEN+24*, QEN+25
FBY EXIT+4!
FBY( QEN+44*
FBY("ADEL" QEN+46, QEN+73, QEN+74, QEN+75
FBY("AMS" QEN+62, QEN+71
FBY(0 QEN+38*, QEN+39, QEN+40, QEN+48, QEN+50, QEN+51, QEN+52, QEN+56, QEN+57, QEN+59
FBY(1 QEN+60, QEN+61, QEN+64
IO QEN+1
IOF HD+3
IOSL QEN+41, QEN+43
IOST QEN+7, QEN+79, HD+2, HD+3
>> PGM EN+19*
U QEN+8, QEN+11, QEN+20, QEN+27, QEN+39, QEN+40, QEN+46, QEN+48, QEN+50, QEN+51
, QEN+52, QEN+56, QEN+57, QEN+59, QEN+60, QEN+61, QEN+62, QEN+64, QEN+66, QEN+71
, QEN+73, QEN+74, QEN+75
>> VAR EN+19*
X EXIT+2!
Y EN+9, EN+13, EN+17, EXIT+2!, HD+2
>> ZTQUEUED QEN+7, EXIT+1, HD+1
>> ZTREQ EXIT+1*
>> ZTSTOP QEN+7*, HD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All