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

Package: Fee Basis

Routine: FBAADEM1


Information

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

Source Information

Source file <FBAADEM1.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call