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 |  Marked Items |  All
Print Page as PDF
Routine: BARRSL1

Package: IHS Accounts Receivable

Routine: BARRSL1


Information

BARRSL1 ; IHS/SD/LSL - Selective Report Parameters-PART 2 ; 12/19/2008

Source Information

Source file <BARRSL1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Accounts Receivable 2 (AR,ASKICD,BATCH,CLNUPDX,DSVC,DT,ITEM,PRV,RTYP,TRANTYP)^BARRSL4  LIST^BARRSLDX  
VA Fileman 2 ^DIC  ^DIR  
DRG Grouper 1 ^ICDEX  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
IHS Accounts Receivable 9 BARRAOI  BARRASMA  BARRATS  BARRCXL  BARRPVC  BARRSEL1  BARRSYNC  BARTRANS  
BARTRANT  

Entry Points

Name Comments DBIA/ICR reference
LOC ; EP
; Select Location inclusion parameters
PAT ;
; Specific patient of billing entity parameter
DXADINFO(BARX,BARY) ;
DX9 ;<-------
ITYP ; EP
; Ask for Insurer Type
DXINFO(BARDX) ;
ASKICD() ;
DX ; EP
ACCT ;
; Specific insurer of billing entity parameter
DT ; EP
; Select Date inclusion parameter
HAVICD10() ;RETURNS 1 IF ICD10 INSTALLED
RTYP ; EP
; Select Report Type Inclusion Parameter
GETGRP ; Prompt for Group # ;New Tag... M819*ADD*TMM*20100720
PRV ; EP
; Select Provider Inclusion Parameter
ASKREM() ;
DXLOW10 ;
LBL ; EP
; Ask for large balance
DXHI9 ;
DXLOW9 ;
CLNUPDX ;CLEAN UP DX
DATASRC ;EP
BATCH ; EP
; Select Collection Batch Inclusion Parameter
COLPT ; EP
; Select Collection Point and Date ranges
DXADD(BARICD) ;
AR ; EP
; Select A/R Clerk Inclusion Parameter
DXHI10 ;
CONTDX(BARICD) ;
TRANTYP ; EP
ALL ; EP
; Select ALLOWANCE CATEGORY Inclusion Parameter BAR1.8*23
DSVC ; EP Select One Discharge Service
ITEM ; EP
; Select Collection Batch Item Inclusion Parameter
ADDDX(BARICD) ;ADD ONE OR MORE SINGLE DG INTO BARY("DX9",3 or BARY("DX10",3
DX10 ;
DXCODE ;
LIST(BARICD) ;
SHOWDX ; - BAR1.8*23 LIST SELECTED DXs
TYP ; EP
; Select BILLING ENTITY Inclusion Parameter
; May not specify both billing entity and a/r account
SBL ; EP
; Ask for small balance

External References

Name Field # of Occurrence
AR^BARRSL4 AR+2
ASKICD^BARRSL4 ASKICD+1
BATCH^BARRSL4 BATCH+2
CLNUPDX^BARRSL4 CLNUPDX+1
DSVC^BARRSL4 DSVC+1
DT^BARRSL4 DT+2
ITEM^BARRSL4 ITEM+2
PRV^BARRSL4 PRV+2
RTYP^BARRSL4 RTYP+2
TRANTYP^BARRSL4 TRANTYP+1
LIST^BARRSLDX CONTDX+14
^DIC LOC+7, ACCT+6, GETGRP+6, PAT+5, COLPT+5
^DIR TYP+19, ALL+10, DXCODE+34, DXLOW9+9, DXHI9+4, ADDDX+12, CONTDX+11, DXLOW10+9, DXHI10+4, LBL+6
, SBL+6, ITYP+33, DATASRC+5, ASKREM+5
^ICDEX DXCODE+5, HAVICD10+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETGRP+1
Function Call: WRITE
  • Prompt: !!!,"NOTE: SOME OF THE ICD-10 INFRASTRUCTURE UTILITIES ARE MISSING."
  • Line Location: DXCODE+6
Function Call: WRITE
  • Prompt: !,"THIS REPORT CANNOT CURRENTLY PROVIDE ANY DATA BASED ON ICD-10 DX CODES"
  • Line Location: DXCODE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DXCODE+29
Function Call: WRITE
  • Prompt: !,"OK, make a new DX selection"
  • Line Location: DXCODE+37
Function Call: WRITE
  • Prompt: !!
  • Line Location: DXLOW9+3
Function Call: WRITE
  • Prompt: "Entry of Diagnosis Range ICD-9",!
  • Line Location: DXLOW9+4
Function Call: WRITE
  • Prompt: "=============================="
  • Line Location: DXLOW9+5
Function Call: WRITE
  • Prompt: !!,*7,"INPUT ERROR: Low Diagnosis is Greater than the High, TRY AGAIN!",!!
  • Line Location: DXHI9+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: DXADD+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADDDX+5
Function Call: WRITE
  • Prompt: "Entry of Diagnosis Code ICD-",BARICD,!
  • Line Location: ADDDX+6
Function Call: WRITE
  • Prompt: "=============================="
  • Line Location: ADDDX+7
Function Call: WRITE
  • Prompt: !," Removed from selection."
  • Line Location: ADDDX+19
Function Call: WRITE
  • Prompt: !," Added to selection."
  • Line Location: ADDDX+21
Function Call: WRITE
  • Prompt: " no matching DXs found"
  • Line Location: CONTDX+15
Function Call: WRITE
  • Prompt: !,BARDX1,
  • Line Location: CONTDX+19
Function Call: WRITE
  • Prompt: " (",BARCNT," matching DXs found) "
  • Line Location: CONTDX+20
Function Call: WRITE
  • Prompt: !,BARDX1," added to selection."
  • Line Location: CONTDX+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: DXLOW10+3
Function Call: WRITE
  • Prompt: "Entry of Diagnosis Range ICD-10",!
  • Line Location: DXLOW10+4
Function Call: WRITE
  • Prompt: "==============================="
  • Line Location: DXLOW10+5
Function Call: WRITE
  • Prompt: !!,*7,"INPUT ERROR: Low Diagnosis is Greater than the High, TRY AGAIN!",!!
  • Line Location: DXHI10+12
Function Call: WRITE
  • Prompt: !!?5,"Currently selected diagnoses: "
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,"code begins ",BAR1
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !,"Display all ICD-9 Diagnosis"
  • Line Location: SHOWDX+2
Function Call: WRITE
  • Prompt: !,"Display all ICD-10 Diagnosis"
  • Line Location: SHOWDX+3
Function Call: WRITE
  • Prompt: !,"ICD"_$E(BAR1,3,4)
  • Line Location: SHOWDX+6
Function Call: WRITE
  • Prompt: " FROM "
  • Line Location: SHOWDX+8
Function Call: WRITE
  • Prompt: " TO "
  • Line Location: SHOWDX+9
Function Call: WRITE
  • Prompt: " "
  • Line Location: SHOWDX+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWDX+13
Function Call: WRITE
  • Prompt: !,BAR1
  • Line Location: SHOWDX+15
Function Call: WRITE
  • Prompt: " begins"
  • Line Location: SHOWDX+16
Function Call: WRITE
  • Prompt: ?12," ",BARDX
  • Line Location: SHOWDX+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWDX+17
Function Call: WRITE
  • Prompt: ?12," ",BARDX
  • Line Location: DXINFO+3
Function Call: WRITE
  • Prompt: ?20,BAR4
  • Line Location: DXINFO+12
Function Call: WRITE
  • Prompt: !,"Y=",Y," X=",X," DTOUT: ",$G(DTOUT)," DUOUT: ",$G(DUOUT)," DIRUT: ",$G(DIRUT)," DIROUT: ",$D(DIROUT)," $g(barq)=",$G(BARQ)
  • Line Location: HAVICD10+5
Routine Call
  • DIC
  • Line Location:
    • LOC+7
    • ACCT+6
    • GETGRP+6
    • PAT+5
    • COLPT+5
Routine Call
  • DIR
  • Line Location:
    • TYP+19
    • ALL+10
    • DXCODE+34
    • DXLOW9+9
    • DXHI9+4
    • ADDDX+12
    • CONTDX+11
    • DXLOW10+9
    • DXHI10+4
    • LBL+6
    • SBL+6
    • ITYP+33
    • DATASRC+5
    • ASKREM+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUTNEGRP - [#9999999.77] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] DXINFO+7, DXINFO+11
^ICD9("AB" DXINFO+6, DXINFO+10

Label References

Name Line Occurrences
$$ASKICD DXCODE+3
$$ASKREM CONTDX+17
$$HAVICD10 DXLOW9+8, DXHI9+3, ADDDX+10, ADDDX+11, DXINFO+4
ACCT TYP+25
ADDDX DXADD+4
CLNUPDX DXCODE+4
DX DXCODE+36
DX10 DXCODE+14, DXCODE+19
DX9 DXCODE+11, DXCODE+17
DXADD DXCODE+12, DXCODE+15, DXCODE+18, DXCODE+20
DXCODE DXCODE+5
DXINFO LIST+5, SHOWDX+11, SHOWDX+13
DXLOW10 DXHI10+7, DXHI10+11
DXLOW9 DXHI9+6, DXHI9+10
GETGRP ACCT+12
LIST ADDDX+4
PAT TYP+25
SHOWDX DXCODE+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AUPNLK("ALL" PAT+8!
>> BAR("OPT" ACCT+12
BAR1 LIST+1~, LIST+5*, LIST+6*, SHOWDX+1~, SHOWDX+4*, SHOWDX+5, SHOWDX+6, SHOWDX+10, SHOWDX+13, SHOWDX+14
, SHOWDX+15, SHOWDX+17
BAR2 LIST+1~, SHOWDX+1~, SHOWDX+5*, SHOWDX+7, SHOWDX+8, SHOWDX+9, SHOWDX+10, SHOWDX+13, SHOWDX+14*, SHOWDX+17
, DXINFO+1~, DXINFO+5*, DXINFO+6, DXINFO+9*, DXINFO+10
BAR3 LIST+1~, SHOWDX+1~, DXINFO+1~, DXINFO+6*, DXINFO+7, DXINFO+10*, DXINFO+11
BAR4 LIST+1~, DXINFO+1~, DXINFO+2*, DXINFO+7*, DXINFO+11*, DXINFO+12
>> BARCNT CONTDX+15, CONTDX+20
>> BARDONE3 ALL+12*, ALL+13*
BARDX ADDDX+1!, ADDDX+16*, ADDDX+17, ADDDX+18, ADDDX+20, ADDDX+21, SHOWDX+10*, SHOWDX+11, SHOWDX+13*, SHOWDX+17*
, DXINFO~, DXINFO+3, DXINFO+5, DXINFO+9
BARDX1 CONTDX+3~, CONTDX+13*, CONTDX+14, CONTDX+16, CONTDX+18, CONTDX+19, CONTDX+21
BARDXTYP DXADD+1~, DXADD+2*, DXADD+3, DXADD+5, ADDDX+2~, ADDDX+3*, ADDDX+4, ADDDX+18, ADDDX+20, ADDDX+21
, CONTDX+3~, CONTDX+4*, CONTDX+16, CONTDX+18, CONTDX+21, LIST+3~, LIST+4*, LIST+5, LIST+6
>> BARGRPI ACCT+12*, GETGRP+8
BARICD DXADD~, DXADD+2, DXADD+4, ADDDX~, ADDDX+3, ADDDX+4, ADDDX+6, ADDDX+9, ADDDX+10, ADDDX+11
, CONTDX~, CONTDX+4, CONTDX+6, CONTDX+8, CONTDX+9, CONTDX+10, LIST~, LIST+4
>> BARICDV DXCODE+3*, DXCODE+9
>> BARQ DX+1*, DXCODE+10, DXCODE+11, DXCODE+12, DXCODE+13, DXCODE+14, DXCODE+15, DXCODE+16, DXCODE+17, DXCODE+18
, DXCODE+19, DXCODE+20, DXLOW9+10*, DXHI9+5*, DXADD+4, ADDDX+13*, DXLOW10+10*, DXHI10+5*, HAVICD10+5
>> BARQ1 ADDDX+17*
BARTMP1 SHOWDX+1~
BARX DXADINFO~
BARY DXADINFO~
BARY( DXADD+3!, DXADD+5!, ADDDX+4, ADDDX+18, ADDDX+20!, ADDDX+21*, CONTDX+16, CONTDX+18!, CONTDX+21*, LIST+5
, LIST+6, SHOWDX+5, SHOWDX+10, SHOWDX+13, SHOWDX+14, SHOWDX+17
BARY("ACCT" TYP+3!, ACCT+3!, ACCT+10*, ACCT+11*, ALL+2!, ITYP+2!
BARY("ALL" TYP+3!, ALL+2!, ALL+14*, ALL+15*, ITYP+2!
BARY("COLPT" ITYP+3!, COLPT+2!, COLPT+9*, COLPT+10*
BARY("DATA SR C" , DATASRC+4, DATASRC+8*
BARY("DX-ICDVER" DX+4!, DXCODE+9*, DXCODE+10, DXCODE+13, DXCODE+16, DXCODE+21, DXCODE+25
BARY("DX10" DX+3!, DXCODE+25, DXCODE+26!, DXCODE+27*, DXLOW10+1!, DXLOW10+12*, DXHI10+7, DXHI10+9*, DXHI10+11, SHOWDX+3
BARY("DX10_ALL" DXCODE+28*
BARY("DX9" DX+2!, DXCODE+21, DXCODE+22!, DXCODE+23*, DXLOW9+1!, DXLOW9+12*, DXHI9+6, DXHI9+8*, DXHI9+9, DXHI9+10
, SHOWDX+2
BARY("DX9_ALL" DXCODE+24*
BARY("GRP PLA N" , GETGRP+8*, GETGRP+9*
BARY("ITYP" TYP+3!, ALL+2!, ITYP+2!, ITYP+36*, ITYP+37*, COLPT+2!
BARY("LBL" LBL+5, LBL+9*
BARY("LOC" LOC+3!, LOC+11*, LOC+12*
BARY("PAT" TYP+3!, PAT+2!, PAT+10*, PAT+11*, ALL+2!, ITYP+2!
BARY("SBL" SBL+5, SBL+9*
BARY("TYP" TYP+3!, TYP+23*, TYP+24*, TYP+27*, TYP+28*, TYP+29*, TYP+30*, TYP+31*, TYP+32*, TYP+33*
, TYP+34*, TYP+35*, TYP+36*, ACCT+3!, PAT+2!, ALL+2!, ITYP+2!
DA DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!
DIC LOC+3!, LOC+4*, LOC+8!, ACCT+2!, ACCT+4*, ACCT+7!, GETGRP+2!, GETGRP+3*, PAT+3*, PAT+6!
, DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!, COLPT+3*, COLPT+6!
DIC("A" LOC+6*, GETGRP+4*
DIC(0 LOC+5*, ACCT+5*, GETGRP+5*, PAT+4*, COLPT+4*
DIR TYP+3!, TYP+20!, ALL+2!, ALL+11!, DXCODE+35!, DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!, LBL+2!
, LBL+7!, SBL+2!, SBL+7!, ITYP+2!, ITYP+34!, DATASRC+6!, ASKREM+1!, ASKREM+6!
DIR("?" TYP+18*, ALL+9*, CONTDX+8*, CONTDX+9*, CONTDX+10*, ITYP+32*
DIR("A" TYP+17*, ALL+8*, DXCODE+31*, DXLOW9+7*, DXHI9+2*, ADDDX+9*, CONTDX+6*, DXLOW10+7*, DXHI10+2*, LBL+4*
, SBL+4*, ITYP+31*, DATASRC+3*, ASKREM+2*
DIR("B" DXCODE+32*, LBL+5*, SBL+5*, DATASRC+4*, ASKREM+3*
DIR("S" DXLOW9+8*, DXHI9+3*, ADDDX+10*, ADDDX+11*, DXLOW10+8*, DXHI10+3*
DIR(0 TYP+5*, TYP+6*, TYP+7*, TYP+8*, TYP+9*, TYP+10*, TYP+11*, TYP+12*, TYP+13*, TYP+14*
, TYP+15*, TYP+16*, ALL+3*, ALL+4*, ALL+5*, ALL+6*, ALL+7*, DXCODE+33*, DXLOW9+6*, DXHI9+1*
, ADDDX+8*, CONTDX+7*, DXLOW10+6*, DXHI10+1*, LBL+3*, SBL+3*, ITYP+5*, ITYP+6*, ITYP+7*, ITYP+8*
, ITYP+10*, ITYP+11*, ITYP+12*, ITYP+13*, ITYP+14*, ITYP+15*, ITYP+16*, ITYP+17*, ITYP+19*, ITYP+20*
, ITYP+21*, ITYP+23*, ITYP+24*, ITYP+25*, ITYP+26*, ITYP+27*, ITYP+29*, DATASRC+2*, ASKREM+4*
>> DIROUT HAVICD10+5
DIRUT DXCODE+3*, CONTDX+5!, ITYP+35, DATASRC+7, HAVICD10+5
>> DTOUT LOC+9, TYP+21, ACCT+8, PAT+7, ALL+12, ITYP+35, COLPT+7, DATASRC+7, HAVICD10+5
>> DUOUT LOC+9, TYP+21, ACCT+8, PAT+7, ALL+12, DXCODE+3*, DXLOW9+10, DXHI9+5, ADDDX+13, DXLOW10+10
, DXHI10+5, LBL+8, SBL+8, ITYP+35, COLPT+7, DATASRC+7, HAVICD10+5
U TYP+23, DXLOW9+12, DXHI9+8, ADDDX+16, DXLOW10+12, DXHI10+9, DXINFO+7, DXINFO+11
>> X HAVICD10+4, HAVICD10+5
>> Y LOC+10, LOC+11, TYP+22, TYP+23, TYP+25, TYP+27, TYP+28, TYP+29, TYP+30, TYP+31
, TYP+32, TYP+33, TYP+34, TYP+35, TYP+36, ACCT+9, ACCT+10, ACCT+12, GETGRP+7, GETGRP+9
, PAT+9, PAT+10, ALL+13, ALL+14, ASKICD+2, DXCODE+5, DXCODE+36, DXLOW9+11, DXLOW9+12, DXHI9+6
, DXHI9+7, DXHI9+8, DXADD+4, ADDDX+15, ADDDX+16, CONTDX+5*, CONTDX+12*, CONTDX+13, DXLOW10+11, DXLOW10+12
, DXHI10+7, DXHI10+8, DXHI10+9, LBL+8, LBL+9, SBL+8, SBL+9, ITYP+36, COLPT+8, COLPT+9
, ASKREM+7, HAVICD10+5
>> Y(0 LOC+12, TYP+24, ACCT+11, GETGRP+9, PAT+11, ALL+15, ITYP+37, COLPT+10, DATASRC+8

Marked Items

Name Field # of Occurrence
$T( DXCODE+5, HAVICD10+1
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 |  Marked Items |  All