- MHV7B1R ;WAS/GPM - HL7 message builder RTB^K13 Medications Profile ; 10/13/05 7:52pm [12/24/07 5:39pm]
- ;;1.0;My HealtheVet;**40**;Aug 23, 2005;Build 26
- ;;Per VA Directive 6402, this routine should not be modified
- ;
- Q
- ;
- RDF(MSGROOT,CNT,LEN,HL) ; Build RDF segment for Rx Profile data
- ;
- ; Input:
- ; MSGROOT - Root of array holding the message
- ; CNT - Current message line counter
- ; LEN - Current message length
- ; HL - HL7 package array variable
- ;
- ; Output:
- ; - Populated message array
- ; - Updated LEN and CNT
- ;
- N RDF
- S RDF(0)="RDF"
- S RDF(1)=52
- S RDF(2,1,1)="Prescription Number",RDF(2,1,2)="ST",RDF(2,1,3)=30
- S RDF(2,2,1)="IEN",RDF(2,2,2)="NM",RDF(2,2,3)=30
- S RDF(2,3,1)="Drug Name",RDF(2,3,2)="ST",RDF(2,3,3)=50
- S RDF(2,4,1)="Issue Date/Time",RDF(2,4,2)="TS",RDF(2,4,3)=26
- S RDF(2,5,1)="Last Fill Date",RDF(2,5,2)="TS",RDF(2,5,3)=26
- S RDF(2,6,1)="Release Date/Time",RDF(2,6,2)="TS",RDF(2,6,3)=26
- S RDF(2,7,1)="Expiration",RDF(2,7,2)="TS",RDF(2,7,3)=26
- S RDF(2,8,1)="Status",RDF(2,8,2)="ST",RDF(2,8,3)=25
- S RDF(2,9,1)="Quantity",RDF(2,9,2)="NM",RDF(2,9,3)=11
- S RDF(2,10,1)="Days Supply",RDF(2,10,2)="NM",RDF(2,10,3)=5
- S RDF(2,11,1)="Refills Remaining",RDF(2,11,2)="NM",RDF(2,11,3)=5
- S RDF(2,12,1)="Provider",RDF(2,12,2)="XCN",RDF(2,12,3)=150
- S RDF(2,13,1)="Placer Order Number",RDF(2,13,2)="ST",RDF(2,13,3)=30
- S RDF(2,14,1)="Mail/Window",RDF(2,14,2)="ST",RDF(2,14,3)=10
- S RDF(2,15,1)="Division",RDF(2,15,2)="NM",RDF(2,15,3)=50
- S RDF(2,16,1)="Division Name",RDF(2,16,2)="ST",RDF(2,16,3)=50
- S RDF(2,17,1)="MHV Request Status",RDF(2,17,2)="NM",RDF(2,17,3)=5
- S RDF(2,18,1)="MHV Request Status Date",RDF(2,18,2)="TS",RDF(2,18,3)=26
- S RDF(2,19,1)="Remarks",RDF(2,19,2)="ST",RDF(2,19,3)=1024
- S RDF(2,20,1)="Source",RDF(2,20,2)="ST",RDF(2,20,3)=2
- S RDF(2,21,1)="NDC",RDF(2,21,2)="ST",RDF(2,21,3)=15
- S RDF(2,22,1)="Dispensed Date",RDF(2,22,2)="TS",RDF(2,22,3)=26
- S RDF(2,23,1)="Trade Name",RDF(2,23,2)="ST",RDF(2,23,3)=30
- S RDF(2,24,1)="Reason",RDF(2,24,2)="ST",RDF(2,24,3)=100
- S RDF(2,25,1)="Reason Comment",RDF(2,25,2)="st",RDF(2,25,3)=1024
- S RDF(2,26,1)="Cancel Date",RDF(2,26,2)="TS",RDF(2,26,3)=26
- S RDF(2,27,1)="Facility Site Number",RDF(2,27,2)="ST",RDF(2,27,3)=50
- S RDF(2,28,1)="Facility Name",RDF(2,28,2)="ST",RDF(2,28,3)=50
- S RDF(2,29,1)="Facility Address Line 1",RDF(2,29,2)="ST",RDF(2,29,3)=100
- S RDF(2,30,1)="Facility City",RDF(2,30,2)="ST",RDF(2,30,3)=60
- S RDF(2,31,1)="Facility State",RDF(2,31,2)="ST",RDF(2,31,3)=10
- S RDF(2,32,1)="Facility Zip",RDF(2,32,2)="ST",RDF(2,32,3)=10
- S RDF(2,33,1)="Facility Phone Number",RDF(2,33,2)="NM",RDF(2,33,3)=10
- S RDF(2,34,1)="Next Possible Fill Date",RDF(2,34,2)="TS",RDF(2,34,3)=26
- S RDF(2,35,1)="Drug Schedule",RDF(2,35,2)="ST",RDF(2,35,3)=50
- S RDF(2,36,1)="VAMC Tracking Number",RDF(2,36,2)="ST",RDF(2,36,3)=25
- S RDF(2,37,1)="CMOP Tracking Number",RDF(2,37,2)="ST",RDF(2,37,3)=25
- S RDF(2,38,1)="CMOP Date Shipped",RDF(2,38,2)="TS",RDF(2,38,3)=26
- S RDF(2,39,1)="CMOP Carrier",RDF(2,39,2)="ST",RDF(2,39,3)=50
- S RDF(2,40,1)="Carrier Tracking Number",RDF(2,40,2)="ST",RDF(2,40,3)=25
- S RDF(2,41,1)="Number of RX in Package",RDF(2,41,2)="NM",RDF(2,41,3)=5
- S RDF(2,42,1)="CMOP System",RDF(2,42,2)="ST",RDF(2,42,3)=50
- S RDF(2,43,1)="CMOP Status",RDF(2,43,2)="ST",RDF(2,43,3)=50
- S RDF(2,44,1)="CMOP RX Indicator",RDF(2,44,2)="ST",RDF(2,44,3)=5
- S RDF(2,45,1)="CMOP NDC Received",RDF(2,45,2)="ST",RDF(2,45,3)=15
- S RDF(2,46,1)="CMOP NDC Sent",RDF(2,46,2)="ST",RDF(2,46,3)=15
- S RDF(2,47,1)="Orderable Item",RDF(2,47,2)="ST",RDF(2,47,3)=30
- S RDF(2,48,1)="Administered At Clinic",RDF(2,48,2)="NM",RDF(2,48,3)=10
- S RDF(2,49,1)="Clinic/Hospital Location",RDF(2,49,2)="TX",RDF(2,49,3)=100
- S RDF(2,50,1)="SIG",RDF(2,50,2)="TX",RDF(2,50,3)=1024
- S RDF(2,51,1)="UNIQUE INDEX",RDF(2,51,2)="TX",RDF(2,51,3)=10
- S RDF(2,52,1)="DISCLAIMER",RDF(2,52,2)="TX",RDF(2,52,3)=1024
- ;
- S CNT=CNT+1
- S @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDF,.HL)
- S LEN=LEN+$L(@MSGROOT@(CNT))
- Q
- ;
- RDT(MSGROOT,DATAROOT,CNT,LEN,HL) ; Build RDT segments for Rx Profile data
- ;
- ; Walks data in DATAROOT to populate MSGROOT with RDT segments
- ; sequentially numbered starting at CNT
- ;
- ; Integration Agreements:
- ; 10103 : FMTHL7^XLFDT
- ; 3065 : HLNAME^XLFNAME
- ;
- ; Input:
- ; MSGROOT - Root of array holding the message
- ; DATAROOT - Root of array to hold extract data
- ; CNT - Current message line counter
- ; LEN - Current message length
- ; HL - HL7 package array variable
- ;
- ; Output:
- ; - Populated message array
- ; - Updated LEN and CNT
- ;
- N I,CMP,DIV,RX,CMOP,RXP,RXN,RXN1,RXN2,RXN3,RXN4,RXD,RDT,SIG,SEG,PIEN,NAME,WPLEN,PHRM,RTXT,STXT,TXT,DTXT,REM,DISC
- D LOG^MHVUL2("MHV7B1R","BEGIN RDT","S","TRACE")
- F I=1:1 Q:'$D(@DATAROOT@(I)) D
- . K RDT
- . S (RTXT,STXT,TXT)=""
- . S CMOP=$G(@DATAROOT@(I,"CMOP"))
- . S RX=$G(@DATAROOT@(I))
- . S RXN=$G(@DATAROOT@(I,"RXN"))
- . S RXN1=$G(@DATAROOT@(I,"RXN1"))
- . S RXN2=$G(@DATAROOT@(I,"RXN2"))
- . S RXN3=$G(@DATAROOT@(I,"RXN3"))
- . S RXN4=$G(@DATAROOT@(I,"RXN4"))
- . S PHRM=$G(@DATAROOT@(I,"PHRM"))
- . S RXP=$G(@DATAROOT@(I,"P"))
- . S PIEN=+RXP
- . S RXD=$G(@DATAROOT@(I,"DIV"))
- . ;K SIG I $D(@DATAROOT@(I,"SIG")) M SIG=@DATAROOT@(I,"SIG")
- . S RDT(0)="RDT"
- . S RDT(1)=$P(RX,"^") ;Rx Number
- . S RDT(2)=$P(RXN,"^") ;Rx IEN
- . S RDT(3)=$$ESCAPE^MHV7U($P(RXN,"^",2),.HL) ;Drug Name
- . S RDT(4)=$$FMTHL7^XLFDT($P(RXN,"^",3)) ;Issue Date/Time
- . S RDT(5)=$$FMTHL7^XLFDT($P(RXN,"^",4)) ;Last Fill Date
- . S RDT(6)=$$FMTHL7^XLFDT($P(RXN,"^",5)) ;Release Date/Time
- . S RDT(7)=$$FMTHL7^XLFDT($P(RXN,"^",6)) ;Expiration
- . S RDT(8)=$$ESCAPE^MHV7U($P(RXN1,"^",1),.HL) ;Status
- . S RDT(9)=$P(RXN1,"^",2) ;Quantity
- . S RDT(10)=$P(RXN1,"^",3) ;Days Supply
- . S RDT(11)=$P(RXN1,"^",4) ;Number of Refills
- . I PIEN D
- .. D FMTNAME2^MHV7BU(PIEN,200,.NAME,.HL,"XCN") ;Provider IEN
- .. M RDT(12,1)=NAME
- .. S RDT(12,1,1)=PIEN
- . S RDT(13)=$$ESCAPE^MHV7U($P(RXN1,"^",5),.HL) ;Placer Order Number
- . S RDT(14)=$P(RXN1,"^",6) ;Mail/Window
- . S RDT(15)=$P(RXD,"^") ;Division
- . S RDT(16)=$$ESCAPE^MHV7U($P(RXD,"^",2),.HL) ;Division Name
- . S RDT(17)=$P(RX,"^",3) ;MHV status
- . S RDT(18)=$$FMTHL7^XLFDT($P(RX,"^",4)) ;MHV status date
- . S RTXT=$$RMK("RMK")
- . S TXT=$$ESCAPE($E(RTXT,1,1024),.HL) ;Remarks
- . S RDT(19)=$$SPACES(TXT)
- . S RDT(20)=$P(RXN2,"^",1) ;Source
- . S RDT(21)=$P(RXN2,"^",2) ;NDC
- . S RDT(22)=$$FMTHL7^XLFDT($P(RXN2,"^",3)) ;Dispense Date
- . S RDT(23)=$P(RXN,"^",8) ;Trade Name
- . S RDT(24)=$P(RXN2,"^",4) ;Reason for Auto DC'ed: Rx Discontinued by EHRM Data Migration. - Activity log.
- . S RDT(25)=$P(RXN2,"^",5) ;Auto DC'ed: Rx Discontinued by EHRM Data Migration.
- . S RDT(26)=$$FMTHL7^XLFDT($P(RXN2,"^",6)) ;Cancel Date
- . S RDT(27)=$P(PHRM,"^",8) ;Site Number
- . S RDT(28)=$P(PHRM,"^",2) ;Facility Name
- . S RDT(29)=$P(PHRM,"^",3) ;Facility Address Line1
- . S RDT(30)=$P(PHRM,"^",5) ;Facility City
- . S RDT(31)=$P(PHRM,"^",7) ;Facility State
- . S RDT(32)=$P(PHRM,"^",6) ;Facility Zip
- . S RDT(33)=$P(PHRM,"^",4) ;Facility Phone
- . S RDT(34)=$$FMTHL7^XLFDT($P(RXN3,"^",2)) ;Refilliable Date
- . S RDT(35)=$P(RXN3,"^",3) ;Drug Schedule
- . S RDT(36)=$P(RXN3,"^",4) ;Other Tracking Number pulled from activity log
- . S RDT(37)=$P(CMOP,"^",11) ;CMOP Tracking Number
- . S RDT(38)=$$FMTHL7^XLFDT($P(CMOP,"^",9)) ;CMOP Date Shipped
- . S RDT(39)=$P(CMOP,"^",10) ;CMOP Carrier
- . S RDT(40)="" ;Carrier Tracking Number <FUTURE USE>
- . S RDT(41)="" ;Number of RX in Package <FUTURE USE>
- . S RDT(42)="" ;CMOP System <FUTURE USE>
- . S RDT(43)=$P(CMOP,"^",3) ;CMOP Status
- . S RDT(44)=$P(CMOP,"^",2) ;CMOP Rx Indicator
- . S RDT(45)=$P(CMOP,"^",4) ;CMOP NDC Received
- . S RDT(46)=$P(CMOP,"^",12) ;CMOP NDC Sent
- . S RDT(47)=$P(RXN3,"^",5) ;Orderable Item
- . S RDT(48)=$P(RXN3,"^",6) ;Administered at Clinic
- . s RDT(49)=$P(RXN3,"^",1) ;Clinic
- . S STXT=$$RMK("SIG")
- . S TXT=$$ESCAPE($E(RTXT,1,1024),.HL)
- . S RDT(50)=$$SPACES(STXT) ;Sig
- . S RDT(51)=$P(RXN1,"^",7) ;UNIQUE INDEX FOR RF AND PF
- . S RDT(52)=""
- . I RDT(20)="NV" D
- . .S DISC=$$RMK("DSC") ;DISCLAIMER FOR NONVA
- . .S REM=$$RMK("RMK")
- . .S DTXT=$P(DISC,REM,1)
- . .S TXT=$$ESCAPE($E(DTXT,1,1024),.HL)
- . .S RDT(52)=$$SPACES(TXT)
- . S CNT=CNT+1
- . S @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDT,.HL)
- . S LEN=LEN+$L(@MSGROOT@(CNT))
- . Q
- D LOG^MHVUL2("MHV7B1R","END RDT","S","TRACE")
- Q
- ;
- RMK(TYP) ; build Remark field
- N X,Y
- S X="",Y=0
- F S Y=$O(@DATAROOT@(I,TYP,Y)) Q:'Y D
- .Q:$G(@DATAROOT@(I,TYP,Y,0))=""
- .S:X]"" X=X_" "
- .S X=X_@DATAROOT@(I,TYP,Y,0)
- Q X
- ;
- SPACES(WPN) ; Remove extra spaces from line of text
- N OUT,IX,SP
- S OUT=WPN
- S SP=" "
- F IX=$L(OUT):-1:1 I ($E(OUT,IX,IX+1)=(SP_SP)) S $E(OUT,IX)=""
- Q OUT
- ;
- ESCAPE(VAL,HL) ;Escape any special characters
- ;
- ; Input:
- ; VAL - value to escape
- ; HL - HL7 environment array
- ;
- ; Output:
- ; VAL - passed by reference
- ;
- N FS ;field separator
- N CS ;component separator
- N RS ;repetition separator
- N ES ;escape character
- N SS ;sub-component separator
- N L,STR,I
- ;
- S FS=HL("FS")
- S CS=$E(HL("ECH"))
- S RS=$E(HL("ECH"),2)
- S ES=$E(HL("ECH"),3)
- S SS=$E(HL("ECH"),4)
- ;
- I VAL[ES D
- . S L=$L(VAL,ES),STR=""
- . F I=1:1:L S $P(STR," ",I)=$P(VAL,ES,I)
- . S VAL=STR
- I VAL[FS D
- . S L=$L(VAL,FS),STR=""
- . F I=1:1:L S $P(STR," ",I)=$P(VAL,FS,I)
- . S VAL=STR
- I VAL[RS D
- . S L=$L(VAL,RS),STR=""
- . F I=1:1:L S $P(STR," ",I)=$P(VAL,RS,I)
- . S VAL=STR
- I VAL[CS D
- . S L=$L(VAL,CS),STR=""
- . F I=1:1:L S $P(STR," ",I)=$P(VAL,CS,I)
- . S VAL=STR
- I VAL[SS D
- . S L=$L(VAL,SS),STR=""
- . F I=1:1:L S $P(STR," ",I)=$P(VAL,SS,I)
- . S VAL=STR
- Q VAL
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMHV7B1R 10265 printed Mar 13, 2025@21:20:22 Page 2
- MHV7B1R ;WAS/GPM - HL7 message builder RTB^K13 Medications Profile ; 10/13/05 7:52pm [12/24/07 5:39pm]
- +1 ;;1.0;My HealtheVet;**40**;Aug 23, 2005;Build 26
- +2 ;;Per VA Directive 6402, this routine should not be modified
- +3 ;
- +4 QUIT
- +5 ;
- RDF(MSGROOT,CNT,LEN,HL) ; Build RDF segment for Rx Profile data
- +1 ;
- +2 ; Input:
- +3 ; MSGROOT - Root of array holding the message
- +4 ; CNT - Current message line counter
- +5 ; LEN - Current message length
- +6 ; HL - HL7 package array variable
- +7 ;
- +8 ; Output:
- +9 ; - Populated message array
- +10 ; - Updated LEN and CNT
- +11 ;
- +12 NEW RDF
- +13 SET RDF(0)="RDF"
- +14 SET RDF(1)=52
- +15 SET RDF(2,1,1)="Prescription Number"
- SET RDF(2,1,2)="ST"
- SET RDF(2,1,3)=30
- +16 SET RDF(2,2,1)="IEN"
- SET RDF(2,2,2)="NM"
- SET RDF(2,2,3)=30
- +17 SET RDF(2,3,1)="Drug Name"
- SET RDF(2,3,2)="ST"
- SET RDF(2,3,3)=50
- +18 SET RDF(2,4,1)="Issue Date/Time"
- SET RDF(2,4,2)="TS"
- SET RDF(2,4,3)=26
- +19 SET RDF(2,5,1)="Last Fill Date"
- SET RDF(2,5,2)="TS"
- SET RDF(2,5,3)=26
- +20 SET RDF(2,6,1)="Release Date/Time"
- SET RDF(2,6,2)="TS"
- SET RDF(2,6,3)=26
- +21 SET RDF(2,7,1)="Expiration"
- SET RDF(2,7,2)="TS"
- SET RDF(2,7,3)=26
- +22 SET RDF(2,8,1)="Status"
- SET RDF(2,8,2)="ST"
- SET RDF(2,8,3)=25
- +23 SET RDF(2,9,1)="Quantity"
- SET RDF(2,9,2)="NM"
- SET RDF(2,9,3)=11
- +24 SET RDF(2,10,1)="Days Supply"
- SET RDF(2,10,2)="NM"
- SET RDF(2,10,3)=5
- +25 SET RDF(2,11,1)="Refills Remaining"
- SET RDF(2,11,2)="NM"
- SET RDF(2,11,3)=5
- +26 SET RDF(2,12,1)="Provider"
- SET RDF(2,12,2)="XCN"
- SET RDF(2,12,3)=150
- +27 SET RDF(2,13,1)="Placer Order Number"
- SET RDF(2,13,2)="ST"
- SET RDF(2,13,3)=30
- +28 SET RDF(2,14,1)="Mail/Window"
- SET RDF(2,14,2)="ST"
- SET RDF(2,14,3)=10
- +29 SET RDF(2,15,1)="Division"
- SET RDF(2,15,2)="NM"
- SET RDF(2,15,3)=50
- +30 SET RDF(2,16,1)="Division Name"
- SET RDF(2,16,2)="ST"
- SET RDF(2,16,3)=50
- +31 SET RDF(2,17,1)="MHV Request Status"
- SET RDF(2,17,2)="NM"
- SET RDF(2,17,3)=5
- +32 SET RDF(2,18,1)="MHV Request Status Date"
- SET RDF(2,18,2)="TS"
- SET RDF(2,18,3)=26
- +33 SET RDF(2,19,1)="Remarks"
- SET RDF(2,19,2)="ST"
- SET RDF(2,19,3)=1024
- +34 SET RDF(2,20,1)="Source"
- SET RDF(2,20,2)="ST"
- SET RDF(2,20,3)=2
- +35 SET RDF(2,21,1)="NDC"
- SET RDF(2,21,2)="ST"
- SET RDF(2,21,3)=15
- +36 SET RDF(2,22,1)="Dispensed Date"
- SET RDF(2,22,2)="TS"
- SET RDF(2,22,3)=26
- +37 SET RDF(2,23,1)="Trade Name"
- SET RDF(2,23,2)="ST"
- SET RDF(2,23,3)=30
- +38 SET RDF(2,24,1)="Reason"
- SET RDF(2,24,2)="ST"
- SET RDF(2,24,3)=100
- +39 SET RDF(2,25,1)="Reason Comment"
- SET RDF(2,25,2)="st"
- SET RDF(2,25,3)=1024
- +40 SET RDF(2,26,1)="Cancel Date"
- SET RDF(2,26,2)="TS"
- SET RDF(2,26,3)=26
- +41 SET RDF(2,27,1)="Facility Site Number"
- SET RDF(2,27,2)="ST"
- SET RDF(2,27,3)=50
- +42 SET RDF(2,28,1)="Facility Name"
- SET RDF(2,28,2)="ST"
- SET RDF(2,28,3)=50
- +43 SET RDF(2,29,1)="Facility Address Line 1"
- SET RDF(2,29,2)="ST"
- SET RDF(2,29,3)=100
- +44 SET RDF(2,30,1)="Facility City"
- SET RDF(2,30,2)="ST"
- SET RDF(2,30,3)=60
- +45 SET RDF(2,31,1)="Facility State"
- SET RDF(2,31,2)="ST"
- SET RDF(2,31,3)=10
- +46 SET RDF(2,32,1)="Facility Zip"
- SET RDF(2,32,2)="ST"
- SET RDF(2,32,3)=10
- +47 SET RDF(2,33,1)="Facility Phone Number"
- SET RDF(2,33,2)="NM"
- SET RDF(2,33,3)=10
- +48 SET RDF(2,34,1)="Next Possible Fill Date"
- SET RDF(2,34,2)="TS"
- SET RDF(2,34,3)=26
- +49 SET RDF(2,35,1)="Drug Schedule"
- SET RDF(2,35,2)="ST"
- SET RDF(2,35,3)=50
- +50 SET RDF(2,36,1)="VAMC Tracking Number"
- SET RDF(2,36,2)="ST"
- SET RDF(2,36,3)=25
- +51 SET RDF(2,37,1)="CMOP Tracking Number"
- SET RDF(2,37,2)="ST"
- SET RDF(2,37,3)=25
- +52 SET RDF(2,38,1)="CMOP Date Shipped"
- SET RDF(2,38,2)="TS"
- SET RDF(2,38,3)=26
- +53 SET RDF(2,39,1)="CMOP Carrier"
- SET RDF(2,39,2)="ST"
- SET RDF(2,39,3)=50
- +54 SET RDF(2,40,1)="Carrier Tracking Number"
- SET RDF(2,40,2)="ST"
- SET RDF(2,40,3)=25
- +55 SET RDF(2,41,1)="Number of RX in Package"
- SET RDF(2,41,2)="NM"
- SET RDF(2,41,3)=5
- +56 SET RDF(2,42,1)="CMOP System"
- SET RDF(2,42,2)="ST"
- SET RDF(2,42,3)=50
- +57 SET RDF(2,43,1)="CMOP Status"
- SET RDF(2,43,2)="ST"
- SET RDF(2,43,3)=50
- +58 SET RDF(2,44,1)="CMOP RX Indicator"
- SET RDF(2,44,2)="ST"
- SET RDF(2,44,3)=5
- +59 SET RDF(2,45,1)="CMOP NDC Received"
- SET RDF(2,45,2)="ST"
- SET RDF(2,45,3)=15
- +60 SET RDF(2,46,1)="CMOP NDC Sent"
- SET RDF(2,46,2)="ST"
- SET RDF(2,46,3)=15
- +61 SET RDF(2,47,1)="Orderable Item"
- SET RDF(2,47,2)="ST"
- SET RDF(2,47,3)=30
- +62 SET RDF(2,48,1)="Administered At Clinic"
- SET RDF(2,48,2)="NM"
- SET RDF(2,48,3)=10
- +63 SET RDF(2,49,1)="Clinic/Hospital Location"
- SET RDF(2,49,2)="TX"
- SET RDF(2,49,3)=100
- +64 SET RDF(2,50,1)="SIG"
- SET RDF(2,50,2)="TX"
- SET RDF(2,50,3)=1024
- +65 SET RDF(2,51,1)="UNIQUE INDEX"
- SET RDF(2,51,2)="TX"
- SET RDF(2,51,3)=10
- +66 SET RDF(2,52,1)="DISCLAIMER"
- SET RDF(2,52,2)="TX"
- SET RDF(2,52,3)=1024
- +67 ;
- +68 SET CNT=CNT+1
- +69 SET @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDF,.HL)
- +70 SET LEN=LEN+$LENGTH(@MSGROOT@(CNT))
- +71 QUIT
- +72 ;
- RDT(MSGROOT,DATAROOT,CNT,LEN,HL) ; Build RDT segments for Rx Profile data
- +1 ;
- +2 ; Walks data in DATAROOT to populate MSGROOT with RDT segments
- +3 ; sequentially numbered starting at CNT
- +4 ;
- +5 ; Integration Agreements:
- +6 ; 10103 : FMTHL7^XLFDT
- +7 ; 3065 : HLNAME^XLFNAME
- +8 ;
- +9 ; Input:
- +10 ; MSGROOT - Root of array holding the message
- +11 ; DATAROOT - Root of array to hold extract data
- +12 ; CNT - Current message line counter
- +13 ; LEN - Current message length
- +14 ; HL - HL7 package array variable
- +15 ;
- +16 ; Output:
- +17 ; - Populated message array
- +18 ; - Updated LEN and CNT
- +19 ;
- +20 NEW I,CMP,DIV,RX,CMOP,RXP,RXN,RXN1,RXN2,RXN3,RXN4,RXD,RDT,SIG,SEG,PIEN,NAME,WPLEN,PHRM,RTXT,STXT,TXT,DTXT,REM,DISC
- +21 DO LOG^MHVUL2("MHV7B1R","BEGIN RDT","S","TRACE")
- +22 FOR I=1:1
- if '$DATA(@DATAROOT@(I))
- QUIT
- Begin DoDot:1
- +23 KILL RDT
- +24 SET (RTXT,STXT,TXT)=""
- +25 SET CMOP=$GET(@DATAROOT@(I,"CMOP"))
- +26 SET RX=$GET(@DATAROOT@(I))
- +27 SET RXN=$GET(@DATAROOT@(I,"RXN"))
- +28 SET RXN1=$GET(@DATAROOT@(I,"RXN1"))
- +29 SET RXN2=$GET(@DATAROOT@(I,"RXN2"))
- +30 SET RXN3=$GET(@DATAROOT@(I,"RXN3"))
- +31 SET RXN4=$GET(@DATAROOT@(I,"RXN4"))
- +32 SET PHRM=$GET(@DATAROOT@(I,"PHRM"))
- +33 SET RXP=$GET(@DATAROOT@(I,"P"))
- +34 SET PIEN=+RXP
- +35 SET RXD=$GET(@DATAROOT@(I,"DIV"))
- +36 ;K SIG I $D(@DATAROOT@(I,"SIG")) M SIG=@DATAROOT@(I,"SIG")
- +37 SET RDT(0)="RDT"
- +38 ;Rx Number
- SET RDT(1)=$PIECE(RX,"^")
- +39 ;Rx IEN
- SET RDT(2)=$PIECE(RXN,"^")
- +40 ;Drug Name
- SET RDT(3)=$$ESCAPE^MHV7U($PIECE(RXN,"^",2),.HL)
- +41 ;Issue Date/Time
- SET RDT(4)=$$FMTHL7^XLFDT($PIECE(RXN,"^",3))
- +42 ;Last Fill Date
- SET RDT(5)=$$FMTHL7^XLFDT($PIECE(RXN,"^",4))
- +43 ;Release Date/Time
- SET RDT(6)=$$FMTHL7^XLFDT($PIECE(RXN,"^",5))
- +44 ;Expiration
- SET RDT(7)=$$FMTHL7^XLFDT($PIECE(RXN,"^",6))
- +45 ;Status
- SET RDT(8)=$$ESCAPE^MHV7U($PIECE(RXN1,"^",1),.HL)
- +46 ;Quantity
- SET RDT(9)=$PIECE(RXN1,"^",2)
- +47 ;Days Supply
- SET RDT(10)=$PIECE(RXN1,"^",3)
- +48 ;Number of Refills
- SET RDT(11)=$PIECE(RXN1,"^",4)
- +49 IF PIEN
- Begin DoDot:2
- +50 ;Provider IEN
- DO FMTNAME2^MHV7BU(PIEN,200,.NAME,.HL,"XCN")
- +51 MERGE RDT(12,1)=NAME
- +52 SET RDT(12,1,1)=PIEN
- End DoDot:2
- +53 ;Placer Order Number
- SET RDT(13)=$$ESCAPE^MHV7U($PIECE(RXN1,"^",5),.HL)
- +54 ;Mail/Window
- SET RDT(14)=$PIECE(RXN1,"^",6)
- +55 ;Division
- SET RDT(15)=$PIECE(RXD,"^")
- +56 ;Division Name
- SET RDT(16)=$$ESCAPE^MHV7U($PIECE(RXD,"^",2),.HL)
- +57 ;MHV status
- SET RDT(17)=$PIECE(RX,"^",3)
- +58 ;MHV status date
- SET RDT(18)=$$FMTHL7^XLFDT($PIECE(RX,"^",4))
- +59 SET RTXT=$$RMK("RMK")
- +60 ;Remarks
- SET TXT=$$ESCAPE($EXTRACT(RTXT,1,1024),.HL)
- +61 SET RDT(19)=$$SPACES(TXT)
- +62 ;Source
- SET RDT(20)=$PIECE(RXN2,"^",1)
- +63 ;NDC
- SET RDT(21)=$PIECE(RXN2,"^",2)
- +64 ;Dispense Date
- SET RDT(22)=$$FMTHL7^XLFDT($PIECE(RXN2,"^",3))
- +65 ;Trade Name
- SET RDT(23)=$PIECE(RXN,"^",8)
- +66 ;Reason for Auto DC'ed: Rx Discontinued by EHRM Data Migration. - Activity log.
- SET RDT(24)=$PIECE(RXN2,"^",4)
- +67 ;Auto DC'ed: Rx Discontinued by EHRM Data Migration.
- SET RDT(25)=$PIECE(RXN2,"^",5)
- +68 ;Cancel Date
- SET RDT(26)=$$FMTHL7^XLFDT($PIECE(RXN2,"^",6))
- +69 ;Site Number
- SET RDT(27)=$PIECE(PHRM,"^",8)
- +70 ;Facility Name
- SET RDT(28)=$PIECE(PHRM,"^",2)
- +71 ;Facility Address Line1
- SET RDT(29)=$PIECE(PHRM,"^",3)
- +72 ;Facility City
- SET RDT(30)=$PIECE(PHRM,"^",5)
- +73 ;Facility State
- SET RDT(31)=$PIECE(PHRM,"^",7)
- +74 ;Facility Zip
- SET RDT(32)=$PIECE(PHRM,"^",6)
- +75 ;Facility Phone
- SET RDT(33)=$PIECE(PHRM,"^",4)
- +76 ;Refilliable Date
- SET RDT(34)=$$FMTHL7^XLFDT($PIECE(RXN3,"^",2))
- +77 ;Drug Schedule
- SET RDT(35)=$PIECE(RXN3,"^",3)
- +78 ;Other Tracking Number pulled from activity log
- SET RDT(36)=$PIECE(RXN3,"^",4)
- +79 ;CMOP Tracking Number
- SET RDT(37)=$PIECE(CMOP,"^",11)
- +80 ;CMOP Date Shipped
- SET RDT(38)=$$FMTHL7^XLFDT($PIECE(CMOP,"^",9))
- +81 ;CMOP Carrier
- SET RDT(39)=$PIECE(CMOP,"^",10)
- +82 ;Carrier Tracking Number <FUTURE USE>
- SET RDT(40)=""
- +83 ;Number of RX in Package <FUTURE USE>
- SET RDT(41)=""
- +84 ;CMOP System <FUTURE USE>
- SET RDT(42)=""
- +85 ;CMOP Status
- SET RDT(43)=$PIECE(CMOP,"^",3)
- +86 ;CMOP Rx Indicator
- SET RDT(44)=$PIECE(CMOP,"^",2)
- +87 ;CMOP NDC Received
- SET RDT(45)=$PIECE(CMOP,"^",4)
- +88 ;CMOP NDC Sent
- SET RDT(46)=$PIECE(CMOP,"^",12)
- +89 ;Orderable Item
- SET RDT(47)=$PIECE(RXN3,"^",5)
- +90 ;Administered at Clinic
- SET RDT(48)=$PIECE(RXN3,"^",6)
- +91 ;Clinic
- SET RDT(49)=$PIECE(RXN3,"^",1)
- +92 SET STXT=$$RMK("SIG")
- +93 SET TXT=$$ESCAPE($EXTRACT(RTXT,1,1024),.HL)
- +94 ;Sig
- SET RDT(50)=$$SPACES(STXT)
- +95 ;UNIQUE INDEX FOR RF AND PF
- SET RDT(51)=$PIECE(RXN1,"^",7)
- +96 SET RDT(52)=""
- +97 IF RDT(20)="NV"
- Begin DoDot:2
- +98 ;DISCLAIMER FOR NONVA
- SET DISC=$$RMK("DSC")
- +99 SET REM=$$RMK("RMK")
- +100 SET DTXT=$PIECE(DISC,REM,1)
- +101 SET TXT=$$ESCAPE($EXTRACT(DTXT,1,1024),.HL)
- +102 SET RDT(52)=$$SPACES(TXT)
- End DoDot:2
- +103 SET CNT=CNT+1
- +104 SET @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDT,.HL)
- +105 SET LEN=LEN+$LENGTH(@MSGROOT@(CNT))
- +106 QUIT
- End DoDot:1
- +107 DO LOG^MHVUL2("MHV7B1R","END RDT","S","TRACE")
- +108 QUIT
- +109 ;
- RMK(TYP) ; build Remark field
- +1 NEW X,Y
- +2 SET X=""
- SET Y=0
- +3 FOR
- SET Y=$ORDER(@DATAROOT@(I,TYP,Y))
- if 'Y
- QUIT
- Begin DoDot:1
- +4 if $GET(@DATAROOT@(I,TYP,Y,0))=""
- QUIT
- +5 if X]""
- SET X=X_" "
- +6 SET X=X_@DATAROOT@(I,TYP,Y,0)
- End DoDot:1
- +7 QUIT X
- +8 ;
- SPACES(WPN) ; Remove extra spaces from line of text
- +1 NEW OUT,IX,SP
- +2 SET OUT=WPN
- +3 SET SP=" "
- +4 FOR IX=$LENGTH(OUT):-1:1
- IF ($EXTRACT(OUT,IX,IX+1)=(SP_SP))
- SET $EXTRACT(OUT,IX)=""
- +5 QUIT OUT
- +6 ;
- ESCAPE(VAL,HL) ;Escape any special characters
- +1 ;
- +2 ; Input:
- +3 ; VAL - value to escape
- +4 ; HL - HL7 environment array
- +5 ;
- +6 ; Output:
- +7 ; VAL - passed by reference
- +8 ;
- +9 ;field separator
- NEW FS
- +10 ;component separator
- NEW CS
- +11 ;repetition separator
- NEW RS
- +12 ;escape character
- NEW ES
- +13 ;sub-component separator
- NEW SS
- +14 NEW L,STR,I
- +15 ;
- +16 SET FS=HL("FS")
- +17 SET CS=$EXTRACT(HL("ECH"))
- +18 SET RS=$EXTRACT(HL("ECH"),2)
- +19 SET ES=$EXTRACT(HL("ECH"),3)
- +20 SET SS=$EXTRACT(HL("ECH"),4)
- +21 ;
- +22 IF VAL[ES
- Begin DoDot:1
- +23 SET L=$LENGTH(VAL,ES)
- SET STR=""
- +24 FOR I=1:1:L
- SET $PIECE(STR," ",I)=$PIECE(VAL,ES,I)
- +25 SET VAL=STR
- End DoDot:1
- +26 IF VAL[FS
- Begin DoDot:1
- +27 SET L=$LENGTH(VAL,FS)
- SET STR=""
- +28 FOR I=1:1:L
- SET $PIECE(STR," ",I)=$PIECE(VAL,FS,I)
- +29 SET VAL=STR
- End DoDot:1
- +30 IF VAL[RS
- Begin DoDot:1
- +31 SET L=$LENGTH(VAL,RS)
- SET STR=""
- +32 FOR I=1:1:L
- SET $PIECE(STR," ",I)=$PIECE(VAL,RS,I)
- +33 SET VAL=STR
- End DoDot:1
- +34 IF VAL[CS
- Begin DoDot:1
- +35 SET L=$LENGTH(VAL,CS)
- SET STR=""
- +36 FOR I=1:1:L
- SET $PIECE(STR," ",I)=$PIECE(VAL,CS,I)
- +37 SET VAL=STR
- End DoDot:1
- +38 IF VAL[SS
- Begin DoDot:1
- +39 SET L=$LENGTH(VAL,SS)
- SET STR=""
- +40 FOR I=1:1:L
- SET $PIECE(STR," ",I)=$PIECE(VAL,SS,I)
- +41 SET VAL=STR
- End DoDot:1
- +42 QUIT VAL
