Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAINSPLKUP+21
Info |  Source |  Entry Points |  Interaction Calls