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  | All
Print Page as PDF
Routine: FBAADEM1

Package: Fee Basis

Routine: FBAADEM1


Information

FBAADEM1 ;AISC/DMK - DISPLAY PATIENT DEMOGRAPHICS ;6/5/2009

Source Information

Source file <FBAADEM1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Fee Basis 3 $$GETICN^FBAAUTL  $$REFNPI^FBCH78  ($$ICD9,$$IMPDATE)^FBCSV1  
Kernel 1 $$FMTE^XLFDT  

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 FBAADEM  

Entry Points

Name Comments DBIA/ICR reference
EN
DC ; JLG-FB*3.5*139-ICD10 REMEDIATION- determine diagnosis code based on authorization from date
HANG
PDF

External References

Name Field # of Occurrence
$$GET1^DIQ EN+26
^DIR HANG
^DIWP EN+34, EN+46
^DIWW EN+35, EN+47
$$GETICN^FBAAUTL EN+8, HANG+2
$$REFNPI^FBCH78 EN+27
$$ICD9^FBCSV1 DC+4
$$IMPDATE^FBCSV1 DC+2
$$FMTE^XLFDT PDF

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Fee ID Card #: ",$P(Y,"^"),?40,"Fee Card Issue Date: "
  • Condition for execution: $P(Y,"^")]""
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Patient Name: ",VADM(1),?55,"Pt.ID: ",$P(VADM(2),"^",2)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$E(VADM(1),1,32)," (",$P($P(VADM(2),"^",2),"-",3),")",?55,"ICN: ",$$GETICN^FBAAUTL(DFN)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"AUTHORIZATIONS:",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: ?3,"(",FBZ,")",?7,"FR: ",Y,?25,"VENDOR: ",$S($D(^FBAAV(FBV,0)):$P(^(0),"^")_" - "_$P(^(0),"^",2),1:"Not Specified")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?7,"TO: "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?25,"Authorization Type: "
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: FBTYPE
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,?11,"Purpose of Visit: ",$P($G(^FBAA(161.82,$P(X,"^",7),0)),"^")
  • Condition for execution: $P(X,"^",7)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !?25,">> Unauthorized Claim <<"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: ?40,"REF: "
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !?11,"DX: ",FBDC
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: ?40,"REF: "
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: $$GET1^DIQ(200,$P(X,"^",21),.01)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?11,"REF NPI: ",$$REFNPI^FBCH78($P(X,"^",21)),!
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !?7,"County: ",FBCOUNTY,?40,"PSA: ",$S($D(^DIC(4,+PSA,0)):$P(^(0),"^"),1:"Unknown"),!
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: ?12,">> DELETE MRA SENT TO AUSTIN ON - ",Y," >>",!
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !?11,"REMARKS:"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,"VENDOR CONTACTS:"
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !?3,"(",FBZ,")",?7,"DATE: ",Y,?25,"VENDOR: ",$P(X,"^",2),?55,"PHONE: ",$S($P(X,"^",3)]"":$P(X,"^",3),1:"Not Found")
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !?11,"NARRATIVE:",!
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,"Patient Name: ",VADM(1),?55,"Pt.ID: ",$P(VADM(2),"^",2),!
  • Line Location: HANG+1
Function Call: WRITE
  • Prompt: !,"Patient Name: ",VADM(1)," (",$P($P(VADM(2),"^",2),"-",3),")",?55,"ICN: ",$$GETICN^FBAAUTL(DFN),!
  • Line Location: HANG+2
Routine Call
  • DIR
  • Line Location:
    • HANG

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN+31
^FBAA(161.43 - [#161.43] EN+18
^FBAA(161.8 - [#161.8] EN+20
^FBAA(161.82 - [#161.82] EN+21
^FBAAA - [#161] EN+3, EN+5, EN+12, EN+13, EN+16, EN+32, EN+33, EN+34, EN+40, EN+43
, EN+45, EN+46, DC+4
^FBAAV - [#161.2] EN+15
^UTILITY($J EN+33!, EN+45!

Label References

Name Line Occurrences
DC EN+25
HANG EN+6, EN+33, EN+36, EN+38, EN+45, EN+46
PDF EN+3, EN+14, EN+17, EN+32, EN+43

Naked Globals

Name Field # of Occurrence
^( EN+34, EN+43, EN+46
^(0 EN+13, EN+15, EN+20, EN+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+3, EN+5, EN+8, EN+12, EN+13, EN+16, EN+32, EN+33, EN+34, EN+40
, EN+43, EN+45, EN+46, DC+4, HANG+2
DIR HANG!
DIR(0 HANG*
>> DIWF EN+33*, EN+45*
>> DIWL EN+33*, EN+45*
>> DIWR EN+33*, EN+45*
>> FBAAOUT EN+5, EN+6, EN+12, EN+13, EN+33, EN+38, EN+40, EN+43, EN+45, EN+46
, HANG*, HANG+1, HANG+2
FBAUT EN+10!
FBAUT( EN+30*
>> FBCOUNTY EN+31
FBDC EN~, EN+25, DC+1*, DC+3*, DC+4*, DC+6*
>> FBDEL EN+32*
FBDX EN~, EN+16*, EN+28, EN+29, EN+36!
FBFDT EN~, EN+11*, EN+12*, EN+13, DC+2
FBI EN~, EN+13*, EN+16, EN+32, EN+33, EN+34, EN+42*, EN+43*, EN+45, EN+46
, DC+4
>> FBPROG EN+1*, EN+13
FBRR EN~, EN+34*, EN+46*
>> FBSSNRF EN+7, EN+8, HANG+1, HANG+2
FBT EN~, EN+14*, EN+20, EN+36!
FBTYPE EN~, EN+20*, EN+21, EN+36!
FBV EN~, EN+14*, EN+15, EN+36!
FBVERS DC+2~*, DC+3, DC+4, DC+6, DC+7!
FBXX EN+34*, EN+35!, EN+46*, EN+47!
FBZ EN~, EN+11*, EN+13*, EN+15, EN+42*, EN+43*, EN+44
IOF HANG+1, HANG+2
IOSL EN+6, EN+33, EN+36, EN+38, EN+45, EN+46
IOST HANG
PSA EN~, EN+14*, EN+31, EN+36!
>> VADM(1 EN+7, EN+8, HANG+1, HANG+2
>> VADM(2 EN+7, EN+8, HANG+1, HANG+2
X EN+13*, EN+14, EN+17, EN+18, EN+20, EN+21, EN+26, EN+27, EN+30, EN+34*
, EN+36!, EN+43*, EN+44, EN+46*, DC+3, DC+6
>> Y EN+3*, EN+14*, EN+15, EN+17*, EN+32*, EN+43*, EN+44, HANG, PDF*
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  | All