- ABSPECA4 ; IHS/FCS/DRS - Parse Claim Response ; [ 08/09/2002 11:08 AM ]
- ;;1.0;PHARMACY POINT OF SALE;**3,42**;JUN 21, 2001;Build 38
- ;----------------------------------------------------------------------
- ;----------------------------------------------------------------------
- ;Parse ASCII Response Claim Record and Sup FDATA() Array
- ;
- ;Parameters: RREC - Ascii Response Record
- ; RESPIEN - Claim Response IEN (90023130.3)
- ;----------------------------------------------------------------------
- ; Calls ABSPECA5
- ;
- ;----------------------------------------------------------------------
- ; IHS/SD/lwj 8/6/02 NCPDP 5.1 changes
- ; NCPDP 5.1 response segments are completely different than the
- ; 3.2 response. Of significant importance are:
- ; In 3.2, there were 4 basic repsonse segments (header required,
- ; header option, information required, information optional.)
- ; In 5.1, there are 8 possible segments (header, message, insurance,
- ; status, claim, pricing, DUR/PPS, and prior authorization)
- ;
- ; In 5.1, for all segments following the header, a segment separator
- ; is used.
- ;
- ; In 5.1, field separators, and field identifiers are used for all
- ; fields not appearing on the header segment.
- ;
- ; To adjust to these changes, this routine has been modified. The
- ; first thing we will try to establish is which version of response
- ; we are working with. A new subroutine was created to hold the
- ; 3.2 basic parsing of claim information, and a new routine
- ; (ABSPOSH4) was created to perform the parsing of a 5.1 claim.
- ;----------------------------------------------------------------------
- PARSE(RREC,RESPIEN) ;EP - from ABSPOSQL from ABSPOSQ4
- N GS,FS,RHEADER,RHEADERR,RHEADERO,MEDN,RDATA,RDATAR,RDATAO
- N INDEX,FDATA,ID,XDATA,RINFO
- ;
- ;Make sure input varaibles are defined
- Q:$G(RREC)=""
- Q:$G(RESPIEN)=""
- Q:'$D(^ABSPR(RESPIEN,0))
- ;
- ;group and field separator characters
- S GS=$C(29),FS=$C(28)
- ;
- ; Special handling for what appears to be a corrupt response
- ; from First Health for Alaska Medicaid. It's missing a GS.
- I RREC'[GS D AKMEDFIX
- ;
- ;Parse response header section from ascii record
- S RHEADER=$P(RREC,GS,1)
- S RHEADERR=$P(RHEADER,FS,1)
- ;
- ;IHS/SD/lwj 8/6/02 NCPDP 5.1 changes - begin changes
- ; Need to split out the parsing of 3.2 and 5.1 claims - we will
- ; check the version, and if it is 3.2, we will call the PARSE32
- ; subroutine - if it's 5.1, we will call the ABSPOSH4 routine.
- ;
- S FDATA(102)=$E(RHEADERR,1,2)
- I FDATA(102)[3 D PARSE32
- ;IHS/OIT/CASSEVERN/RAN - 02/10/2011 - Patch 42 -Allows us to parse the response coming back from a D.0 Claim
- I (FDATA(102)[5)!(FDATA(102)["D") D PARSE51^ABSPOSH4(RREC,RESPIEN)
- ;
- ;IHS/SD/lwj 8/6/02 NCPDP 5.1 end changes other than subroutine
- ; PARSE32 tag
- ;
- Q
- ;
- ;
- PARSE32 ;IHS/SD/lwj 8/6/02 NCPDP 5.1 forced the splitting of the parsing -
- ; this subroutine is the original code that will parse 3.2 still
- ;
- S RHEADERO=$P(RHEADER,FS,2)
- ;
- ;Parse required response header fields
- S FDATA(102)=$E(RHEADERR,1,2)
- S FDATA(103)=$E(RHEADERR,3,4)
- S FDATA(501)=$E(RHEADERR,5,5)
- ;
- ; Reversal response: doesn't have the GS, though it does have
- ; some prescription-multiple-type fields. Fake it out.
- ; Right now, this works only for PCS REVERSAL format.
- ; May learn more as other reversals come along.
- I FDATA(103)=11 D PCSREV G AROUND
- ;
- ;Parse optional response header fields
- S FDATA(524)=RHEADERO
- ;
- ;Parse repsonse information section from ascii record
- S RINFO=$P(RREC,GS,2,999)
- ;
- ;Parse response information sections for each medication
- F MEDN=1:1:$L(RINFO,GS) D
- .S RDATA=$P(RINFO,GS,MEDN)
- .S RDATAR=$P(RDATA,FS,1)
- .S RDATAO=$P(RDATA,FS,2,999)
- .;
- .;Parse required response information section
- .S FDATA("M",MEDN,501)=$E(RDATAR,1,1)
- .;
- .;Duplicate claim response information fields
- .I FDATA("M",MEDN,501)="D" D
- ..S FDATA("M",MEDN,1000)=$E(RDATAR,2,85)
- ..; Was it a duplicate Paid or Captured claim?
- ..N X S X=$S($$PAID^ABSPECA7($E(RDATAR,2,85)):"P",1:"C")
- ..S FDATA("M",MEDN,501)="D"_X
- .;
- .;Payable claim response information fields
- .I FDATA("M",MEDN,501)="P"!(FDATA("M",MEDN,501)="DP") D
- ..S FDATA("M",MEDN,505)=$E(RDATAR,2,7)
- ..S FDATA("M",MEDN,506)=$E(RDATAR,8,13)
- ..S FDATA("M",MEDN,507)=$E(RDATAR,14,19)
- ..S FDATA("M",MEDN,508)=$E(RDATAR,20,25)
- ..S FDATA("M",MEDN,509)=$E(RDATAR,26,31)
- ..S FDATA("M",MEDN,503)=$E(RDATAR,32,45)
- ..S FDATA("M",MEDN,504)=$E(RDATAR,46,85)
- .;
- .;Caputured claim response information fields
- .I FDATA("M",MEDN,501)="C"!(FDATA("M",MEDN,501)="DC") D
- ..S FDATA("M",MEDN,503)=$E(RDATAR,2,15)
- ..S FDATA("M",MEDN,504)=$E(RDATAR,16,85)
- .;
- .;Rejected claim response information fields
- .I FDATA("M",MEDN,501)="R" D
- ..S FDATA("M",MEDN,510)=$E(RDATAR,2,3)
- ..S FDATA("M",MEDN,511,1)=$E(RDATAR,4,5)
- ..S FDATA("M",MEDN,511,2)=$E(RDATAR,6,7)
- ..S FDATA("M",MEDN,511,3)=$E(RDATAR,8,9)
- ..S FDATA("M",MEDN,511,4)=$E(RDATAR,10,11)
- ..S FDATA("M",MEDN,511,5)=$E(RDATAR,12,13)
- ..S FDATA("M",MEDN,511,6)=$E(RDATAR,14,15)
- ..S FDATA("M",MEDN,511,7)=$E(RDATAR,16,17)
- ..S FDATA("M",MEDN,511,8)=$E(RDATAR,18,19)
- ..S FDATA("M",MEDN,511,9)=$E(RDATAR,20,21)
- ..S FDATA("M",MEDN,511,10)=$E(RDATAR,22,23)
- ..S FDATA("M",MEDN,511,11)=$E(RDATAR,24,25)
- ..S FDATA("M",MEDN,511,12)=$E(RDATAR,26,27)
- ..S FDATA("M",MEDN,511,13)=$E(RDATAR,28,29)
- ..S FDATA("M",MEDN,511,14)=$E(RDATAR,30,31)
- ..S FDATA("M",MEDN,511,15)=$E(RDATAR,32,33)
- ..S FDATA("M",MEDN,511,16)=$E(RDATAR,34,35)
- ..S FDATA("M",MEDN,511,17)=$E(RDATAR,36,37)
- ..S FDATA("M",MEDN,511,18)=$E(RDATAR,38,39)
- ..S FDATA("M",MEDN,511,19)=$E(RDATAR,40,41)
- ..S FDATA("M",MEDN,511,20)=$E(RDATAR,42,43)
- ..S FDATA("M",MEDN,504)=$E(RDATAR,44,85)
- .;
- .;Parse optional response information section
- .D OPTR(MEDN,RDATAO)
- ;
- AROUND ;
- ;File FDATA() in Claim Response File (9002313.03)
- D FILE^ABSPECA5(RESPIEN)
- Q
- PCSREV ; split off of PCS REVERSAL processing - RHEADER has everything
- ; Make it look like a prescription multiple
- ; It has no GS or FS stuff, so everything is in RHEADERR
- N X S X=RHEADERR
- I FDATA(501)="A" D ; accepted reversal
- .S FDATA("M",1,503)=$E(X,6,19)
- .S FDATA("M",1,504)=$E(X,20,$L(X))
- E I FDATA(501)="R" D ; rejected reversal
- .S FDATA("M",1,510)=$E(X,6,7)
- .N I F I=8:2:26 D
- ..S FDATA("M",1,511,I-8/2+1)=$E(X,I,I+1)
- .S FDATA("M",1,504)=$E(X,28,100)
- E D ; corrupt
- .S FDATA("M",1,504)=X
- S MEDN=1
- Q
- ;---------------------------------------------------------------------
- ;Process Optional Response Information Section
- ;
- ;Parameters: MEDN - Current medication sequence #
- ; RDATAO - Optional response information section
- ;---------------------------------------------------------------------
- OPTR(MEDN,RDATAO) ;
- ;Manage local variables
- N INDEX,ID,XDATA
- ;
- ;Make sure input variables are defined
- Q:$G(MEDN)=""
- Q:$G(RDATAO)=""
- ;
- F INDEX=1:1:$L(RDATAO,FS) D
- .S FDATA=$P(RDATAO,FS,INDEX)
- .Q:FDATA=""
- .;
- .S ID=$E(FDATA,1,2)
- .S XDATA=$E(FDATA,3,$L(FDATA))
- .I ID="F9" S FDATA("M",MEDN,509)=XDATA Q ; PCS 1997 Packet Emulator Test #2 sends Patient Pay Amount here - mistakenly? Let's record it anyhow.
- .I ID="FC" S FDATA("M",MEDN,512)=XDATA Q
- .I ID="FD" S FDATA("M",MEDN,513)=XDATA Q
- .I ID="FE" S FDATA("M",MEDN,514)=XDATA Q
- .I ID="FH" S FDATA("M",MEDN,517)=XDATA Q
- .I ID="FI" S FDATA("M",MEDN,518)=XDATA Q
- .I ID="FJ" S FDATA("M",MEDN,519)=XDATA Q
- .I ID="FK" S FDATA("M",MEDN,520)=XDATA Q
- .I ID="FL" S FDATA("M",MEDN,521)=XDATA Q
- .I ID="FM" S FDATA("M",MEDN,522)=XDATA Q
- .I ID="FN" S FDATA("M",MEDN,523)=XDATA Q
- .I ID="FP" D Q
- . . I XDATA?159" "1N Q ; no DUR data, just the overflow flag
- . . S FDATA("M",MEDN,525)=XDATA
- .I ID="FQ" S FDATA("M",MEDN,526)=XDATA Q
- Q
- AKMEDFIX ; as noted, above ; Alaska Medicaid while sleeping - you get
- ; this corrupt message. May be true of other insurers, too.
- ; This looks like it might be an NDC message.
- ; We'll find out as time goes on.
- ; Here - we make sure that it's one of those packets,
- ; and we insert GS characters so that it parses correctly.
- I $E(RREC,7,21)'="FO R0199" Q
- I $E(RREC,1,5)'?1"3C0"1N1"A" Q
- I $E(RREC,6)'=FS Q
- I $E(RREC,22,59)'?." " Q
- I $E(RREC,60,99)'="PRT010 CARRIER DISABLED -B1ON99CR" Q
- N NPIECES S NPIECES=$L(RREC,"R0199") ; = header + 1 for each claim
- I NPIECES-1'=$E(RREC,4) Q
- ; Length requirement: don't be so strict if it's only one piece
- ; We have seen this packet be 439 bytes on day, but 421 the next
- ; (See ANMC devel. system 9002313.03, `249; 11/04/2000 - 421 bytes.
- ; Compare with `247 from 11/03/2000 - 439 bytes)
- I NPIECES>1,NPIECES-1*423+16'=$L(RREC) Q
- ; Okay, we're pretty sure this is it! Insert the GS characters.
- N X S X=$E(RREC,1,16)
- N I F I=17:423:$L(RREC) S X=X_GS_$E(RREC,I,I+423-1)
- S RREC=X
- Q
- ABSPECA4 ; IHS/FCS/DRS - Parse Claim Response ; [ 08/09/2002 11:08 AM ]
- +1 ;;1.0;PHARMACY POINT OF SALE;**3,42**;JUN 21, 2001;Build 38
- +2 ;----------------------------------------------------------------------
- +3 ;----------------------------------------------------------------------
- +4 ;Parse ASCII Response Claim Record and Sup FDATA() Array
- +5 ;
- +6 ;Parameters: RREC - Ascii Response Record
- +7 ; RESPIEN - Claim Response IEN (90023130.3)
- +8 ;----------------------------------------------------------------------
- +9 ; Calls ABSPECA5
- +10 ;
- +11 ;----------------------------------------------------------------------
- +12 ; IHS/SD/lwj 8/6/02 NCPDP 5.1 changes
- +13 ; NCPDP 5.1 response segments are completely different than the
- +14 ; 3.2 response. Of significant importance are:
- +15 ; In 3.2, there were 4 basic repsonse segments (header required,
- +16 ; header option, information required, information optional.)
- +17 ; In 5.1, there are 8 possible segments (header, message, insurance,
- +18 ; status, claim, pricing, DUR/PPS, and prior authorization)
- +19 ;
- +20 ; In 5.1, for all segments following the header, a segment separator
- +21 ; is used.
- +22 ;
- +23 ; In 5.1, field separators, and field identifiers are used for all
- +24 ; fields not appearing on the header segment.
- +25 ;
- +26 ; To adjust to these changes, this routine has been modified. The
- +27 ; first thing we will try to establish is which version of response
- +28 ; we are working with. A new subroutine was created to hold the
- +29 ; 3.2 basic parsing of claim information, and a new routine
- +30 ; (ABSPOSH4) was created to perform the parsing of a 5.1 claim.
- +31 ;----------------------------------------------------------------------
- PARSE(RREC,RESPIEN) ;EP - from ABSPOSQL from ABSPOSQ4
- +1 NEW GS,FS,RHEADER,RHEADERR,RHEADERO,MEDN,RDATA,RDATAR,RDATAO
- +2 NEW INDEX,FDATA,ID,XDATA,RINFO
- +3 ;
- +4 ;Make sure input varaibles are defined
- +5 IF $GET(RREC)=""
- QUIT
- +6 IF $GET(RESPIEN)=""
- QUIT
- +7 IF '$DATA(^ABSPR(RESPIEN,0))
- QUIT
- +8 ;
- +9 ;group and field separator characters
- +10 SET GS=$CHAR(29)
- SET FS=$CHAR(28)
- +11 ;
- +12 ; Special handling for what appears to be a corrupt response
- +13 ; from First Health for Alaska Medicaid. It's missing a GS.
- +14 IF RREC'[GS
- DO AKMEDFIX
- +15 ;
- +16 ;Parse response header section from ascii record
- +17 SET RHEADER=$PIECE(RREC,GS,1)
- +18 SET RHEADERR=$PIECE(RHEADER,FS,1)
- +19 ;
- +20 ;IHS/SD/lwj 8/6/02 NCPDP 5.1 changes - begin changes
- +21 ; Need to split out the parsing of 3.2 and 5.1 claims - we will
- +22 ; check the version, and if it is 3.2, we will call the PARSE32
- +23 ; subroutine - if it's 5.1, we will call the ABSPOSH4 routine.
- +24 ;
- +25 SET FDATA(102)=$EXTRACT(RHEADERR,1,2)
- +26 IF FDATA(102)[3
- DO PARSE32
- +27 ;IHS/OIT/CASSEVERN/RAN - 02/10/2011 - Patch 42 -Allows us to parse the response coming back from a D.0 Claim
- +28 IF (FDATA(102)[5)!(FDATA(102)["D")
- DO PARSE51^ABSPOSH4(RREC,RESPIEN)
- +29 ;
- +30 ;IHS/SD/lwj 8/6/02 NCPDP 5.1 end changes other than subroutine
- +31 ; PARSE32 tag
- +32 ;
- +33 QUIT
- +34 ;
- +35 ;
- PARSE32 ;IHS/SD/lwj 8/6/02 NCPDP 5.1 forced the splitting of the parsing -
- +1 ; this subroutine is the original code that will parse 3.2 still
- +2 ;
- +3 SET RHEADERO=$PIECE(RHEADER,FS,2)
- +4 ;
- +5 ;Parse required response header fields
- +6 SET FDATA(102)=$EXTRACT(RHEADERR,1,2)
- +7 SET FDATA(103)=$EXTRACT(RHEADERR,3,4)
- +8 SET FDATA(501)=$EXTRACT(RHEADERR,5,5)
- +9 ;
- +10 ; Reversal response: doesn't have the GS, though it does have
- +11 ; some prescription-multiple-type fields. Fake it out.
- +12 ; Right now, this works only for PCS REVERSAL format.
- +13 ; May learn more as other reversals come along.
- +14 IF FDATA(103)=11
- DO PCSREV
- GOTO AROUND
- +15 ;
- +16 ;Parse optional response header fields
- +17 SET FDATA(524)=RHEADERO
- +18 ;
- +19 ;Parse repsonse information section from ascii record
- +20 SET RINFO=$PIECE(RREC,GS,2,999)
- +21 ;
- +22 ;Parse response information sections for each medication
- +23 FOR MEDN=1:1:$LENGTH(RINFO,GS)
- Begin DoDot:1
- +24 SET RDATA=$PIECE(RINFO,GS,MEDN)
- +25 SET RDATAR=$PIECE(RDATA,FS,1)
- +26 SET RDATAO=$PIECE(RDATA,FS,2,999)
- +27 ;
- +28 ;Parse required response information section
- +29 SET FDATA("M",MEDN,501)=$EXTRACT(RDATAR,1,1)
- +30 ;
- +31 ;Duplicate claim response information fields
- +32 IF FDATA("M",MEDN,501)="D"
- Begin DoDot:2
- +33 SET FDATA("M",MEDN,1000)=$EXTRACT(RDATAR,2,85)
- +34 ; Was it a duplicate Paid or Captured claim?
- +35 NEW X
- SET X=$SELECT($$PAID^ABSPECA7($EXTRACT(RDATAR,2,85)):"P",1:"C")
- +36 SET FDATA("M",MEDN,501)="D"_X
- End DoDot:2
- +37 ;
- +38 ;Payable claim response information fields
- +39 IF FDATA("M",MEDN,501)="P"!(FDATA("M",MEDN,501)="DP")
- Begin DoDot:2
- +40 SET FDATA("M",MEDN,505)=$EXTRACT(RDATAR,2,7)
- +41 SET FDATA("M",MEDN,506)=$EXTRACT(RDATAR,8,13)
- +42 SET FDATA("M",MEDN,507)=$EXTRACT(RDATAR,14,19)
- +43 SET FDATA("M",MEDN,508)=$EXTRACT(RDATAR,20,25)
- +44 SET FDATA("M",MEDN,509)=$EXTRACT(RDATAR,26,31)
- +45 SET FDATA("M",MEDN,503)=$EXTRACT(RDATAR,32,45)
- +46 SET FDATA("M",MEDN,504)=$EXTRACT(RDATAR,46,85)
- End DoDot:2
- +47 ;
- +48 ;Caputured claim response information fields
- +49 IF FDATA("M",MEDN,501)="C"!(FDATA("M",MEDN,501)="DC")
- Begin DoDot:2
- +50 SET FDATA("M",MEDN,503)=$EXTRACT(RDATAR,2,15)
- +51 SET FDATA("M",MEDN,504)=$EXTRACT(RDATAR,16,85)
- End DoDot:2
- +52 ;
- +53 ;Rejected claim response information fields
- +54 IF FDATA("M",MEDN,501)="R"
- Begin DoDot:2
- +55 SET FDATA("M",MEDN,510)=$EXTRACT(RDATAR,2,3)
- +56 SET FDATA("M",MEDN,511,1)=$EXTRACT(RDATAR,4,5)
- +57 SET FDATA("M",MEDN,511,2)=$EXTRACT(RDATAR,6,7)
- +58 SET FDATA("M",MEDN,511,3)=$EXTRACT(RDATAR,8,9)
- +59 SET FDATA("M",MEDN,511,4)=$EXTRACT(RDATAR,10,11)
- +60 SET FDATA("M",MEDN,511,5)=$EXTRACT(RDATAR,12,13)
- +61 SET FDATA("M",MEDN,511,6)=$EXTRACT(RDATAR,14,15)
- +62 SET FDATA("M",MEDN,511,7)=$EXTRACT(RDATAR,16,17)
- +63 SET FDATA("M",MEDN,511,8)=$EXTRACT(RDATAR,18,19)
- +64 SET FDATA("M",MEDN,511,9)=$EXTRACT(RDATAR,20,21)
- +65 SET FDATA("M",MEDN,511,10)=$EXTRACT(RDATAR,22,23)
- +66 SET FDATA("M",MEDN,511,11)=$EXTRACT(RDATAR,24,25)
- +67 SET FDATA("M",MEDN,511,12)=$EXTRACT(RDATAR,26,27)
- +68 SET FDATA("M",MEDN,511,13)=$EXTRACT(RDATAR,28,29)
- +69 SET FDATA("M",MEDN,511,14)=$EXTRACT(RDATAR,30,31)
- +70 SET FDATA("M",MEDN,511,15)=$EXTRACT(RDATAR,32,33)
- +71 SET FDATA("M",MEDN,511,16)=$EXTRACT(RDATAR,34,35)
- +72 SET FDATA("M",MEDN,511,17)=$EXTRACT(RDATAR,36,37)
- +73 SET FDATA("M",MEDN,511,18)=$EXTRACT(RDATAR,38,39)
- +74 SET FDATA("M",MEDN,511,19)=$EXTRACT(RDATAR,40,41)
- +75 SET FDATA("M",MEDN,511,20)=$EXTRACT(RDATAR,42,43)
- +76 SET FDATA("M",MEDN,504)=$EXTRACT(RDATAR,44,85)
- End DoDot:2
- +77 ;
- +78 ;Parse optional response information section
- +79 DO OPTR(MEDN,RDATAO)
- End DoDot:1
- +80 ;
- AROUND ;
- +1 ;File FDATA() in Claim Response File (9002313.03)
- +2 DO FILE^ABSPECA5(RESPIEN)
- +3 QUIT
- PCSREV ; split off of PCS REVERSAL processing - RHEADER has everything
- +1 ; Make it look like a prescription multiple
- +2 ; It has no GS or FS stuff, so everything is in RHEADERR
- +3 NEW X
- SET X=RHEADERR
- +4 ; accepted reversal
- IF FDATA(501)="A"
- Begin DoDot:1
- +5 SET FDATA("M",1,503)=$EXTRACT(X,6,19)
- +6 SET FDATA("M",1,504)=$EXTRACT(X,20,$LENGTH(X))
- End DoDot:1
- +7 ; rejected reversal
- IF '$TEST
- IF FDATA(501)="R"
- Begin DoDot:1
- +8 SET FDATA("M",1,510)=$EXTRACT(X,6,7)
- +9 NEW I
- FOR I=8:2:26
- Begin DoDot:2
- +10 SET FDATA("M",1,511,I-8/2+1)=$EXTRACT(X,I,I+1)
- End DoDot:2
- +11 SET FDATA("M",1,504)=$EXTRACT(X,28,100)
- End DoDot:1
- +12 ; corrupt
- IF '$TEST
- Begin DoDot:1
- +13 SET FDATA("M",1,504)=X
- End DoDot:1
- +14 SET MEDN=1
- +15 QUIT
- +16 ;---------------------------------------------------------------------
- +17 ;Process Optional Response Information Section
- +18 ;
- +19 ;Parameters: MEDN - Current medication sequence #
- +20 ; RDATAO - Optional response information section
- +21 ;---------------------------------------------------------------------
- OPTR(MEDN,RDATAO) ;
- +1 ;Manage local variables
- +2 NEW INDEX,ID,XDATA
- +3 ;
- +4 ;Make sure input variables are defined
- +5 IF $GET(MEDN)=""
- QUIT
- +6 IF $GET(RDATAO)=""
- QUIT
- +7 ;
- +8 FOR INDEX=1:1:$LENGTH(RDATAO,FS)
- Begin DoDot:1
- +9 SET FDATA=$PIECE(RDATAO,FS,INDEX)
- +10 IF FDATA=""
- QUIT
- +11 ;
- +12 SET ID=$EXTRACT(FDATA,1,2)
- +13 SET XDATA=$EXTRACT(FDATA,3,$LENGTH(FDATA))
- +14 ; PCS 1997 Packet Emulator Test #2 sends Patient Pay Amount here - mistakenly? Let's record it anyhow.
- IF ID="F9"
- SET FDATA("M",MEDN,509)=XDATA
- QUIT
- +15 IF ID="FC"
- SET FDATA("M",MEDN,512)=XDATA
- QUIT
- +16 IF ID="FD"
- SET FDATA("M",MEDN,513)=XDATA
- QUIT
- +17 IF ID="FE"
- SET FDATA("M",MEDN,514)=XDATA
- QUIT
- +18 IF ID="FH"
- SET FDATA("M",MEDN,517)=XDATA
- QUIT
- +19 IF ID="FI"
- SET FDATA("M",MEDN,518)=XDATA
- QUIT
- +20 IF ID="FJ"
- SET FDATA("M",MEDN,519)=XDATA
- QUIT
- +21 IF ID="FK"
- SET FDATA("M",MEDN,520)=XDATA
- QUIT
- +22 IF ID="FL"
- SET FDATA("M",MEDN,521)=XDATA
- QUIT
- +23 IF ID="FM"
- SET FDATA("M",MEDN,522)=XDATA
- QUIT
- +24 IF ID="FN"
- SET FDATA("M",MEDN,523)=XDATA
- QUIT
- +25 IF ID="FP"
- Begin DoDot:2
- +26 ; no DUR data, just the overflow flag
- IF XDATA?159" "1N
- QUIT
- +27 SET FDATA("M",MEDN,525)=XDATA
- End DoDot:2
- QUIT
- +28 IF ID="FQ"
- SET FDATA("M",MEDN,526)=XDATA
- QUIT
- End DoDot:1
- +29 QUIT
- AKMEDFIX ; as noted, above ; Alaska Medicaid while sleeping - you get
- +1 ; this corrupt message. May be true of other insurers, too.
- +2 ; This looks like it might be an NDC message.
- +3 ; We'll find out as time goes on.
- +4 ; Here - we make sure that it's one of those packets,
- +5 ; and we insert GS characters so that it parses correctly.
- +6 IF $EXTRACT(RREC,7,21)'="FO R0199"
- QUIT
- +7 IF $EXTRACT(RREC,1,5)'?1"3C0"1N1"A"
- QUIT
- +8 IF $EXTRACT(RREC,6)'=FS
- QUIT
- +9 IF $EXTRACT(RREC,22,59)'?." "
- QUIT
- +10 IF $EXTRACT(RREC,60,99)'="PRT010 CARRIER DISABLED -B1ON99CR"
- QUIT
- +11 ; = header + 1 for each claim
- NEW NPIECES
- SET NPIECES=$LENGTH(RREC,"R0199")
- +12 IF NPIECES-1'=$EXTRACT(RREC,4)
- QUIT
- +13 ; Length requirement: don't be so strict if it's only one piece
- +14 ; We have seen this packet be 439 bytes on day, but 421 the next
- +15 ; (See ANMC devel. system 9002313.03, `249; 11/04/2000 - 421 bytes.
- +16 ; Compare with `247 from 11/03/2000 - 439 bytes)
- +17 IF NPIECES>1
- IF NPIECES-1*423+16'=$LENGTH(RREC)
- QUIT
- +18 ; Okay, we're pretty sure this is it! Insert the GS characters.
- +19 NEW X
- SET X=$EXTRACT(RREC,1,16)
- +20 NEW I
- FOR I=17:423:$LENGTH(RREC)
- SET X=X_GS_$EXTRACT(RREC,I,I+423-1)
- +21 SET RREC=X
- +22 QUIT
