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

Package: Mental Health Social Services

Routine: AMHRBV1


Information

AMHRBV1 ; IHS/CMI/LAB - PRNT BILL VSTS ;

Source Information

Source file <AMHRBV1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Mental Health Social Services 4 ^AMHEKL  DONE^AMHLEIN  (4,5,6)^AMHRBV11  ($$PPCLSC,$$PPINI)^AMHUTIL  
VA Fileman 4 DD^%DT  $$GET1^DIQ  EN^DIQ1  ^DIR  
DRG Grouper 1 $$CPT^ICPTCOD  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMHRBV11  

Entry Points

Name Comments DBIA/ICR reference
WPOV ;
HEAD1 ;
22 ;
CHKDISC ;
CPTS ;display cpt codes
6 ;
VISIT ;ENTRY POINT
HEAD ;ENTRY POINT
1 ;
START ;
DFN ;
DONE ;
4 ;
WCPT ;
VWRT ;
PRVT1 ;
2 ;
5 ;
HD ;ENTRY POINT

External References

Name Field # of Occurrence
DD^%DT HD+1, 2+4, 22+5
^AMHEKL DONE+1
DONE^AMHLEIN DONE+1
4^AMHRBV11 4+1
5^AMHRBV11 5+1
6^AMHRBV11 6+1
$$PPCLSC^AMHUTIL CHKDISC+2
$$PPINI^AMHUTIL CHKDISC+3
$$GET1^DIQ WPOV+4
EN^DIQ1 VWRT+5, VWRT+9
^DIR HEAD+2
$$CPT^ICPTCOD WCPT+3
$$VAL^XBDIQ1 VWRT+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No visits to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !?8," DATE",?16,"VISIT",?24,"PD",?27,"PRV",?31,"ACT",?35,"MIN",?40,"DSM/PC",?47,"BH PROVIDER NARRATIVE",?73,"ICD DX"
  • Line Location: VISIT+1
Function Call: WRITE
  • Prompt: !?7
  • Line Location: VISIT+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: VISIT+2
Function Call: WRITE
  • Prompt: !?7,AMHDATE,?16,AMHCAT,?24,AMHDISC,?27,AMHINI,?31,AMHACT,?35,AMHMIN
  • Line Location: VWRT+16
Function Call: WRITE
  • Prompt: !,?7,"Evaluation & Management: ",$$VAL^XBDIQ1(9002011,AMHRDFN,.29)
  • Line Location: VWRT+18
Function Call: WRITE
  • Prompt: ?40,$P(^AMHPROB($P(AMHX,U),0),U)
  • Line Location: WPOV+4
Function Call: WRITE
  • Prompt: ?47,$E($$GET1^DIQ(9002011.01,AMHX,.04),1,25),?73,$P(^AMHPROB($P(AMHX,U),0),U,5)
  • Line Location: WPOV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WPOV+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: AMH2>1
  • Line Location: WCPT+3
Function Call: WRITE
  • Prompt: ?40,$P($$CPT^ICPTCOD($P(AMHX,U),$P($P(^AMHREC(AMHRDFN,0),U),".")),U,2)," ",$E($P($$CPT^ICPTCOD($P(AMHX,U),$P($P(^AMHREC(AMHRDFN,0),U),".")),U,3),1,25)
  • Line Location: WCPT+3
Function Call: WRITE
  • Prompt: !?8,AMHCOPN(X)
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: ?40,"Sponsor: ",$P(AMHX,U,4),?65,"SSN: "
  • Line Location: PRVT1+3
Function Call: WRITE
  • Prompt: $E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9)
  • Line Location: PRVT1+3
Function Call: WRITE
  • Prompt: !!,AMHHRN,?8,AMHPN,?40,DOB,?60,ABHN
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?8,"Medicare Name: ",AMHMN,?56,"DOB: ",DOB
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !?8,"Coverage:",?19,$P(AMHREC,U,3)
  • Line Location: 22+5
Function Call: WRITE
  • Prompt: ?23,"Beg. Date: ",?34,Y
  • Line Location: 22+5
Function Call: WRITE
  • Prompt: ?23,"Beg. Date: ",?34,Y
  • Line Location: 22+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?(80-$L($P(^DIC(4,AMHSU,0),U))/2),$P(^DIC(4,AMHSU,0),U),?72,"Page ",AMHPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?((80-AMHLENG)/2),"POTENTIALLY BILLABLE BEHAVIORAL HEALTH VISITS FOR ",AMHNAR,!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?19,"Visit Dates: ",AMHSDY," and ",AMHEDY,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !!?2,"HRCN",?8,"Patient Name",?40,"Date of Birth",?60," SSN"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,AMH80D
  • Line Location: HEAD1+8
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRPRO - [#9002011.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] WPOV+4
^AMHREC - [#9002011] VISIT+3, WCPT+3
^AMHRPRO - [#9002011.01] VWRT+17
^AMHRPRO("AD" VWRT+17
^AMHRPROC - [#9002011.04] CPTS+1
^AMHRPROC("AD" CPTS+1
^AMHRPROV - [#9002011.02] VWRT+13
^AMHRPROV("AD" VWRT+13
^AUPNMCR - [#9000003] 2+3, 2+4, 2+5, 2+7, 22+1, 22+2, 22+3
^AUPNPAT - [#9000001] 1+4, 1+5, HD+2
^AUPNPRVT - [#9000006] PRVT1+3
^AUPNPRVT("AB" PRVT1+2
^AUTNINS("B" 1+2
^AUTTBEN - [#9999999.25] 1+7
^AUTTMCS - [#9999999.32] 2+5
^DIC(4 - [#4] HEAD1+3
^DPT - [#2] HD+1, HD+3
^UTILITY("DIQ1" VWRT+3!, VWRT+6, VWRT+7!, VWRT+10, VWRT+12!
^VA(200 - [#200] CHKDISC+1
^XTMP("AMHRBV" START+3, START+5, DONE+2!, DFN+1, VISIT+3

Label References

Name Line Occurrences
22 2+7
@( DFN+1
CHKDISC VWRT+15
DFN START+5
DONE START+3, START+6, START+7
HD 1+3, 2+2
HEAD START+3, START+7, VWRT+1, WPOV+1, WCPT+1, 1+1, 2+1, 22+4
HEAD1 HEAD+1
PRVT1 1+7
VISIT 1+8, 2+8
VWRT VISIT+3
WCPT CPTS+1
WPOV VWRT+17

Naked Globals

Name Field # of Occurrence
^(0 VWRT+13, 2+5, 2+7, 22+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABHN HD+3*, HD+4
>> AMH1 VWRT+13*, VWRT+14, VWRT+17*, CPTS+1*
>> AMH2 VWRT+13*, VWRT+17*, CPTS+1*, WPOV+1, WCPT+1, WCPT+3
>> AMH80D START+2*, HEAD1+8
>> AMH80E START+1*
>> AMHACT VWRT+10*, VWRT+16
>> AMHAP VWRT+13*, CHKDISC+1
>> AMHBT START+3, START+5, DONE+2, DFN+1, VISIT+3
>> AMHCAT VWRT+6*, VWRT+16
>> AMHCHMP 1+2*, 1+7, PRVT1+1, PRVT1+2
>> AMHCOPN( 1+6
>> AMHDATE VWRT+2*, VWRT+16
>> AMHDISC VWRT+15*, VWRT+16, CHKDISC+2*
>> AMHED 22+2
>> AMHEDY HEAD1+6
>> AMHHRN HD+2*, HD+4
>> AMHINI VWRT+15*, VWRT+16, CHKDISC+3*
>> AMHJOB START+3, START+5, DONE+2, DFN+1, VISIT+3
>> AMHLENG HEAD1+4*, HEAD1+5
>> AMHMDFN 2+7*, 22+1, 22+2, 22+3
>> AMHMDOB 2+4*
>> AMHMEDN 2+5*, 22+5
>> AMHMIN VWRT+11*, VWRT+16
>> AMHMN 2+3*, 2+6
>> AMHNAR HEAD1+4, HEAD1+5
>> AMHPG START+3*, HEAD+1, HEAD1+1*, HEAD1+3
>> AMHPN START+4*, START+5*, DFN+1, VISIT+3, HD+4
>> AMHPROC DFN+1
AMHQUIT START+4!, START+5, START+6, START+7, DFN+1, VISIT+3, VWRT+1, VWRT+17, CPTS+1, WPOV+1
, WCPT+1, 1+1, 2+1, 2+7, 22+4, HEAD+2*
>> AMHRDFN VISIT+3*, VWRT+5, VWRT+6, VWRT+9, VWRT+10, VWRT+13, VWRT+17, VWRT+18, CPTS+1, WCPT+3
, CHKDISC+2, CHKDISC+3
>> AMHREC VISIT+3*, VWRT+2, VWRT+11, VWRT+18, 2+7*, 22+5
>> AMHSD 22+3
>> AMHSDY HEAD1+6
>> AMHSU HD+2, HEAD1+3
>> AMHVAL 22+1
>> AMHX VWRT+17*, CPTS+1*, WPOV+2, WPOV+4, WCPT+2, WCPT+3, PRVT1+3*
DA VWRT+4!, VWRT+5*!, VWRT+8!, VWRT+9*!
>> DFN DFN+1*, VISIT+3, 1+4, 1+5, PRVT1+2, PRVT1+3, HD+1, HD+2, HD+3, 2+3
, 2+4, 2+5, 2+7, 22+1, 22+2, 22+3
DIC VWRT+4!, VWRT+5*!, VWRT+8!, VWRT+9*!
DIQ VWRT+4!, VWRT+5!, VWRT+8!, VWRT+9!
DIQ(0 VWRT+5*, VWRT+9*
DIR HEAD+2!
DIR(0 HEAD+2*
>> DOB HD+1*, HD+4, 2+6
DR VWRT+4!, VWRT+5*!, VWRT+8!, VWRT+9*!
>> DTOUT HEAD+2
>> I VISIT+2*
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL START+7, VWRT+1, WPOV+1, WCPT+1, 1+1, 2+1, 22+4
IOST HEAD+2
U VWRT+11, VWRT+13, VWRT+18, WPOV+2, WPOV+4, WCPT+2, WCPT+3, 1+5, 1+7, PRVT1+3
, HD+1, HD+2, HD+3, 2+3, 2+4, 2+5, 22+1, 22+2, 22+3, 22+5
, HEAD1+3
>> X 1+5*, 1+6, 1+7, PRVT1+3*
>> Y VWRT+2*, PRVT1+2*, PRVT1+3, HD+1*, 2+4*, 22+5*, HEAD+2
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