BARDMV.m

BARDMV ;IHS/OIT/FCJ - VAR DESCRIPTION FOR DEBT MANAGEMENT

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**22**;OCT 26, 2005;Build 38

 ;New routine 5-12-2011 for Debt Letter Management

 ;

 ;PARAMETERS

 ;BARPSDI=START DATE INTERNAL FORMAT

 ;BARPLDX=START DATE EXTERNAL FORMAT

 ;BARPWO=WRITE OFF

 ;BARPNPI=NPI LOCATION OR PROVIDER

 ;BARPDOB=DOB YES OR NO

 ;BARPCL(1)=LETTER 1

 ;BARPCD(1)=CYCLE DAYS

 ;BARPCP(1)=CYCLE POINTER

 ;BARPCL(2)=LETTER 2

 ;BARPCD(2)=CYCLE DAYS

 ;BARPCP(2)=CYCLE POINTER

 ;BARPCL(3)=LETTER 3

 ;BARPCD(3)=CYCLE DAYS

 ;BARPCP(3)=CYCLE POINTER

 ;BARPCL(4)=LETTER 4

 ;BARPCD(4)=CYCLE DAYS

 ;BARPCP(4)=CYCLE POINTER

 ;BARDMDT=CYCLE ONE DATE

 ;BARDRDT=RUN DATE

 ;BARPMX=MAX LETTERS TO PRINT

INSTYP ;ACCOUNT .01 VAR POINTER;GLOBAL

 ; BARDACI ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";") ;ACCT .01 VAR POINTER

 ; BARDACG ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";",2) ;ACCT .01 VAR GLB

 ; BARDIT=INS TYPE

 ; BARDACG="AUTNINS(" S BARDITY=$P(^AUTNINS(BARDACI,2),U,1),BARDIT=$$VAL^XBDIQ1(9999999.18,BARDACI,.21)

 ; BARDIT=$S(BARDACG="VA(":"NEW PERSON",BARDACG="AUPNPAT(":"PATIENT","AUTTVNDR(":"VENDOR",1:"OTHER")

  ;BARDMC=CYCLE IEN

  ;BARDM=BILL IEN FROM DEBT MAN FILE

  ;BARAMTB=BILL AMT

  ;BARDAC=ACCOUNT

  ;BARAMTO=BILL AMT OUTSTANDING

  ;BARBILN=BILL NUMBER 

BARDMV    ;IHS/OIT/FCJ - VAR DESCRIPTION FOR DEBT MANAGEMENT

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**22**;OCT 26, 2005;Build 38

 +2       ;New routine 5-12-2011 for Debt Letter Management

 +3       ;

 +4       ;PARAMETERS

 +5       ;BARPSDI=START DATE INTERNAL FORMAT

 +6       ;BARPLDX=START DATE EXTERNAL FORMAT

 +7       ;BARPWO=WRITE OFF

 +8       ;BARPNPI=NPI LOCATION OR PROVIDER

 +9       ;BARPDOB=DOB YES OR NO

 +10      ;BARPCL(1)=LETTER 1

 +11      ;BARPCD(1)=CYCLE DAYS

 +12      ;BARPCP(1)=CYCLE POINTER

 +13      ;BARPCL(2)=LETTER 2

 +14      ;BARPCD(2)=CYCLE DAYS

 +15      ;BARPCP(2)=CYCLE POINTER

 +16      ;BARPCL(3)=LETTER 3

 +17      ;BARPCD(3)=CYCLE DAYS

 +18      ;BARPCP(3)=CYCLE POINTER

 +19      ;BARPCL(4)=LETTER 4

 +20      ;BARPCD(4)=CYCLE DAYS

 +21      ;BARPCP(4)=CYCLE POINTER

 +22      ;BARDMDT=CYCLE ONE DATE

 +23      ;BARDRDT=RUN DATE

 +24      ;BARPMX=MAX LETTERS TO PRINT

INSTYP    ;ACCOUNT .01 VAR POINTER;GLOBAL

 +1       ; BARDACI ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";") ;ACCT .01 VAR POINTER

 +2       ; BARDACG ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";",2) ;ACCT .01 VAR GLB

 +3       ; BARDIT=INS TYPE

 +4       ; BARDACG="AUTNINS(" S BARDITY=$P(^AUTNINS(BARDACI,2),U,1),BARDIT=$$VAL^XBDIQ1(9999999.18,BARDACI,.21)

 +5       ; BARDIT=$S(BARDACG="VA(":"NEW PERSON",BARDACG="AUPNPAT(":"PATIENT","AUTTVNDR(":"VENDOR",1:"OTHER")

 +6       ;BARDMC=CYCLE IEN

 +7       ;BARDM=BILL IEN FROM DEBT MAN FILE

 +8       ;BARAMTB=BILL AMT

 +9       ;BARDAC=ACCOUNT

 +10      ;BARAMTO=BILL AMT OUTSTANDING

 +11      ;BARBILN=BILL NUMBER