Routine: BARDMV

Information

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

Source file <BARDMV.m>

Name	Comments	DBIA/ICR reference
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")