Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARPTR

BARPTR.m

Go to the documentation of this file. 
  1. BARPTR ; IHS/SD/LSL - TRANSACTION LISTER AND SELECTOR ; 09/12/2008
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;**6,7,20,23**;OCT 26, 2005
  1.  ;
  1.  ;** transaction lister and selecter
  1.  ;** pass an array that will be used as the display list
  1.  ;** returns the ien of the selected transaction
  1.  ;
  1.  ; IHS/SD/SDR - v1.8 p6 - DD 4.2.1
  1.  ;   Updated display to include Trans Dt, Allow.cat, TDN,
  1.  ;   and status
  1.  ; IHS/SD/SDR - v.18 p20 - HEAT27205 - Display <L> on locked batches
  1.  ; HEAT77761 MAR 2013 P.OTTIS ADDEDD TRANSACTION # TO ERROR MESSAGE
  1.  ; MAR 2013 P.OTTIS ADDED NEW VA billing 
  1.  Q
  1.  ;--------------------------------------------------------------
  1. EN(BAR)         ; EP
  1.  ; list details of transactions
  1.  N BARTX,BARTR,BARCNT
  1.  D TOP
  1.  S DIC=90050.03
  1.  S DR=".01;2;3;6;14;15;17"
  1.  S (BARTR,BARCNT)=0
  1.  F BARC=1:1 S BARTR=$O(^TMP($J,"BARVL",BARTR)) Q:'BARTR  D  Q:$G(BARQUIT)
  1.  . D ENP^XBDIQ1(DIC,BARTR,DR,"BARTX(","0I")
  1.  . S BARCNT=BARCNT+1
  1.  . W !,BARCNT_"."
  1.  . W ?3,$J(BARTX(2),8,2)
  1.  . W:'$$CKDATE^BARPST($P(^BARTR(DUZ(2),BARTR,0),U,14),0,"COLLECTION") "<L>"
  1.  . W ?15,$E(BARTX(6),1,30),?47,BARTX(14)
  1.  . W ?76,BARTX(15)  ;coll. item
  1.  . S D0=BARTX(6,"I")
  1.  . I D0']"" D  Q    ;
  1.  . . W !,"** ERROR--MISSING ALLOCATION INFO IN TRANSACTION # "_BARTR ;P.OTT
  1.  . . D EOP^BARUTL(1)
  1.  . S BARALLC=$$VALI^BARVPM(8) ;STRING
  1.  . W !?13,BARTX(.01),?37,$S(BARALLC'="":$P($T(@BARALLC),";;",2),1:"<NO ALLOW CAT>")
  1.  . W ?51
  1.  . W $S($G(BARTX(17))'="":BARTX(17),$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E")'="":$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E"),1:"<NO TDN>")
  1.  . W ?73,$S($O(^BAR(90052,"D",BARTX(14),0))'="":"LETTER",1:"")
  1.  . S ^TMP($J,"BARVL","B",BARCNT,BARTR)=BARTX(6)_U_BARTX(6,"I")
  1.  . K BARTX
  1.  . I '(BARC#10) D
  1.  . .K DIR
  1.  . .S DIR(0)="EO"
  1.  . .D ^DIR
  1.  . .K DIR
  1.  . .I X["^" S BARQUIT=1
  1.  . Q
  1.  K BARQUIT,BARC
  1.  W !!
  1.  I 'BARCNT W *7,"No transactions found!",!! D EOP^BARUTL(1) Q 0
  1.  S DIR(0)="NO^1:"_BARCNT
  1.  D ^DIR
  1.  I $D(DUOUT)!('Y) Q 0
  1.  S BARTR=$O(^TMP($J,"BARVL","B",Y,""))
  1.  I BARTR="" W !,"No transactions found! (2)",!! D EOP^BARUTL(1) Q 0 ;P.OTT 77761
  1.  I '$$CKDATE^BARPST($P(^BARTR(DUZ(2),BARTR,0),U,14),1,"SELECT COLLECTION BATCH") Q 0   ;DISALLOW OLD BATCHES; MRS:BAR*1.8*6 DD 4.2.4
  1.  Q BARTR
  1.  ; *********************************************************************
  1.  ;
  1. TOP ; EP
  1.  N J
  1.  D HOME^%ZIS
  1.  I $L($G(^TMP($J,"BARVL","HEAD"))) DO
  1.  . W $$EN^BARVDF("IOF"),!
  1.  . S X=$S($L($G(^TMP($J,"BARVL","HEAD"))):^TMP($J,"BARVL","HEAD"),1:"Transaction List")
  1.  . W ?IOM-$L(X)\2,X
  1.  . W !?IOM-$L(X)\2
  1.  . F J=1:1:$L(X) W "-"
  1.  W !!,"#",?5,"Credit",?15,"Account",?47,"Batch",?76,"Item"
  1.  W !?13,"TRANS DATE",?37,"ALLOW CAT",?51,"TDN",?73,"STATUS"
  1.  W !
  1.  S BARDSH=""
  1.  S $P(BARDSH,"-",80)="" W BARDSH
  1.  ;W !  IHS/SD/SDR bar*1.8*6 DD 4.2.1
  1.  Q  ;********************************************************************
  1.  ;THIS TABLE REPLICATES ^AUTTINTY INSURER TYPE (21 ENTRIES) P.OTT 4/12/2013
  1.  ;AND MAPS INSURER TYPE CODE TO CATEGORY (IE: W --> OTHER)
  1. H ;;PRIVATE INSURANCE;;HMO
  1. M ;;PRIVATE INSURANCE;;MEDICARE SUPPL.
  1. D ;;MEDICAID;;MEDICAID FI
  1. R ;;MEDICARE;;MEDICARE FI
  1. P ;;PRIVATE INSURANCE;;PRIVATE INSURANCE
  1. W ;;OTHER;;WORKMEN'S COMP
  1. C ;;OTHER;;CHAMPUS
  1. N ;;OTHER;;NON-BENEFICIARY (NON-INDIAN)
  1. I ;;OTHER;;INDIAN PATIENT
  1. K ;;MEDICAID;;CHIP (KIDSCARE)
  1. T ;;OTHER;;THIRD PARTY LIABILITY 
  1. G ;;OTHER;;GUARANTOR
  1. MD ;;MEDICARE;;MCR PART D
  1. MH ;;MEDICARE;;MEDICARE HMO
  1. MMC ;;MEDICARE;;MCR MANAGED CARE
  1. TSI ;;OTHER;;TRIBAL SELF INSURED
  1. SEP ;;OTHER;;STATE EXCHANGE PLAN
  1. FPL ;;MEDICAID;;FPL 133 PERCENT
  1. MC ;;MEDICARE;;MCR PART C
  1. F ;;PRIVATE INSURANCE;;FRATERNAL ORGANIZATION
  1. V ;;VETERAN;;VETERANS MEDICAL BENEFITS
  1.   ;;***END OF TABLE**