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

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

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: !?22,"*** VENDOR DEMOGRAPHICS ***"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !?19,"==> FLAGGED FOR DELETION <=="
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !?20,"==> AWAITING AUSTIN APPROVAL <=="
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !!,$J("Name:",13),?15,$E(Z(1),1,30),?47,"ID Number: ",Z(2)
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !?40,"Billing Prov NPI: ",FBNPI
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !?31,"Billing Prov Taxonomy code: ",FBTXC
  • Line Location: EN1+17
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+18
Function Call: WRITE
  • Prompt: !,$J("Address [2]:",13),?15,Z(14)
  • Line Location: EN1+19
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+20
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+22
Function Call: WRITE
  • Prompt: !,$J("ZIP:",13),?15,Z(6),?38,"Medicare ID Number:",?59,Z(17)
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,$J("County:",13),?15,$P($G(^DIC(5,+Z(5),1,+Z(13),0)),U)
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: ?51,"Chain: ",Z(10)
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !,$J("Phone:",13),?15,FBAAPN,!,$J("Fax:",13),?15,FBAAFN
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !,$J("Type (FPDS):",13),?15,$$EXTERNAL^DILFD(161.2,24,"",$P(V,U,10))
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: !,$J("Group (FPDS):",13),?15,$E(X,1,21)
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: ?44,"Group (FPDS):",?59,$E(X,1,21)
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: !,$J("Austin Name:",13),?15,$P(T,U)
  • Line Location: EN1+35
Function Call: WRITE
  • Prompt: !,$J("Last Change ",13),?43,"Last Change"
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: " by ",$S($P(A,U,5)="000":"Non-Fee User",1:"Station "_$P(A,U,5))
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: !,$J("TO Austin:",13),?15,$$DATX^FBAAUTL($P(A,U,2))
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: ?45,"FROM Austin: ",$$DATX^FBAAUTL($P(A,U,4))
  • Line Location: EN1+38
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call