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

Package Total Call Graph
VA FileMan 4 $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Fee Basis 2 $$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+25
^DIR HANG
^DIWP EN+33, EN+45
^DIWW EN+34, EN+46
$$REFNPI^FBCH78 EN+26
$$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: !!,"AUTHORIZATIONS:",!
  • Line Location: EN+8
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+14
Function Call: WRITE
  • Prompt: !?7,"TO: "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?25,"Authorization Type: "
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: FBTYPE
  • Line Location: EN+20
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+20
Function Call: WRITE
  • Prompt: !?25,">> Unauthorized Claim <<"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: ?40,"REF: "
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !?11,"DX: ",FBDC
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: ?40,"REF: "
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: $$GET1^DIQ(200,$P(X,"^",21),.01)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !?11,"REF NPI: ",$$REFNPI^FBCH78($P(X,"^",21)),!
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?7,"County: ",FBCOUNTY,?40,"PSA: ",$S($D(^DIC(4,+PSA,0)):$P(^(0),"^"),1:"Unknown"),!
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: ?12,">> DELETE MRA SENT TO AUSTIN ON - ",Y," >>",!
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !?11,"REMARKS:"
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !,"VENDOR CONTACTS:"
  • Line Location: EN+40
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+43
Function Call: WRITE
  • Prompt: !?11,"NARRATIVE:",!
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !,"Patient Name: ",VADM(1),?55,"Pt.ID: ",$P(VADM(2),"^",2),!
  • Line Location: HANG+1
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+30
^FBAA(161.43 - [#161.43] EN+17
^FBAA(161.8 - [#161.8] EN+19
^FBAA(161.82 - [#161.82] EN+20
^FBAAA - [#161] EN+3, EN+5, EN+11, EN+12, EN+15, EN+31, EN+32, EN+33, EN+39, EN+42
, EN+44, EN+45, DC+4
^FBAAV - [#161.2] EN+14
^UTILITY($J EN+32!, EN+44!

Label References

Name Line Occurrences
DC EN+24
HANG EN+6, EN+32, EN+35, EN+37, EN+44, EN+45
PDF EN+3, EN+13, EN+16, EN+31, EN+42

Naked Globals

Name Field # of Occurrence
^( EN+33, EN+42, EN+45
^(0 EN+12, EN+14, EN+19, EN+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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