- BARRSEL1 ;IHS/SD/PKD - Selective Report Parameters CON'T ; 12/30/10
- ;;1.8;IHS ACCOUNTS RECEIVABLE;**6,19,20,21,23,24**;OCT 26, 2005;Build 69
- ;routine BARRSEL grew too big for SAC requirements
- ;Code moved here and called from original tags (ie, called from BARRSEL)
- ;IHS/SD/POT JUN 2013 - MOD FOR ICD9/10 DX - BAR*1.8*.24
- ;IHS/SD/POT JAN 2014 - MOD FOR ICD9/10 DX - BAR*1.8*.24
- DISP ;
- W !!?3,"INCLUSION PARAMETERS in Effect for ",BARMENU,":"
- W !?3,"====================================================================="
- I $D(BARY("LOC")) W !?3,"- Visit Location........: ",BARY("LOC","NM")
- I $D(BARY("ACCT")) W !?3,"- Billing Entity........: ",BARY("ACCT","NM")
- I $D(BARY("PAT")) W !?3,"- Billing Entity........: ",BARY("PAT","NM")
- I $D(BARY("TYP")) W !?3,"- Billing Entity........: ",BARY("TYP","NM")
- I $D(BARY("ALL")) W !?3,"- Allowance Category....: ",BARY("ALL","NM")
- I $D(BARY("ITYP")) W !?3,"- Insurer Type...........: ",BARY("ITYP","NM")
- I $D(BARY("PTYP")) W !?3,"- Eligbility Status......: ",BARY("PTYP","NM")
- I $D(BARY("CLIN"))&($G(BAR("OPT"))="PAY") W !,?3,"- Clinic................: ",BARY("CLIN","NM")
- I $D(BARY("ADJ CAT")) W !?3,"- Adjustment Type.......: ",BARY("ADJ CAT","NM")
- I $G(BARY("ADJTYP")) W !,?3,"Adjustment.............: ",$P(^BAR(90052.01,BARY("ADJTYP"),0),U)
- I $D(BARY("DATA SRC")) W !?3,"- Data Source........: ",BARY("DATA SRC") ;bar*1.8*20 REQ10
- I $D(BARY("TRANS TYPE")) D
- .N TT S TT=0
- .F S TT=$O(BARY("TRANS TYPE",TT)) Q:'TT D
- ..W !?3,"- Transaction Type.....: ",$P($G(BARY("TRANS TYPE",TT)),U)
- I $D(BARY("TRANS TYPE","ADJ CAT")) D
- .N TT S TT=0
- .F S TT=$O(BARY("TRANS TYPE","ADJ CAT",TT)) Q:'TT D
- ..W !?10,"- Adjustment Category...: ",$P($G(BARY("TRANS TYPE","ADJ CAT",TT)),U)
- I $D(BARY("TRANS TYPE","ADJ TYPE")) D
- .N TT S TT=0
- .F S TT=$O(BARY("TRANS TYPE","ADJ TYPE",TT)) Q:'TT D
- ..W !?10,"- Adjustment Type.......: ",$P($G(BARY("TRANS TYPE","ADJ TYPE",TT)),U)
- I $D(BARY("TDN")) D
- . W !?3,"- TDN Selected..........: "
- . N TDN S TDN=0
- . F S TDN=$O(BARY("TDN",TDN)) Q:TDN="" D
- . . W ?29,TDN,!
- I $D(BARY("DT")) D
- . W !?3,"- "
- . W:BARY("DT")="A" "Approval Dates from...: "
- . W:BARY("DT")="CB" "Batch Open Dates......: "
- . I BARY("DT")="V" D
- . . W:BAR("OPT")'="IPDR" "Visit Dates from........: "
- . . W:BAR("OPT")="IPDR" "Admission Dates from..: "
- . W:BARY("DT")="X" "Export Dates from.......: "
- . W:BARY("DT")="T" "Transaction Dates from..: "
- . S X=BARY("DT",1)
- . X BARY("X")
- . W " to: "
- . S X=BARY("DT",2)
- . X BARY("X")
- I $D(BARY("COLPT")) W !?3,"- Collection Point......: ",BARY("COLPT","NM")
- I $D(BARY("BATCH")) W !?3,"- Collection Batch......: ",BARY("BATCH","NM")
- I $D(BARY("ITEM")) W !?3,"- Collection Batch Item.: ",BARY("ITEM","NM")
- I $D(BARY("AR")),BAR("OPT")="CXL" W !?3,"- Cancelling Official...: ",$P(^VA(200,BARY("AR"),0),U)
- I $D(BARY("AR")) W !?3,"- A/R Entry Clerk.......: ",$P(^VA(200,BARY("AR"),0),U)
- I $D(BARY("APPR")) W !,?3,"- Approving Official....: ",BARY("APPR","NM")
- I $D(BARY("CANC")) W !?3,"- Cancelling Official...: ",$P(^VA(200,BARY("CANC"),0),U)
- I $D(BARY("PRV")) W !?3,"- Provider..............: ",$P(^VA(200,BARY("PRV"),0),U)
- I $D(BARY("DSVC")) W !?3,"- Discharge Service.....: ",BARY("DSVC","NM")
- D DX
- I $G(BARY("RTYP")) W !?3,"- Report Type...........: ",BARY("RTYP","NM")
- I +$G(BARY("LBL")) W !?3,"- Large Balance.........: $",$FN(BARY("LBL"),",",2)
- I +$G(BARY("SBL")) W !?3,"- Small Balance.........: $",$FN(BARY("SBL"),",",2)
- ;
- ;IHS/SD/TMM 1.8*19 7/20/10
- I $D(BARY("GRP PLAN")) D
- .N TT S TT=0
- .F S TT=$O(BARY("GRP PLAN",TT)) Q:'TT D
- ..W !?3,"- Group Plan...........: ",$P($G(BARY("GRP PLAN",TT)),U)
- Q
- ; *********
- CLIN ; EP
- ; Select clinics to sort by
- K BARY("CLIN")
- K DIC,DIE,DR,DA ;
- S DIC="^DIC(40.7,"
- S DIC(0)="AEMQ"
- S DIC("A")="Select Clinic: ALL// "
- F D Q:+Y<0 Q:$G(BAR("OPT"))="PAY"
- . I $D(BARY("CLIN")) S DIC("A")="Select Another Clinic: "
- . D ^DIC
- . Q:+Y<0
- . S BARY("CLIN",+Y)=""
- . I $G(BAR("OPT"))="PAY" S BARY("CLIN","NM")=$P(Y,U,2)
- I '$D(BARY("CLIN")) D
- . I $D(DUOUT) K BARY("SORT") Q
- . W "ALL"
- K DIC,DIE,DR,DA ;
- Q
- ; ***********
- ;
- VTYP ; EP
- ; Select Vitst Types to sort by
- K BARY("VTYP")
- K DIC,DIE,DR,DA ;
- S DIC="^ABMDVTYP("
- S DIC(0)="AEMQ"
- S DIC("A")="Select Visit Type: ALL// "
- F D Q:+Y<0
- . I $D(BARY("VTYP")) S DIC("A")="Select Another Visit Type: "
- . D ^DIC
- . Q:+Y<0
- . S BARY("VTYP",+Y)=""
- I '$D(BARY("VTYP")) D
- . I $D(DUOUT) K BARY("SORT") Q
- . W "ALL"
- K DIC,DIE,DR,DA ;
- Q
- DX ;LIST SELECTED DX - BAR*1.8*.24
- N BARICD,BARICDX,BARDX
- F BARICD=9,10 D DX01(BARICD)
- I $D(BARY("DXTYPE")) D ;
- . S BARTMP1=0
- . I $G(BARY("DXTYPE"))="P" S BARTMP1=1
- . I $G(BARY("DXTYPE"))="O" S BARTMP1=2
- . I $G(BARY("DXTYPE"))="A" S BARTMP1=3
- . W !?3,"- Search "_$P("Primary;Primary Only;Other Only;ALL (Primary + Other);",";",BARTMP1+1)_" Diagnosis"
- ;LINES ADDED IN P24 TO SELECT ALL DXs
- I $G(BARY("DX9"))="ALL" I $G(BARY("DX9_ALL"))="ALL" I $G(BARY("DX10"))="ALL" I $G(BARY("DX10_ALL"))="ALL" D Q
- . W !?3,"- ALL Primary Diagnosis (ICD-9 and ICD-10)" ;;- BAR*1.8*.24 3/13/2014
- I $G(BARY("DX9"))="ALL" I $G(BARY("DX9_ALL"))="ALL" W !?3,"- ALL Primary ICD-9 Diagnosis"
- I $G(BARY("DX10"))="ALL" I $G(BARY("DX10_ALL"))="ALL" W !?3,"- ALL Primary ICD-10 Diagnosis"
- Q
- DX01(BARICD) ;
- S BARICDX="DX"_BARICD
- I $D(BARY(BARICDX,1)) W !?3,"- Diagnosis Range ICD",BARICD," from: ",$G(BARY(BARICDX,1))," to: ",$G(BARY(BARICDX,2)) ;P.OTT
- I $D(BARY(BARICDX,3)) D
- . W !?3,"- Individual Diagnosis ICD",BARICD,": "
- . S BARDX="" F S BARDX=$O(BARY(BARICDX,3,BARDX)) Q:BARDX="" W ! D DXINFO^BARRSL1(BARDX) I $O(BARY(BARICDX,3,BARDX))]"" ;W !
- I $D(BARY(BARICDX,4)) D
- . W !?3,"- Diagnosis ICD",BARICD," begins: "
- . S BARDX="" F S BARDX=$O(BARY(BARICDX,4,BARDX)) Q:BARDX="" W !?12,BARDX I $O(BARY(BARICDX,3,BARDX))]"" ;W !
- Q
- BARRSEL1 ;IHS/SD/PKD - Selective Report Parameters CON'T ; 12/30/10
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**6,19,20,21,23,24**;OCT 26, 2005;Build 69
- +2 ;routine BARRSEL grew too big for SAC requirements
- +3 ;Code moved here and called from original tags (ie, called from BARRSEL)
- +4 ;IHS/SD/POT JUN 2013 - MOD FOR ICD9/10 DX - BAR*1.8*.24
- +5 ;IHS/SD/POT JAN 2014 - MOD FOR ICD9/10 DX - BAR*1.8*.24
- DISP ;
- +1 WRITE !!?3,"INCLUSION PARAMETERS in Effect for ",BARMENU,":"
- +2 WRITE !?3,"====================================================================="
- +3 IF $DATA(BARY("LOC"))
- WRITE !?3,"- Visit Location........: ",BARY("LOC","NM")
- +4 IF $DATA(BARY("ACCT"))
- WRITE !?3,"- Billing Entity........: ",BARY("ACCT","NM")
- +5 IF $DATA(BARY("PAT"))
- WRITE !?3,"- Billing Entity........: ",BARY("PAT","NM")
- +6 IF $DATA(BARY("TYP"))
- WRITE !?3,"- Billing Entity........: ",BARY("TYP","NM")
- +7 IF $DATA(BARY("ALL"))
- WRITE !?3,"- Allowance Category....: ",BARY("ALL","NM")
- +8 IF $DATA(BARY("ITYP"))
- WRITE !?3,"- Insurer Type...........: ",BARY("ITYP","NM")
- +9 IF $DATA(BARY("PTYP"))
- WRITE !?3,"- Eligbility Status......: ",BARY("PTYP","NM")
- +10 IF $DATA(BARY("CLIN"))&($GET(BAR("OPT"))="PAY")
- WRITE !,?3,"- Clinic................: ",BARY("CLIN","NM")
- +11 IF $DATA(BARY("ADJ CAT"))
- WRITE !?3,"- Adjustment Type.......: ",BARY("ADJ CAT","NM")
- +12 IF $GET(BARY("ADJTYP"))
- WRITE !,?3,"Adjustment.............: ",$PIECE(^BAR(90052.01,BARY("ADJTYP"),0),U)
- +13 ;bar*1.8*20 REQ10
- IF $DATA(BARY("DATA SRC"))
- WRITE !?3,"- Data Source........: ",BARY("DATA SRC")
- +14 IF $DATA(BARY("TRANS TYPE"))
- Begin DoDot:1
- +15 NEW TT
- SET TT=0
- +16 FOR
- SET TT=$ORDER(BARY("TRANS TYPE",TT))
- IF 'TT
- QUIT
- Begin DoDot:2
- +17 WRITE !?3,"- Transaction Type.....: ",$PIECE($GET(BARY("TRANS TYPE",TT)),U)
- End DoDot:2
- End DoDot:1
- +18 IF $DATA(BARY("TRANS TYPE","ADJ CAT"))
- Begin DoDot:1
- +19 NEW TT
- SET TT=0
- +20 FOR
- SET TT=$ORDER(BARY("TRANS TYPE","ADJ CAT",TT))
- IF 'TT
- QUIT
- Begin DoDot:2
- +21 WRITE !?10,"- Adjustment Category...: ",$PIECE($GET(BARY("TRANS TYPE","ADJ CAT",TT)),U)
- End DoDot:2
- End DoDot:1
- +22 IF $DATA(BARY("TRANS TYPE","ADJ TYPE"))
- Begin DoDot:1
- +23 NEW TT
- SET TT=0
- +24 FOR
- SET TT=$ORDER(BARY("TRANS TYPE","ADJ TYPE",TT))
- IF 'TT
- QUIT
- Begin DoDot:2
- +25 WRITE !?10,"- Adjustment Type.......: ",$PIECE($GET(BARY("TRANS TYPE","ADJ TYPE",TT)),U)
- End DoDot:2
- End DoDot:1
- +26 IF $DATA(BARY("TDN"))
- Begin DoDot:1
- +27 WRITE !?3,"- TDN Selected..........: "
- +28 NEW TDN
- SET TDN=0
- +29 FOR
- SET TDN=$ORDER(BARY("TDN",TDN))
- IF TDN=""
- QUIT
- Begin DoDot:2
- +30 WRITE ?29,TDN,!
- End DoDot:2
- End DoDot:1
- +31 IF $DATA(BARY("DT"))
- Begin DoDot:1
- +32 WRITE !?3,"- "
- +33 IF BARY("DT")="A"
- WRITE "Approval Dates from...: "
- +34 IF BARY("DT")="CB"
- WRITE "Batch Open Dates......: "
- +35 IF BARY("DT")="V"
- Begin DoDot:2
- +36 IF BAR("OPT")'="IPDR"
- WRITE "Visit Dates from........: "
- +37 IF BAR("OPT")="IPDR"
- WRITE "Admission Dates from..: "
- End DoDot:2
- +38 IF BARY("DT")="X"
- WRITE "Export Dates from.......: "
- +39 IF BARY("DT")="T"
- WRITE "Transaction Dates from..: "
- +40 SET X=BARY("DT",1)
- +41 XECUTE BARY("X")
- +42 WRITE " to: "
- +43 SET X=BARY("DT",2)
- +44 XECUTE BARY("X")
- End DoDot:1
- +45 IF $DATA(BARY("COLPT"))
- WRITE !?3,"- Collection Point......: ",BARY("COLPT","NM")
- +46 IF $DATA(BARY("BATCH"))
- WRITE !?3,"- Collection Batch......: ",BARY("BATCH","NM")
- +47 IF $DATA(BARY("ITEM"))
- WRITE !?3,"- Collection Batch Item.: ",BARY("ITEM","NM")
- +48 IF $DATA(BARY("AR"))
- IF BAR("OPT")="CXL"
- WRITE !?3,"- Cancelling Official...: ",$PIECE(^VA(200,BARY("AR"),0),U)
- +49 IF $DATA(BARY("AR"))
- WRITE !?3,"- A/R Entry Clerk.......: ",$PIECE(^VA(200,BARY("AR"),0),U)
- +50 IF $DATA(BARY("APPR"))
- WRITE !,?3,"- Approving Official....: ",BARY("APPR","NM")
- +51 IF $DATA(BARY("CANC"))
- WRITE !?3,"- Cancelling Official...: ",$PIECE(^VA(200,BARY("CANC"),0),U)
- +52 IF $DATA(BARY("PRV"))
- WRITE !?3,"- Provider..............: ",$PIECE(^VA(200,BARY("PRV"),0),U)
- +53 IF $DATA(BARY("DSVC"))
- WRITE !?3,"- Discharge Service.....: ",BARY("DSVC","NM")
- +54 DO DX
- +55 IF $GET(BARY("RTYP"))
- WRITE !?3,"- Report Type...........: ",BARY("RTYP","NM")
- +56 IF +$GET(BARY("LBL"))
- WRITE !?3,"- Large Balance.........: $",$FNUMBER(BARY("LBL"),",",2)
- +57 IF +$GET(BARY("SBL"))
- WRITE !?3,"- Small Balance.........: $",$FNUMBER(BARY("SBL"),",",2)
- +58 ;
- +59 ;IHS/SD/TMM 1.8*19 7/20/10
- +60 IF $DATA(BARY("GRP PLAN"))
- Begin DoDot:1
- +61 NEW TT
- SET TT=0
- +62 FOR
- SET TT=$ORDER(BARY("GRP PLAN",TT))
- IF 'TT
- QUIT
- Begin DoDot:2
- +63 WRITE !?3,"- Group Plan...........: ",$PIECE($GET(BARY("GRP PLAN",TT)),U)
- End DoDot:2
- End DoDot:1
- +64 QUIT
- +65 ; *********
- CLIN ; EP
- +1 ; Select clinics to sort by
- +2 KILL BARY("CLIN")
- +3 ;
- KILL DIC,DIE,DR,DA
- +4 SET DIC="^DIC(40.7,"
- +5 SET DIC(0)="AEMQ"
- +6 SET DIC("A")="Select Clinic: ALL// "
- +7 FOR
- Begin DoDot:1
- +8 IF $DATA(BARY("CLIN"))
- SET DIC("A")="Select Another Clinic: "
- +9 DO ^DIC
- +10 IF +Y<0
- QUIT
- +11 SET BARY("CLIN",+Y)=""
- +12 IF $GET(BAR("OPT"))="PAY"
- SET BARY("CLIN","NM")=$PIECE(Y,U,2)
- End DoDot:1
- IF +Y<0
- QUIT
- IF $GET(BAR("OPT"))="PAY"
- QUIT
- +13 IF '$DATA(BARY("CLIN"))
- Begin DoDot:1
- +14 IF $DATA(DUOUT)
- KILL BARY("SORT")
- QUIT
- +15 WRITE "ALL"
- End DoDot:1
- +16 ;
- KILL DIC,DIE,DR,DA
- +17 QUIT
- +18 ; ***********
- +19 ;
- VTYP ; EP
- +1 ; Select Vitst Types to sort by
- +2 KILL BARY("VTYP")
- +3 ;
- KILL DIC,DIE,DR,DA
- +4 SET DIC="^ABMDVTYP("
- +5 SET DIC(0)="AEMQ"
- +6 SET DIC("A")="Select Visit Type: ALL// "
- +7 FOR
- Begin DoDot:1
- +8 IF $DATA(BARY("VTYP"))
- SET DIC("A")="Select Another Visit Type: "
- +9 DO ^DIC
- +10 IF +Y<0
- QUIT
- +11 SET BARY("VTYP",+Y)=""
- End DoDot:1
- IF +Y<0
- QUIT
- +12 IF '$DATA(BARY("VTYP"))
- Begin DoDot:1
- +13 IF $DATA(DUOUT)
- KILL BARY("SORT")
- QUIT
- +14 WRITE "ALL"
- End DoDot:1
- +15 ;
- KILL DIC,DIE,DR,DA
- +16 QUIT
- DX ;LIST SELECTED DX - BAR*1.8*.24
- +1 NEW BARICD,BARICDX,BARDX
- +2 FOR BARICD=9,10
- DO DX01(BARICD)
- +3 ;
- IF $DATA(BARY("DXTYPE"))
- Begin DoDot:1
- +4 SET BARTMP1=0
- +5 IF $GET(BARY("DXTYPE"))="P"
- SET BARTMP1=1
- +6 IF $GET(BARY("DXTYPE"))="O"
- SET BARTMP1=2
- +7 IF $GET(BARY("DXTYPE"))="A"
- SET BARTMP1=3
- +8 WRITE !?3,"- Search "_$PIECE("Primary;Primary Only;Other Only;ALL (Primary + Other);",";",BARTMP1+1)_" Diagnosis"
- End DoDot:1
- +9 ;LINES ADDED IN P24 TO SELECT ALL DXs
- +10 IF $GET(BARY("DX9"))="ALL"
- IF $GET(BARY("DX9_ALL"))="ALL"
- IF $GET(BARY("DX10"))="ALL"
- IF $GET(BARY("DX10_ALL"))="ALL"
- Begin DoDot:1
- +11 ;;- BAR*1.8*.24 3/13/2014
- WRITE !?3,"- ALL Primary Diagnosis (ICD-9 and ICD-10)"
- End DoDot:1
- QUIT
- +12 IF $GET(BARY("DX9"))="ALL"
- IF $GET(BARY("DX9_ALL"))="ALL"
- WRITE !?3,"- ALL Primary ICD-9 Diagnosis"
- +13 IF $GET(BARY("DX10"))="ALL"
- IF $GET(BARY("DX10_ALL"))="ALL"
- WRITE !?3,"- ALL Primary ICD-10 Diagnosis"
- +14 QUIT
- DX01(BARICD) ;
- +1 SET BARICDX="DX"_BARICD
- +2 ;P.OTT
- IF $DATA(BARY(BARICDX,1))
- WRITE !?3,"- Diagnosis Range ICD",BARICD," from: ",$GET(BARY(BARICDX,1))," to: ",$GET(BARY(BARICDX,2))
- +3 IF $DATA(BARY(BARICDX,3))
- Begin DoDot:1
- +4 WRITE !?3,"- Individual Diagnosis ICD",BARICD,": "
- +5 ;W !
- SET BARDX=""
- FOR
- SET BARDX=$ORDER(BARY(BARICDX,3,BARDX))
- IF BARDX=""
- QUIT
- WRITE !
- DO DXINFO^BARRSL1(BARDX)
- IF $ORDER(BARY(BARICDX,3,BARDX))]""
- End DoDot:1
- +6 IF $DATA(BARY(BARICDX,4))
- Begin DoDot:1
- +7 WRITE !?3,"- Diagnosis ICD",BARICD," begins: "
- +8 ;W !
- SET BARDX=""
- FOR
- SET BARDX=$ORDER(BARY(BARICDX,4,BARDX))
- IF BARDX=""
- QUIT
- WRITE !?12,BARDX
- IF $ORDER(BARY(BARICDX,3,BARDX))]""
- End DoDot:1
- +9 QUIT
