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

ABME8PRV.m

Go to the documentation of this file.
  1. ABME8PRV ; IHS/ASDST/DMJ - 837 PRV Segment
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;Provider Information
  1. ;
  1. ; IHS/SD/SDR - v2.5 p5 - 5/17/04 - Added code for referring provider
  1. ; from page 3
  1. ;
  1. ; IHS/SD/SDR - v2.5 p10 - IM17482
  1. ; Added code to not print PRV if site parameter is on
  1. ;
  1. EP(X,Y) ;EP - START HERE
  1. ;x=type
  1. ;y=ien
  1. I $G(^ABMDPARM(DUZ(2),1,19,ABMP("INS"),0))'="" S ABMR("PRV")="",ABMREC("PRV")="" Q
  1. I +Y=0 S Y=$P(ABMP("PRV","F",Y),"^",2)
  1. K ABMREC("PRV"),ABMR("PRV")
  1. S ABMPRVC=X
  1. S ABME("RTYPE")="PRV"
  1. D LOOP
  1. K ABME
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:70 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
  1. .I $G(ABMREC("PRV"))'="" S ABMREC("PRV")=ABMREC("PRV")_"*"
  1. .S ABMREC("PRV")=$G(ABMREC("PRV"))_ABMR("PRV",I)
  1. Q
  1. 10 ;segment
  1. S ABMR("PRV",10)="PRV"
  1. Q
  1. 20 ;PRV01 - Provider Code
  1. S ABMR("PRV",20)=ABMPRVC
  1. Q
  1. 30 ;PRV02 - Reference Identification Qualifier
  1. S ABMR("PRV",30)="ZZ"
  1. Q
  1. 40 ;PRV03 - Reference Identification
  1. S ABMR("PRV",40)=""
  1. I "AT^SU^OP^OY^PE^RF"[ABMPRVC D
  1. .S ABMR("PRV",40)=$$PTAX^ABMEEPRV(Y)
  1. I ABMPRVC="BI" D
  1. .S ABMR("PRV",40)=$$PTAX^ABMUTLF(DUZ(2))
  1. .I ABMP("VTYP")=831 S ABMR("PRV",40)="261QA1903X"
  1. I ABMPRVC="PT" D
  1. .S ABMR("PRV",40)=$$PTAX^ABMUTLF(ABMP("PAYDFN"))
  1. I ABMPRVC="RP" D
  1. .S ABMR("PRV",40)=$$PTAX^ABMUTLF(ABMP("LDFN"))
  1. Q
  1. 50 ;PRV04 - State or Province Code
  1. S ABMR("PRV",50)=""
  1. Q
  1. 60 ;PRV05 - Provider Specialty Information
  1. S ABMR("PRV",60)=""
  1. Q
  1. 70 ;PRV06 - Provider Organization Code
  1. S ABMR("PRV",70)=""
  1. Q