- BAREDIT ; IHS/SD/LSL - CREATE ENTRY IN A/R EDI TRANSPORT FILE (1) ;
- ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- ;
- ; IHS/SD/LSL - 08/01/2002 - V1.7 Patch 4
- ; For HIPAA compliance. Make 835 v4010 entry in A/R EDI
- ; TRANSPORT FILE.
- ;
- ; *********************************************************************
- ;
- ; If running this routine for to create new transports, inside the
- ; code please change the initial values of the following variables:
- ;
- ; BARNAME Name of EDI transport adding
- ; BARSEPCD Line tag|routine containing code to determine
- ; seperators
- ; BARTABLE Data Type for table elements
- ; BARPRVST Provider Beginning segment
- ; BARPRVEN Provider Ending segment
- ; BARTRAIL Trailer beginning segment
- ;
- ; *********************************************************************
- START ; EP
- D INIT ; Initialize variables
- I $D(^BAREDI("1T","B","HIPAA 835 v4010")) D Q
- . W !!,"HIPAA 835 v4010 Transport already exists"
- . D XIT
- ; Create new entry ^BAREDI("1T",
- I '$D(^BAREDI("1T","B","HIPAA 835 v4010")) D ENTRY
- I '+$G(BAREDITR) D Q ; Entry creation failed
- . W !!,"EDI TRANSPORT ENTRY NOT CREATED"
- . D XIT
- . Q
- D SEGMENT^BAREDIT2 ; Create Segment Table (and element)
- D VARPROC ; Create Variable Processing Table
- D UPDTAB ; Update EDI table entries
- D XIT
- Q
- ; *********************************************************************
- INIT ;
- ; Initialize variables
- S BARNAME="HIPAA 835 v4010" ; Name of transport
- S BARSEPCD="SEP|BAREDPA1(IMPDA)" ; Code identifying seg,etc seperator
- S BARTABLE="ID" ; Data Type for table elements
- S BARPRVST="LX" ; Provider Beginning segment
- S BARPRVEN="CLP" ; Provider Ending segment
- S BARTRAIL="SE" ; Trailer beginning segment
- S BARDELIM=";;" ; Delimeter (FM doesn't like "" in DR string)
- Q
- ; *********************************************************************
- ENTRY ;
- ; Create entry in A/R EDI TRANSPORT File
- S DIC="^BAREDI(""1T"","
- S DIC(0)="LZ"
- S X=BARNAME
- S DIC("DR")=".02///^S X=BARSEPCD"
- S DIC("DR")=DIC("DR")_";.03///^S X=BARTABLE"
- S DIC("DR")=DIC("DR")_";.04///^S X=BARPRVST"
- S DIC("DR")=DIC("DR")_";.05///^S X=BARPRVEN"
- S DIC("DR")=DIC("DR")_";.06///^S X=BARTRAIL"
- K DD,DO
- D FILE^DICN
- Q:Y<0
- S BAREDITR=+Y
- Q
- ; *********************************************************************
- VARPROC ;
- ; Create entries in VARIABLE PROCESSING multiple of A/R EDI TRANSPORT
- S BARVCNT=0
- F D VARPROC2 Q:BARVP="END"
- Q
- ; *********************************************************************
- VARPROC2 ;
- S BARVCNT=BARVCNT+1
- S BARVP=$P($T(@1+BARVCNT),";;",2,3)
- Q:BARVP="END"
- D VARPROC3
- Q
- ; *********************************************************************
- VARPROC3 ;
- K DA,DIC,X,Y
- S DA(1)=BAREDITR
- S DIC="^BAREDI(""1T"","_DA(1)_",70,"
- S DIC(0)="LZ"
- S DIC("P")=$P(^DD(90056.01,70,0),U,2)
- S X=$P(BARVP,BARDELIM)
- S DIC("DR")=".02///^S X=$P(BARVP,BARDELIM,2)"
- K DD,DO
- D FILE^DICN
- Q
- ; *********************************************************************
- ;
- UPDTAB ;
- ; Update processing routine in A/R EDI TABLES
- K DIE,DR,DA
- S DIE="^BARETBL("
- S DA=33
- S DR=".03///D CLMADJCD|BAREDP02"
- D ^DIE
- K DA,DR
- S DA=34
- S DR=".03///D RMKCODE|BAREDP02"
- D ^DIE
- K DA,DR,DIE
- Q
- ; ********************************************************************
- XIT ;
- D ^BARVKL0
- Q
- ; *********************************************************************
- 1 ;;VARIABLE;;ROUTINE
- ;;VCLMDATE;;CLMDATE|BAREDPA1
- ;;VADJAMT;;ADJAMT|BAREDPA1
- ;;VBILNUM;;BILNUM|BAREDPA1
- ;;VPRCONBR;;VPRCNTCT|BAREDPA1
- ;;VCHECK;;HIPAACHK|BAREDPA1
- ;;VPAYEE;;PAY|BAREDPA1
- ;;VPATHIC;;PATIENT|BAREDPA1
- ;;END
- BAREDIT ; IHS/SD/LSL - CREATE ENTRY IN A/R EDI TRANSPORT FILE (1) ;
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- +2 ;
- +3 ; IHS/SD/LSL - 08/01/2002 - V1.7 Patch 4
- +4 ; For HIPAA compliance. Make 835 v4010 entry in A/R EDI
- +5 ; TRANSPORT FILE.
- +6 ;
- +7 ; *********************************************************************
- +8 ;
- +9 ; If running this routine for to create new transports, inside the
- +10 ; code please change the initial values of the following variables:
- +11 ;
- +12 ; BARNAME Name of EDI transport adding
- +13 ; BARSEPCD Line tag|routine containing code to determine
- +14 ; seperators
- +15 ; BARTABLE Data Type for table elements
- +16 ; BARPRVST Provider Beginning segment
- +17 ; BARPRVEN Provider Ending segment
- +18 ; BARTRAIL Trailer beginning segment
- +19 ;
- +20 ; *********************************************************************
- START ; EP
- +1 ; Initialize variables
- DO INIT
- +2 IF $DATA(^BAREDI("1T","B","HIPAA 835 v4010"))
- Begin DoDot:1
- +3 WRITE !!,"HIPAA 835 v4010 Transport already exists"
- +4 DO XIT
- End DoDot:1
- QUIT
- +5 ; Create new entry ^BAREDI("1T",
- +6 IF '$DATA(^BAREDI("1T","B","HIPAA 835 v4010"))
- DO ENTRY
- +7 ; Entry creation failed
- IF '+$GET(BAREDITR)
- Begin DoDot:1
- +8 WRITE !!,"EDI TRANSPORT ENTRY NOT CREATED"
- +9 DO XIT
- +10 QUIT
- End DoDot:1
- QUIT
- +11 ; Create Segment Table (and element)
- DO SEGMENT^BAREDIT2
- +12 ; Create Variable Processing Table
- DO VARPROC
- +13 ; Update EDI table entries
- DO UPDTAB
- +14 DO XIT
- +15 QUIT
- +16 ; *********************************************************************
- INIT ;
- +1 ; Initialize variables
- +2 ; Name of transport
- SET BARNAME="HIPAA 835 v4010"
- +3 ; Code identifying seg,etc seperator
- SET BARSEPCD="SEP|BAREDPA1(IMPDA)"
- +4 ; Data Type for table elements
- SET BARTABLE="ID"
- +5 ; Provider Beginning segment
- SET BARPRVST="LX"
- +6 ; Provider Ending segment
- SET BARPRVEN="CLP"
- +7 ; Trailer beginning segment
- SET BARTRAIL="SE"
- +8 ; Delimeter (FM doesn't like "" in DR string)
- SET BARDELIM=";;"
- +9 QUIT
- +10 ; *********************************************************************
- ENTRY ;
- +1 ; Create entry in A/R EDI TRANSPORT File
- +2 SET DIC="^BAREDI(""1T"","
- +3 SET DIC(0)="LZ"
- +4 SET X=BARNAME
- +5 SET DIC("DR")=".02///^S X=BARSEPCD"
- +6 SET DIC("DR")=DIC("DR")_";.03///^S X=BARTABLE"
- +7 SET DIC("DR")=DIC("DR")_";.04///^S X=BARPRVST"
- +8 SET DIC("DR")=DIC("DR")_";.05///^S X=BARPRVEN"
- +9 SET DIC("DR")=DIC("DR")_";.06///^S X=BARTRAIL"
- +10 KILL DD,DO
- +11 DO FILE^DICN
- +12 IF Y<0
- QUIT
- +13 SET BAREDITR=+Y
- +14 QUIT
- +15 ; *********************************************************************
- VARPROC ;
- +1 ; Create entries in VARIABLE PROCESSING multiple of A/R EDI TRANSPORT
- +2 SET BARVCNT=0
- +3 FOR
- DO VARPROC2
- IF BARVP="END"
- QUIT
- +4 QUIT
- +5 ; *********************************************************************
- VARPROC2 ;
- +1 SET BARVCNT=BARVCNT+1
- +2 SET BARVP=$PIECE($TEXT(@1+BARVCNT),";;",2,3)
- +3 IF BARVP="END"
- QUIT
- +4 DO VARPROC3
- +5 QUIT
- +6 ; *********************************************************************
- VARPROC3 ;
- +1 KILL DA,DIC,X,Y
- +2 SET DA(1)=BAREDITR
- +3 SET DIC="^BAREDI(""1T"","_DA(1)_",70,"
- +4 SET DIC(0)="LZ"
- +5 SET DIC("P")=$PIECE(^DD(90056.01,70,0),U,2)
- +6 SET X=$PIECE(BARVP,BARDELIM)
- +7 SET DIC("DR")=".02///^S X=$P(BARVP,BARDELIM,2)"
- +8 KILL DD,DO
- +9 DO FILE^DICN
- +10 QUIT
- +11 ; *********************************************************************
- +12 ;
- UPDTAB ;
- +1 ; Update processing routine in A/R EDI TABLES
- +2 KILL DIE,DR,DA
- +3 SET DIE="^BARETBL("
- +4 SET DA=33
- +5 SET DR=".03///D CLMADJCD|BAREDP02"
- +6 DO ^DIE
- +7 KILL DA,DR
- +8 SET DA=34
- +9 SET DR=".03///D RMKCODE|BAREDP02"
- +10 DO ^DIE
- +11 KILL DA,DR,DIE
- +12 QUIT
- +13 ; ********************************************************************
- XIT ;
- +1 DO ^BARVKL0
- +2 QUIT
- +3 ; *********************************************************************
- 1 ;;VARIABLE;;ROUTINE
- +1 ;;VCLMDATE;;CLMDATE|BAREDPA1
- +2 ;;VADJAMT;;ADJAMT|BAREDPA1
- +3 ;;VBILNUM;;BILNUM|BAREDPA1
- +4 ;;VPRCONBR;;VPRCNTCT|BAREDPA1
- +5 ;;VCHECK;;HIPAACHK|BAREDPA1
- +6 ;;VPAYEE;;PAY|BAREDPA1
- +7 ;;VPATHIC;;PATIENT|BAREDPA1
- +8 ;;END
