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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMMUFAC

Package: Third Party Billing

Routine: ABMMUFAC


Information

ABMMUFAC ;IHS/SD/SDR - EHR Incentive Report (MU) ;

Source Information

Source file <ABMMUFAC.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Third Party Billing 8 ^ABMDRDBQ  PAZ^ABMDRUTL  ($$SDT,$$Y2KD2)^ABMDUTL  (FACHOS,GETBILLS,LBK,VISITS)^ABMMUFC1  WRTSUMHO^ABMMUFC2  CLAIMS^ABMMUFC3  GETBILLS^ABMMUFC5  $$EN^ABMVDF  
VA Fileman 2 NOW^%DTC  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Third Party Billing 6 ABMMUFC1  ABMMUFC2  ABMMUFC3  ABMMUFC4  ABMMUFC5  ABMMUFC6  

Entry Points

Name Comments DBIA/ICR reference
WHD ;EP
FACHOS ;EP
WRTSUM ;
RTYPE ;sum or dtl?
QUE ;TASKMAN
SETCAT ;
HD
DTTYP ;
XIT2 ;
XIT ;
FDT ;
GETTOTS ;
DTR ;
LBK ;
SEL ;Select device
GETLOCS ;

External References

Name Field # of Occurrence
NOW^%DTC WHD+3
^%ZTLOAD QUE+5
^ABMDRDBQ SEL+10, SEL+38
PAZ^ABMDRUTL WRTSUM+28, HD
$$SDT^ABMDUTL WHD+6, WHD+7
$$Y2KD2^ABMDUTL FDT+4
FACHOS^ABMMUFC1 FACHOS+1
GETBILLS^ABMMUFC1 GETTOTS+15
LBK^ABMMUFC1 LBK+1
VISITS^ABMMUFC1 GETTOTS+18
WRTSUMHO^ABMMUFC2 WRTSUM+1
CLAIMS^ABMMUFC3 GETTOTS+16
GETBILLS^ABMMUFC5 GETTOTS+8
$$EN^ABMVDF WHD+1
^DIR DTTYP+7, FDT+5, DTR+4, DTR+9, RTYPE+6
^XBFMK DTTYP+1, FDT+1, DTR+1, SEL+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will calculate the number of Covered Inpatient days for Medicare,"
  • Line Location: ABMMUFAC+9
Function Call: WRITE
  • Prompt: !,"Medicaid, and Private Insurance. Outpatient All-Inclusive Rate (AIR) bills are"
  • Line Location: ABMMUFAC+10
Function Call: WRITE
  • Prompt: !,"counted. A report can be selected to view the bills used in the calculations."
  • Line Location: ABMMUFAC+11
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ABMMUFAC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DTTYP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FDT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DTR+7
Function Call: WRITE
  • Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!!
  • Line Location: DTR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RTYPE+1
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- P R I V A T E I N S U R A N C E --")/2),"-- P R I V A T E I N S U R A N C E --"
  • Line Location: WRTSUM+9
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- M E D I C A R E --")/2),"-- M E D I C A R E --"
  • Line Location: WRTSUM+10
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- M E D I C A I D --")/2),"-- M E D I C A I D --"
  • Line Location: WRTSUM+11
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- K I D S C A R E / C H I P --")/2),"-- K I D S C A R E / C H I P --"
  • Line Location: WRTSUM+12
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- V E T E R A N S M E D I C A L B E N P R O G --")/2),"-- V E T E R A N S M E D I C A L B E N P R O G --"
  • Line Location: WRTSUM+13
Function Call: WRITE
  • Prompt: ?CENTER-($L("-- O T H E R --")/2),"-- O T H E R --"
  • Line Location: WRTSUM+14
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: WRTSUM+25
Function Call: WRITE
  • Prompt: !!,"(SUMMARY REPORT COMPLETE):"
  • Line Location: WRTSUM+27
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF"),!
  • Line Location: WHD+1
Function Call: WRITE
  • Prompt: ABM("LINE"),!
  • Line Location: WHD+2
Function Call: WRITE
  • Prompt: ABM("HD",0),?$S($D(ABM(132)):103,1:48)
  • Line Location: WHD+4
Function Call: WRITE
  • Prompt: Y,$S(ABMTYP="SUM":" Page "_ABM("PG"),1:"")
  • Line Location: WHD+4
Function Call: WRITE
  • Prompt: !,"Billing Location: ",$P($G(^AUTTLOC(ABMPAR,0)),U,2)
  • Line Location: WHD+10
Function Call: WRITE
  • Prompt: !,ABM("LINE")
  • Line Location: WHD+11
Function Call: WRITE
  • Prompt: U_"HRN"_U_"VISIT"_U_"VISIT LOCATION"
  • Line Location: WHD+17
Function Call: WRITE
  • Prompt: U_"HRN"_U_"VISIT"_U_"VISIT LOCATION"_U_"BILL TYPE"_U_"VISIT TYPE"_U_"ALL INSURER TYPES"_U_"ADMISSION TYPE"
  • Line Location: WHD+18
Function Call: WRITE
  • Prompt: U_"VISIT"_U_"VISIT LOCATION"
  • Line Location: WHD+19
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WHD+28
Routine Call
  • DIR
  • Line Location:
    • DTTYP+7
    • FDT+5
    • DTR+4
    • DTR+9
    • RTYPE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] WHD+10
^BAR(90052.05 GETLOCS+9, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+20, GETLOCS+21, GETLOCS+22
^DD("DD" WHD+4
^TMP($J ABMMUFAC+14!, ABMMUFAC+15!, XIT+1!, XIT+2!, WRTSUM+15, WRTSUM+16, WRTSUM+18, WRTSUM+19, WRTSUM+20, WRTSUM+21
, WRTSUM+22, WRTSUM+23, WRTSUM+24

Label References

Name Line Occurrences
DTR DTTYP+13, DTR+11, DTR+13
DTTYP DTTYP+20
FACHOS DTTYP+24
FDT DTTYP+12
GETLOCS DTTYP+19, GETTOTS+1
HD WRTSUM+25
LBK DTTYP+16
RTYPE DTTYP+26
WHD WRTSUM+4

Naked Globals

Name Field # of Occurrence
^(0 GETLOCS+15, GETLOCS+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WHD+4
>> ABM("HD" WRTSUM+2*, WHD+4, WHD+5*, WHD+6*, WHD+7*, WHD+8, WHD+9
>> ABM("LINE" WHD+2!*, WHD+11!
>> ABM("PG" WRTSUM+3*, WHD+4, WHD+12*
>> ABM(132 WHD+2, WHD+4
ABMB XIT+3!
ABMC XIT+3!
>> ABMDTYP DTTYP+9*, DTTYP+12, DTTYP+13, DTTYP+15, GETLOCS+1, GETLOCS+4, WHD+5, WHD+6, WHD+7
>> ABMDUZ2 GETTOTS+5*, GETTOTS+12*, GETTOTS+17, WRTSUM+29
>> ABMFFLG SETCAT+6, SETCAT+7, SETCAT+11
>> ABMI WHD+28*
>> ABMITYP WRTSUM+6*, WRTSUM+7*, WRTSUM+9, WRTSUM+10, WRTSUM+11, WRTSUM+12, WRTSUM+13, WRTSUM+14, WRTSUM+15, WRTSUM+16
, WRTSUM+18, WRTSUM+19, WRTSUM+20, WRTSUM+21, WRTSUM+22, WRTSUM+23, WRTSUM+24
>> ABML GETTOTS+4*, GETTOTS+6*, GETTOTS+7, GETTOTS+11*, GETTOTS+13*, GETTOTS+14, GETLOCS+19*, GETLOCS+20*, GETLOCS+23
>> ABMLOC( GETTOTS+6, GETTOTS+13, GETLOCS+18*, GETLOCS+23*
ABMMFLG XIT+3!
ABMP ABMMUFAC+13!, XIT+3!
ABMP("BTYP" SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8, SETCAT+9, SETCAT+10
ABMP("EDT" GETLOCS+3*, GETLOCS+6*, GETLOCS+14, GETLOCS+21
ABMP("NEWBORN" SETCAT+3, SETCAT+4
ABMP("RPT-CAT" SETCAT+2*, SETCAT+3*, SETCAT+4*, SETCAT+5*, SETCAT+6*, SETCAT+7*, SETCAT+8*, SETCAT+9*, SETCAT+10*, SETCAT+11*
, SETCAT+12*
ABMP("SDT" GETLOCS+2*, GETLOCS+5*, GETLOCS+15, GETLOCS+22
ABMP("SWINGBED" SETCAT+2
ABMP("VTYP" SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8
>> ABMPAR DTTYP+20, GETLOCS+8*, GETLOCS+9*, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+17, GETLOCS+18, GETLOCS+20
, GETLOCS+21, GETLOCS+22, WHD+10
ABMPSFLG GETLOCS+7!, GETLOCS+9, GETLOCS+16*
ABMPT XIT+3!
ABMPTINA XIT+3!
>> ABMQ("NS" SEL+7*, SEL+35*
>> ABMQ("RC" SEL+8*, SEL+36*
>> ABMQ("RP" SEL+9*, SEL+37*
>> ABMQ("RX" SEL+6*, SEL+34*
>> ABMSC SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8, SETCAT+9, SETCAT+10
>> ABMSUMDT RTYPE+8*, SEL+1, SEL+5, SEL+6, SEL+11, SEL+34
>> ABMTYP WRTSUM+4*, WHD+4, WHD+13, WHD+20
ABMY ABMMUFAC+13!, XIT+3!
ABMY("DT" FDT+7*, DTR+6*, DTR+12*, DTR+13, GETLOCS+2, GETLOCS+3, GETLOCS+5, GETLOCS+6, WHD+5, WHD+6
, WHD+7
ABMY("FACHOS" DTTYP+10*, GETTOTS+3, WRTSUM+1, WRTSUM+18, WHD+18, WHD+19, WHD+23, WHD+26
>> CENTER WRTSUM+5*, WRTSUM+9, WRTSUM+10, WRTSUM+11, WRTSUM+12, WRTSUM+13, WRTSUM+14
DA RTYPE+2!
DIC RTYPE+2!
DIE RTYPE+2!
DIR DTR+10!, RTYPE+2!, RTYPE+6!
DIR("A" DTTYP+3*, FDT+2*, DTR+2*, DTR+8*, RTYPE+4*
DIR("B" DTTYP+6*, FDT+4*, RTYPE+5*
DIR(0 DTTYP+4*, FDT+3*, DTR+3*, RTYPE+3*
>> DIROUT DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
>> DIRUT DTTYP+8, DTTYP+17, FDT+6, DTR+5, DTR+11, RTYPE+7
DT FDT+4
>> DTOUT DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
>> DUOUT DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
DUZ(2 GETTOTS+5, GETTOTS+7*, GETTOTS+12, GETTOTS+14*, GETTOTS+17*, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+21
, GETLOCS+22, WRTSUM+29*
IOM WRTSUM+5
IOSL WRTSUM+25
U GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+21, GETLOCS+22, WHD+10, WHD+15, WHD+16, WHD+18, WHD+19
X RTYPE+2!
Y DTTYP+9, FDT+7, DTR+6, DTR+12, RTYPE+2!, RTYPE+8, WHD+4*
>> ZTDESC QUE+2*
>> ZTRTN QUE+1*
>> ZTSAVE("ABM*" QUE+3*
ZTSK QUE+4!, QUE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All