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

Package: Integrated Billing

Routine: IBCSCH2


Information

IBCSCH2 ;ALB/DLS - Continuation of routine IBCSCH ;12 JUN 2007

Source Information

Source file <IBCSCH2.m>

Entry Points

Name Comments DBIA/ICR reference
DISPPRV(IBIFN) ; Display provider information: interactive - user selects provider
DISPNVA(IBIFN) ; Display Non-VA individual provider information.
DENTAL(IBIFN) ; Select Dental Claim detail gathered and displayed here
GETPROVS(IBIFN,PRVARY) ;Get the Provider Types
PG ; Display Dental form box numbers at top of charge list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a display of provider specific information."
  • Line Location: DISPPRV+3
Function Call: WRITE
  • Prompt: !!,$TR($J(" ",IOM)," ","-")
  • Line Location: DISPPRV+9
Function Call: WRITE
  • Prompt: !," Signature Name: ",$P(IBPX,U,1)
  • Line Location: DISPPRV+11
Function Call: WRITE
  • Prompt: !,"Signature Title: ",$P(IBPX,U,3)
  • Line Location: DISPPRV+12
Function Call: WRITE
  • Prompt: !," Degree: ",$P(IBPX,U,2)
  • Line Location: DISPPRV+13
Function Call: WRITE
  • Prompt: !," NPI: ",$S(IBNPI>0:IBNPI,1:"")
  • Line Location: DISPPRV+18
Function Call: WRITE
  • Prompt: !!," License(s): "
  • Line Location: DISPPRV+21
Function Call: WRITE
  • Prompt: "None Active on ",$$FMTE^XLFDT(IBDT,2)
  • Line Location: DISPPRV+22
Function Call: WRITE
  • Prompt: !,?17
  • Line Location: DISPPRV+25
Function Call: WRITE
  • Prompt: IBPX," "
  • Line Location: DISPPRV+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPPRV+43
Function Call: WRITE
  • Prompt: !," Person Class: ",$P(IBPX,U,6)
  • Line Location: DISPPRV+44
Function Call: WRITE
  • Prompt: !," PROVIDER TYPE: ",$P(IBPX,U)
  • Line Location: DISPPRV+45
Function Call: WRITE
  • Prompt: !," CLASSIFICATION: ",$P(IBPX,U,2)
  • Line Location: DISPPRV+46
Function Call: WRITE
  • Prompt: !," SPECIALIZATION: ",$P(IBPX,U,3)
  • Line Location: DISPPRV+47
Function Call: WRITE
  • Prompt: !," EFFECTIVE: ",$$FMTE^XLFDT(IBTAXEFF,2)
  • Line Location: DISPPRV+49
Function Call: WRITE
  • Prompt: " - ",$$FMTE^XLFDT(IBTAXTRM,2)
  • Line Location: DISPPRV+50
Function Call: WRITE
  • Prompt: !!," Person Class: None Active on ",$$FMTE^XLFDT(IBDT,2)
  • Line Location: DISPPRV+52
Function Call: WRITE
  • Prompt: !!,"RC Provider Group: ",$S(+IBPX:$P(IBPX,U,3)_", "_$P(IBPX,U,5)_"%",1:"None")
  • Line Location: DISPPRV+54
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: DISPPRV+55
Function Call: WRITE
  • Prompt: !!,$TR($J(" ",IOM)," ","-")
  • Line Location: DISPNVA+5
Function Call: WRITE
  • Prompt: !," Signature Name: ",$$GET1^DIQ(355.93,IBNVID_",",.01)
  • Line Location: DISPNVA+6
Function Call: WRITE
  • Prompt: !," NPI: ",$$GET1^DIQ(355.93,IBNVID_",",41.01)
  • Line Location: DISPNVA+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPNVA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPNVA+11
Function Call: WRITE
  • Prompt: !," Person Class: ",$P(IBPX,U,6)
  • Line Location: DISPNVA+23
Function Call: WRITE
  • Prompt: $S($G(IBNVTX)=1:" (Primary)",1:" (Secondary)")
  • Line Location: DISPNVA+24
Function Call: WRITE
  • Prompt: !," PROVIDER TYPE: ",$P(IBPX,U)
  • Line Location: DISPNVA+25
Function Call: WRITE
  • Prompt: !," CLASSIFICATION: ",$P(IBPX,U,2)
  • Line Location: DISPNVA+26
Function Call: WRITE
  • Prompt: !," SPECIALIZATION: ",$P(IBPX,U,3)
  • Line Location: DISPNVA+27
Function Call: WRITE
  • Prompt: !," Person Class: None Active on ",$$FMTE^XLFDT(IBDT,2),!
  • Line Location: DISPNVA+29
Function Call: WRITE
  • Prompt: $TR($J(" ",IOM)," ","-"),!
  • Line Location: DISPNVA+30
Function Call: WRITE
  • Prompt: @IOF,"Example of dx, procedures, teeth info, and charges entered on the Dental claim"
  • Line Location: DENTAL+9
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DENTAL+10
Function Call: WRITE
  • Prompt: !,"Claim Provider:"
  • Line Location: DENTAL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DENTAL+14
Function Call: WRITE
  • Prompt: ?POS,PRVARY("SQ",SEQ)
  • Line Location: DENTAL+17
Function Call: WRITE
  • Prompt: !!,"34a. Diagnosis:"
  • Line Location: DENTAL+20
Function Call: WRITE
  • Prompt: !,"35. Dental Claim Note:"
  • Line Location: DENTAL+29
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(399,IBIFN,97)
  • Line Location: DENTAL+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DENTAL+32
Function Call: WRITE
  • Prompt: !,@ARY@(N,"START"),?9,@ARY@(N,"END"),?18,@ARY@(N,"ORALCAV")
  • Line Location: DENTAL+59
Function Call: WRITE
  • Prompt: ?33,$G(@ARY@(N,1,"TOOTH")),?36,$G(@ARY@(N,1,"SURFACE")),?42,$G(@ARY@(N,"CPT"))
  • Line Location: DENTAL+60
Function Call: WRITE
  • Prompt: ?48,$G(@ARY@(N,"CPTMOD")),?60,$G(@ARY@(N,"DIAG")),?65,$G(@ARY@(N,"QTY")),?68,$G(@ARY@(N,"CHARGE")),?77,@ARY@(N,"POS")
  • Line Location: DENTAL+61
Function Call: WRITE
  • Prompt: !,$TR($J("-",80)," ","-")
  • Line Location: DENTAL+62
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DENTAL+62
Function Call: WRITE
  • Prompt: !,?33,$G(@ARY@(N,NN,"TOOTH")),?36,$G(@ARY@(N,NN,"SURFACE"))
  • Line Location: DENTAL+65
Function Call: WRITE
  • Prompt: !,$TR($J("-",80)," ","-")
  • Line Location: DENTAL+66
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DENTAL+66
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DENTAL+67
Function Call: WRITE
  • Prompt: "24 25 27 28 29 29a 29b 31 38"
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: PG+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
200.05 GET1^DIQ
^IBA(355.93 - [#355.93] Classic Fileman Calls,  GET1^DIQ
355.9342 GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
^USC(8932.1 - [#8932.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call