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

Package: Third Party Billing

Routine: ABMRSPIN


Information

ABMRSPIN ; IHS/SD/SDR - Claims Identified as Potential Split Billing Report;

Source Information

Source file <ABMRSPIN.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Third Party Billing 5 WHD^ABMDRHD  PAZ^ABMDRUTL  ($$SDT,$$SDTO)^ABMDUTL  (APPROVAL,VISIT)^ABMRSPI1  $$TRIM^ABMUTLP  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMRSTIN  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
DDIR ;
COMPUTE ;
VTYP ;
DTYP ;
PGS ;
SUMMARY ;
START ;
CLMSTAT ;
HDB ;
INS ;EP
RTYP ;EP
PRINT ;
DT ;EP
SEL ;
HD ;
SUB ;

External References

Name Field # of Occurrence
^%ZIS SEL+39
HOME^%ZIS SEL+46, SEL+52
^%ZISC SEL+51, PRINT+45, SUMMARY+16
^%ZTLOAD SEL+43
WHD^ABMDRHD HDB+1
PAZ^ABMDRUTL PRINT+46, HD+1
$$SDT^ABMDUTL SEL+29, PRINT+1
$$SDTO^ABMDUTL PRINT+34
APPROVAL^ABMRSPI1 COMPUTE+6
VISIT^ABMRSPI1 COMPUTE+4
$$TRIM^ABMUTLP SEL+31
^DIC INS+8
$$GET1^DIQ INS+12, INS+13
^DIR SEL+34, INS+16, DDIR+2, DTYP+7, DTYP+12, CLMSTAT+9, PGS+5, RTYP+5
^XBFMK INS+5, INS+15, DT+1, CLMSTAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will look through claims/bills based on the selection criteria"
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,"chosen and report any claims that match. This report is meant as a tool for the"
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !,"user to identify potential bills that can be split for further billing due to"
  • Line Location: SEL+7
Function Call: WRITE
  • Prompt: !,"multiple entries in V-files."
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: !!,"NOTE: all prompts are required"
  • Line Location: SEL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+10
Function Call: WRITE
  • Prompt: !!,"You selected: "
  • Line Location: SEL+25
Function Call: WRITE
  • Prompt: !?3,"Insurers: "
  • Line Location: SEL+26
Function Call: WRITE
  • Prompt: !?6,$P($G(^AUTNINS(ABMI,0)),U)
  • Line Location: SEL+28
Function Call: WRITE
  • Prompt: !?3,$S(ABMY("DT")="V":"Visit",1:"Approval")_" Dates: ",$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2))
  • Line Location: SEL+29
Function Call: WRITE
  • Prompt: !?3,"Claim Status: "
  • Line Location: SEL+30
Function Call: WRITE
  • Prompt: !?6,$$TRIM^ABMUTLP($P(ABMY("STA","NM"),",",ABMI),"L")
  • Line Location: SEL+31
Function Call: WRITE
  • Prompt: !?3,"Check pages: "_$E($TR(ABMY("PGS"),"^",","),2,($L(ABMY("PGS"))-1))
  • Line Location: SEL+32
Function Call: WRITE
  • Prompt: !?3,"Report Type: "_$S(ABMY("RTYP")=2:"Statistical Summary Only",1:"Brief Listing"),!!
  • Line Location: SEL+33
Function Call: WRITE
  • Prompt: !!?5,"Report Cancelled!"
  • Line Location: SEL+44
Function Call: WRITE
  • Prompt: !!?5,"Report queued to run on ",ZTSK," #"
  • Line Location: SEL+45
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !?44,"======"
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !?35,"Total:",?45,$FN(ABM("CNT"),",",0)
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: SUMMARY+8
Function Call: WRITE
  • Prompt: !?65,"======"
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: !?58,"Total:",?65,$FN(ABM("CNT"),",",0)
  • Line Location: SUMMARY+15
Function Call: WRITE
  • Prompt: !?63," - - PAGE - - ",!,"ST",?4,"O/S",?9,"Patient",?21,"HRN",?28,"Active Insurer",?41,"Claim#",?53,"Visit Dt",?63,"D",?67,"E",?71,"F",?75,"H",!
  • Line Location: HDB+2
Function Call: WRITE
  • Prompt: !,"Location",?40,"Visit Type",?65,"# Claims",!
  • Line Location: HDB+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDB+4
Function Call: WRITE
  • Prompt: !?3,"Visit Location: ",ABMP("VLOC")
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !?5,"Visit Type: ",ABMP("VTYP")
  • Line Location: VTYP+1
Function Call: WRITE
  • Prompt: !?46,"------"
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !?37,"Subtotal:",?50,$FN(ABM("SUBCNT"),",",0)
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !!,"Insurers selected here MUST be the active insurer in order for claims/bills"
  • Line Location: INS+2
Function Call: WRITE
  • Prompt: !,"to display on the report!",!
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!," ============ Entry of ",Y," Range =============",!
  • Line Location: DTYP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DTYP+10
Function Call: WRITE
  • Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!!
  • Line Location: DTYP+16
Routine Call
  • %ZIS
  • Line Location:
    • SEL+46
    • SEL+52
Routine Call
  • DIC
  • Line Location:
    • INS+8
Routine Call
  • DIR
  • Line Location:
    • SEL+34
    • INS+16
    • DDIR+2
    • DTYP+7
    • DTYP+12
    • CLMSTAT+9
    • PGS+5
    • RTYP+5
Routine Call
  • %ZIS
  • Line Location:
    • SEL+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNINS - [#9999999.18] SEL+28, PRINT+6
^TMP("ABM-SPIN" START+3!, PRINT+13, PRINT+19, PRINT+23, PRINT+25, PRINT+26, SUMMARY+4, SUMMARY+10, SUMMARY+12, SUMMARY+13
, COMPUTE+3!
^TMP("ABM-SPIN-CNT" START+3!
^TMP("ABM-SPIN-DATA" START+3!, COMPUTE+2!

Label References

Name Line Occurrences
CLMSTAT SEL+16
COMPUTE SEL+49
DDIR DT+6
DT SEL+14, DTYP+8, DTYP+14, DTYP+16
DTYP DT+3, DT+4
DTYP2 DT+7
HD PRINT+17, PRINT+21, PRINT+41, SUMMARY+8
HDB PRINT+10, SUMMARY+1
INS SEL+11
LOC PRINT+16, PRINT+17, PRINT+41, SUMMARY+8
PGS SEL+19
PRINT SEL+50
RTYP SEL+22
SEL SEL+36
SUB PRINT+42
SUMMARY PRINT+9
VTYP PRINT+20, PRINT+21, PRINT+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS SEL+38*
ABM SEL+1!
ABM("CNT" PRINT+12*, PRINT+40*, PRINT+44, SUMMARY+3*, SUMMARY+13*, SUMMARY+15
ABM("DT" DT+3
ABM("HD" SEL+3*, SEL+4*, PRINT+1*, PRINT+2*, PRINT+3*, PRINT+6*
ABM("L" PRINT+12*, SUMMARY+3*
ABM("PG" PRINT+7*, HDB+1*
ABM("RTYP" RTYP+9*
ABM("STA" DT+4, DT+7
ABM("SUBCNT" PRINT+12*, PRINT+39*, SUMMARY+3*, SUB+1, SUB+3, SUB+4*
ABM("V" PRINT+12*, SUMMARY+3*
>> ABMI SEL+27*, SEL+28*, SEL+31*, PRINT+4*, PRINT+6*
>> ABMITMP INS+14*, INS+18
>> ABMJ PRINT+5*, PRINT+6*
>> ABMMENU START+2*, SEL+3, SEL+4
>> ABMP("CDFN" PRINT+24*, PRINT+25*, PRINT+26
>> ABMP("RTN" START+1*
>> ABMP("SDT" PRINT+22*, PRINT+23*, PRINT+25, PRINT+26, PRINT+34
>> ABMP("TYP" DT+6
>> ABMP("VLOC" PRINT+11*, PRINT+13*, PRINT+14, PRINT+15, PRINT+19, PRINT+23, PRINT+25, PRINT+26, SUMMARY+2*, SUMMARY+4*
, SUMMARY+5, SUMMARY+6, SUMMARY+7, SUMMARY+10, SUMMARY+12, SUMMARY+13, LOC+1
>> ABMP("VTYP" PRINT+18*, PRINT+19*, PRINT+23, PRINT+25, PRINT+26, SUMMARY+9*, SUMMARY+10*, SUMMARY+11, SUMMARY+12, SUMMARY+13
, VTYP+1
>> ABMPREC PRINT+26*, PRINT+27, PRINT+28, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+35, PRINT+36, PRINT+37
, PRINT+38
>> ABMSSTAT PRINT+28*, PRINT+29
>> ABMSTRG PGS+1*
ABMY SEL+1!
ABMY("DT" SEL+15, SEL+29, PRINT+1, COMPUTE+4, COMPUTE+6, DT+2!, DTYP+2*, DTYP+9*, DTYP+15*, DTYP+16
, CLMSTAT+2, CLMSTAT+5
ABMY("INS" SEL+12, SEL+28, PRINT+3, PRINT+6, INS+1!, INS+19*, INS+20*
ABMY("PGS" SEL+20, SEL+32, PRINT+2, PGS+7, PGS+8*, PGS+9*
ABMY("RTYP" SEL+3, SEL+23, SEL+33, PRINT+9, HDB+2, RTYP+8*
ABMY("STA" SEL+17, SEL+31, CLMSTAT+11, CLMSTAT+12*, CLMSTAT+13*
>> DIC INS+6*
>> DIC(0 INS+7*
DIR SEL+34!, INS+16!, DTYP+13!, CLMSTAT+14!, RTYP+1!, RTYP+6!
DIR("A" SEL+34*, INS+16*, DDIR+1*, DTYP+5*, DTYP+11*, CLMSTAT+4*, CLMSTAT+7*, PGS+3*, RTYP+3*
DIR("B" RTYP+4*
DIR(0 SEL+34*, INS+16*, DT+5*, DDIR+4, DTYP+6*, CLMSTAT+3*, CLMSTAT+6*, PGS+2*, RTYP+2*
DIROUT SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23
, PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12, DDIR+3, CLMSTAT+8, CLMSTAT+10
DIRUT SEL+2!, SEL+13, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23, PRINT+25, PRINT+41
, SUMMARY+8, HD+1, INS+4, INS+9, INS+12, DDIR+3, DTYP+1, DTYP+8, DTYP+14, CLMSTAT+8
, CLMSTAT+10, RTYP+7
DTOUT SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23
, PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12
DUOUT SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23
, PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12
>> I HDB+4*
IO SEL+48
IO("Q" SEL+40, SEL+47!
IOSL PRINT+17, PRINT+21, PRINT+41, SUMMARY+8
>> POP SEL+39
U SEL+28, PRINT+6, PRINT+27, PRINT+28, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+35, PRINT+36
, PRINT+37, PRINT+38
>> X INS+4
>> XQY0 SEL+41
>> Y SEL+36, INS+4, INS+10, INS+12, INS+13, INS+14, INS+17, INS+18*, INS+19, DT+3*
, DT+4*, DDIR+4*, DTYP+2, DTYP+3*, DTYP+4, DTYP+5, DTYP+9, DTYP+15, CLMSTAT+11, CLMSTAT+12
, PGS+4, PGS+6, PGS+7, PGS+8, RTYP+8
>> Y(0 CLMSTAT+13, RTYP+9
>> ZTDESC SEL+41*
>> ZTRTN SEL+41*
>> ZTSAVE("ABM*" SEL+42*
>> ZTSK SEL+44, SEL+45
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 |  Local Variables |  All