PSOERXOJ ;ALB/BWF - eRx parsing Utilities ; 11/14/2019 3:46pm
;;7.0;OUTPATIENT PHARMACY;**581,635**;DEC 1997;Build 19
;
Q
; Medication Instructions
MEDINST(GL,CNT,ERXIEN,MIEN) ;
N INSIEN,IENS,INSDAT,F,IIND,MIM,AIND,DDMC,DDM,DDMT,DQ1,DQ2,DRMOD,DUOMC1,DUOMQ1,DUOMT1
N DUOMC2,DUOMQ2,DUOMT2,DBNV,DBRM,DBNV2,DBUOMC,DBUOMQ,DBUOMT,BMQ,BMV,CDN,CDUOMC,CDUOMQ
N CDUOMT,DCLRFTXT,DUOMCC,DUOMCQ,DUOMCT,DAMTC,DAMTQ,DAMTT,DCFTXT,VPC,VPQ,VPT,VQ1,VMVM,VQ2
N VUOMC,VUOMQ,VUOME,VCODE,VQUAL,VTEXT,VCTEXT,ROAC,ROAQ,ROAT,ROAFT,SOAC,SOAQ,SOAT,SOATXT
N ICTXT,MDRTXT,DDMMC,DDMMQ,DDMMT,DDMQ,VUOMT
S F=52.4931112
I '$O(^PS(52.49,ERXIEN,311,MIEN,12,0)) Q
S INSIEN=0 F S INSIEN=$O(^PS(52.49,ERXIEN,311,MIEN,12,INSIEN)) Q:'INSIEN D
.S IENS=INSIEN_","_MIEN_","_ERXIEN_","
.D GETS^DIQ(F,IENS,"**","E","INSDAT")
.S IIND=$$GET1^DIQ(F,IENS,.02,"I"),MIM=$G(INSDAT(F,IENS,.03,"E")),AIND=$G(INSDAT(F,IENS,4.1,"E"))
.I MIM]"" D BL(GL,.CNT,"MultipleInstructionModifier",MIM)
.D C S @GL@(CNT,0)="<Instruction>"
.D BL(GL,.CNT,"InstructionIndicator",IIND)
.S DDMC=$G(INSDAT(F,IENS,7,"E")),DDMQ=$G(INSDAT(F,IENS,8,"E")),DDMT=$G(INSDAT(F,IENS,9,"E"))
.S DQ1=$G(INSDAT(F,IENS,10.1,"E")),DQ2=$G(INSDAT(F,IENS,15.1,"E"))
.S DRMOD=$G(INSDAT(F,IENS,14,"E"))
.S DUOMC1=$G(INSDAT(F,IENS,11,"E")),DUOMQ1=$G(INSDAT(F,IENS,12,"E")),DUOMT1=$G(INSDAT(F,IENS,13,"E"))
.S DUOMC2=$G(INSDAT(F,IENS,16,"E")),DUOMQ2=$G(INSDAT(F,IENS,17,"E")),DUOMT2=$G(INSDAT(F,IENS,18,"E"))
.S DBNV=$G(INSDAT(F,IENS,21.1,"E")),DBRM=$G(INSDAT(F,IENS,21.2,"E")),DBNV2=$G(INSDAT(F,IENS,21.3,"E"))
.S DBUOMC=$G(INSDAT(F,IENS,22,"E")),DBUOMQ=$G(INSDAT(F,IENS,23,"E")),DBUOMT=$G(INSDAT(F,IENS,24,"E"))
.S BMQ=$G(INSDAT(F,IENS,25.1,"E")),BMV=$G(INSDAT(F,IENS,25.2,"E"))
.S CDN=$G(INSDAT(F,IENS,26,"E"))
.S CDUOMC=$G(INSDAT(F,IENS,27,"E")),CDUOMQ=$G(INSDAT(F,IENS,28,"E")),CDUOMT=$G(INSDAT(F,IENS,29,"E"))
.; dose calculaton clarifying free text
.S DCLRFTXT=$G(INSDAT(F,IENS,31,"E"))
.S DUOMCC=$G(INSDAT(F,IENS,32,"E")),DUOMCQ=$G(INSDAT(F,IENS,33,"E")),DUOMCT=$G(INSDAT(F,IENS,34,"E"))
.S DAMTC=$G(INSDAT(F,IENS,35,"E")),DAMTQ=$G(INSDAT(F,IENS,36,"E")),DAMTT=$G(INSDAT(F,IENS,37,"E"))
.; dose clarifying free text
.S DCFTXT=$G(INSDAT(F,IENS,38,"E"))
.S VPC=$G(INSDAT(F,IENS,41,"E")),VPQ=$G(INSDAT(F,IENS,42,"E")),VPT=$G(INSDAT(F,IENS,43,"E"))
.S VQ1=$G(INSDAT(F,IENS,44.1,"E")),VMVM=$G(INSDAT(F,IENS,44.2,"E")),VQ2=$G(INSDAT(F,IENS,44.3,"E"))
.S VUOMC=$G(INSDAT(F,IENS,45,"E")),VUOMQ=$G(INSDAT(F,IENS,46,"E")),VUOMT=$G(INSDAT(F,IENS,47,"E"))
.S VCODE=$G(INSDAT(F,IENS,51,"E")),VQUAL=$G(INSDAT(F,IENS,52,"E")),VTEXT=$G(INSDAT(F,IENS,53,"E"))
.; vehicle clarifying text
.S VCTEXT=$G(INSDAT(F,IENS,54,"E"))
.S ROAC=$G(INSDAT(F,IENS,55,"E")),ROAQ=$G(INSDAT(F,IENS,56,"E")),ROAT=$G(INSDAT(F,IENS,57,"E"))
.; route of admin free text
.S ROAFT=$G(INSDAT(F,IENS,58,"E"))
.S SOAC=$G(INSDAT(F,IENS,61,"E")),SOAQ=$G(INSDAT(F,IENS,62,"E")),SOAT=$G(INSDAT(F,IENS,63,"E"))
.; site of admin
.S SOATXT=$G(INSDAT(F,IENS,64,"E"))
.; indication clarifying text
.S ICTXT=$G(INSDAT(F,IENS,70,"E"))
.; mdr clarifying free text
.S MDRTXT=$G(INSDAT(F,IENS,71,"E"))
.S DDMMC=$G(INSDAT(F,IENS,72,"E")),DDMMQ=$G(INSDAT(F,IENS,73,"E")),DDMMT=$G(INSDAT(F,IENS,74,"E"))
.; timing and duration
.D BL(.GL,.CNT,"AdministrationIndicator",AIND)
.; DoseAdministration
.I $L(DQ1_DQ2_DDMT_DDMQ_DDMC_DDMMT_DDMMQ_DDMMC) D
..D C S @GL@(CNT,0)="<DoseAdministration>"
..D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseDeliveryMethod",DDMT,DDMQ,DDMC)
..D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseDeliveryMethodModifier",DDMMT,DDMMQ,DDMMC)
..I $L(DQ1) D
...D C S @GL@(CNT,0)="<Dosage>"
...D BL(.GL,.CNT,"DoseQuantity",DQ1)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMT1,DUOMQ1,DUOMC1)
...I $L(DRMOD) D BL(.GL,.CNT,"DoseRangeModifier",DRMOD)
...I $L(DQ2) D BL(.GL,.CNT,"DoseQuantity",DQ2)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMT2,DUOMQ2,DUOMC2)
...D C S @GL@(CNT,0)="</Dosage>"
..; dose calculation (inside dose administration)
..I $L(DBNV) D
...D C S @GL@(CNT,0)="<DoseCalculation>"
...D BL(.GL,.CNT,"DosingBasisNumeric",DBNV)
...I $L(DBRM) D BL(.GL,.CNT,"DosingBasisRangeModifier",DBRM)
...I $L(DBNV2) D BL(.GL,.CNT,"DosingBasisNumeric",DBNV2)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"DosingBasisUnitOfMeasure",DBUOMT,DBUOMQ,DBUOMC)
...I $D(BMQ) D BL(.GL,.CNT,"BodyMetricQualifier",BMQ)
...I $D(BMV) D BL(.GL,.CNT,"BodyMetricValue",BMV)
...I $L(CDN) D BL(.GL,.CNT,"CalculatedDoseNumeric",CDN)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"CalculatedDoseUnitOfMeasure",DDMT,DDMQ,DDMC)
...I $L(DCLRFTXT) D BL(.GL,.CNT,"DoseCalculationClarifyingFreeText",DCLRFTXT)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMCT,DUOMCQ,DUOMCC)
...D C S @GL@(CNT,0)="</DoseCalculation>"
..; end dose calculation - return to doseAdministration
..D SIGTYPE^PSOERXOU(.GL,.CNT,"DoseAmount",DAMTT,DAMTQ,DAMTC)
..I $L(DCFTXT) D BL(.GL,.CNT,"DoseClarifyingFreeText",DCFTXT)
..; vehicle
..I VQ1]"" D
...D C S @GL@(CNT,0)="<Vehicle>"
...D SIGTYPE^PSOERXOU(.GL,.CNT,"VehiclePreposition",VPT,VPQ,VPC)
...D BL(GL,.CNT,"VehicleQuantity",VQ1)
...I VMVM]"" D BL(GL,.CNT,"MultipleVehicleModifier",VMVM)
...I VQ2]"" D BL(GL,.CNT,"VehicleQuantity",VQ2)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"VehicleUnitOfMeasure",VUOMT,VUOMQ,VUOMC)
...D SIGTYPE^PSOERXOU(.GL,.CNT,"Vehicle",VTEXT,VQUAL,VCODE)
...I $L(VCTEXT) D BL(GL,.CNT,"VehicleClarifyingFreeText",VCTEXT)
...D C S @GL@(CNT,0)="</Vehicle>"
..; end vehicle
..D SIGTYPE^PSOERXOU(GL,.CNT,"RouteOfAdministration",ROAT,ROAQ,ROAC)
..I $L(ROAFT) D BL(GL,.CNT,"RouteOfAdministrationClarifyingFreeText",ROAFT)
..D SIGTYPE^PSOERXOU(GL,.CNT,"SiteOfAdministration",SOAT,SOAQ,SOAC)
..I $L(SOATXT) D BL(GL,.CNT,"SiteOfAdministrationClarifyingFreeText",SOATXT)
..D C S @GL@(CNT,0)="</DoseAdministration>"
..; end dose Administration
.; timing and duration
.D TIMDUR^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
.;PSO*7*635 - include indication for use at the instruction level
.D INSI4USE^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
.;PSO*7*635 - end updated indication for use
.I $L(ICTXT) D BL(GL,.CNT,"IndicationClarifyingFreeText",ICTXT)
.; Maximum dose restriction at the instructions level
.D INSMDR^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
.D C S @GL@(CNT,0)="</Instruction>"
Q
BL(GBL,CNT,TAG,VAR) ;
Q:VAR=""
D C S @GBL@(CNT,0)="<"_TAG_">"_$$SYMENC^MXMLUTL(VAR)_"</"_TAG_">"
Q
C ;
S CNT=$G(CNT)+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOERXOJ 6476 printed Apr 09, 2024@21:30:11 Page 2
PSOERXOJ ;ALB/BWF - eRx parsing Utilities ; 11/14/2019 3:46pm
+1 ;;7.0;OUTPATIENT PHARMACY;**581,635**;DEC 1997;Build 19
+2 ;
+3 QUIT
+4 ; Medication Instructions
MEDINST(GL,CNT,ERXIEN,MIEN) ;
+1 NEW INSIEN,IENS,INSDAT,F,IIND,MIM,AIND,DDMC,DDM,DDMT,DQ1,DQ2,DRMOD,DUOMC1,DUOMQ1,DUOMT1
+2 NEW DUOMC2,DUOMQ2,DUOMT2,DBNV,DBRM,DBNV2,DBUOMC,DBUOMQ,DBUOMT,BMQ,BMV,CDN,CDUOMC,CDUOMQ
+3 NEW CDUOMT,DCLRFTXT,DUOMCC,DUOMCQ,DUOMCT,DAMTC,DAMTQ,DAMTT,DCFTXT,VPC,VPQ,VPT,VQ1,VMVM,VQ2
+4 NEW VUOMC,VUOMQ,VUOME,VCODE,VQUAL,VTEXT,VCTEXT,ROAC,ROAQ,ROAT,ROAFT,SOAC,SOAQ,SOAT,SOATXT
+5 NEW ICTXT,MDRTXT,DDMMC,DDMMQ,DDMMT,DDMQ,VUOMT
+6 SET F=52.4931112
+7 IF '$ORDER(^PS(52.49,ERXIEN,311,MIEN,12,0))
QUIT
+8 SET INSIEN=0
FOR
SET INSIEN=$ORDER(^PS(52.49,ERXIEN,311,MIEN,12,INSIEN))
if 'INSIEN
QUIT
Begin DoDot:1
+9 SET IENS=INSIEN_","_MIEN_","_ERXIEN_","
+10 DO GETS^DIQ(F,IENS,"**","E","INSDAT")
+11 SET IIND=$$GET1^DIQ(F,IENS,.02,"I")
SET MIM=$GET(INSDAT(F,IENS,.03,"E"))
SET AIND=$GET(INSDAT(F,IENS,4.1,"E"))
+12 IF MIM]""
DO BL(GL,.CNT,"MultipleInstructionModifier",MIM)
+13 DO C
SET @GL@(CNT,0)="<Instruction>"
+14 DO BL(GL,.CNT,"InstructionIndicator",IIND)
+15 SET DDMC=$GET(INSDAT(F,IENS,7,"E"))
SET DDMQ=$GET(INSDAT(F,IENS,8,"E"))
SET DDMT=$GET(INSDAT(F,IENS,9,"E"))
+16 SET DQ1=$GET(INSDAT(F,IENS,10.1,"E"))
SET DQ2=$GET(INSDAT(F,IENS,15.1,"E"))
+17 SET DRMOD=$GET(INSDAT(F,IENS,14,"E"))
+18 SET DUOMC1=$GET(INSDAT(F,IENS,11,"E"))
SET DUOMQ1=$GET(INSDAT(F,IENS,12,"E"))
SET DUOMT1=$GET(INSDAT(F,IENS,13,"E"))
+19 SET DUOMC2=$GET(INSDAT(F,IENS,16,"E"))
SET DUOMQ2=$GET(INSDAT(F,IENS,17,"E"))
SET DUOMT2=$GET(INSDAT(F,IENS,18,"E"))
+20 SET DBNV=$GET(INSDAT(F,IENS,21.1,"E"))
SET DBRM=$GET(INSDAT(F,IENS,21.2,"E"))
SET DBNV2=$GET(INSDAT(F,IENS,21.3,"E"))
+21 SET DBUOMC=$GET(INSDAT(F,IENS,22,"E"))
SET DBUOMQ=$GET(INSDAT(F,IENS,23,"E"))
SET DBUOMT=$GET(INSDAT(F,IENS,24,"E"))
+22 SET BMQ=$GET(INSDAT(F,IENS,25.1,"E"))
SET BMV=$GET(INSDAT(F,IENS,25.2,"E"))
+23 SET CDN=$GET(INSDAT(F,IENS,26,"E"))
+24 SET CDUOMC=$GET(INSDAT(F,IENS,27,"E"))
SET CDUOMQ=$GET(INSDAT(F,IENS,28,"E"))
SET CDUOMT=$GET(INSDAT(F,IENS,29,"E"))
+25 ; dose calculaton clarifying free text
+26 SET DCLRFTXT=$GET(INSDAT(F,IENS,31,"E"))
+27 SET DUOMCC=$GET(INSDAT(F,IENS,32,"E"))
SET DUOMCQ=$GET(INSDAT(F,IENS,33,"E"))
SET DUOMCT=$GET(INSDAT(F,IENS,34,"E"))
+28 SET DAMTC=$GET(INSDAT(F,IENS,35,"E"))
SET DAMTQ=$GET(INSDAT(F,IENS,36,"E"))
SET DAMTT=$GET(INSDAT(F,IENS,37,"E"))
+29 ; dose clarifying free text
+30 SET DCFTXT=$GET(INSDAT(F,IENS,38,"E"))
+31 SET VPC=$GET(INSDAT(F,IENS,41,"E"))
SET VPQ=$GET(INSDAT(F,IENS,42,"E"))
SET VPT=$GET(INSDAT(F,IENS,43,"E"))
+32 SET VQ1=$GET(INSDAT(F,IENS,44.1,"E"))
SET VMVM=$GET(INSDAT(F,IENS,44.2,"E"))
SET VQ2=$GET(INSDAT(F,IENS,44.3,"E"))
+33 SET VUOMC=$GET(INSDAT(F,IENS,45,"E"))
SET VUOMQ=$GET(INSDAT(F,IENS,46,"E"))
SET VUOMT=$GET(INSDAT(F,IENS,47,"E"))
+34 SET VCODE=$GET(INSDAT(F,IENS,51,"E"))
SET VQUAL=$GET(INSDAT(F,IENS,52,"E"))
SET VTEXT=$GET(INSDAT(F,IENS,53,"E"))
+35 ; vehicle clarifying text
+36 SET VCTEXT=$GET(INSDAT(F,IENS,54,"E"))
+37 SET ROAC=$GET(INSDAT(F,IENS,55,"E"))
SET ROAQ=$GET(INSDAT(F,IENS,56,"E"))
SET ROAT=$GET(INSDAT(F,IENS,57,"E"))
+38 ; route of admin free text
+39 SET ROAFT=$GET(INSDAT(F,IENS,58,"E"))
+40 SET SOAC=$GET(INSDAT(F,IENS,61,"E"))
SET SOAQ=$GET(INSDAT(F,IENS,62,"E"))
SET SOAT=$GET(INSDAT(F,IENS,63,"E"))
+41 ; site of admin
+42 SET SOATXT=$GET(INSDAT(F,IENS,64,"E"))
+43 ; indication clarifying text
+44 SET ICTXT=$GET(INSDAT(F,IENS,70,"E"))
+45 ; mdr clarifying free text
+46 SET MDRTXT=$GET(INSDAT(F,IENS,71,"E"))
+47 SET DDMMC=$GET(INSDAT(F,IENS,72,"E"))
SET DDMMQ=$GET(INSDAT(F,IENS,73,"E"))
SET DDMMT=$GET(INSDAT(F,IENS,74,"E"))
+48 ; timing and duration
+49 DO BL(.GL,.CNT,"AdministrationIndicator",AIND)
+50 ; DoseAdministration
+51 IF $LENGTH(DQ1_DQ2_DDMT_DDMQ_DDMC_DDMMT_DDMMQ_DDMMC)
Begin DoDot:2
+52 DO C
SET @GL@(CNT,0)="<DoseAdministration>"
+53 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseDeliveryMethod",DDMT,DDMQ,DDMC)
+54 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseDeliveryMethodModifier",DDMMT,DDMMQ,DDMMC)
+55 IF $LENGTH(DQ1)
Begin DoDot:3
+56 DO C
SET @GL@(CNT,0)="<Dosage>"
+57 DO BL(.GL,.CNT,"DoseQuantity",DQ1)
+58 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMT1,DUOMQ1,DUOMC1)
+59 IF $LENGTH(DRMOD)
DO BL(.GL,.CNT,"DoseRangeModifier",DRMOD)
+60 IF $LENGTH(DQ2)
DO BL(.GL,.CNT,"DoseQuantity",DQ2)
+61 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMT2,DUOMQ2,DUOMC2)
+62 DO C
SET @GL@(CNT,0)="</Dosage>"
End DoDot:3
+63 ; dose calculation (inside dose administration)
+64 IF $LENGTH(DBNV)
Begin DoDot:3
+65 DO C
SET @GL@(CNT,0)="<DoseCalculation>"
+66 DO BL(.GL,.CNT,"DosingBasisNumeric",DBNV)
+67 IF $LENGTH(DBRM)
DO BL(.GL,.CNT,"DosingBasisRangeModifier",DBRM)
+68 IF $LENGTH(DBNV2)
DO BL(.GL,.CNT,"DosingBasisNumeric",DBNV2)
+69 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DosingBasisUnitOfMeasure",DBUOMT,DBUOMQ,DBUOMC)
+70 IF $DATA(BMQ)
DO BL(.GL,.CNT,"BodyMetricQualifier",BMQ)
+71 IF $DATA(BMV)
DO BL(.GL,.CNT,"BodyMetricValue",BMV)
+72 IF $LENGTH(CDN)
DO BL(.GL,.CNT,"CalculatedDoseNumeric",CDN)
+73 DO SIGTYPE^PSOERXOU(.GL,.CNT,"CalculatedDoseUnitOfMeasure",DDMT,DDMQ,DDMC)
+74 IF $LENGTH(DCLRFTXT)
DO BL(.GL,.CNT,"DoseCalculationClarifyingFreeText",DCLRFTXT)
+75 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseUnitOfMeasure",DUOMCT,DUOMCQ,DUOMCC)
+76 DO C
SET @GL@(CNT,0)="</DoseCalculation>"
End DoDot:3
+77 ; end dose calculation - return to doseAdministration
+78 DO SIGTYPE^PSOERXOU(.GL,.CNT,"DoseAmount",DAMTT,DAMTQ,DAMTC)
+79 IF $LENGTH(DCFTXT)
DO BL(.GL,.CNT,"DoseClarifyingFreeText",DCFTXT)
+80 ; vehicle
+81 IF VQ1]""
Begin DoDot:3
+82 DO C
SET @GL@(CNT,0)="<Vehicle>"
+83 DO SIGTYPE^PSOERXOU(.GL,.CNT,"VehiclePreposition",VPT,VPQ,VPC)
+84 DO BL(GL,.CNT,"VehicleQuantity",VQ1)
+85 IF VMVM]""
DO BL(GL,.CNT,"MultipleVehicleModifier",VMVM)
+86 IF VQ2]""
DO BL(GL,.CNT,"VehicleQuantity",VQ2)
+87 DO SIGTYPE^PSOERXOU(.GL,.CNT,"VehicleUnitOfMeasure",VUOMT,VUOMQ,VUOMC)
+88 DO SIGTYPE^PSOERXOU(.GL,.CNT,"Vehicle",VTEXT,VQUAL,VCODE)
+89 IF $LENGTH(VCTEXT)
DO BL(GL,.CNT,"VehicleClarifyingFreeText",VCTEXT)
+90 DO C
SET @GL@(CNT,0)="</Vehicle>"
End DoDot:3
+91 ; end vehicle
+92 DO SIGTYPE^PSOERXOU(GL,.CNT,"RouteOfAdministration",ROAT,ROAQ,ROAC)
+93 IF $LENGTH(ROAFT)
DO BL(GL,.CNT,"RouteOfAdministrationClarifyingFreeText",ROAFT)
+94 DO SIGTYPE^PSOERXOU(GL,.CNT,"SiteOfAdministration",SOAT,SOAQ,SOAC)
+95 IF $LENGTH(SOATXT)
DO BL(GL,.CNT,"SiteOfAdministrationClarifyingFreeText",SOATXT)
+96 DO C
SET @GL@(CNT,0)="</DoseAdministration>"
+97 ; end dose Administration
End DoDot:2
+98 ; timing and duration
+99 DO TIMDUR^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
+100 ;PSO*7*635 - include indication for use at the instruction level
+101 DO INSI4USE^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
+102 ;PSO*7*635 - end updated indication for use
+103 IF $LENGTH(ICTXT)
DO BL(GL,.CNT,"IndicationClarifyingFreeText",ICTXT)
+104 ; Maximum dose restriction at the instructions level
+105 DO INSMDR^PSOERXOK(GL,.CNT,ERXIEN,MIEN,INSIEN)
+106 DO C
SET @GL@(CNT,0)="</Instruction>"
End DoDot:1
+107 QUIT
BL(GBL,CNT,TAG,VAR) ;
+1 if VAR=""
QUIT
+2 DO C
SET @GBL@(CNT,0)="<"_TAG_">"_$$SYMENC^MXMLUTL(VAR)_"</"_TAG_">"
+3 QUIT
C ;
+1 SET CNT=$GET(CNT)+1
+2 QUIT
