IBCE837L ;EDE/JWS - OUTPUT FOR 837 FHIR TRANSMISSION ;5/23/18 10:48am
;;2.0;INTEGRATED BILLING;**623,727**;23-MAY-18;Build 34
;;Per VA Directive 6402, this routine should not be modified.
;
SET(RES,SQ,FLD,NAME,TASDATA) ;
;RES = FHIR resource name
;SQ = Output Formatter seq #
;FLD = Output Formatter field #
;NAME = Output Formatter field name
N DATA
S DONE=0
S DATA="{""valueString"":""837-"
D Q:DONE
. I FLD=1 S FILE=TASDATA,DONE=1 Q
. I RES="Basic" D Q
.. I SQ=5 D Q ;GEN
... I FLD>1 D S Q
.. I SQ=16 D Q ;PRV1
... F I=2,3 I FLD=I D S Q
.. I SQ=30 D Q ;CI2
... I FLD=2 D S Q
.. I SQ=32 D Q ;CI2A
... I FLD=2 D S Q
.. I SQ=36 D Q ;CI3A
... F I=3:1:9 I FLD=I D S Q
.. I SQ=50 D Q ;CL1
... F I=7,32 I FLD=I D S Q
.. I SQ=51 D Q ;CL1A
... F I=10:1:12,14,23 I FLD=I D S Q
.. I SQ=65 D Q ;OC1-OC12
... F I=2,3 I FLD=I D S Q
.. I SQ=70 D Q ;OS1-OS12
... I FLD=4 D S Q
.. I SQ=105 D Q ;OI1
... I FLD=9 D S Q
.. I SQ=180 D Q ;PRF
... F I=6,22:1:24,29 I FLD=I D S Q
.. I SQ=185 D Q ;INS
... F I=2,3,5,12,15,16 I FLD=I D S Q
.. I SQ=186 D Q ;DEN
... F I=2,3,14:1:19 I FLD=I D S Q
.. I SQ=186.1 D Q ;DEN1
... F I=2,3,8,10,12,14 I FLD=I D S Q
.. I SQ=186.2 D Q ;DEN2
... I FLD>1 D S Q
.. I SQ=190 D Q ;RX1
... F I=2,11 I FLD=I D S Q
.. I SQ=191 D Q ;LDAT
... F I=2,7,8,11,12 I FLD=I D S Q
.. I SQ=191.4 D Q ;CMN
... F I=2,3,5,10,12,14,15 I FLD=I D S Q
.. I SQ=191.7 D Q ;MEA
... I FLD=2 D S Q
.. I SQ=192 D Q ;LOPE
... I FLD=2 D S Q
.. I SQ=193 D Q ;LOP1
... I FLD=2 D S Q
.. I SQ=193.3 D Q ;LREN
... I FLD=2 D S Q
.. I SQ=193.6 D Q ;LPUR
... I FLD=2 D S Q
.. I SQ=194 D Q ;LSUP
... I FLD=2 D S Q
.. I SQ=194.3 D Q ;LREF
... I FLD=2 D S Q
.. I SQ=194.5 D Q ;LSUR
... I FLD=2 D S Q
.. I SQ=194.6 D Q ;LSR1
... I FLD=2 D S Q
.. I SQ=195 D Q ;LCOB
... F I=2,6,12,13,18 I FLD=I D S Q
.. I SQ=200 D Q ;LCAS
... F I=2,3,9,12,15,18,21,22 I FLD=I D S Q
.. I SQ=205 D Q ;LQ
... F I=2:1:4 I FLD=I D S Q
.. I SQ=210 D Q ;FRM
... F I=2,7 I FLD=I D S Q
. I RES="CarePlan" D Q
.. I SQ=62 D Q ;DN1
... F I=4:1:6 I FLD=I D S Q
.. I SQ=104.9 D Q ;AMB1
... I FLD=4 D S Q
.. I SQ=191.4 D Q ;CMN
... I FLD=11 D S Q
. I RES="ChargeItem" D Q
.. I SQ=60 D Q ;UB1
... I FLD=19 D S Q
.. I SQ=80 D Q ;VC1-VC12
... I FLD=2 D S Q
... I FLD=3 D S Q
. I RES="Claim" D Q
.. I SQ=20 D Q ;CI1
... I FLD=15 D S Q
.. I SQ=45 D Q ;PT2
... F I=5,6 I FLD=I D S Q
.. I SQ=50 D Q ;CL1
... F I=2,4:1:6,9:1:17,20,21,28:1:31,38 I FLD=I D S Q
.. I SQ=51 D Q ;CL1A
... F I=13,29,30 I FLD=I D S Q
.. I SQ=55 D Q ;SUB
... F I=7,10 I FLD=I D S Q
.. I SQ=62 D Q ;DN1
... F I=2,3 I FLD=I D S Q
.. I SQ=63 D Q ;DN2
... F I=2:1:4 I FLD=I D S Q
.. I SQ=105 D Q ;OI1
... I FLD=7 D S Q
.. I SQ=107 D Q ;OI1A
... F I=8,9 I FLD=I D S Q
.. I SQ=112 D Q ;OI4
... F I=11,12 I FLD=I D S Q
.. I SQ=115 D Q ;COB1
... I FLD=7 D S Q
.. I SQ=180 D Q ;PRF
... I FLD=5 D S Q
.. I SQ=185 D Q ;INS
... I FLD=9 D S Q
.. I SQ=186 D Q ;DEN
... I FLD=12 D S Q
.. I SQ=191 D Q ;LDAT
... I FLD=14 D S Q
.. I SQ=191.4 D Q ;CMN
... I FLD=7 D S Q
. I RES="ClaimResponse" D Q
.. I SQ=60 D Q ;UB1
... I FLD=2 D S Q
.. I SQ=105 D Q ;OI1
... I FLD=2 D S Q
.. I SQ=107 D Q ;OI1A
... F I=2:1:7 I FLD=I D S Q
.. I SQ=110 D Q ;OI2
... I FLD=2 D S Q
.. I SQ=112 D Q ;OI4
... I FLD=2 D S Q
.. I SQ=113 D Q ;OI5
... I FLD=2 D S Q
.. I SQ=114 D Q ;OI6
... I FLD=2 D S Q
.. I SQ=115 D Q ;COB1
... I FLD=2 D S Q
.. I SQ=120 D Q ;MOA1
... I FLD=2 D S Q
.. I SQ=125 D Q ;MIA1
... I FLD=2 D S Q
.. I SQ=130 D Q ;MIA2
... I FLD=2 D S Q
.. I SQ=135 D Q ;CCAS
... F I=2:1:21 I FLD=I D S Q
.. I SQ=170 D Q ;OP1
... I FLD=2 D S Q
.. I SQ=170.5 D Q ;OP1A
... I FLD=2 D S Q
.. I SQ=171 D Q ;OP2
... I FLD=2 D S Q
.. I SQ=172 D Q ;OP3
... I FLD=2 D S Q
.. I SQ=173 D Q ;OP4
... I FLD=2 D S Q
.. I SQ=176 D Q ;OP7
... I FLD=2 D S Q
.. I SQ=177 D Q ;OP8
... I FLD=2 D S Q
.. I SQ=178 D Q ;OP9
... I FLD=2 D S Q
.. I SQ=178.1 D Q ;OP10
... I FLD=2 D S Q
.. I SQ=195 D Q ;LCOB
... I FLD=4 D S Q
. I RES="Communication" D Q
.. I SQ=52 D Q ;CL1B
... F I=3:1:5 I FLD=I D S Q
.. I SQ=60 D Q ;UB1
... F I=20,21 I FLD=I D S Q
.. I SQ=191 D Q ;LDAT
... F I=3:1:6 I FLD=I D S Q
.. I SQ=191.4 D Q ;CMN
... F I=16,17 I FLD=I D S Q
.. I SQ=210 D Q ;FRM
... F I=3:1:6 I FLD=I D S Q
. I RES="Condition" D Q
.. I SQ=50 D Q ;CL1
... I FLD=18 D S Q
.. I SQ=51 D Q ;CL1A
... F I=7,8,16,18,20,22,24 I FLD=I D S Q
.. I SQ=85 D Q ;CC1-CC12
... I FLD=2 D S Q
.. I SQ=180 D Q ;PRF
... F I=11:1:14 I FLD=I D S Q
.. I SQ=186.1 D Q ;DEN1
... F I=4:1:7,9 I FLD=I D S Q
.. I SQ=191.4 D Q ;CMN
... F I=8,9 I FLD=I D S Q
. I RES="Coverage" D Q
.. I SQ=20 D Q ;CI1
... I FLD=12 D S Q
.. I SQ=35 D Q ;CI3
... F I=2,3 I FLD=I D S Q
.. I SQ=40 D Q ;PT1
... I FLD=2 D S Q
.. I SQ=60 D Q ;UB1
... I FLD=3 D S Q
.. I SQ=105 D Q ;OI1
... F I=4,5,8 I FLD=I D S Q
.. I SQ=110 D Q ;OI2
... F I=3,11 I FLD=I D S Q
. I RES="DocumentManifest" D Q
.. I SQ=52 D Q ;CL1B
... I FLD=2 D S Q
. I RES="EligibilityRequest" D Q
.. I SQ=60 D Q ;UB1
... I FLD=4 D S Q
.. I SQ=191.4 D Q ;CMN
... I FLD=13 D S Q
. I RES="Encounter" D Q
.. I SQ=50 D Q ;CL1
... F I=22:1:24 I FLD=I D S Q
.. I SQ=51 D Q ;CL1A
... F I=15,17,19,21 I FLD=I D S Q
.. I SQ=90 D Q ;DC1-DC12
... F I=2:1:4 I FLD=I D S Q
. I RES="EpisodeOfCare" D Q
.. I SQ=51 D Q ;CL1A
... F I=25:1:28 I FLD=I D S Q
. I RES="ExplanationOfBenefit" D Q
.. I SQ=50 D Q ;CL1
... I FLD=8 D S Q
.. I SQ=51 D Q ;CL1A
... I FLD=5 D S Q
.. I SQ=120 D Q ;MOA1
... F I=3:1:11 I FLD=I D S Q
.. I SQ=125 D Q ;MIA1
... F I=3:1:12 I FLD=I D S Q
.. I SQ=130 D Q ;MIA2
... F I=3:1:15 I FLD=I D S Q
.. I SQ=195 D Q ;LCOB
... F I=14,16,17 I FLD=I D S Q
.. I SQ=200 D Q ;LCAS
... F I=4:1:8,10,11,13,14,16,17,19,20 I FLD=I D S Q
. I RES="HealthcareService" D Q
.. I SQ=104.9 D Q ;AMB1
... F I=5:1:8 I FLD=I D S Q
.. I SQ=104.91 D Q ;AMB2
... F I=2:1:8 I FLD=I D S Q
.. I SQ=195 D Q ;LCOB
... I FLD=15 D S Q
. I RES="ImagingStudy" D Q
.. I SQ=51 D Q ;CL1A
... F I=3,6,9 I FLD=I D S Q
. I RES="Location" D Q
.. I SQ=50 D Q ;CL1
... F I=3,33 I FLD=I D S Q
.. I SQ=104.8 D Q ;AMB
... I FLD=8 D S Q
.. I SQ=172 D Q ;OP3
... F I=3:1:10 I FLD=I D S Q
.. I SQ=176 D Q ;OP7
... F I=3:1:10 I FLD=I D S Q
.. I SQ=180 D Q ;PRF
... I FLD=7 D S Q
.. I SQ=186 D Q ;DEN
... I FLD=13 D S Q
. I RES="Medication" D Q
.. I SQ=190 D Q ;RX1
... I FLD=4 D S Q
. I RES="MedicationDispense" D Q
.. I SQ=190 D Q ;RX1
... I FLD=7 D S Q
. I RES="MedicationRequest" D Q
.. I SQ=190 D Q ;RX1
... F I=3,6,8,10,12 I FLD=I D S Q
. I RES="Observation" D Q
.. I SQ=40 D Q ;PT1
... F I=14,15 I FLD=I D S Q
.. I SQ=50 D Q ;CL1
... I FLD=25 D S Q
.. I SQ=104.9 D Q ;AMB1
... F I=2,3 I FLD=I D S Q
.. I SQ=180 D Q ;PRF
... F I=20,25 I FLD=I D S Q
.. I SQ=185 D Q ;INS
... F I=13,17 I FLD=I D S Q
.. I SQ=191.4 D Q ;CMN
... I FLD=4 D S Q
.. I SQ=191.7 D Q ;MEA
... F I=3:1:5 I FLD=I D S Q
. I RES="Organization" D Q
.. I SQ=15 D Q ;PRV
... F I=3:1:9,11,12 I FLD=I D S Q
.. I SQ=16 D Q ;PRV1
... F I=7:1:11 I FLD=I D S Q
.. I SQ=20 D Q ;CI1
... F I=2:1:6,10 I FLD=I D S Q
.. I SQ=36 D Q ;CI3A
... I FLD=2 D S Q
.. I SQ=37 D Q ;CI5
... F I=2:1:9 I FLD=I D S Q
.. I SQ=45 D Q ;PT2
... F I=7:1:12 I FLD=I D S Q
.. I SQ=55 D Q ;SUB
... F I=2:1:6,12 I FLD=I D S Q
.. I SQ=57 D Q ;SUB2
... F I=2,3,5:1:13 I FLD=I D S Q
.. I SQ=104.8 D Q ;AMB
... F I=2:1:7 I FLD=I D S Q
.. I SQ=110 D Q ;OI2
... I FLD=7 D S Q
.. I SQ=112 D Q ;OI4
... F I=3:1:7 I FLD=I D S Q
.. I SQ=114 D Q ;OI6
... F I=3:1:10 I FLD=I D S Q
.. I SQ=195 D Q ;LCOB
... I FLD=3 D S Q
. I RES="Patient" D Q
.. I SQ=30 D Q ;CI2
... F I=3:1:8 I FLD=I D S Q
.. I SQ=32 D Q ;CI2A
... F I=3:1:8 I FLD=I D S Q
.. I SQ=38 D Q ;CI6
... F I=2:1:5 I FLD=I D S Q
.. I SQ=40 D Q ;PT1
... F I=4:1:13,16,20 I FLD=I D S Q
.. I SQ=45 D Q ;PT2
... F I=3,4 I FLD=I D S Q
. I RES="PaymentNotice" D Q
.. I SQ=112 D Q ;OI4
... F I=8:1:10 I FLD=I D S Q
. I RES="Person" D Q
.. I SQ=110 D Q ;OI2
... F I=4:1:6 I FLD=I D S Q
.. I SQ=113 D Q ;OI5
... F I=3:1:10 I FLD=I D S Q
. I RES="Practitioner" D Q
.. I SQ=28 D Q ;CI1A
... F I=2:1:9 I FLD=I D S Q
.. I SQ=96 D Q ;OPR
... F I=2:1:4,6:1:11,13:1:17 I FLD=I D S Q
.. I SQ=97 D Q ;OPR1
... F I=2:1:12,14,15 I FLD=I D S Q
.. I SQ=98 D Q ;OPR2
... F I=2:1:9 I FLD=I D S Q
.. I SQ=99 D Q ;OPR3
... F I=2:1:9 I FLD=I D S Q
.. I SQ=100 D Q ;OPR4
... F I=2:1:9 I FLD=I D S Q
.. I SQ=101 D Q ;OPR5
... F I=2:1:10 I FLD=I D S Q
.. I SQ=103 D Q ;OPR7
... F I=2:1:7 I FLD=I D S Q
.. I SQ=104 D Q ;OPR8
... F I=2:1:9 I FLD=I D S Q
.. I SQ=104.2 D Q ;OPR9
... F I=2:1:11 I FLD=I D S Q
.. I SQ=104.4 D Q ;OPRA
... F I=2:1:9 I FLD=I D S Q
.. I SQ=104.6 D Q ;OPRB
... F I=2:1:11 I FLD=I D S Q
.. I SQ=104.61 D Q ;OPRC
... F I=2:1:9 I FLD=I D S Q
.. I SQ=170 D Q ;OP1
... F I=3:1:10 I FLD=I D S Q
.. I SQ=170.5 D Q ;OP1A
... F I=3:1:10 I FLD=I D S Q
.. I SQ=171 D Q ;OP2
... F I=3:1:10 I FLD=I D S Q
.. I SQ=173 D Q ;OP4
... F I=3:1:10 I FLD=I D S Q
.. I SQ=177 D Q ;OP8
... F I=3:1:10 I FLD=I D S Q
.. I SQ=178 D Q ;OP9
... F I=3:1:10 I FLD=I D S Q
.. I SQ=178.1 D Q ;OP10
... F I=3:1:10 I FLD=I D S Q
.. I SQ=191 D Q ;LDAT
... I FLD=13 D S Q
.. I SQ=192 D Q ;LOPE
... F I=4:1:15 I FLD=I D S Q
.. I SQ=193 D Q ;LOP1
... F I=4:1:15 I FLD=I D S Q
.. I SQ=193.3 D Q ;LREN
... F I=4:1:17 I FLD=I D S Q
.. I SQ=193.6 D Q ;LPUR
... F I=4:1:7 I FLD=I D S Q
.. I SQ=194 D Q ;LSUP
... F I=4:1:15 I FLD=I D S Q
.. I SQ=194.3 D Q ;LREF
... F I=4:1:15 I FLD=I D S Q
.. I SQ=194.5 D Q ;LSUR
... F I=4:1:9 I FLD=I D S Q
.. I SQ=194.6 D Q ;LSR1
... F I=3:1:10 I FLD=I D S Q
. I RES="PractitionerRole" D Q
.. I SQ=192 D Q ;LOPE
... I FLD=3 D S Q
.. I SQ=193 D Q ;LOP1
... I FLD=3 D S Q
.. I SQ=193.3 D Q ;LREN
... I FLD=3 D S Q
.. I SQ=193.6 D Q ;LPUR
... I FLD=3 D S Q
.. I SQ=194 D Q ;LSUP
... I FLD=3 D S Q
.. I SQ=194.3 D Q ;LREF
... I FLD=3 D S Q
.. I SQ=194.5 D Q ;LSUR
... I FLD=3 D S Q
. I RES="Procedure" D Q
.. I SQ=51 D Q ;CL1A
... I FLD=2 D S Q
.. I SQ=180 D Q ;PRF
... F I=2:1:4,9,10,15:1:19,21,30 I FLD=I D S Q
.. I SQ=185 D Q ;INS
... ;F I=4,7,8,10,14 I FLD=I D S Q
... F I=4,7,8,10,14,18,19 I FLD=I D S Q ;TPF;IB*2.0*727;EBILL-932;INCREASE CPT MODIFIER TO FOUR;04/10/2022
.. I SQ=186 D Q ;DEN
... F I=4:1:11 I FLD=I D S Q
.. I SQ=186.1 D Q ;DEN1
... F I=11,13,15:1:17 I FLD=I D S Q
.. I SQ=191 D Q ;LDAT
... I FLD=15 D S Q
.. I SQ=195 D Q ;LCOB
... F I=5,7:1:11 I FLD=I D S Q
. I RES="ProcedureRequest" D Q
.. I SQ=70 D Q ;OS1-OS12
... F I=2,3 I FLD=I D S Q
.. I SQ=75 D Q ;PC1-PC12
... F I=2:1:4 I FLD=I D S Q
.. I SQ=77 S FILE="SPC" D Q ;SPC
... F I=2:1:5 I FLD=I D S Q
. I RES="RelatedPerson" D Q
.. I SQ=105 D Q ;OI1
... F I=3,6 I FLD=I D S Q
. I RES="SupplyRequest" D Q
.. I SQ=191.4 D Q ;CMN
... I FLD=6 D S Q
. I RES="ValueSet" D Q
.. I SQ=15 D Q ;PRV
... F I=13,14 I FLD=I D S Q
Q
;
S ; update ^TMP global
D SETD^IBCE837I
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCE837L 11930 printed Apr 09, 2024@21:32:35 Page 2
IBCE837L ;EDE/JWS - OUTPUT FOR 837 FHIR TRANSMISSION ;5/23/18 10:48am
+1 ;;2.0;INTEGRATED BILLING;**623,727**;23-MAY-18;Build 34
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
SET(RES,SQ,FLD,NAME,TASDATA) ;
+1 ;RES = FHIR resource name
+2 ;SQ = Output Formatter seq #
+3 ;FLD = Output Formatter field #
+4 ;NAME = Output Formatter field name
+5 NEW DATA
+6 SET DONE=0
+7 SET DATA="{""valueString"":""837-"
+8 Begin DoDot:1
+9 IF FLD=1
SET FILE=TASDATA
SET DONE=1
QUIT
+10 IF RES="Basic"
Begin DoDot:2
+11 ;GEN
IF SQ=5
Begin DoDot:3
+12 IF FLD>1
DO S
QUIT
End DoDot:3
QUIT
+13 ;PRV1
IF SQ=16
Begin DoDot:3
+14 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+15 ;CI2
IF SQ=30
Begin DoDot:3
+16 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+17 ;CI2A
IF SQ=32
Begin DoDot:3
+18 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+19 ;CI3A
IF SQ=36
Begin DoDot:3
+20 FOR I=3:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+21 ;CL1
IF SQ=50
Begin DoDot:3
+22 FOR I=7,32
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+23 ;CL1A
IF SQ=51
Begin DoDot:3
+24 FOR I=10:1:12,14,23
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+25 ;OC1-OC12
IF SQ=65
Begin DoDot:3
+26 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+27 ;OS1-OS12
IF SQ=70
Begin DoDot:3
+28 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
+29 ;OI1
IF SQ=105
Begin DoDot:3
+30 IF FLD=9
DO S
QUIT
End DoDot:3
QUIT
+31 ;PRF
IF SQ=180
Begin DoDot:3
+32 FOR I=6,22:1:24,29
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+33 ;INS
IF SQ=185
Begin DoDot:3
+34 FOR I=2,3,5,12,15,16
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+35 ;DEN
IF SQ=186
Begin DoDot:3
+36 FOR I=2,3,14:1:19
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+37 ;DEN1
IF SQ=186.1
Begin DoDot:3
+38 FOR I=2,3,8,10,12,14
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+39 ;DEN2
IF SQ=186.2
Begin DoDot:3
+40 IF FLD>1
DO S
QUIT
End DoDot:3
QUIT
+41 ;RX1
IF SQ=190
Begin DoDot:3
+42 FOR I=2,11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+43 ;LDAT
IF SQ=191
Begin DoDot:3
+44 FOR I=2,7,8,11,12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+45 ;CMN
IF SQ=191.4
Begin DoDot:3
+46 FOR I=2,3,5,10,12,14,15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+47 ;MEA
IF SQ=191.7
Begin DoDot:3
+48 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+49 ;LOPE
IF SQ=192
Begin DoDot:3
+50 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+51 ;LOP1
IF SQ=193
Begin DoDot:3
+52 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+53 ;LREN
IF SQ=193.3
Begin DoDot:3
+54 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+55 ;LPUR
IF SQ=193.6
Begin DoDot:3
+56 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+57 ;LSUP
IF SQ=194
Begin DoDot:3
+58 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+59 ;LREF
IF SQ=194.3
Begin DoDot:3
+60 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+61 ;LSUR
IF SQ=194.5
Begin DoDot:3
+62 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+63 ;LSR1
IF SQ=194.6
Begin DoDot:3
+64 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+65 ;LCOB
IF SQ=195
Begin DoDot:3
+66 FOR I=2,6,12,13,18
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+67 ;LCAS
IF SQ=200
Begin DoDot:3
+68 FOR I=2,3,9,12,15,18,21,22
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+69 ;LQ
IF SQ=205
Begin DoDot:3
+70 FOR I=2:1:4
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+71 ;FRM
IF SQ=210
Begin DoDot:3
+72 FOR I=2,7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+73 IF RES="CarePlan"
Begin DoDot:2
+74 ;DN1
IF SQ=62
Begin DoDot:3
+75 FOR I=4:1:6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+76 ;AMB1
IF SQ=104.9
Begin DoDot:3
+77 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
+78 ;CMN
IF SQ=191.4
Begin DoDot:3
+79 IF FLD=11
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+80 IF RES="ChargeItem"
Begin DoDot:2
+81 ;UB1
IF SQ=60
Begin DoDot:3
+82 IF FLD=19
DO S
QUIT
End DoDot:3
QUIT
+83 ;VC1-VC12
IF SQ=80
Begin DoDot:3
+84 IF FLD=2
DO S
QUIT
+85 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+86 IF RES="Claim"
Begin DoDot:2
+87 ;CI1
IF SQ=20
Begin DoDot:3
+88 IF FLD=15
DO S
QUIT
End DoDot:3
QUIT
+89 ;PT2
IF SQ=45
Begin DoDot:3
+90 FOR I=5,6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+91 ;CL1
IF SQ=50
Begin DoDot:3
+92 FOR I=2,4:1:6,9:1:17,20,21,28:1:31,38
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+93 ;CL1A
IF SQ=51
Begin DoDot:3
+94 FOR I=13,29,30
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+95 ;SUB
IF SQ=55
Begin DoDot:3
+96 FOR I=7,10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+97 ;DN1
IF SQ=62
Begin DoDot:3
+98 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+99 ;DN2
IF SQ=63
Begin DoDot:3
+100 FOR I=2:1:4
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+101 ;OI1
IF SQ=105
Begin DoDot:3
+102 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
+103 ;OI1A
IF SQ=107
Begin DoDot:3
+104 FOR I=8,9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+105 ;OI4
IF SQ=112
Begin DoDot:3
+106 FOR I=11,12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+107 ;COB1
IF SQ=115
Begin DoDot:3
+108 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
+109 ;PRF
IF SQ=180
Begin DoDot:3
+110 IF FLD=5
DO S
QUIT
End DoDot:3
QUIT
+111 ;INS
IF SQ=185
Begin DoDot:3
+112 IF FLD=9
DO S
QUIT
End DoDot:3
QUIT
+113 ;DEN
IF SQ=186
Begin DoDot:3
+114 IF FLD=12
DO S
QUIT
End DoDot:3
QUIT
+115 ;LDAT
IF SQ=191
Begin DoDot:3
+116 IF FLD=14
DO S
QUIT
End DoDot:3
QUIT
+117 ;CMN
IF SQ=191.4
Begin DoDot:3
+118 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+119 IF RES="ClaimResponse"
Begin DoDot:2
+120 ;UB1
IF SQ=60
Begin DoDot:3
+121 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+122 ;OI1
IF SQ=105
Begin DoDot:3
+123 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+124 ;OI1A
IF SQ=107
Begin DoDot:3
+125 FOR I=2:1:7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+126 ;OI2
IF SQ=110
Begin DoDot:3
+127 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+128 ;OI4
IF SQ=112
Begin DoDot:3
+129 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+130 ;OI5
IF SQ=113
Begin DoDot:3
+131 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+132 ;OI6
IF SQ=114
Begin DoDot:3
+133 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+134 ;COB1
IF SQ=115
Begin DoDot:3
+135 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+136 ;MOA1
IF SQ=120
Begin DoDot:3
+137 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+138 ;MIA1
IF SQ=125
Begin DoDot:3
+139 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+140 ;MIA2
IF SQ=130
Begin DoDot:3
+141 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+142 ;CCAS
IF SQ=135
Begin DoDot:3
+143 FOR I=2:1:21
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+144 ;OP1
IF SQ=170
Begin DoDot:3
+145 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+146 ;OP1A
IF SQ=170.5
Begin DoDot:3
+147 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+148 ;OP2
IF SQ=171
Begin DoDot:3
+149 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+150 ;OP3
IF SQ=172
Begin DoDot:3
+151 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+152 ;OP4
IF SQ=173
Begin DoDot:3
+153 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+154 ;OP7
IF SQ=176
Begin DoDot:3
+155 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+156 ;OP8
IF SQ=177
Begin DoDot:3
+157 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+158 ;OP9
IF SQ=178
Begin DoDot:3
+159 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+160 ;OP10
IF SQ=178.1
Begin DoDot:3
+161 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+162 ;LCOB
IF SQ=195
Begin DoDot:3
+163 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+164 IF RES="Communication"
Begin DoDot:2
+165 ;CL1B
IF SQ=52
Begin DoDot:3
+166 FOR I=3:1:5
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+167 ;UB1
IF SQ=60
Begin DoDot:3
+168 FOR I=20,21
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+169 ;LDAT
IF SQ=191
Begin DoDot:3
+170 FOR I=3:1:6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+171 ;CMN
IF SQ=191.4
Begin DoDot:3
+172 FOR I=16,17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+173 ;FRM
IF SQ=210
Begin DoDot:3
+174 FOR I=3:1:6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+175 IF RES="Condition"
Begin DoDot:2
+176 ;CL1
IF SQ=50
Begin DoDot:3
+177 IF FLD=18
DO S
QUIT
End DoDot:3
QUIT
+178 ;CL1A
IF SQ=51
Begin DoDot:3
+179 FOR I=7,8,16,18,20,22,24
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+180 ;CC1-CC12
IF SQ=85
Begin DoDot:3
+181 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+182 ;PRF
IF SQ=180
Begin DoDot:3
+183 FOR I=11:1:14
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+184 ;DEN1
IF SQ=186.1
Begin DoDot:3
+185 FOR I=4:1:7,9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+186 ;CMN
IF SQ=191.4
Begin DoDot:3
+187 FOR I=8,9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+188 IF RES="Coverage"
Begin DoDot:2
+189 ;CI1
IF SQ=20
Begin DoDot:3
+190 IF FLD=12
DO S
QUIT
End DoDot:3
QUIT
+191 ;CI3
IF SQ=35
Begin DoDot:3
+192 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+193 ;PT1
IF SQ=40
Begin DoDot:3
+194 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+195 ;UB1
IF SQ=60
Begin DoDot:3
+196 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+197 ;OI1
IF SQ=105
Begin DoDot:3
+198 FOR I=4,5,8
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+199 ;OI2
IF SQ=110
Begin DoDot:3
+200 FOR I=3,11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+201 IF RES="DocumentManifest"
Begin DoDot:2
+202 ;CL1B
IF SQ=52
Begin DoDot:3
+203 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+204 IF RES="EligibilityRequest"
Begin DoDot:2
+205 ;UB1
IF SQ=60
Begin DoDot:3
+206 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
+207 ;CMN
IF SQ=191.4
Begin DoDot:3
+208 IF FLD=13
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+209 IF RES="Encounter"
Begin DoDot:2
+210 ;CL1
IF SQ=50
Begin DoDot:3
+211 FOR I=22:1:24
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+212 ;CL1A
IF SQ=51
Begin DoDot:3
+213 FOR I=15,17,19,21
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+214 ;DC1-DC12
IF SQ=90
Begin DoDot:3
+215 FOR I=2:1:4
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+216 IF RES="EpisodeOfCare"
Begin DoDot:2
+217 ;CL1A
IF SQ=51
Begin DoDot:3
+218 FOR I=25:1:28
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+219 IF RES="ExplanationOfBenefit"
Begin DoDot:2
+220 ;CL1
IF SQ=50
Begin DoDot:3
+221 IF FLD=8
DO S
QUIT
End DoDot:3
QUIT
+222 ;CL1A
IF SQ=51
Begin DoDot:3
+223 IF FLD=5
DO S
QUIT
End DoDot:3
QUIT
+224 ;MOA1
IF SQ=120
Begin DoDot:3
+225 FOR I=3:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+226 ;MIA1
IF SQ=125
Begin DoDot:3
+227 FOR I=3:1:12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+228 ;MIA2
IF SQ=130
Begin DoDot:3
+229 FOR I=3:1:15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+230 ;LCOB
IF SQ=195
Begin DoDot:3
+231 FOR I=14,16,17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+232 ;LCAS
IF SQ=200
Begin DoDot:3
+233 FOR I=4:1:8,10,11,13,14,16,17,19,20
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+234 IF RES="HealthcareService"
Begin DoDot:2
+235 ;AMB1
IF SQ=104.9
Begin DoDot:3
+236 FOR I=5:1:8
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+237 ;AMB2
IF SQ=104.91
Begin DoDot:3
+238 FOR I=2:1:8
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+239 ;LCOB
IF SQ=195
Begin DoDot:3
+240 IF FLD=15
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+241 IF RES="ImagingStudy"
Begin DoDot:2
+242 ;CL1A
IF SQ=51
Begin DoDot:3
+243 FOR I=3,6,9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+244 IF RES="Location"
Begin DoDot:2
+245 ;CL1
IF SQ=50
Begin DoDot:3
+246 FOR I=3,33
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+247 ;AMB
IF SQ=104.8
Begin DoDot:3
+248 IF FLD=8
DO S
QUIT
End DoDot:3
QUIT
+249 ;OP3
IF SQ=172
Begin DoDot:3
+250 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+251 ;OP7
IF SQ=176
Begin DoDot:3
+252 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+253 ;PRF
IF SQ=180
Begin DoDot:3
+254 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
+255 ;DEN
IF SQ=186
Begin DoDot:3
+256 IF FLD=13
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+257 IF RES="Medication"
Begin DoDot:2
+258 ;RX1
IF SQ=190
Begin DoDot:3
+259 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+260 IF RES="MedicationDispense"
Begin DoDot:2
+261 ;RX1
IF SQ=190
Begin DoDot:3
+262 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+263 IF RES="MedicationRequest"
Begin DoDot:2
+264 ;RX1
IF SQ=190
Begin DoDot:3
+265 FOR I=3,6,8,10,12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+266 IF RES="Observation"
Begin DoDot:2
+267 ;PT1
IF SQ=40
Begin DoDot:3
+268 FOR I=14,15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+269 ;CL1
IF SQ=50
Begin DoDot:3
+270 IF FLD=25
DO S
QUIT
End DoDot:3
QUIT
+271 ;AMB1
IF SQ=104.9
Begin DoDot:3
+272 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+273 ;PRF
IF SQ=180
Begin DoDot:3
+274 FOR I=20,25
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+275 ;INS
IF SQ=185
Begin DoDot:3
+276 FOR I=13,17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+277 ;CMN
IF SQ=191.4
Begin DoDot:3
+278 IF FLD=4
DO S
QUIT
End DoDot:3
QUIT
+279 ;MEA
IF SQ=191.7
Begin DoDot:3
+280 FOR I=3:1:5
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+281 IF RES="Organization"
Begin DoDot:2
+282 ;PRV
IF SQ=15
Begin DoDot:3
+283 FOR I=3:1:9,11,12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+284 ;PRV1
IF SQ=16
Begin DoDot:3
+285 FOR I=7:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+286 ;CI1
IF SQ=20
Begin DoDot:3
+287 FOR I=2:1:6,10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+288 ;CI3A
IF SQ=36
Begin DoDot:3
+289 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+290 ;CI5
IF SQ=37
Begin DoDot:3
+291 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+292 ;PT2
IF SQ=45
Begin DoDot:3
+293 FOR I=7:1:12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+294 ;SUB
IF SQ=55
Begin DoDot:3
+295 FOR I=2:1:6,12
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+296 ;SUB2
IF SQ=57
Begin DoDot:3
+297 FOR I=2,3,5:1:13
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+298 ;AMB
IF SQ=104.8
Begin DoDot:3
+299 FOR I=2:1:7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+300 ;OI2
IF SQ=110
Begin DoDot:3
+301 IF FLD=7
DO S
QUIT
End DoDot:3
QUIT
+302 ;OI4
IF SQ=112
Begin DoDot:3
+303 FOR I=3:1:7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+304 ;OI6
IF SQ=114
Begin DoDot:3
+305 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+306 ;LCOB
IF SQ=195
Begin DoDot:3
+307 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+308 IF RES="Patient"
Begin DoDot:2
+309 ;CI2
IF SQ=30
Begin DoDot:3
+310 FOR I=3:1:8
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+311 ;CI2A
IF SQ=32
Begin DoDot:3
+312 FOR I=3:1:8
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+313 ;CI6
IF SQ=38
Begin DoDot:3
+314 FOR I=2:1:5
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+315 ;PT1
IF SQ=40
Begin DoDot:3
+316 FOR I=4:1:13,16,20
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+317 ;PT2
IF SQ=45
Begin DoDot:3
+318 FOR I=3,4
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+319 IF RES="PaymentNotice"
Begin DoDot:2
+320 ;OI4
IF SQ=112
Begin DoDot:3
+321 FOR I=8:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+322 IF RES="Person"
Begin DoDot:2
+323 ;OI2
IF SQ=110
Begin DoDot:3
+324 FOR I=4:1:6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+325 ;OI5
IF SQ=113
Begin DoDot:3
+326 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+327 IF RES="Practitioner"
Begin DoDot:2
+328 ;CI1A
IF SQ=28
Begin DoDot:3
+329 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+330 ;OPR
IF SQ=96
Begin DoDot:3
+331 FOR I=2:1:4,6:1:11,13:1:17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+332 ;OPR1
IF SQ=97
Begin DoDot:3
+333 FOR I=2:1:12,14,15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+334 ;OPR2
IF SQ=98
Begin DoDot:3
+335 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+336 ;OPR3
IF SQ=99
Begin DoDot:3
+337 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+338 ;OPR4
IF SQ=100
Begin DoDot:3
+339 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+340 ;OPR5
IF SQ=101
Begin DoDot:3
+341 FOR I=2:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+342 ;OPR7
IF SQ=103
Begin DoDot:3
+343 FOR I=2:1:7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+344 ;OPR8
IF SQ=104
Begin DoDot:3
+345 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+346 ;OPR9
IF SQ=104.2
Begin DoDot:3
+347 FOR I=2:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+348 ;OPRA
IF SQ=104.4
Begin DoDot:3
+349 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+350 ;OPRB
IF SQ=104.6
Begin DoDot:3
+351 FOR I=2:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+352 ;OPRC
IF SQ=104.61
Begin DoDot:3
+353 FOR I=2:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+354 ;OP1
IF SQ=170
Begin DoDot:3
+355 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+356 ;OP1A
IF SQ=170.5
Begin DoDot:3
+357 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+358 ;OP2
IF SQ=171
Begin DoDot:3
+359 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+360 ;OP4
IF SQ=173
Begin DoDot:3
+361 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+362 ;OP8
IF SQ=177
Begin DoDot:3
+363 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+364 ;OP9
IF SQ=178
Begin DoDot:3
+365 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+366 ;OP10
IF SQ=178.1
Begin DoDot:3
+367 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+368 ;LDAT
IF SQ=191
Begin DoDot:3
+369 IF FLD=13
DO S
QUIT
End DoDot:3
QUIT
+370 ;LOPE
IF SQ=192
Begin DoDot:3
+371 FOR I=4:1:15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+372 ;LOP1
IF SQ=193
Begin DoDot:3
+373 FOR I=4:1:15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+374 ;LREN
IF SQ=193.3
Begin DoDot:3
+375 FOR I=4:1:17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+376 ;LPUR
IF SQ=193.6
Begin DoDot:3
+377 FOR I=4:1:7
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+378 ;LSUP
IF SQ=194
Begin DoDot:3
+379 FOR I=4:1:15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+380 ;LREF
IF SQ=194.3
Begin DoDot:3
+381 FOR I=4:1:15
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+382 ;LSUR
IF SQ=194.5
Begin DoDot:3
+383 FOR I=4:1:9
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+384 ;LSR1
IF SQ=194.6
Begin DoDot:3
+385 FOR I=3:1:10
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+386 IF RES="PractitionerRole"
Begin DoDot:2
+387 ;LOPE
IF SQ=192
Begin DoDot:3
+388 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+389 ;LOP1
IF SQ=193
Begin DoDot:3
+390 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+391 ;LREN
IF SQ=193.3
Begin DoDot:3
+392 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+393 ;LPUR
IF SQ=193.6
Begin DoDot:3
+394 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+395 ;LSUP
IF SQ=194
Begin DoDot:3
+396 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+397 ;LREF
IF SQ=194.3
Begin DoDot:3
+398 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
+399 ;LSUR
IF SQ=194.5
Begin DoDot:3
+400 IF FLD=3
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+401 IF RES="Procedure"
Begin DoDot:2
+402 ;CL1A
IF SQ=51
Begin DoDot:3
+403 IF FLD=2
DO S
QUIT
End DoDot:3
QUIT
+404 ;PRF
IF SQ=180
Begin DoDot:3
+405 FOR I=2:1:4,9,10,15:1:19,21,30
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+406 ;INS
IF SQ=185
Begin DoDot:3
+407 ;F I=4,7,8,10,14 I FLD=I D S Q
+408 ;TPF;IB*2.0*727;EBILL-932;INCREASE CPT MODIFIER TO FOUR;04/10/2022
FOR I=4,7,8,10,14,18,19
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+409 ;DEN
IF SQ=186
Begin DoDot:3
+410 FOR I=4:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+411 ;DEN1
IF SQ=186.1
Begin DoDot:3
+412 FOR I=11,13,15:1:17
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+413 ;LDAT
IF SQ=191
Begin DoDot:3
+414 IF FLD=15
DO S
QUIT
End DoDot:3
QUIT
+415 ;LCOB
IF SQ=195
Begin DoDot:3
+416 FOR I=5,7:1:11
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+417 IF RES="ProcedureRequest"
Begin DoDot:2
+418 ;OS1-OS12
IF SQ=70
Begin DoDot:3
+419 FOR I=2,3
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+420 ;PC1-PC12
IF SQ=75
Begin DoDot:3
+421 FOR I=2:1:4
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
+422 ;SPC
IF SQ=77
SET FILE="SPC"
Begin DoDot:3
+423 FOR I=2:1:5
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+424 IF RES="RelatedPerson"
Begin DoDot:2
+425 ;OI1
IF SQ=105
Begin DoDot:3
+426 FOR I=3,6
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+427 IF RES="SupplyRequest"
Begin DoDot:2
+428 ;CMN
IF SQ=191.4
Begin DoDot:3
+429 IF FLD=6
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
+430 IF RES="ValueSet"
Begin DoDot:2
+431 ;PRV
IF SQ=15
Begin DoDot:3
+432 FOR I=13,14
IF FLD=I
DO S
QUIT
End DoDot:3
QUIT
End DoDot:2
QUIT
End DoDot:1
if DONE
QUIT
+433 QUIT
+434 ;
S ; update ^TMP global
+1 DO SETD^IBCE837I
+2 QUIT
+3 ;
