DGQEHLOR ;ALB/RPM - VIC REPLACEMENT HL7 BUILD ORC SEGMENT ; 2/23/04
;;5.3;Registration;**571,1015**;Aug 13, 1993;Build 21
;
Q
;
ORC(DGREQ,DGFLD,DGHL) ;ORC Segment API
;This function wraps the data retrieval and segment creation APIs and
;returns a formatted ORC segment.
;
; Input:
; DGREQ - (required) VIC REQUEST data array
; DGFLD - (optional) List of comma-separated fields (sequence #'s)
; to include. Defaults to all required fields (4).
; DGHL - HL7 environment array
;
; Output:
; Function Value - ORC segment on success, "" on failure
;
N DGORC
N DGVAL
;
S DGORC=""
I $D(DGREQ) D
. S DGFLD=$$CKSTR^DGQEHLUT("1",DGFLD) ;validate the field string
. S DGFLD=","_DGFLD_","
. I $$ORCVAL(DGFLD,.DGREQ,.DGVAL) D
. . S DGORC=$$BLDSEG^DGQEHLUT("ORC",.DGVAL,.DGHL)
Q DGORC
;
ORCVAL(DGFLD,DGREQ,DGVAL) ;build ORC value array
;
; Input:
; DGFLD - (required) Fields string
; DGREQ - (required) VIC REQUEST data array
;
; Output:
; Function Value - 1 on sucess, 0 on failure
; DGVAL - ORC field array [SUB1:field, SUB2:repetition,
; SUB3:component, SUB4:sub-component]
;
N DGRSLT ;function value
N DGSTAT ;temp value of DGREQ("CPRSTAT")
;
S DGRSLT=0
I $G(DGFLD)]"",+$G(DGREQ("DFN"))>0,$G(DGREQ("CARDID"))]"" D
. ;
. ; seq 1 Order Control
. I DGFLD[",1," D ;required field
. . S DGSTAT=$G(DGREQ("CPRSTAT"))
. . S DGVAL(1)=$S(DGSTAT="P":"RL",DGSTAT="C":"CA",DGSTAT="I":"CA",1:"")
. Q:DGVAL(1)=""
. ;
. ; seq 2 Placer Order Number
. I DGFLD[",2," D
. ;
. ; seq 3 Filler Order Number
. I DGFLD[",3," D
. ;
. ; seq 4 Placer Group Number
. I DGFLD[",4," D
. ;
. ; seq 5 Order Status
. I DGFLD[",5," D
. ;
. ; seq 6 Response Flag
. I DGFLD[",6," D
. ;
. ; seq 7 Quantity/Timing
. I DGFLD[",7," D
. ;
. ; seq 8 Parent
. I DGFLD[",8," D
. ;
. ; seq 9 Date/Time of Transaction
. I DGFLD[",9," D
. ;
. ; seq 10 Entered By
. I DGFLD[",10," D
. ;
. ; seq 11 Verified By
. I DGFLD[",11," D
. ;
. ; seq 12 Ordering Provider
. I DGFLD[",12," D
. ;
. ; seq 13 Enterer's Location
. I DGFLD[",13," D
. ;
. ; seq 14 Call Back Phone Number
. I DGFLD[",14," D
. ;
. ; seq 15 Order Effective Date/Time
. I DGFLD[",15," D
. ;
. ; seq 16 Order Control Code Reason
. I DGFLD[",16," D
. ;
. ; seq 17 Entering Organization
. I DGFLD[",17," D
. ;
. ; seq 18 Entering Device
. I DGFLD[",18," D
. ;
. ; seq 19 Action By
. I DGFLD[",19," D
. ;
. S DGRSLT=1
I 'DGRSLT K DGVAL
Q DGRSLT
DGQEHLOR ;ALB/RPM - VIC REPLACEMENT HL7 BUILD ORC SEGMENT ; 2/23/04
+1 ;;5.3;Registration;**571,1015**;Aug 13, 1993;Build 21
+2 ;
+3 QUIT
+4 ;
ORC(DGREQ,DGFLD,DGHL) ;ORC Segment API
+1 ;This function wraps the data retrieval and segment creation APIs and
+2 ;returns a formatted ORC segment.
+3 ;
+4 ; Input:
+5 ; DGREQ - (required) VIC REQUEST data array
+6 ; DGFLD - (optional) List of comma-separated fields (sequence #'s)
+7 ; to include. Defaults to all required fields (4).
+8 ; DGHL - HL7 environment array
+9 ;
+10 ; Output:
+11 ; Function Value - ORC segment on success, "" on failure
+12 ;
+13 NEW DGORC
+14 NEW DGVAL
+15 ;
+16 SET DGORC=""
+17 IF $DATA(DGREQ)
Begin DoDot:1
+18 ;validate the field string
SET DGFLD=$$CKSTR^DGQEHLUT("1",DGFLD)
+19 SET DGFLD=","_DGFLD_","
+20 IF $$ORCVAL(DGFLD,.DGREQ,.DGVAL)
Begin DoDot:2
+21 SET DGORC=$$BLDSEG^DGQEHLUT("ORC",.DGVAL,.DGHL)
End DoDot:2
End DoDot:1
+22 QUIT DGORC
+23 ;
ORCVAL(DGFLD,DGREQ,DGVAL) ;build ORC value array
+1 ;
+2 ; Input:
+3 ; DGFLD - (required) Fields string
+4 ; DGREQ - (required) VIC REQUEST data array
+5 ;
+6 ; Output:
+7 ; Function Value - 1 on sucess, 0 on failure
+8 ; DGVAL - ORC field array [SUB1:field, SUB2:repetition,
+9 ; SUB3:component, SUB4:sub-component]
+10 ;
+11 ;function value
NEW DGRSLT
+12 ;temp value of DGREQ("CPRSTAT")
NEW DGSTAT
+13 ;
+14 SET DGRSLT=0
+15 IF $GET(DGFLD)]""
IF +$GET(DGREQ("DFN"))>0
IF $GET(DGREQ("CARDID"))]""
Begin DoDot:1
+16 ;
+17 ; seq 1 Order Control
+18 ;required field
IF DGFLD[",1,"
Begin DoDot:2
+19 SET DGSTAT=$GET(DGREQ("CPRSTAT"))
+20 SET DGVAL(1)=$SELECT(DGSTAT="P":"RL",DGSTAT="C":"CA",DGSTAT="I":"CA",1:"")
End DoDot:2
+21 IF DGVAL(1)=""
QUIT
+22 ;
+23 ; seq 2 Placer Order Number
+24 IF DGFLD[",2,"
Begin DoDot:2
End DoDot:2
+25 ;
+26 ; seq 3 Filler Order Number
+27 IF DGFLD[",3,"
Begin DoDot:2
End DoDot:2
+28 ;
+29 ; seq 4 Placer Group Number
+30 IF DGFLD[",4,"
Begin DoDot:2
End DoDot:2
+31 ;
+32 ; seq 5 Order Status
+33 IF DGFLD[",5,"
Begin DoDot:2
End DoDot:2
+34 ;
+35 ; seq 6 Response Flag
+36 IF DGFLD[",6,"
Begin DoDot:2
End DoDot:2
+37 ;
+38 ; seq 7 Quantity/Timing
+39 IF DGFLD[",7,"
Begin DoDot:2
End DoDot:2
+40 ;
+41 ; seq 8 Parent
+42 IF DGFLD[",8,"
Begin DoDot:2
End DoDot:2
+43 ;
+44 ; seq 9 Date/Time of Transaction
+45 IF DGFLD[",9,"
Begin DoDot:2
End DoDot:2
+46 ;
+47 ; seq 10 Entered By
+48 IF DGFLD[",10,"
Begin DoDot:2
End DoDot:2
+49 ;
+50 ; seq 11 Verified By
+51 IF DGFLD[",11,"
Begin DoDot:2
End DoDot:2
+52 ;
+53 ; seq 12 Ordering Provider
+54 IF DGFLD[",12,"
Begin DoDot:2
End DoDot:2
+55 ;
+56 ; seq 13 Enterer's Location
+57 IF DGFLD[",13,"
Begin DoDot:2
End DoDot:2
+58 ;
+59 ; seq 14 Call Back Phone Number
+60 IF DGFLD[",14,"
Begin DoDot:2
End DoDot:2
+61 ;
+62 ; seq 15 Order Effective Date/Time
+63 IF DGFLD[",15,"
Begin DoDot:2
End DoDot:2
+64 ;
+65 ; seq 16 Order Control Code Reason
+66 IF DGFLD[",16,"
Begin DoDot:2
End DoDot:2
+67 ;
+68 ; seq 17 Entering Organization
+69 IF DGFLD[",17,"
Begin DoDot:2
End DoDot:2
+70 ;
+71 ; seq 18 Entering Device
+72 IF DGFLD[",18,"
Begin DoDot:2
End DoDot:2
+73 ;
+74 ; seq 19 Action By
+75 IF DGFLD[",19,"
Begin DoDot:2
End DoDot:2
+76 ;
+77 SET DGRSLT=1
End DoDot:1
+78 IF 'DGRSLT
KILL DGVAL
+79 QUIT DGRSLT
