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

ABSPDB1A.m

Go to the documentation of this file.
  1. ABSPDB1A ; IHS/OIT/CASSevern/Pieran ran 1/19/2011 - Handling of outgoing NCPDP Billing "B1" Claims for D.0 (Claim Segment)
  1. ;;1.0;PHARMACY POINT OF SALE;**42,46**;JUN 21, 2001;Build 38
  1. ;
  1. CLAIM ;EP CALLED FROM ABSPDB1 to set up CLAIM SEGMENT
  1. N FIELD
  1. S RECORD=$G(RECORD)
  1. F FIELD="111",455,402,436,407,456,457,458,459,442,403,405,406,408,414,415,419,354,42001,42002,42003,308,429,453,445,446,454,600,418,461,462,463,464,343,344,345,357,391,995,996,147 D
  1. . Q:$D(SUPRESF(FIELD))
  1. . I (ACTION["CLAIM"),(FIELD'=111) D
  1. . . D @(FIELD_"GET")
  1. . . D @(FIELD_"FMT")
  1. . . D @(FIELD_"SET")
  1. . ELSE D APPEND(FIELD)
  1. Q
  1. ;Segment identifier
  1. 111GET S ABSP("X")="07"
  1. Q
  1. 111FMT S:ABSP("X")'="" ABSP("X")=$$ANFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 111SET ;This isn't used for the 111 Field
  1. Q
  1. ;Presc Srv Ref Qualifier
  1. 455GET I '$D(SPECIAL(455)) S ABSP("X")=1 ;In D.0 Value is always 1 on Billing Transaction
  1. ELSE X SPECIAL(455)
  1. Q
  1. 455FMT S:ABSP("X")'="" ABSP("X")="EM"_$$ANFF^ABSPECFM(ABSP("X"),1)
  1. Q
  1. 455SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,5)=ABSP("X")
  1. Q
  1. ;Presc Srv Ref Number
  1. 402GET I '$D(SPECIAL(402)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"RX Number"))
  1. ELSE X SPECIAL(402)
  1. Q
  1. 402FMT I $L(ABSP("X"))>12 S ABSP("X")=$E(ABSP("X"),$L(ABSP("X"))-11,$L(ABSP("X")))
  1. S:ABSP("X")'="" ABSP("X")="D2"_$$NFF^ABSPECFM($G(ABSP("X")),12)
  1. Q
  1. 402SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,2)=ABSP("X")
  1. Q
  1. ;Product Serv ID Qualifer
  1. 436GET I '$D(SPECIAL(436)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Alt. Product Type"))
  1. ELSE X SPECIAL(436)
  1. Q
  1. 436FMT S:ABSP("X")'="" ABSP("X")="E1"_$$ANFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 436SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),430),U,6)=ABSP("X")
  1. Q
  1. ;Product Serv ID
  1. 407GET I '$D(SPECIAL(407)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"NDC"))
  1. . S ABSP("X")=$$NDCF^ABSPECFM(ABSP("X"))
  1. ELSE X SPECIAL(407)
  1. Q
  1. 407FMT S:ABSP("X")'="" ABSP("X")="D7"_$$ANFF^ABSPECFM(ABSP("X"),$L(ABSP("X"))) ;Spec says length is 19?
  1. Q
  1. 407SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,7)=ABSP("X")
  1. Q
  1. ;Assoc Pres Srv Ref Number
  1. 456GET I '$D(SPECIAL(456)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Assoc Pres Number"))
  1. ELSE X SPECIAL(456)
  1. Q
  1. 456FMT S:ABSP("X")'="" ABSP("X")="EN"_$$NFF^ABSPECFM(ABSP("X"),12)
  1. Q
  1. 456SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,6)=ABSP("X")
  1. Q
  1. ;Assoc Pres Serv Date
  1. 457GET I '$D(SPECIAL(457)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Assoc Pres Date"))
  1. ELSE X SPECIAL(457)
  1. Q
  1. 457FMT S:ABSP("X")'="" ABSP("X")="EP"_$$NFF^ABSPECFM(ABSP("X"),8)
  1. Q
  1. 457SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,7)=ABSP("X")
  1. Q
  1. ;Procedure Modifier Code Count
  1. 458GET I '$D(SPECIAL(458)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Proc Mod Cd Cnt"))
  1. ELSE X SPECIAL(458)
  1. Q
  1. 458FMT S:ABSP("X")'="" ABSP("X")="SE"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 458SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,8)=ABSP("X")
  1. Q
  1. ;Procedure Modifier Code
  1. 459GET I '$D(SPECIAL(459)) S ABSP("X")=""
  1. ELSE X SPECIAL(459)
  1. Q
  1. 459FMT S:ABSP("X")'="" ABSP("X")="ER"_$$ANFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 459SET ;Not Yet Implemented
  1. Q
  1. ;Quantity Dispensed
  1. 442GET I '$D(SPECIAL(442)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Quantity"))*1000
  1. . S:$D(ABSP("RX",ABSP(9002313.0201),"Metric Decimal Quantity")) ABSP("X")=ABSP("RX",ABSP(9002313.0201),"Metric Decimal Quantity")
  1. ELSE X SPECIAL(442)
  1. Q
  1. 442FMT S:ABSP("X")'="" ABSP("X")="E7"_$$NFF^ABSPECFM(ABSP("X"),10) ;Spec says length is 7
  1. Q
  1. 442SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),440),U,2)=ABSP("X")
  1. Q
  1. ;Fill Number
  1. 403GET I '$D(SPECIAL(403)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Refill #"))
  1. ELSE X SPECIAL(403)
  1. Q
  1. 403FMT S:ABSP("X")'="" ABSP("X")="D3"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 403SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,3)=ABSP("X")
  1. Q
  1. ;Days Supply
  1. 405GET I '$D(SPECIAL(405)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Days Supply"))
  1. ELSE X SPECIAL(405)
  1. Q
  1. 405FMT S:ABSP("X")'="" ABSP("X")="D5"_$$NFF^ABSPECFM(ABSP("X"),3)
  1. Q
  1. 405SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,5)=ABSP("X")
  1. Q
  1. ;Compound Code
  1. 406GET I '$D(SPECIAL(406)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Compound Code"))
  1. . S:ABSP("X")="" ABSP("X")=1
  1. ELSE X SPECIAL(406)
  1. Q
  1. 406FMT S:ABSP("X")'="" ABSP("X")="D6"_$$NFF^ABSPECFM(ABSP("X"),1)
  1. Q
  1. 406SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,6)=ABSP("X")
  1. Q
  1. ;Dispense as written
  1. 408GET I '$D(SPECIAL(408)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"DAW"))
  1. . S:ABSP("X")="" ABSP("X")=0
  1. ELSE X SPECIAL(408)
  1. Q
  1. 408FMT S:ABSP("X")'="" ABSP("X")="D8"_$$ANFF^ABSPECFM(ABSP("X"),1)
  1. Q
  1. 408SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,8)=ABSP("X")
  1. Q
  1. ;Date Presc Written
  1. 414GET I '$D(SPECIAL(414)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Date Written"))
  1. . S ABSP("X")=$$DTF1^ABSPECFM(ABSP("X"))
  1. ELSE X SPECIAL(414)
  1. Q
  1. 414FMT S:ABSP("X")'="" ABSP("X")="DE"_$$NFF^ABSPECFM(ABSP("X"),8)
  1. Q
  1. 414SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,14)=ABSP("X")
  1. Q
  1. ;Number Refills Authorized
  1. 415GET I '$D(SPECIAL(415)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"# Refills"))
  1. ELSE X SPECIAL(415)
  1. Q
  1. 415FMT S:ABSP("X")'="" ABSP("X")="DF"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 415SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,15)=ABSP("X")
  1. Q
  1. ;Prescription Origin Code
  1. 419GET I '$D(SPECIAL(419)) D
  1. . S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Origin Code"))
  1. . S:ABSP("X")="" ABSP("X")="1"
  1. ELSE X SPECIAL(419)
  1. Q
  1. 419FMT S:ABSP("X")'="" ABSP("X")="DJ"_$$NFF^ABSPECFM(ABSP("X"),1)
  1. Q
  1. 419SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,19)=ABSP("X")
  1. Q
  1. ;Submission Clarification Code Count
  1. 354GET S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Subm Clar Count"))
  1. Q
  1. 354FMT S:ABSP("X")'="" ABSP("X")="NX"_$$NFF^ABSPECFM($G(ABSP("X")),1)
  1. Q
  1. 354SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),350),U,4)=ABSP("X")
  1. Q
  1. ;Submission Clarification Code 1
  1. 42001GET S ABSP("X")="" I $G(ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 1"))]"" S ABSP("X")=ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 1")
  1. Q
  1. 42001FMT S:ABSP("X")'="" ABSP("X")="DK"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 42001SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),421),U,1)=ABSP("X")
  1. Q
  1. ;Submission Clarification Code 2
  1. 42002GET S ABSP("X")="" I $G(ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 2"))]"" S ABSP("X")=ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 2")
  1. Q
  1. 42002FMT S:ABSP("X")'="" ABSP("X")="DK"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 42002SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),421),U,2)=ABSP("X")
  1. Q
  1. ;Submission Clarification Code 1
  1. 42003GET S ABSP("X")="" I $G(ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 3"))]"" S ABSP("X")=ABSP("RX",ABSP(9002313.0201),"Subm Clar Code 3")
  1. Q
  1. 42003FMT S:ABSP("X")'="" ABSP("X")="DK"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 42003SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),421),U,3)=ABSP("X")
  1. Q
  1. ;Other Coverage Code
  1. 308GET I '$D(SPECIAL(308)) D
  1. . S ABSP("X")=$G(ABSP("Patient","Other Coverage Code"))
  1. . S:$G(ABSP(9002313.0201))'="" ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"CC"))
  1. . S:'ABSP("X") ABSP("X")=1
  1. ELSE X SPECIAL(308)
  1. Q
  1. 308FMT S:ABSP("X")'="" ABSP("X")="C8"_$$NFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 308SET D FLD308^ABSPOSSG
  1. Q
  1. ;Unit Dose Indicator
  1. 429GET I '$D(SPECIAL(429)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Unit Dose Indicator"))
  1. ELSE X SPECIAL(429)
  1. Q
  1. 429FMT S:ABSP("X")'="" ABSP("X")="DT"_$$NFF^ABSPECFM($G(ABSP("X")),1)
  1. Q
  1. 429SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,29)=ABSP("X")
  1. Q
  1. ;Orig Presc Prod/Serv ID Qual
  1. 453GET I '$D(SPECIAL(453)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Orig Pres Prod Qual"))
  1. ELSE X SPECIAL(453)
  1. Q
  1. 453FMT S:ABSP("X")'="" ABSP("X")="EJ"_$$ANFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 453SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,3)=ABSP("X")
  1. Q
  1. ;Orig Presc Prod/Serv Code
  1. 445GET I '$D(SPECIAL(445)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Orig Pres Prod"))
  1. ELSE X SPECIAL(445)
  1. Q
  1. 445FMT S:ABSP("X")'="" ABSP("X")="EA"_$$ANFF^ABSPECFM(ABSP("X"),19)
  1. Q
  1. 445SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),440),U,5)=ABSP("X")
  1. Q
  1. ;Originally Prescribed Quantity
  1. 446GET I '$D(SPECIAL(446)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Org Pres Qty"))
  1. ELSE X SPECIAL(446)
  1. Q
  1. 446FMT S:ABSP("X")'="" ABSP("X")="EB"_$$NFF^ABSPECFM(ABSP("X"),10) ;Spec says length is 7?
  1. Q
  1. 446SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),440),U,6)=ABSP("X")
  1. Q
  1. ;Scheduled Pres ID Number
  1. 454GET I '$D(SPECIAL(454)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Schd Pres ID Num"))
  1. ELSE X SPECIAL(454)
  1. Q
  1. 454FMT S:ABSP("X")'="" ABSP("X")="EK"_$$ANFF^ABSPECFM(ABSP("X"),12)
  1. Q
  1. 454SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),450),U,4)=ABSP("X")
  1. Q
  1. ;Unit of measure
  1. 600GET I '$D(SPECIAL(600)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Unit of Measure"))
  1. ELSE X SPECIAL(600)
  1. Q
  1. 600FMT S:ABSP("X")'="" ABSP("X")="28"_$$ANFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 600SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),600),U,1)=ABSP("X")
  1. Q
  1. ;Level of Service
  1. 418GET I '$D(SPECIAL(418)) S ABSP("X")=$G(ABSP("RX",ABSP(9002313.0201),"Level of Service"))
  1. ELSE X SPECIAL(418)
  1. Q
  1. 418FMT S:ABSP("X")'="" ABSP("X")="DI"_$$NFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 418SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),400),U,18)=ABSP("X")
  1. Q
  1. ;Prior Authorization Type Code
  1. 461GET I '$D(SPECIAL(461)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Prior Auth Type"))
  1. ELSE X SPECIAL(461)
  1. Q
  1. 461FMT S:ABSP("X")'="" ABSP("X")="EU"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 461SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),460),U,1)=ABSP("X")
  1. Q
  1. ;Prior Authorization Num Sub
  1. 462GET I '$D(SPECIAL(462)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Prior Auth Num Sub"))
  1. ELSE X SPECIAL(462)
  1. Q
  1. 462FMT S:ABSP("X")'="" ABSP("X")="EV"_$$NFF^ABSPECFM(ABSP("X"),11)
  1. Q
  1. 462SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),460),U,2)=ABSP("X")
  1. Q
  1. ;Intermediary Auth Type ID
  1. 463GET I '$D(SPECIAL(463)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Inter Auth Type"))
  1. ELSE X SPECIAL(463)
  1. Q
  1. 463FMT S:ABSP("X")'="" ABSP("X")="EW"_$$NFF^ABSPECFM(ABSP("X"),2)
  1. Q
  1. 463SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),460),U,3)=ABSP("X")
  1. Q
  1. ;Intermediary Auth ID
  1. 464GET I '$D(SPECIAL(464)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Inter Auth"))
  1. ELSE X SPECIAL(464)
  1. Q
  1. 464FMT S:ABSP("X")'="" ABSP("X")="EX"_$$ANFF^ABSPECFM(ABSP("X"),11)
  1. Q
  1. 464SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),460),U,4)=ABSP("X")
  1. Q
  1. ;Dispensing Status
  1. 343GET I '$D(SPECIAL(343)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Dispensing Status"))
  1. ELSE X SPECIAL(343)
  1. Q
  1. 343FMT S:ABSP("X")'="" ABSP("X")="HD"_$$ANFF^ABSPECFM(ABSP("X"),1)
  1. Q
  1. 343SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),340),U,3)=ABSP("X")
  1. Q
  1. ;Qty intended to be dispensed
  1. 344GET I '$D(SPECIAL(344)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Qty Intd Dispd"))
  1. ELSE X SPECIAL(344)
  1. Q
  1. 344FMT S:ABSP("X")'="" ABSP("X")="HF"_$$NFF^ABSPECFM(ABSP("X"),10) ;Spec says length is 7?
  1. Q
  1. 344SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),340),U,4)=ABSP("X")
  1. Q
  1. ;Day Supply Intd Dispensed
  1. 345GET I '$D(SPECIAL(345)) S ABSP("X")=$G(ABSP("Claim",ABSP(9002313.0201),"Days Sup Intd Dispd"))
  1. ELSE X SPECIAL(345)
  1. Q
  1. 345FMT S:ABSP("X")'="" ABSP("X")="HG"_$$NFF^ABSPECFM(ABSP("X"),3)
  1. Q
  1. 345SET S $P(^ABSPC(ABSP(9002313.02),400,ABSP(9002313.0201),340),U,5)=ABSP("X")
  1. Q
  1. ;Delay Reason Code
  1. 357GET I '$D(SPECIAL(357)) S ABSP("X")=""
  1. ELSE X SPECIAL(357)
  1. Q
  1. 357FMT S:ABSP("X")'="" ABSP("X")="NV"_$$ANFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 357SET ;Not Yet Implemented
  1. Q
  1. ;Patient Assignment Indicator
  1. 391GET I '$D(SPECIAL(391)) S ABSP("X")=""
  1. ELSE X SPECIAL(391)
  1. Q
  1. 391FMT S:ABSP("X")'="" ABSP("X")="MT"_$$ANFF^ABSPECFM($G(ABSP("X")),1)
  1. Q
  1. 391SET ;Not Yet Implemented
  1. Q
  1. ;Route of Administration
  1. 995GET I '$D(SPECIAL(995)) S ABSP("X")=""
  1. ELSE X SPECIAL(995)
  1. Q
  1. 995FMT S:ABSP("X")'="" ABSP("X")="E2"_$$ANFF^ABSPECFM($G(ABSP("X")),11)
  1. Q
  1. 995SET ;Not Yet Implemented
  1. Q
  1. ;Compound Type
  1. 996GET I '$D(SPECIAL(996)) S ABSP("X")=""
  1. ELSE X SPECIAL(996)
  1. Q
  1. 996FMT S:ABSP("X")'="" ABSP("X")="G1"_$$ANFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 996SET ;Not Yet Implemented
  1. Q
  1. ;Pharmacy Service Type
  1. 147GET I '$D(SPECIAL(147)) S ABSP("X")="01"
  1. ELSE X SPECIAL(147)
  1. Q
  1. 147FMT S:ABSP("X")'="" ABSP("X")="U7"_$$ANFF^ABSPECFM($G(ABSP("X")),2)
  1. Q
  1. 147SET S $P(^ABSPC(ABSP(9002313.02),140),U,7)=ABSP("X")
  1. Q
  1. APPEND(FIELD) ;This is where the record is built field by field
  1. I FIELD["111" D
  1. . D @(FIELD_"GET")
  1. . D @(FIELD_"FMT")
  1. . S RECORD=RECORD_$C(30,28)_"AM"_ABSP("X")
  1. ELSE D
  1. . I $E(FIELD,1,3)=420 S FIELD="420."_$E(FIELD,5)
  1. . I $G(ABSP(9002313.0201,IEN(9002313.01),FIELD,"I"))'="" S RECORD=RECORD_$C(28)_$G(ABSP(9002313.0201,IEN(9002313.01),FIELD,"I"))
  1. . ELSE I $D(SPECIAL(FIELD)) D
  1. . . X SPECIAL(FIELD)
  1. . . D @(FIELD_"FMT")
  1. . . S RECORD=RECORD_$C(28)_ABSP("X")
  1. Q