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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMDRCO3

Package: Third Party Billing

Routine: ABMDRCO3


Information

ABMDRCO3 ; IHS/ASDST/DMJ - CO VISITS REPORT (PRINT) ;

Source Information

Source file <ABMDRCO3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Third Party Billing 1 $$EN^ABMVDF  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMDRCO2  

Entry Points

Name Comments DBIA/ICR reference
PRV9
HEAD ;EP to print page heading
TOTAL ;EP to print visit total
PAGE ;EP to form feed to new page
PRVTINS ;EP does patient have co dep info in prvt ins file?

External References

Name Field # of Occurrence
$$EN^ABMVDF HEAD+1
^DIR PAGE+4, TOTAL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF"),!,?11,"*****Confidential Patient Data Covered by Privacy Act*****",!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?132-$L(ABMD("FAC"))/2,ABMD("FAC")
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,?55,ABMD("BDT")_" to "_ABMD("EDT")
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,?132-$L(X)/2,X,!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?58,"Sponsor",?80,"SSN"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?97,$S(ABMD("II")="I":"Admit Date",1:"Visit Date")
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?110,$S(ABMD("II")="I":"Dsch Date",1:"No. of Visits")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?122,"# of Days"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: ?58,$P(ABMD("STR1"),"^",4)
  • Line Location: PRVTINS+5
Function Call: WRITE
  • Prompt: ?80,$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9)
  • Line Location: PRVTINS+6
Function Call: WRITE
  • Prompt: !!,?80,"TOTAL OUTPATIENT VISITS:",?112,$J(ABMD("TOT"),3)
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !!,?95,"TOTAL INPATIENT DAYS:",?121,$J(ABMD("TOT"),3)
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !!,?80,"TOTAL DENTAL VISITS:",?112,$J(ABMD("TOT"),3)
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+7
Routine Call
  • DIR
  • Line Location:
    • PAGE+4
    • TOTAL+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPRVT - [#9000006] PRVTINS+4, PRVTINS+5
^AUPNPRVT("I" PRVTINS+3

Label References

Name Line Occurrences
HEAD PAGE+1, PAGE+6
PAGE TOTAL+2
PRV9 PRVTINS+1, PRVTINS+2, PRVTINS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABMD("BDT" HEAD+4
>> ABMD("BENP" PRVTINS+2
>> ABMD("CHMP" PRVTINS+1, PRVTINS+3
>> ABMD("DFN" PRVTINS+3, PRVTINS+4, PRVTINS+5
>> ABMD("EDT" HEAD+4
>> ABMD("FAC" HEAD+2
>> ABMD("II" HEAD+5, HEAD+10, HEAD+11, HEAD+12, TOTAL+3, TOTAL+4, TOTAL+5
>> ABMD("INS" PRVTINS+3*, PRVTINS+4, PRVTINS+5
>> ABMD("J" HEAD+7*
>> ABMD("STOP" PAGE+5*, TOTAL+1, TOTAL+7*
>> ABMD("STR1" PRVTINS+5*, PRVTINS+6
>> ABMD("TOT" TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6*
>> ABMDSTOP PAGE+2*
DIR PAGE+2!, PAGE+4!, TOTAL+7!
DIR("A" PAGE+3*, TOTAL+7*
DIR(0 PAGE+2*, TOTAL+7*
>> DIROUT PAGE+5, TOTAL+7
>> DTOUT PAGE+5, TOTAL+7
>> DUOUT PAGE+5, TOTAL+7
IOSL TOTAL+2
IOST PAGE+1, TOTAL+7
>> J HEAD+13*
U PRVTINS+4
>> X HEAD+5*, HEAD+6, PRVTINS+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All