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

BARDMV.m

Go to the documentation of this file. 
  1. BARDMV ;IHS/OIT/FCJ - VAR DESCRIPTION FOR DEBT MANAGEMENT
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;**22**;OCT 26, 2005;Build 38
  1.  ;New routine 5-12-2011 for Debt Letter Management
  1.  ;
  1.  ;PARAMETERS
  1.  ;BARPSDI=START DATE INTERNAL FORMAT
  1.  ;BARPLDX=START DATE EXTERNAL FORMAT
  1.  ;BARPWO=WRITE OFF
  1.  ;BARPNPI=NPI LOCATION OR PROVIDER
  1.  ;BARPDOB=DOB YES OR NO
  1.  ;BARPCL(1)=LETTER 1
  1.  ;BARPCD(1)=CYCLE DAYS
  1.  ;BARPCP(1)=CYCLE POINTER
  1.  ;BARPCL(2)=LETTER 2
  1.  ;BARPCD(2)=CYCLE DAYS
  1.  ;BARPCP(2)=CYCLE POINTER
  1.  ;BARPCL(3)=LETTER 3
  1.  ;BARPCD(3)=CYCLE DAYS
  1.  ;BARPCP(3)=CYCLE POINTER
  1.  ;BARPCL(4)=LETTER 4
  1.  ;BARPCD(4)=CYCLE DAYS
  1.  ;BARPCP(4)=CYCLE POINTER
  1.  ;BARDMDT=CYCLE ONE DATE
  1.  ;BARDRDT=RUN DATE
  1.  ;BARPMX=MAX LETTERS TO PRINT
  1. INSTYP ;ACCOUNT .01 VAR POINTER;GLOBAL
  1.  ; BARDACI ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";") ;ACCT .01 VAR POINTER
  1.  ; BARDACG ;$P($P(^BARAC(DUZ(2),BARDAC,0),U),";",2) ;ACCT .01 VAR GLB
  1.  ; BARDIT=INS TYPE
  1.  ; BARDACG="AUTNINS(" S BARDITY=$P(^AUTNINS(BARDACI,2),U,1),BARDIT=$$VAL^XBDIQ1(9999999.18,BARDACI,.21)
  1.  ; BARDIT=$S(BARDACG="VA(":"NEW PERSON",BARDACG="AUPNPAT(":"PATIENT","AUTTVNDR(":"VENDOR",1:"OTHER")
  1.   ;BARDMC=CYCLE IEN
  1.   ;BARDM=BILL IEN FROM DEBT MAN FILE
  1.   ;BARAMTB=BILL AMT
  1.   ;BARDAC=ACCOUNT
  1.   ;BARAMTO=BILL AMT OUTSTANDING
  1.   ;BARBILN=BILL NUMBER