PSOERXA4 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
;;7.0;OUTPATIENT PHARMACY;**467**;DEC 1997;Build 153
;
Q
SS(EIENS) ;Structured Sig
N SSGL,STSIG,SIGSEQ,MSIGMOD,FTSIG,FTSIGSI,SNOMEDV,FMTV,DCIND,DDMC,DDMCQ,DDMMC,DDMMCQ,DDMTEXT,DFC,DFCQ,DFTEXT,DQTY,DRNGMOD
N DCBMQ,DCBMV,DCCDN,DCCDUMC,DCCDUMCQ,DCCDUMT,DCDBNV,DCDBRM,DCDBUMC,DCDBUMCQ,DCDBUMT,DURNV,DURTXT,DURTXTC,DURTXTCQ
N IIPC,IIPCQ,IIPCT,IIT,IITC,IITCQ,IIVT,IIVU,IIVUMC,IIVUMCQ,IIVUMT,IIVM,MDRNV,MDRNCQ,MDRUC,MDRUT,MDRVDM,MDRVNV,MDRVUC
N MDRVUCQ,MDRVUT,ROAMRAM,ROAMC,ROAMCQ,ROAMT,SAMATM,SASAC,SASACQ,TATC,TATCQ,TATT,TFNV,TFUC,TFUCQ,TFUT,TINV,TIUC,TIUCQ
N TIUT,TMATM,TRUMC,TRUMCQ,TRUMT,TRA,TTPBC,TTPBCQ,TTPBT,TVFM,TVIM,VMVM,VN,VNC,VNCQ,VQTY,VUMC,VUMCQ,VUMT,STSCNT,SAT
N STIENS,SF
S SF=52.4911
;S SSGL=$NA(^TMP($J,"PSOERXO1","Message",0,"Body",0,"NewRx",0,"MedicationPrescribed",0,"StructuredSIG"))
S SSGL=$NA(^TMP($J,"PSOERXO1","SIG",0,"StructuredSIG"))
S STSCNT=0
S STSIG=-1 F S STSIG=$O(@SSGL@(STSIG)) Q:STSIG="" D
.S STSCNT=STSCNT+1
.S STIENS="+"_STSCNT_","_EIENS
.S SIGSEQ=$G(@SSGL@(STSIG,"RepeatingSIG",0,"SigSequencePositionNumber",0)),SFDA(SF,STIENS,.01)=SIGSEQ
.S MSIGMOD=$G(@SSGL@(STSIG,"RepeatingSIG",0,"MultipleSigModifier",0)),SFDA(SF,STIENS,.02)=MSIGMOD
.S FTSIG=$G(@SSGL@(STSIG,"FreeText",0,"SigFreeText",0)),SFDA(SF,STIENS,1)=FTSIG
.S FTSIGSI=$G(@SSGL@(STSIG,"FreeText",0,"SigFreeTextStringIndicator",0)),SFDA(SF,STIENS,.05)=FTSIGSI
.S SNOMEDV=$G(@SSGL@(STSIG,"CodeSystem",0,"SNOMEDVersion",0)),SFDA(SF,STIENS,.03)=SNOMEDV
.S FMTV=$G(@SSGL@(STSIG,"CodeSystem",0,"FMTVersion",0)),SFDA(SF,STIENS,.04)=FMTV
.; dose section
.S DCIND=$G(@SSGL@(STSIG,"Dose",0,"DoseCompositeIndicator",0)),SFDA(SF,STIENS,2.1)=DCIND
.S DDMC=$G(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodCode",0)),SFDA(SF,STIENS,2.4)=DDMC
.S DDMCQ=$G(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodCodeQualifier",0)),SFDA(SF,STIENS,2.3)=DDMCQ
.S DDMMC=$G(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodModifierCode",0)),SFDA(SF,STIENS,2.6)=DDMMC
.S DDMMCQ=$G(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodModifierCodeQualifier",0)),SFDA(SF,STIENS,2.7)=DDMMCQ
.S DDMTEXT=$G(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodText",0)),SFDA(SF,STIENS,2.2)=DDMTEXT
.S DFC=$G(@SSGL@(STSIG,"Dose",0,"DoseFormCode",0)),SFDA(SF,STIENS,3.3)=DFC
.S DFCQ=$G(@SSGL@(STSIG,"Dose",0,"DoseFormCodeQualifier",0)),SFDA(SF,STIENS,3.4)=DFCQ
.S DFTEXT=$G(@SSGL@(STSIG,"Dose",0,"DoseFormText",0)),SFDA(SF,STIENS,3.2)=DFTEXT
.S DQTY=$G(@SSGL@(STSIG,"Dose",0,"DoseQuantity",0)),SFDA(SF,STIENS,3.1)=DQTY
.S DRNGMOD=$G(@SSGL@(STSIG,"Dose",0,"DoseRangeModifier",0)),SFDA(SF,STIENS,3.5)=DRNGMOD
.; dose calcuation section
.S DCBMQ=$G(@SSGL@(STSIG,"DoseCalculation",0,"BodyMetricQualifier",0)),SFDA(SF,STIENS,4.5)=DCBMQ
.S DCBMV=$G(@SSGL@(STSIG,"DoseCalculation",0,"BodyMetricValue",0)),SFDA(SF,STIENS,4.6)=DCBMV
.S DCCDN=$G(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseNumeric",0)),SFDA(SF,STIENS,4.7)=DCCDN
.S DCCDUMC=$G(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureCode",0)),SFDA(SF,STIENS,4.9)=DCCDUMC
.S DCCDUMCQ=$G(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureCodeQualifier",0)),SFDA(SF,STIENS,4.11)=DCCDUMCQ
.S DCCDUMT=$G(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureText",0)),SFDA(SF,STIENS,4.8)=DCCDUMT
.S DCDBNV=$G(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisNumericValue",0)),SFDA(SF,STIENS,4.1)=DCDBNV
.S DCDBRM=$G(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisRangeModifier",0)),SFDA(SF,STIENS,4.12)=DCDBRM
.S DCDBUMC=$G(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureCode",0)),SFDA(SF,STIENS,4.3)=DCDBUMC
.S DCDBUMCQ=$G(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureCodeQualifier",0)),SFDA(SF,STIENS,4.4)=DCDBUMCQ
.S DCDBUMT=$G(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureText",0)),SFDA(SF,STIENS,4.2)=DCDBUMT
.; duration
.S DURNV=$G(@SSGL@(STSIG,"Duration",0,"DurationNumericValue",0)),SFDA(SF,STIENS,9.6)=DURNV
.S DURTXT=$G(@SSGL@(STSIG,"Duration",0,"DurationText",0)),SFDA(SF,STIENS,9.7)=DURTXT
.S DURTXTC=$G(@SSGL@(STSIG,"Duration",0,"DurationTextCode",0)),SFDA(SF,STIENS,9.8)=DURTXTC
.S DURTXTCQ=$G(@SSGL@(STSIG,"Duration",0,"DurationTextCodeQualifier",0)),SFDA(SF,STIENS,9.9)=DURTXTCQ
.; indication
.S IIPC=$G(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorCode",0)),SFDA(SF,STIENS,11.2)=IIPC
.S IIPCQ=$G(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorCodeQualifier",0)),SFDA(SF,STIENS,11.3)=IIPCQ
.S IIPCT=$G(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorText",0)),SFDA(SF,STIENS,11.1)=IIPCT
.S IIT=$G(@SSGL@(STSIG,"Indication",0,"IndicationText",0)),SFDA(SF,STIENS,11.4)=IIT
.S IITC=$G(@SSGL@(STSIG,"Indication",0,"IndicationTextCode",0)),SFDA(SF,STIENS,11.5)=IITC
.S IITCQ=$G(@SSGL@(STSIG,"Indication",0,"IndicationTextCodeQualifier",0)),SFDA(SF,STIENS,11.6)=IITCQ
.S IIVT=$G(@SSGL@(STSIG,"Indication",0,"IndicationValueText",0)),SFDA(SF,STIENS,12.1)=IIVT
.S IIVU=$G(@SSGL@(STSIG,"Indication",0,"IndicationValueUnit",0)),SFDA(SF,STIENS,12.2)=IIVU
.S IIVUMC=$G(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureCode",0)),SFDA(SF,STIENS,12.4)=IIVUMC
.S IIVUMCQ=$G(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureCodeQualifier",0)),SFDA(SF,STIENS,12.5)=IIVUMCQ
.S IIVUMT=$G(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureText",0)),SFDA(SF,STIENS,12.3)=IIVUMT
.S IIVM=$G(@SSGL@(STSIG,"Indication",0,"IndicationVariableModifier",0)),SFDA(SF,STIENS,12.6)=IIVM
.; Maximum Dose Restriction
.S MDRNV=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionNumericValue",0)),SFDA(SF,STIENS,10.1)=MDRNV
.S MDRNCQ=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionCodeQualifier",0)),SFDA(SF,STIENS,10.3)=MDRNCQ
.S MDRUC=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionUnitsCode",0)),SFDA(SF,STIENS,10.4)=MDRUC
.S MDRUT=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionUnitsText",0)),SFDA(SF,STIENS,10.2)=MDRUT
.S MDRVDM=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableDurationModifier",0)),SFDA(SF,STIENS,10.9)=MDRVDM
.S MDRVNV=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableNumericValue",0)),SFDA(SF,STIENS,10.5)=MDRVNV
.S MDRVUC=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsCode",0)),SFDA(SF,STIENS,10.7)=MDRVUC
.S MDRVUCQ=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsCodeQualifier",0)),SFDA(SF,STIENS,10.8)=MDRVUCQ
.S MDRVUT=$G(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsText",0)),SFDA(SF,STIENS,10.6)=MDRVUT
.; Route of Administration
.S ROAMRAM=$G(@SSGL@(STSIG,"RouteOfAdministration",0,"MultipleRouteofAdministrationModifier",0)),SFDA(SF,STIENS,6.4)=ROAMRAM
.S ROAMC=$G(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationCode",0)),SFDA(SF,STIENS,6.2)=ROAMC
.S ROAMCQ=$G(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationCodeQualifier",0)),SFDA(SF,STIENS,6.3)=ROAMCQ
.S ROAMT=$G(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationText",0)),SFDA(SF,STIENS,6.1)=ROAMT
.; site of Administration
.S SAMATM=$G(@SSGL@(STSIG,"SiteofAdministration",0,"MultipleAdministrationTimingModifier",0)),SFDA(SF,STIENS,6.8)=SAMATM
.S SASAC=$G(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationCode",0)),SFDA(SF,STIENS,6.6)=SASAC
.S SASACQ=$G(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationCodeQualifier",0)),SFDA(SF,STIENS,6.7)=SASACQ
.S SAT=$G(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationText",0)),SFDA(SF,STIENS,6.5)=SAT
.; Timing
.S TATC=$G(@SSGL@(STSIG,"Timing",0,"AdministrationTimingCode",0)),SFDA(SF,STIENS,7.2)=TATC
.S TATCQ=$G(@SSGL@(STSIG,"Timing",0,"AdministrationTimingCodeQualifier",0)),SFDA(SF,STIENS,7.3)=TATCQ
.S TATT=$G(@SSGL@(STSIG,"Timing",0,"AdministrationTimingText",0)),SFDA(SF,STIENS,7.1)=TATT
.S TFNV=$G(@SSGL@(STSIG,"Timing",0,"FrequencyNumericValue",0)),SFDA(SF,STIENS,8.4)=TFNV
.S TFUC=$G(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsCode",0)),SFDA(SF,STIENS,8.6)=TFUC
.S TFUCQ=$G(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsCodeQualifier",0)),SFDA(SF,STIENS,8.7)=TFUCQ
.S TFUT=$G(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsText",0)),SFDA(SF,STIENS,8.5)=TFUT
.S TINV=$G(@SSGL@(STSIG,"Timing",0,"IntervalNumericValue",0)),SFDA(SF,STIENS,9.1)=TINV
.S TIUC=$G(@SSGL@(STSIG,"Timing",0,"IntervalUnitsCode",0)),SFDA(SF,STIENS,9.3)=TIUC
.S TIUCQ=$G(@SSGL@(STSIG,"Timing",0,"IntervalUnitsCodeQualifier",0)),SFDA(SF,STIENS,9.4)=TIUCQ
.S TIUT=$G(@SSGL@(STSIG,"Timing",0,"IntervalUnitsText",0)),SFDA(SF,STIENS,9.2)=TIUT
.S TMATM=$G(@SSGL@(STSIG,"Timing",0,"MultipleAdministrationTimingModifier",0)),SFDA(SF,STIENS,7.4)=TMATM
.S TRUMC=$G(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureCode",0)),SFDA(SF,STIENS,7.7)=TRUMC
.S TRUMCQ=$G(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureCodeQualifier",0)),SFDA(SF,STIENS,7.8)=TRUMCQ
.S TRUMT=$G(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureText",0)),SFDA(SF,STIENS,7.6)=TRUMT
.S TRA=$G(@SSGL@(STSIG,"Timing",0,"RateofAdministration",0)),SFDA(SF,STIENS,7.5)=TRA
.S TTPBC=$G(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisCode",0)),SFDA(SF,STIENS,8.2)=TTPBC
.S TTPBCQ=$G(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisCodeQualifier",0)),SFDA(SF,STIENS,8.3)=TTPBCQ
.S TTPBT=$G(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisText",0)),SFDA(SF,STIENS,8.1)=TTPBT
.S TVFM=$G(@SSGL@(STSIG,"Timing",0,"VariableFrequencyModifier",0)),SFDA(SF,STIENS,8.8)=TVFM
.S TVIM=$G(@SSGL@(STSIG,"Timing",0,"VariableIntervalModifier",0)),SFDA(SF,STIENS,9.5)=TVIM
.; Vehicle
.S VMVM=$G(@SSGL@(STSIG,"Vehicle",0,"MultipleVehicleModifier",0)),SFDA(SF,STIENS,5.8)=VMVM
.S VN=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleName",0)),SFDA(SF,STIENS,5.1)=VN
.S VNC=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleNameCode",0)),SFDA(SF,STIENS,5.2)=VNC
.S VNCQ=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleNameCodeQualifier",0)),SFDA(SF,STIENS,5.3)=VNCQ
.S VQTY=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleQuantity",0)),SFDA(SF,STIENS,5.4)=VQTY
.S VUMC=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureCode",0)),SFDA(SF,STIENS,5.6)=VUMC
.S VUMCQ=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureCodeQualifier",0)),SFDA(SF,STIENS,5.7)=VUMCQ
.S VUMT=$G(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureText",0)),SFDA(SF,STIENS,5.5)=VUMT
.D UPDATE^DIE(,"SFDA") K SFDA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOERXA4 10413 printed Dec 13, 2024@02:28:23 Page 2
PSOERXA4 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
+1 ;;7.0;OUTPATIENT PHARMACY;**467**;DEC 1997;Build 153
+2 ;
+3 QUIT
SS(EIENS) ;Structured Sig
+1 NEW SSGL,STSIG,SIGSEQ,MSIGMOD,FTSIG,FTSIGSI,SNOMEDV,FMTV,DCIND,DDMC,DDMCQ,DDMMC,DDMMCQ,DDMTEXT,DFC,DFCQ,DFTEXT,DQTY,DRNGMOD
+2 NEW DCBMQ,DCBMV,DCCDN,DCCDUMC,DCCDUMCQ,DCCDUMT,DCDBNV,DCDBRM,DCDBUMC,DCDBUMCQ,DCDBUMT,DURNV,DURTXT,DURTXTC,DURTXTCQ
+3 NEW IIPC,IIPCQ,IIPCT,IIT,IITC,IITCQ,IIVT,IIVU,IIVUMC,IIVUMCQ,IIVUMT,IIVM,MDRNV,MDRNCQ,MDRUC,MDRUT,MDRVDM,MDRVNV,MDRVUC
+4 NEW MDRVUCQ,MDRVUT,ROAMRAM,ROAMC,ROAMCQ,ROAMT,SAMATM,SASAC,SASACQ,TATC,TATCQ,TATT,TFNV,TFUC,TFUCQ,TFUT,TINV,TIUC,TIUCQ
+5 NEW TIUT,TMATM,TRUMC,TRUMCQ,TRUMT,TRA,TTPBC,TTPBCQ,TTPBT,TVFM,TVIM,VMVM,VN,VNC,VNCQ,VQTY,VUMC,VUMCQ,VUMT,STSCNT,SAT
+6 NEW STIENS,SF
+7 SET SF=52.4911
+8 ;S SSGL=$NA(^TMP($J,"PSOERXO1","Message",0,"Body",0,"NewRx",0,"MedicationPrescribed",0,"StructuredSIG"))
+9 SET SSGL=$NAME(^TMP($JOB,"PSOERXO1","SIG",0,"StructuredSIG"))
+10 SET STSCNT=0
+11 SET STSIG=-1
FOR
SET STSIG=$ORDER(@SSGL@(STSIG))
if STSIG=""
QUIT
Begin DoDot:1
+12 SET STSCNT=STSCNT+1
+13 SET STIENS="+"_STSCNT_","_EIENS
+14 SET SIGSEQ=$GET(@SSGL@(STSIG,"RepeatingSIG",0,"SigSequencePositionNumber",0))
SET SFDA(SF,STIENS,.01)=SIGSEQ
+15 SET MSIGMOD=$GET(@SSGL@(STSIG,"RepeatingSIG",0,"MultipleSigModifier",0))
SET SFDA(SF,STIENS,.02)=MSIGMOD
+16 SET FTSIG=$GET(@SSGL@(STSIG,"FreeText",0,"SigFreeText",0))
SET SFDA(SF,STIENS,1)=FTSIG
+17 SET FTSIGSI=$GET(@SSGL@(STSIG,"FreeText",0,"SigFreeTextStringIndicator",0))
SET SFDA(SF,STIENS,.05)=FTSIGSI
+18 SET SNOMEDV=$GET(@SSGL@(STSIG,"CodeSystem",0,"SNOMEDVersion",0))
SET SFDA(SF,STIENS,.03)=SNOMEDV
+19 SET FMTV=$GET(@SSGL@(STSIG,"CodeSystem",0,"FMTVersion",0))
SET SFDA(SF,STIENS,.04)=FMTV
+20 ; dose section
+21 SET DCIND=$GET(@SSGL@(STSIG,"Dose",0,"DoseCompositeIndicator",0))
SET SFDA(SF,STIENS,2.1)=DCIND
+22 SET DDMC=$GET(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodCode",0))
SET SFDA(SF,STIENS,2.4)=DDMC
+23 SET DDMCQ=$GET(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodCodeQualifier",0))
SET SFDA(SF,STIENS,2.3)=DDMCQ
+24 SET DDMMC=$GET(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodModifierCode",0))
SET SFDA(SF,STIENS,2.6)=DDMMC
+25 SET DDMMCQ=$GET(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodModifierCodeQualifier",0))
SET SFDA(SF,STIENS,2.7)=DDMMCQ
+26 SET DDMTEXT=$GET(@SSGL@(STSIG,"Dose",0,"DoseDeliveryMethodText",0))
SET SFDA(SF,STIENS,2.2)=DDMTEXT
+27 SET DFC=$GET(@SSGL@(STSIG,"Dose",0,"DoseFormCode",0))
SET SFDA(SF,STIENS,3.3)=DFC
+28 SET DFCQ=$GET(@SSGL@(STSIG,"Dose",0,"DoseFormCodeQualifier",0))
SET SFDA(SF,STIENS,3.4)=DFCQ
+29 SET DFTEXT=$GET(@SSGL@(STSIG,"Dose",0,"DoseFormText",0))
SET SFDA(SF,STIENS,3.2)=DFTEXT
+30 SET DQTY=$GET(@SSGL@(STSIG,"Dose",0,"DoseQuantity",0))
SET SFDA(SF,STIENS,3.1)=DQTY
+31 SET DRNGMOD=$GET(@SSGL@(STSIG,"Dose",0,"DoseRangeModifier",0))
SET SFDA(SF,STIENS,3.5)=DRNGMOD
+32 ; dose calcuation section
+33 SET DCBMQ=$GET(@SSGL@(STSIG,"DoseCalculation",0,"BodyMetricQualifier",0))
SET SFDA(SF,STIENS,4.5)=DCBMQ
+34 SET DCBMV=$GET(@SSGL@(STSIG,"DoseCalculation",0,"BodyMetricValue",0))
SET SFDA(SF,STIENS,4.6)=DCBMV
+35 SET DCCDN=$GET(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseNumeric",0))
SET SFDA(SF,STIENS,4.7)=DCCDN
+36 SET DCCDUMC=$GET(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureCode",0))
SET SFDA(SF,STIENS,4.9)=DCCDUMC
+37 SET DCCDUMCQ=$GET(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureCodeQualifier",0))
SET SFDA(SF,STIENS,4.11)=DCCDUMCQ
+38 SET DCCDUMT=$GET(@SSGL@(STSIG,"DoseCalculation",0,"CalculatedDoseUnitofMeasureText",0))
SET SFDA(SF,STIENS,4.8)=DCCDUMT
+39 SET DCDBNV=$GET(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisNumericValue",0))
SET SFDA(SF,STIENS,4.1)=DCDBNV
+40 SET DCDBRM=$GET(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisRangeModifier",0))
SET SFDA(SF,STIENS,4.12)=DCDBRM
+41 SET DCDBUMC=$GET(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureCode",0))
SET SFDA(SF,STIENS,4.3)=DCDBUMC
+42 SET DCDBUMCQ=$GET(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureCodeQualifier",0))
SET SFDA(SF,STIENS,4.4)=DCDBUMCQ
+43 SET DCDBUMT=$GET(@SSGL@(STSIG,"DoseCalculation",0,"DosingBasisUnitofMeasureText",0))
SET SFDA(SF,STIENS,4.2)=DCDBUMT
+44 ; duration
+45 SET DURNV=$GET(@SSGL@(STSIG,"Duration",0,"DurationNumericValue",0))
SET SFDA(SF,STIENS,9.6)=DURNV
+46 SET DURTXT=$GET(@SSGL@(STSIG,"Duration",0,"DurationText",0))
SET SFDA(SF,STIENS,9.7)=DURTXT
+47 SET DURTXTC=$GET(@SSGL@(STSIG,"Duration",0,"DurationTextCode",0))
SET SFDA(SF,STIENS,9.8)=DURTXTC
+48 SET DURTXTCQ=$GET(@SSGL@(STSIG,"Duration",0,"DurationTextCodeQualifier",0))
SET SFDA(SF,STIENS,9.9)=DURTXTCQ
+49 ; indication
+50 SET IIPC=$GET(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorCode",0))
SET SFDA(SF,STIENS,11.2)=IIPC
+51 SET IIPCQ=$GET(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorCodeQualifier",0))
SET SFDA(SF,STIENS,11.3)=IIPCQ
+52 SET IIPCT=$GET(@SSGL@(STSIG,"Indication",0,"IndicationPrecursorText",0))
SET SFDA(SF,STIENS,11.1)=IIPCT
+53 SET IIT=$GET(@SSGL@(STSIG,"Indication",0,"IndicationText",0))
SET SFDA(SF,STIENS,11.4)=IIT
+54 SET IITC=$GET(@SSGL@(STSIG,"Indication",0,"IndicationTextCode",0))
SET SFDA(SF,STIENS,11.5)=IITC
+55 SET IITCQ=$GET(@SSGL@(STSIG,"Indication",0,"IndicationTextCodeQualifier",0))
SET SFDA(SF,STIENS,11.6)=IITCQ
+56 SET IIVT=$GET(@SSGL@(STSIG,"Indication",0,"IndicationValueText",0))
SET SFDA(SF,STIENS,12.1)=IIVT
+57 SET IIVU=$GET(@SSGL@(STSIG,"Indication",0,"IndicationValueUnit",0))
SET SFDA(SF,STIENS,12.2)=IIVU
+58 SET IIVUMC=$GET(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureCode",0))
SET SFDA(SF,STIENS,12.4)=IIVUMC
+59 SET IIVUMCQ=$GET(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureCodeQualifier",0))
SET SFDA(SF,STIENS,12.5)=IIVUMCQ
+60 SET IIVUMT=$GET(@SSGL@(STSIG,"Indication",0,"IndicationValueUnitofMeasureText",0))
SET SFDA(SF,STIENS,12.3)=IIVUMT
+61 SET IIVM=$GET(@SSGL@(STSIG,"Indication",0,"IndicationVariableModifier",0))
SET SFDA(SF,STIENS,12.6)=IIVM
+62 ; Maximum Dose Restriction
+63 SET MDRNV=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionNumericValue",0))
SET SFDA(SF,STIENS,10.1)=MDRNV
+64 SET MDRNCQ=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionCodeQualifier",0))
SET SFDA(SF,STIENS,10.3)=MDRNCQ
+65 SET MDRUC=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionUnitsCode",0))
SET SFDA(SF,STIENS,10.4)=MDRUC
+66 SET MDRUT=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionUnitsText",0))
SET SFDA(SF,STIENS,10.2)=MDRUT
+67 SET MDRVDM=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableDurationModifier",0))
SET SFDA(SF,STIENS,10.9)=MDRVDM
+68 SET MDRVNV=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableNumericValue",0))
SET SFDA(SF,STIENS,10.5)=MDRVNV
+69 SET MDRVUC=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsCode",0))
SET SFDA(SF,STIENS,10.7)=MDRVUC
+70 SET MDRVUCQ=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsCodeQualifier",0))
SET SFDA(SF,STIENS,10.8)=MDRVUCQ
+71 SET MDRVUT=$GET(@SSGL@(STSIG,"MaximumDoseRestriction",0,"MaximumDoseRestrictionVariableUnitsText",0))
SET SFDA(SF,STIENS,10.6)=MDRVUT
+72 ; Route of Administration
+73 SET ROAMRAM=$GET(@SSGL@(STSIG,"RouteOfAdministration",0,"MultipleRouteofAdministrationModifier",0))
SET SFDA(SF,STIENS,6.4)=ROAMRAM
+74 SET ROAMC=$GET(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationCode",0))
SET SFDA(SF,STIENS,6.2)=ROAMC
+75 SET ROAMCQ=$GET(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationCodeQualifier",0))
SET SFDA(SF,STIENS,6.3)=ROAMCQ
+76 SET ROAMT=$GET(@SSGL@(STSIG,"RouteOfAdministration",0,"RouteofAdministrationText",0))
SET SFDA(SF,STIENS,6.1)=ROAMT
+77 ; site of Administration
+78 SET SAMATM=$GET(@SSGL@(STSIG,"SiteofAdministration",0,"MultipleAdministrationTimingModifier",0))
SET SFDA(SF,STIENS,6.8)=SAMATM
+79 SET SASAC=$GET(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationCode",0))
SET SFDA(SF,STIENS,6.6)=SASAC
+80 SET SASACQ=$GET(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationCodeQualifier",0))
SET SFDA(SF,STIENS,6.7)=SASACQ
+81 SET SAT=$GET(@SSGL@(STSIG,"SiteofAdministration",0,"SiteofAdministrationText",0))
SET SFDA(SF,STIENS,6.5)=SAT
+82 ; Timing
+83 SET TATC=$GET(@SSGL@(STSIG,"Timing",0,"AdministrationTimingCode",0))
SET SFDA(SF,STIENS,7.2)=TATC
+84 SET TATCQ=$GET(@SSGL@(STSIG,"Timing",0,"AdministrationTimingCodeQualifier",0))
SET SFDA(SF,STIENS,7.3)=TATCQ
+85 SET TATT=$GET(@SSGL@(STSIG,"Timing",0,"AdministrationTimingText",0))
SET SFDA(SF,STIENS,7.1)=TATT
+86 SET TFNV=$GET(@SSGL@(STSIG,"Timing",0,"FrequencyNumericValue",0))
SET SFDA(SF,STIENS,8.4)=TFNV
+87 SET TFUC=$GET(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsCode",0))
SET SFDA(SF,STIENS,8.6)=TFUC
+88 SET TFUCQ=$GET(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsCodeQualifier",0))
SET SFDA(SF,STIENS,8.7)=TFUCQ
+89 SET TFUT=$GET(@SSGL@(STSIG,"Timing",0,"FrequencyUnitsText",0))
SET SFDA(SF,STIENS,8.5)=TFUT
+90 SET TINV=$GET(@SSGL@(STSIG,"Timing",0,"IntervalNumericValue",0))
SET SFDA(SF,STIENS,9.1)=TINV
+91 SET TIUC=$GET(@SSGL@(STSIG,"Timing",0,"IntervalUnitsCode",0))
SET SFDA(SF,STIENS,9.3)=TIUC
+92 SET TIUCQ=$GET(@SSGL@(STSIG,"Timing",0,"IntervalUnitsCodeQualifier",0))
SET SFDA(SF,STIENS,9.4)=TIUCQ
+93 SET TIUT=$GET(@SSGL@(STSIG,"Timing",0,"IntervalUnitsText",0))
SET SFDA(SF,STIENS,9.2)=TIUT
+94 SET TMATM=$GET(@SSGL@(STSIG,"Timing",0,"MultipleAdministrationTimingModifier",0))
SET SFDA(SF,STIENS,7.4)=TMATM
+95 SET TRUMC=$GET(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureCode",0))
SET SFDA(SF,STIENS,7.7)=TRUMC
+96 SET TRUMCQ=$GET(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureCodeQualifier",0))
SET SFDA(SF,STIENS,7.8)=TRUMCQ
+97 SET TRUMT=$GET(@SSGL@(STSIG,"Timing",0,"RateUnitofMeasureText",0))
SET SFDA(SF,STIENS,7.6)=TRUMT
+98 SET TRA=$GET(@SSGL@(STSIG,"Timing",0,"RateofAdministration",0))
SET SFDA(SF,STIENS,7.5)=TRA
+99 SET TTPBC=$GET(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisCode",0))
SET SFDA(SF,STIENS,8.2)=TTPBC
+100 SET TTPBCQ=$GET(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisCodeQualifier",0))
SET SFDA(SF,STIENS,8.3)=TTPBCQ
+101 SET TTPBT=$GET(@SSGL@(STSIG,"Timing",0,"TimePeriodBasisText",0))
SET SFDA(SF,STIENS,8.1)=TTPBT
+102 SET TVFM=$GET(@SSGL@(STSIG,"Timing",0,"VariableFrequencyModifier",0))
SET SFDA(SF,STIENS,8.8)=TVFM
+103 SET TVIM=$GET(@SSGL@(STSIG,"Timing",0,"VariableIntervalModifier",0))
SET SFDA(SF,STIENS,9.5)=TVIM
+104 ; Vehicle
+105 SET VMVM=$GET(@SSGL@(STSIG,"Vehicle",0,"MultipleVehicleModifier",0))
SET SFDA(SF,STIENS,5.8)=VMVM
+106 SET VN=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleName",0))
SET SFDA(SF,STIENS,5.1)=VN
+107 SET VNC=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleNameCode",0))
SET SFDA(SF,STIENS,5.2)=VNC
+108 SET VNCQ=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleNameCodeQualifier",0))
SET SFDA(SF,STIENS,5.3)=VNCQ
+109 SET VQTY=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleQuantity",0))
SET SFDA(SF,STIENS,5.4)=VQTY
+110 SET VUMC=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureCode",0))
SET SFDA(SF,STIENS,5.6)=VUMC
+111 SET VUMCQ=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureCodeQualifier",0))
SET SFDA(SF,STIENS,5.7)=VUMCQ
+112 SET VUMT=$GET(@SSGL@(STSIG,"Vehicle",0,"VehicleUnitofMeasureText",0))
SET SFDA(SF,STIENS,5.5)=VUMT
+113 DO UPDATE^DIE(,"SFDA")
KILL SFDA
End DoDot:1
+114 QUIT
