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

BAREDIT4.m

Go to the documentation of this file. 
  1. BAREDIT4 ; IHS/SD/LSL - CREATE AN ENTRY IN A/R EDI TRANSPORT FILE (4) ; 
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
  1.  ;
  1.  ; IHS/SD/LSL - 08/14/2002 - V1.7 Patch 4
  1.  ;     For HIPAA compliance.  Make 835 v4010 entry in A/R EDI
  1.  ;     TRANSPORT FILE.  This routine defines the Sub - elements
  1.  ;     or composite elements.
  1.  ;
  1.  ; ********************************************************************
  1.  Q
  1.  ; ********************************************************************
  1. SUBELM ; EP
  1.  ; Create Sub-element Multiple w/in Element Multiple w/in Segment
  1.  ; Multiple in A/R EDI TRANSPORT
  1.  S BARSECNT=0
  1.  F  D SUBELM2  Q:BARSUBE="END"
  1.  Q
  1.  ; ********************************************************************
  1. SUBELM2 ;
  1.  ; Loop Sub-elements
  1.  S BARSECNT=BARSECNT+1
  1.  S BARSUBE=$P($T(@BARELID+BARSECNT),BARDELIM,2,10)
  1.  Q:BARSUBE="END"
  1.  D SUBELM3
  1.  Q
  1.  ; ********************************************************************
  1. SUBELM3 ;
  1.  ; Create Segment multiple entry in A/R EDI TRANSPORT File
  1.  K DA,DIC,X,Y
  1.  S DA(3)=BAREDITR
  1.  S DA(2)=BARSEGDA
  1.  S DA(1)=BARELDA
  1.  S DIC="^BAREDI(""1T"","_DA(3)_",10,"_DA(2)_",10,"_DA(1)_",10,"
  1.  S DIC(0)="LZ"
  1.  S DIC("P")=$P(^DD(90056.0102,10,0),U,2)
  1.  S X=$P(BARSUBE,BARDELIM)
  1.  S DIC("DR")=".02///^S X=$P(BARSUBE,BARDELIM,2)"
  1.  S DIC("DR")=DIC("DR")_";.03///^S X=$P(BARSUBE,BARDELIM,3)"
  1.  S:$P(BARSUBE,BARDELIM,4)]"" DIC("DR")=DIC("DR")_";.04///^S X=$P(BARSUBE,BARDELIM,4)"
  1.  S:$P(BARSUBE,BARDELIM,5)]"" DIC("DR")=DIC("DR")_";.05///^S X=$P(BARSUBE,BARDELIM,5)"
  1.  S:$P(BARSUBE,BARDELIM,6)]"" DIC("DR")=DIC("DR")_";.06///^S X=$P(BARSUBE,BARDELIM,6)"
  1.  S:$P(BARSUBE,BARDELIM,8)]"" DIC("DR")=DIC("DR")_";.08///^S X=$P(BARSUBE,BARDELIM,8)"
  1.  S:$P(BARSUBE,BARDELIM,9)]"" DIC("DR")=DIC("DR")_";.09///^S X=$P(BARSUBE,BARDELIM,9)"
  1.  K DD,DO
  1.  D FILE^DICN
  1.  Q:+Y<0
  1.  S BARSEDA=+Y
  1.  Q
  1.  ; ********************************************************************
  1.  ; The following is a table of sub-elements per Segment_element.  For
  1.  ; example, if segment SVC element SVC01 is composite, the sub-element
  1.  ; definitions can be found under linetag 231 (seg cnt 23_elem cnt 1)
  1.  ; ********************************************************************
  1.  ;;SUBELEM;;DESC;;SEQ;;DATA TYPE;;MIN;;MAX;;PATH;;PST ELEM;;EDI TBL PTR
  1.  ; ********************************************************************
  1. SVC01 ;;
  1.  ;;SVC01-1;;Product/Service ID Qualifier;;1;;ID;;2;;2;;;;;;31
  1.  ;;SVC01-2;;Product/Service ID;;2;;AN;;1;;48
  1.  ;;SVC01-3;;Procedure Modifier;;3;;AN;;2;;2
  1.  ;;SVC01-4;;Procedure Modifier;;4;;AN;;2;;2
  1.  ;;SVC01-5;;Procedure Modifier;;5;;AN;;2;;2
  1.  ;;SVC01-6;;Procedure Modifier;;6;;AN;;2;;2
  1.  ;;SVC01-7;;Description;;7;;AN;;1;;80
  1.  ;;END
  1. SVC06 ;;
  1.  ;;SVC06-1;;Product/Service ID Qualifier;;1;;ID;;2;;2;;;;;;31
  1.  ;;SVC06-2;;Product/Service ID;;2;;AN;;1;;48
  1.  ;;SVC06-3;;Procedure Modifier;;3;;AN;;2;;2
  1.  ;;SVC06-4;;Procedure Modifier;;4;;AN;;2;;2
  1.  ;;SVC06-5;;Procedure Modifier;;5;;AN;;2;;2
  1.  ;;SVC06-6;;Procedure Modifier;;6;;AN;;2;;2
  1.  ;;SVC06-7;;Description;;7;;AN;;1;;80
  1.  ;;END
  1. PLB03 ;;
  1.  ;;PLB03-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB03-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END
  1. PLB05 ;;
  1.  ;;PLB05-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB05-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END
  1. PLB07 ;;
  1.  ;;PLB07-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB07-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END
  1. PLB09 ;;
  1.  ;;PLB09-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB09-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END
  1. PLB11 ;;
  1.  ;;PLB11-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB11-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END
  1. PLB13 ;;
  1.  ;;PLB13-1;;Adjustment Reason Code;;1;;ID;;2;;2;;;;;;32
  1.  ;;PLB13-2;;Provider Adjustment Modifier;;2;;AN;;1;;30
  1.  ;;END