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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FBAAVD

Package: Fee Basis

Routine: FBAAVD


Information

FBAAVD ;AISC/DMK-DISPLAY/EDIT VENDOR DEMOGRAPHICS ; 8/28/09 12:35pm

Source Information

Source file <FBAAVD.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 7 ^DIC  FILE^DICN  ^DIE  ^DIK  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Fee Basis 4 $$CKVEN^FBAADV  ($$DATX,$$GETICN,$$SSN)^FBAAUTL  ^FBAAVD1  (,CONTR)^FBAAVD2  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Fee Basis 12 FBAA VENDOR DEMOGRAPHICS  FBAAAV  FBAACO1  FBAAPIE  FBAAVD2  FBAAVD3  FBCHEP  FBCHREQ1  
FBCNH VENDOR ENTER/EDIT  FBPHON2  FBXBIPS  FBXIP39  

Entry Points

Name Comments DBIA/ICR reference
RDV ;ask vendor
EN1 ;display vendor demographics
NEW ;called when adding a new vendor
EDITV ;called when editing an existing vendor
EDITV1
SETGL ;called to file an entry in 161.25 (vendor correction file)
NEXT
Q
ERROR ;edit check text when adding a new vendor
CHKVEN ;check if fields 3,4,5,5.5 have been answered. If not delete vendor

External References

Name Field # of Occurrence
^%ZIS EN1+10
^DIC RDV+1
FILE^DICN SETGL+5
^DIE NEW+2, SETGL+3, NEXT+1
^DIK CHKVEN+3
$$EXTERNAL^DILFD EN1+29
$$GET1^DIQ EN1+32
^DIR RDV+3, EDITV+4
$$CKVEN^FBAADV EN1+15
$$DATX^FBAAUTL EN1+38, EN1+39
$$GETICN^FBAAUTL EN1+12
$$SSN^FBAAUTL EN1+11, EN1+12
^FBAAVD1 EN1+41
^FBAAVD2 EDITV1
CONTR^FBAAVD2 NEW+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RDV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RDV+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$P($G(^DPT(DFN,0)),U),?48,"Pt.ID: ",$$SSN^FBAAUTL(DFN),!
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$E($P($G(^DPT(DFN,0)),U),1,25)," (",$$SSN^FBAAUTL(DFN,1),")",?48,"ICN: ",$$GETICN^FBAAUTL(DFN),!
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !?22,"*** VENDOR DEMOGRAPHICS ***"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !?19,"==> FLAGGED FOR DELETION <=="
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !?20,"==> AWAITING AUSTIN APPROVAL <=="
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !!,$J("Name:",13),?15,$E(Z(1),1,30),?47,"ID Number: ",Z(2)
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !?40,"Billing Prov NPI: ",FBNPI
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !?31,"Billing Prov Taxonomy code: ",FBTXC
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,$J("Address:",13),?15,Z(3),?47,"Specialty: ",$E($P($G(^FBAA(161.6,+Z(8),0)),U),1,20)
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: !,$J("Address [2]:",13),?15,Z(14)
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !,$J("City:",13),?15,Z(4),?52,"Type:",?58,$P($P(^DD(161.2,6,0),Z(7)_":",2),";")
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,$J("State:",13),?15,$P($G(^DIC(5,+Z(5),0)),U),?38,"Participation Code:",?58,$S($D(^FBAA(161.81,+Z(9),0)):$E($P(^(0),U),1,21),1:"UNKNOWN")
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,$J("ZIP:",13),?15,Z(6),?38,"Medicare ID Number:",?59,Z(17)
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: !,$J("County:",13),?15,$P($G(^DIC(5,+Z(5),1,+Z(13),0)),U)
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: ?51,"Chain: ",Z(10)
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !,$J("Phone:",13),?15,FBAAPN,!,$J("Fax:",13),?15,FBAAFN
  • Line Location: EN1+27
Function Call: WRITE
  • Prompt: !,$J("Type (FPDS):",13),?15,$$EXTERNAL^DILFD(161.2,24,"",$P(V,U,10))
  • Line Location: EN1+29
Function Call: WRITE
  • Prompt: !,$J("Group (FPDS):",13),?15,$E(X,1,21)
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: ?44,"Group (FPDS):",?59,$E(X,1,21)
  • Line Location: EN1+35
Function Call: WRITE
  • Prompt: !,$J("Austin Name:",13),?15,$P(T,U)
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: !,$J("Last Change ",13),?43,"Last Change"
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: " by ",$S($P(A,U,5)="000":"Non-Fee User",1:"Station "_$P(A,U,5))
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: !,$J("TO Austin:",13),?15,$$DATX^FBAAUTL($P(A,U,2))
  • Line Location: EN1+38
Function Call: WRITE
  • Prompt: ?45,"FROM Austin: ",$$DATX^FBAAUTL($P(A,U,4))
  • Line Location: EN1+39
Function Call: WRITE
  • Prompt: !!?5,*7,"Current Vendor information is pending Austin processing. Changing Vendor"
  • Line Location: EDITV+2
Function Call: WRITE
  • Prompt: !?3,$C(7),".... Vendor deleted",!
  • Line Location: CHKVEN+3
Routine Call
  • %ZIS
  • Line Location:
    • EN1+10
Routine Call
  • DIC
  • Line Location:
    • RDV+1
Routine Call
  • DIE
  • Line Location:
    • NEW+2
    • SETGL+3
    • NEXT+1
Routine Call
  • DIR
  • Line Location:
    • RDV+3
    • EDITV+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls,  EXTERNAL^DILFD
^FBAA(161.25 - [#161.25] Classic Fileman Calls
^PRCD(420.6 - [#420.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(161.2 EN1+21
^DIC(5 - [#5] EN1+23, EN1+25
^DPT - [#2] EN1+11, EN1+12
^FBAA(161.25 - [#161.25] EDITV+2, SETGL+4, SETGL+5, NEXT, NEXT+1
^FBAA(161.6 - [#161.6] EN1+19
^FBAA(161.81 - [#161.81] EN1+23
^FBAAV - [#161.2] EN1+5, EN1+30, EN1+31, NEW+2, SETGL+2, CHKVEN+1
^XUSEC("FBAA ESTABLISH VENDOR" RDV+3

Label References

Name Line Occurrences
CHKVEN NEW+2
EDITV RDV+3
EDITV1 EDITV+2
EN1 RDV+2
NEW RDV+2
NEXT NEXT
Q RDV+1
RDV RDV+1, RDV+5
SETGL NEW+12

Naked Globals

Name Field # of Occurrence
^("ADEL" EN1+5
^("AMS" EN1+5
^(0 EN1+23
^(1 EN1+5
^(3 EN1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN1+5*, EN1+7, EN1+37, EN1+38, EN1+39, EN1+42!, Q!
C EN1+3~, EN1+30*, EN1+33*, EN1+34, EN1+35
D Q!
DA RDV+1*, RDV+3, EN1+4, EN1+5, EN1+15, EN1+30, EN1+31, NEW+1, NEW+2, NEW+13*
, EDITV+1, EDITV+2, SETGL+1, SETGL+2, SETGL+4, SETGL+5, NEXT, NEXT+1, Q!, CHKVEN+1
, CHKVEN+3!
DD SETGL+5!
DFN RDV+1!, EN1+11, EN1+12
DIC RDV+1*!, SETGL+5*, NEXT+2!, Q!
DIC("DR" RDV+1*
DIC(0 RDV+1*, SETGL+5*
DIE NEW+2*!, SETGL+3*!, NEXT+1*, NEXT+2!, Q!
DIK CHKVEN+3*!
>> DILOCKTM SETGL+4, NEXT
>> DINUM SETGL+5*
DIR RDV+3!, EDITV+4!
DIR("A" RDV+3*, EDITV+4*
DIR("B" RDV+3*, EDITV+4*
DIR(0 RDV+3*, EDITV+4*
DIRUT EDITV+4, Q!
DLAYGO RDV+1*!, SETGL+5*!
DO SETGL+5!
DR NEW+2*!, SETGL+3*, NEXT+1*, Q!
DTOUT RDV+1, Q!
DUOUT RDV+1, Q!
DUZ RDV+3
FBAAFN EN1+7*, EN1+27, EN1+42!, Q!
FBAAOUT EDITV+2~!, EDITV+4*
FBAAPN EN1+7*, EN1+27, Q!
FBCIEN EDITV1!
FBCNUM Q!
FBDEL EN1+7*, EN1+14, Q!
FBHDA EDITV+1~
FBID Q!
>> FBIEN1 SETGL+1
FBLIEN Q!
>> FBNPI EN1+5*, EN1+17
FBOUT Q!
FBOVEN NEW+2*!, NEW+3*, NEW+4*, NEW+5*, NEW+6*, NEW+7, NEW+10
FBPARCD Q!
FBR EDITV1!
FBRATE RDV+1!
>> FBSSNRF EN1+11, EN1+12
FBT NEW+2*, EDITV+2, EDITV1!, SETGL+1, SETGL+3, Q!
>> FBTEMP RDV+4
FBTOV SETGL+2*, Q!
FBTV Q!
>> FBTXC EN1+5*, EN1+18
FBVIEN NEW+13*, Q!
FBX Q!
FEEO RDV+1*, Q!
FY Q!
I EN1+3~, EN1+30*, EN1+31
IOF EN1+10
ION EN1+10
IOP EN1+10*!
T EN1+5*, EN1+28, EN1+36, EN1+42!
U RDV+2, EN1+5, EN1+6, EN1+7, EN1+11, EN1+12, EN1+19, EN1+23, EN1+25, EN1+28
, EN1+29, EN1+31, EN1+36, EN1+37, EN1+38, EN1+39, NEW+3, NEW+4, NEW+5, NEW+6
, NEW+10, SETGL+2, CHKVEN+2
V EN1+5*, EN1+7, EN1+29, EN1+42!
X RDV+1, EN1+6*, EN1+31*, EN1+32*, EN1+34, EN1+35, NEW+7!, NEW+10*, SETGL+5*, Q!
, CHKVEN+2*
X2 Q!
XX NEW+7!, NEW+10*
Y RDV+1, RDV+2, RDV+3, NEW+2*, NEW+3, NEW+4, NEW+5, NEW+6, EDITV+4, SETGL+5
, NEXT+2!, Q!, CHKVEN+1*, CHKVEN+2
Z EN1+5*, EN1+6, EN1+42!
Z( EN1+6*
Z(1 EN1+16
Z(10 EN1+26
Z(13 EN1+25
Z(14 EN1+20
Z(17 EN1+24
Z(2 EN1+16
Z(3 EN1+19
Z(4 EN1+21
Z(5 EN1+23, EN1+25
Z(6 EN1+24
Z(7 EN1+21
Z(8 EN1+19
Z(9 EN1+23, EN1+41
Z0 Q!
Z1 SETGL+2*, Q!
Z2 Q!
>> ZTQUEUED SETGL+4, NEXT
ZZ Q!

Marked Items

Name Field # of Occurrence
$T(ERROR+X NEW+11
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 |  Naked Globals |  Local Variables |  Marked Items  | All