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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBACCWLSORT

Package: Integrated Billing

Routine: IBACCWLSORT


Information

IBACCWLSORT ;EDE/TPF - ACC (Automated Community Care) Encounters Sort Prompts ; 12-SEP-2023

Source Information

Source file <IBACCWLSORT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 2 IBSORTOR^IBACCWLSORT1  SPECLKUP^IBACCWLSPKUP  
Kernel 2 GETENV^%ZOSV  $$TITLE^XLFSTR  
List Manager 1 CLEAN^VALM10  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBACCWL  IBACCWLSORT1  

Entry Points

Name Comments DBIA/ICR reference
INIT(RETURN,IBDAYSMAX,IBBILLER,IBDIV,IBSORT) ; -- init variables and list array
ASKDAYSAGAIN ;ASK DAYS AGAIN ;TPF;IB*2*770v9
AGAINSPLKUP ;ASK SPECIAL LOOKUP AGAIN ;TPF;IB*2*770v9
EXIT ; -- exit code
SORT(LVL,IBDEFSRT) ;
; LVL - sort level 1,2,or,3
; IBDEFSRT - default sort value (optional)
DISPSORTCRIT(IBSORT,VALMHDR) ;EP - CREATE SORT CRITERIA HEADER MSG
SD(SORT) ; sort description given the sort code letter
FLD3649(SORT) ;EP - RETURN FIELD GIVEN SORT CODE LETTER
FLD399(SORT) ;EP - RETURN FIELD GIVEN SORT CODE LETTER
SV(SORT) ; sort value given the sort code letter
SVX
ZZ ; List of allowable sort criteria
ZZB ;;B:Bill Number:0:IB;
ZZC ;;C:Current Balance:1:IBOAM;
ZZS ;;S:Date of Service:1:IBSER;
ZZD ;;D:Division:0:IBDIV;
ZZE ;;E:Reason Code Text:0:IBERR;
ZZN ;;N:Days on the Worklist:1:IBPEN;
ZZM ;;M:Patient Name:0:IBPAT;
ZZP ;;P:Payer:0:IBPAY;
ZZR ;;R:Review sort by STATUS:1:IBREV;
ZZL ;;L:SSN Last 4:0:IBSSN
IBACCSUP ;;ALLOWABLE SORTS FOR SUPERVISORS/DEVELOPERS
IBACCSUPB ;;B:Bill Number^X12 CLAIM NUMBER|BILL NUMBER:0:IB;;.15|.01
IBACCSUPA ;;A:Amount Paid^PAID AMOUNT|:1:XXXXX;;.27|
IBACCSUPS ;;S:Date of Service^DATE OF SERVICE:1:IBSER;;.12|
IBACCSUPD ;;D:Division^SITE NUMBER|DEFAULT DIVISION:0:IBDIV;;.2|
IBACCSUPE ;;E:Error Code Text^REASONS:0:IBERR;;5|
IBACCSUPN ;;N:Days on Worklist^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04|
IBACCSUPM ;;M:Patient Name^PATIENT NAME:0:IBPAT;;.03|
IBACCSUPP ;;P:Payer^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17
IBACCSUPR ;;R:Review sort by STATUS:1:IBREV;;.16
IBACCBILL ;;ALLOWABLE SORTS FOR BILLERS
IBACCBILLA ;;A:Amount Paid*^PAID AMOUNT|:1:IBOAM;;.27| ;TPF;IB*2*770v18;EBILL-4623
IBACCBILLE ;;E:Error Code Text*^REASONS:0:xxxx;;5| ;TPF;IB*2*770v27;EBILL-5355
IBACCBILLM ;;M:Patient Name*^PATIENT NAME:0:IBPAT;;.03| ;TPF;IB*2*770v27;EBILL-5355
IBACCBILLN ;;N:Days on Worklist*^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04 ;TPF;IB*2*770v27;EBILL-5355
IBACCBILLP ;;P:Payer*^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17| ;TPF;IB*2*770v27;EBILL-5355
IBACCBILLS ;;S:Date of Service*^SERVICE DATE:1:IBSER;;.12| ;TPF;IB*2*770v25;EBILL-4705 ADD FILTER FOR ALL WL DATE OF SERVICE
IBACCFRT ;;
IBACCFRTA ;;A:Amount Paid*^PAID AMOUNT|:1:IBOAM;;.27|;TPF;IB*2*770v18;EBILL-4623
IBACCFRTB ;;B:Bill Number^X12 CLAIM NUMBER|BILL NUMBER:0:IB;;.15|.01
IBACCFRTS ;;S:Date of Service*^SERVICE DATE:1:IBSER;;.12| ;TPF;IB*2*770v25;EBILL-4705 ADD FILTER FOR ALL WL DATE OF SERVICE
IBACCFRTD ;;D:Division^SITE NUMBER|DEFAULT DIVISION:0:IBDIV;;.2|
IBACCFRTE ;;E:Error Code Text*^REASONS:0:IBERR;;5|
IBACCFRTN ;;N:Days on Worklist*^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04|
IBACCFRTM ;;M:Patient Name*^PATIENT NAME:0:IBPAT;;.02|
IBACCFRTP ;;P:Payer*^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17|
IBACCFRTR ;;R:Review sort by STATUS^STATUS:1:XXXXX;;.16|;TPF;IB*2*770v12;EBILL-4525
IBACCFRTL ;;L:SSN Last 4*^PATIENT SSN:1:xxxx;;.11|;BASED ON SSN;TPF;IB*2*770v12;EBILL-4224
IBACCFRTSF ;;SF:Service Facility Name^SERVICE FACILITY:0:SERFAC;;.25|;TPF;IB*2*770v12;EBILL-4224
IBACCFRTSFN ;;SFN:Service Facility NPI^SERVICE FACILITY NPI:0:FACNPI;;.26|;TPF;IB*2*770v12;EBILL-422 ;
IBACCRUR ;;
IBACCRURA ;;A:Amount Paid*^PAID AMOUNT|:1:IBOAM;;.27|;TPF;IB*2*770v18;EBILL-4623
IBACCRURD ;;D:Division^SITE NUMBER|DEFAULT DIVISION:0:IBDIV;;.2|
IBACCRURE ;;E:Error Code Text*^REASONS:0:IBERR;;5| ;TPF;IB*2*770v27;EBILL-5355
IBACCRURM ;;M:Patient Name*^PATIENT NAME:0:IBPAT;;.02| ;TPF;IB*2*770v27;EBILL-5355
IBACCRURN ;;N:Days on Worklist*^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04 ;TPF;IB*2*770v27;EBILL-5355
IBACCRURP ;;P:Payer*^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17 ;TPF;IB*2*770v27;EBILL-5355
IBACCRURPT ;;PT:Patient Type^IN-PATIENT/OUT-PATIENT|$$INPAT^IBCEF(IBIFN):0:IBACCTYPE;S INPAT=$$INPAT^IBCEF(IBIFN);.05
IBACCRURR ;;R:Review sort by STATUS^STATUS:1:XXXXX;;.16;TPF;IB*2*770v12;EBILL-4525
IBACCRURS ;;S:Date of Service*^SERVICE DATE:1:IBSER;;.12 ;TPF;IB*2*770v25;EBILL-4705 ADD FILTER FOR ALL WL DATE OF SERVICE
IBACCRURX ;;X:Primary Diagnosis Code*^PRIMARY DX:1:XXXX;;.14 ;TPF;IB*2*770v38;EBILL-5505
IBACCIV ;;
IBACCIVA ;;A:Amount Paid*^PAID AMOUNT|:1:IBOAM;;.27| ;TPF;IB*2*770v18;EBILL-4623
IBACCIVD ;;D:Division^SITE NUMBER|DEFAULT DIVISION:0:IBDIV;;.2|
IBACCIVE ;;E:Error Code Text*^REASONS:0:IBERR;;5| ;TPF;IB*2*770v27;EBILL-5355
IBACCIVM ;;M:Patient Name*^PATIENT NAME:0:IBPAT;;.02| ;TPF;IB*2*770v27;EBILL-5355
IBACCIVN ;;N:Days on Worklist*^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04 ;TPF;IB*2*770v27;EBILL-5355
IBACCIVP ;;P:Payer*^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17 ;TPF;IB*2*770v27;EBILL-5355
IBACCIVPT ;;PT:Patient Type^IN-PATIENT/OUT-PATIENT|$$INPAT^IBCEF(IBIFN):0:IBACCTYPE;S INPAT=$$INPAT^IBCEF(IBIFN);.05
IBACCIVS ;;S:Date of Service*^SERVICE DATE:1:IBSER;;.12 ;TPF;IB*2*770v25;EBILL-4705 ADD FILTER FOR ALL WL DATE OF SERVICE
IBACCPTF ;;
IBACCPTFA ;;A:Amount Paid*^PAID AMOUNT|:1:IBOAM;;,27 ;TPF;IB*2*770v18;EBILL-4623
IBACCPTFB ;;B:Bill Number^X12 CLAIM NUMBER|BILL NUMBER:0:IB;;.15|.01
IBACCPTFS ;;S:Date of Service*^SERVICE DATE:1:IBSER;;.12 ;TPF;IB*2*770v25;EBILL-4705 ADD FILTER FOR ALL WL DATE OF SERVICE
IBACCPTFD ;;D:Division^SITE NUMBER|DEFAULT DIVISION:0:IBDIV;;.2
IBACCPTFE ;;E:Error Code Text*^REASONS:0:IBERR;;5
IBACCPTFN ;;N:Days on Worklist*^DAYS ON GROUP WORKLIST:1:IBPEN;;3.04
IBACCPTFM ;;M:Patient Name*^PATIENT NAME:0:IBPAT;;.02
IBACCPTFP ;;P:Payer*^PRIMARY INS|$$CURR~IBCEF2(IBIFN):0:IBPAY;;.17
IBACCPTFR ;;R:Review sort by STATUS^STATUS:1:XXXXX;;.16| ;TPF;IB*2*770v12;EBILL-4525
IBACCPTFL ;;L:SSN^PATIENT SSN:1:xxxx;;.11| ;BASED ON SSN;TPF;IB*2*770v12;EBILL-4224 ;MJL;IB*2*802v1;EBILL-5932
IBACCPTFSF ;;SF:Service Facility Name^SERVICE FACILITY:0:SERFAC;;.25|;TPF;IB*2*770v12;EBILL-4224
IBACCPTFSFN ;;SFN:Service Facility NPI^SERVICE FACILITY NPI:0:FACNPI;.26|;TPF;IB*2*770v12;EBILL-4224

External References

Name Field # of Occurrence
GETENV^%ZOSV AGAINSPLKUP+3
^DIR SORT+46
IBSORTOR^IBACCWLSORT1 SORT+59
SPECLKUP^IBACCWLSPKUP AGAINSPLKUP+8
CLEAN^VALM10 EXIT+2
$$SITE^VASITE AGAINSPLKUP+6
$$TITLE^XLFSTR DISPSORTCRIT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAINSPLKUP+21
Routine Call
  • DIR
  • Line Location:
    • SORT+46

Label References

Name Line Occurrences
$$FLD3649 SORT+52
$$FLD399 SORT+53
$$SD SORT+14, SORT+18, SORT+21, SORT+22
AGAINSPLKUP AGAINSPLKUP+19
SORT AGAINSPLKUP+23, AGAINSPLKUP+24, AGAINSPLKUP+25, SORT+8, SORT+9
SVX SV+5, SV+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACCTSTENV AGAINSPLKUP+3*
CNT DISPSORTCRIT+1~, DISPSORTCRIT+3*, DISPSORTCRIT+4*, DISPSORTCRIT+5, DISPSORTCRIT+7
DIC INIT+1~
DIR INIT+1~, SORT+3~, SORT+46!
DIR("?" SORT+20*, SORT+21*, SORT+22*, SORT+40*, SORT+41*, SORT+42*, SORT+43*
DIR("A" SORT+13*
DIR("B" SORT+14*, SORT+15!, SORT+18*
DIR(0 SORT+24*, SORT+25*, SORT+37*
DIROUT INIT+1~, SORT+3~
DIRUT INIT+1~, SORT+3~, SORT+49
DTOUT INIT+1~, SORT+3~, SORT+47
DUOUT INIT+1~, SORT+3~, SORT+48
FIELD FLD3649+1~, FLD3649+2*, FLD3649+3, FLD399+1~, FLD399+2*, FLD399+3
G SORT+3~, SORT+27*, SORT+34*, SORT+37
IBAUTH INIT+1~
IBBILLER INIT~
IBDAYSMAX INIT~, ASKDAYSAGAIN+4*
IBDEFSRT SORT~, SORT+16!, SORT+17!, SORT+18
IBDIV INIT~, AGAINSPLKUP+2!
IBFIRST INIT+1~, AGAINSPLKUP+1*
IBSORT INIT~, SORT+59, DISPSORTCRIT~
IBSORT( SORT+51*, SORT+52*, SORT+53*, SORT+56*, DISPSORTCRIT+4, DISPSORTCRIT+5
IBSORT("A" DISPSORTCRIT+2
IBSORT1 INIT+2~, EXIT+1!, SORT+4!, SORT+8, SORT+16, SORT+17, SORT+21, SORT+30, SORT+31
IBSORT2 INIT+2~, AGAINSPLKUP+25, EXIT+1!, SORT+4!, SORT+9, SORT+17, SORT+22, SORT+31
IBSORT3 INIT+2~, EXIT+1!, SORT+4!
IBSORTFIL AGAINSPLKUP+22!
IBSORTOR INIT+2~, AGAINSPLKUP+22!, EXIT+1!, SORT+59
IBSORTOR( SORT+57*, SV+7
IBZ SORT+3~, SORT+50*, SORT+55, SORT+57, SORT+59
LN SORT+3~, SORT+28*
LVL SORT~, SORT+4, SORT+5, SORT+8, SORT+9, SORT+11, SORT+14, SORT+15, SORT+16, SORT+17
, SORT+21, SORT+22, SORT+24, SORT+25, SORT+30, SORT+31, SORT+49, SORT+50, SORT+51, SORT+52
, SORT+53, SORT+56, SORT+59
LVLD SORT+3~, SORT+11*, SORT+13, SORT+20
RETURN INIT~, AGAINSPLKUP+4, AGAINSPLKUP+5*, AGAINSPLKUP+6*, AGAINSPLKUP+7!, AGAINSPLKUP+8, AGAINSPLKUP+11, AGAINSPLKUP+12, AGAINSPLKUP+18, AGAINSPLKUP+19
RETURN("DILIST" AGAINSPLKUP+13
RETURN(1 AGAINSPLKUP+18
S SORT+3~, SORT+28*, SORT+29, SORT+32, SORT+33, SV+1~, SV+2*, SV+3, SV+6
SC SORT+3~, SORT+29*, SORT+30, SORT+31
SCP SORT+3~, SORT+32*, SORT+34
SCPFIELD INIT+1~, SORT+33*
SORT SD~, FLD3649~, FLD399~, SV~, SV+7
SORTMSG DISPSORTCRIT+1~
SORTNAME DISPSORTCRIT+1~, DISPSORTCRIT+5*, DISPSORTCRIT+6*, DISPSORTCRIT+7
STATNUM INIT+1~
TOTAL DISPSORTCRIT+1~, DISPSORTCRIT+2*, DISPSORTCRIT+7
>> TSTIBINTEGSITE AGAINSPLKUP+5, AGAINSPLKUP+6
U AGAINSPLKUP+5, AGAINSPLKUP+6, AGAINSPLKUP+13, AGAINSPLKUP+18, SORT+32, SORT+33, SORT+37, SORT+52, SORT+53, SD+1
, FLD3649+2, FLD399+2
>> VALMCNT ASKDAYSAGAIN+2*
VALMHDR DISPSORTCRIT~
VALMHDR(2 DISPSORTCRIT+7*, DISPSORTCRIT+9*, DISPSORTCRIT+10
>> VALMQUIT AGAINSPLKUP+4, AGAINSPLKUP+10, AGAINSPLKUP+17, AGAINSPLKUP+23, AGAINSPLKUP+24, AGAINSPLKUP+25, SORT+6, SORT+47*, SORT+48*, SORT+49*
, SORT+59
VALUE SV+1~, SV+4*, SV+5*, SV+7*, SVX
VAR SV+1~, SV+3*, SV+4
X INIT+1~, SORT+3~
Y INIT+1~, AGAINSPLKUP+3~, SORT+3~, SORT+50, SORT+52, SORT+53
Y(0 SORT+51

Marked Items

Name Field # of Occurrence
$T(@(1)+LN SORT+28
$T(@(6) SD+1, FLD3649+2, FLD399+2, SV+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All