IBCEDS1 ;ALB/ESG - EDI CLAIM STATUS REPORT - SELECTION CONT ;13-DEC-2007
 ;;2.0;INTEGRATED BILLING;**377**;21-MAR-94;Build 23
 ;;Per VHA Directive 2004-038, this routine should not be modified.
 ;
 Q
 ;
SORTSEL(LVL) ; sort selection criteria
 ; LVL - sort level 1, 2, or 3
 ;
 NEW DIR,X,Y,LVLD,G,LN,S,SC,SCP,DTOUT,DUOUT,DIRUT,DIROUT,IBZ
 K IBSORT3 I LVL<3 K IBSORT2 I LVL=1 K IBSORT1
 I '$F(".1.2.3.","."_$G(LVL)_".") G SORTSELX
 I STOP G SORTSELX
 ;
 I LVL>1,$G(IBSORT1)="" D SORTSEL(1) I $G(IBSORT1)="" G SORTSELX
 I LVL=3,$G(IBSORT2)="" D SORTSEL(2) I $G(IBSORT2)="" G SORTSELX
 ;
 S LVLD=$S(LVL=2:"Secondary",LVL=3:"Tertiary",1:"Primary")
 ;
 S DIR("A")=LVLD_" Sort"
 I LVL=1 S DIR("B")=$$SD("1")
 I LVL>1 K DIR("B")
 ;
 S DIR("?")="Enter a code from the list to indicate the "_LVLD_" sort order."
 I LVL>1 S DIR("?",1)="  Primary Sort is "_$$SD($G(IBSORT1)),DIR("?",LVL)=""
 I LVL=3 S DIR("?",2)="Secondary Sort is "_$$SD($G(IBSORT2))
 ;
 I LVL=1 S DIR(0)="SB"    ; primary sort required
 I LVL>1 S DIR(0)="SOB"   ; optional sorts
 ;
 S G=""
 F LN=1:1 S S=$P($T(ZZ+LN),";",3) Q:S=""  D
 . S SC=$P(S,":",1)     ; sort code
 . I LVL=2,IBSORT1=SC Q
 . I LVL=3,IBSORT1=SC!(IBSORT2=SC) Q
 . S SCP=$P(S,":",1,2)  ; sort code:desc pair
 . S G=$S(G="":SCP,1:G_";"_SCP)
 . Q
 ;
 S $P(DIR(0),U,2)=G
 ;
 D ^DIR K DIR
 I $D(DTOUT)!$D(DUOUT) S STOP=1 G SORTSELX     ; timeout or up arrow
 I Y="" G SORTSELX                             ; null response
 S @("IBSORT"_LVL)=Y,IBZ=Y
 ;
 I IBZ="4" D  G SORTSELX    ; current balance question
 . S DIR(0)="Y"
 . S DIR("A")="Display Highest Balances First",DIR("B")="Yes"
 . S DIR("A",1)=""
 . S DIR("?",1)="Enter Yes or No."
 . S DIR("?",2)=""
 . S DIR("?",3)="Yes, I want to see the large balances first at the top of the list and the"
 . S DIR("?",4)="small balances last at the bottom of the list."
 . S DIR("?",5)=""
 . S DIR("?",6)="No, I want to see the small balances first at the top of the list and the"
 . S DIR("?")="large balances last at the bottom of the list."
 . D ^DIR K DIR
 . I $D(DTOUT) S STOP=1 Q    ; timeout
 . I $D(DIRUT) S:LVL=1 STOP=1 K @("IBSORT"_LVL) Q   ; ^ or nil resp
 . I Y S IBSORTOR(IBZ)="D"    ; yes, large first, descending
 . I 'Y S IBSORTOR(IBZ)="A"   ; no, small first, ascending
 . Q
 ;
 I IBZ="1" D  G SORTSELX    ; Last Transmitted Date Question
 . S DIR(0)="Y"
 . S DIR("A")="Display Oldest EDI Claims First",DIR("B")="Yes"
 . S DIR("A",1)=""
 . S DIR("?",1)="Enter Yes to display claims with oldest transmission dates first."
 . S DIR("?")="Enter No to display claims with recent transmission dates first."
 . D ^DIR K DIR
 . I $D(DTOUT) S STOP=1 Q    ; timeout
 . I $D(DIRUT) S:LVL=1 STOP=1 K @("IBSORT"_LVL) Q   ; ^ or nil resp
 . I Y S IBSORTOR(IBZ)="A"    ; yes, old first, ascending sort
 . I 'Y S IBSORTOR(IBZ)="D"   ; no, new first, descending sort
 . Q
 ;
 I IBZ="8" D  G SORTSELX    ; Age Question
 . S DIR(0)="Y"
 . S DIR("A")="Display Oldest EDI Claims First",DIR("B")="Yes"
 . S DIR("A",1)=""
 . S DIR("?",1)="Enter Yes or No."
 . S DIR("?",2)=""
 . S DIR("?",3)="Yes, I want to see old EDI claims first at the top of the list and newer"
 . S DIR("?",4)="EDI claims last at the bottom of the list."
 . S DIR("?",5)=""
 . S DIR("?",6)="No, I want to see new EDI claims first at the top of the list and older"
 . S DIR("?",7)="EDI claims last at the bottom of the list."
 . S DIR("?",8)=""
 . S DIR("?",9)="Note:"
 . S DIR("?",10)="For MRA request claims, AGE is calculated as the number of days from the MRA"
 . S DIR("?",11)="request date through today's date."
 . S DIR("?",12)=""
 . S DIR("?",13)="For all other claims, AGE is calculated as the number of days from the"
 . S DIR("?")="Authorization date through today's date."
 . D ^DIR K DIR
 . I $D(DTOUT) S STOP=1 Q    ; timeout
 . I $D(DIRUT) S:LVL=1 STOP=1 K @("IBSORT"_LVL) Q   ; ^ or nil resp
 . I Y S IBSORTOR(IBZ)="D"    ; yes, old first, high age#'s first, descending
 . I 'Y S IBSORTOR(IBZ)="A"   ; no, new first, low age#'s first, ascending
 . Q
 ;
SORTSELX ;
 Q
 ;
SD(SORT) ; sort description given the sort code
 Q $P($P($T(@("ZZ"_$G(SORT))),";",3),":",2)
 ;
SV(SORT,DEF) ; sort value given the sort code
 ; SORT - sort code
 ;  DEF - default value if the sort code is nil (must be non-nil)
 ;
 NEW S,VAR,VALUE
 I $G(SORT)="" S VALUE=DEF G SVX
 S S=$P($T(@("ZZ"_$G(SORT))),";",3)
 S VAR=$P(S,":",4)   ; variable name
 S VALUE=$G(@VAR)    ; value of variable
 I VALUE="" S VALUE="~" G SVX    ; get out if undefined
 I '$P(S,":",3) G SVX            ; non-numeric
 I $G(IBSORTOR(SORT))="D" S VALUE=-VALUE   ; descending sort
SVX Q VALUE
 ;
 ;
ZZ ; List of allowable sort criteria
ZZ1 ;;1:Last Transmitted Date:1:IBLTRDT;
ZZ2 ;;2:Payer:0:IBPAY;
ZZ3 ;;3:EDI Claim Status:0:IBEDIST;
ZZ4 ;;4:Current Balance:1:IBCURBAL;
ZZ5 ;;5:Division:0:IBDIV;
ZZ6 ;;6:Claim Number:0:IBEXTCLM;
ZZ7 ;;7:AR Status:0:IBARSTAT;
ZZ8 ;;8:Age:1:IBAGE;
 ;