- BLRAG02A ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS - PRINTING UTILITIES ; JAN 24, 2013; SAT
- ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185
- ;
- ; BLR REF LAB USING LEDI - UL^BLRAG02 = return the value of the 'REF LAB USING LEDI?' field in the BLR MASTER CONTROL file
- ; BLR ICD LOOKUP - ICDLKUP^BLRAG07 = ICD code lookup
- ; BLR ORDER REASON LKUP - ORL^BLRAG07 = return order reasons from file 100.03
- ; BLR PATIENT LOOKUP - PTLK^BLRAG04 = Patient Lookup
- ; BLR PRINTERS AVAILABLE - DEVICE^BLRAG10 = return available printers from the DEVICE file
- ; BLR USER LOOKUP - NP^BLRAG06 = return entries from the NEW PERSON table 200 that are 'active'
- ;
- ; BLR ACCESSION - ACC^BLRAG05 = lab accession processor
- ; BLR ACCESSION PRINT - ABR^BLRAG02 = reprint accession label or manifest
- ; BLR ALL NON-ACCESSIONED - ANA^BLRAG01 = return all non-accessioned lab records
- ; BLR ALL-ACCESSIONED - ABD^BLRAG02 = return all accessioned records for given date range
- ; BLR COLLECTION INFO - BLC^BLRAG06 = check BLR PT CONFIRM parameter and return insurances for patient
- ; BLR DELETE TEST - DELTST^BLRAG08 = Cancel tests - Test are no longer deleted, instead the status is changed to Not Performed.
- ; BLR ORDER/TEST STATUS - LROS^BLRAG03 = return order/test status for given patient and date range
- ;
- ; BLR SHIP CONF - SC^BLRAG09A = select a shipping configuration
- ; BLR MANIFEST BUILD - BM^BLRAG09B = build a shipping manifest
- ; BLR MANIFEST CLOSE/SHIP - CLSHIP^BLRAG09C = Close/ship a shipping manifest
- ; BLR MANIFEST DISPLAY - DISP^BLRAG09G = screen formatted text for manifest display
- ; BLR MANIFEST START - SMONLY^BLRAG09C = Start a shipping manifest only, no building
- ; BLR MANIFEST TEST ADD - ADDTEST^BLRAG09C= Add tests to an existing manifest\
- ; BLR MANIFEST TEST REMOVE - REMVTST^BLRAG09C= Remove a test from manifest - actually flags test as "removed".
- ; BLR MANIFEST TESTS TO ADD- TARPC^BLRAG09B = return tests that can be added to a manifest
- ;
- LBLTYP ; Determine label routine to use. (LBLTYP^LRLABLD)
- ; Sets LRLABEL to label print routine (label^routine).
- ; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1
- ;
- N BLRDEVLS
- ; Default label routine
- S LRLABEL="^LRLABEL"_$P($G(^LAB(69.9,1,3)),U,3)
- S BLRIOS=$P($G(^LAB(69.9,1,0)),U,1)
- S BLRDEVLS=$O(^LAB(69.9,1,3.6,"B",+BLRDEV,0))
- I BLRDEVLS D
- . S BLRDEVLS(0)=$G(^LAB(69.9,1,3.6,BLRDEVLS,0))
- . ; default accession area for characteristics.
- . I '$G(LRAA),$P(BLRDEVLS(0),"^",6) S LRAA=$P(BLRDEVLS(0),"^",6)
- ;
- ; Site's local accession area label routine.
- I $G(LRAA)>0,$L($P(^LRO(68,LRAA,.4),"^",5)) D Q
- . S LRLABEL=$P(^LRO(68,LRAA,.4),"^",4,5)
- ;
- ; This device not defined in file #69.9.
- I BLRDEVLS<1 Q ; D ERR^BLRAGUT("BLRAG02A: Label device "_$P($G(^%ZIS(1,+BLRDEV,0)),U,1)_"is not defined in the LABORATORY SITE file.") Q
- ;
- ; Site's designated local label routine.
- I $L($P(BLRDEVLS(0),"^",5)) D Q
- . S LRLABEL=$P(BLRDEVLS(0),"^",4,5)
- ;
- ; Intermec 3000/4000 printer
- I $P(BLRDEVLS(0),"^",2)=1 D
- . I $P(BLRDEVLS(0),"^",3)=1 S LRLABEL="^LRLABELC" Q ; 1x3 label
- . I $P(BLRDEVLS(0),"^",3)=2 S LRLABEL="^LRLABELA" Q ; 1x2 label
- . I $P(BLRDEVLS(0),"^",3)=3 S LRLABEL="^LRLABELB" Q ; 10 part label
- ;
- ; Zebra ZPL II compatible printer
- I $P(BLRDEVLS(0),"^",2)=2 D
- . I $P(BLRDEVLS(0),"^",3)=1 S LRLABEL="^LRLABELG" Q ; 1x3 label
- . I $P(BLRDEVLS(0),"^",3)=2 S LRLABEL="^LRLABELD" Q ; 1x2 label
- . I $P(BLRDEVLS(0),"^",3)=3 S LRLABEL="^LRLABELE" Q ; 10 part label
- ;
- Q
- BLRAG02A ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS - PRINTING UTILITIES ; JAN 24, 2013; SAT
- +1 ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185
- +2 ;
- +3 ; BLR REF LAB USING LEDI - UL^BLRAG02 = return the value of the 'REF LAB USING LEDI?' field in the BLR MASTER CONTROL file
- +4 ; BLR ICD LOOKUP - ICDLKUP^BLRAG07 = ICD code lookup
- +5 ; BLR ORDER REASON LKUP - ORL^BLRAG07 = return order reasons from file 100.03
- +6 ; BLR PATIENT LOOKUP - PTLK^BLRAG04 = Patient Lookup
- +7 ; BLR PRINTERS AVAILABLE - DEVICE^BLRAG10 = return available printers from the DEVICE file
- +8 ; BLR USER LOOKUP - NP^BLRAG06 = return entries from the NEW PERSON table 200 that are 'active'
- +9 ;
- +10 ; BLR ACCESSION - ACC^BLRAG05 = lab accession processor
- +11 ; BLR ACCESSION PRINT - ABR^BLRAG02 = reprint accession label or manifest
- +12 ; BLR ALL NON-ACCESSIONED - ANA^BLRAG01 = return all non-accessioned lab records
- +13 ; BLR ALL-ACCESSIONED - ABD^BLRAG02 = return all accessioned records for given date range
- +14 ; BLR COLLECTION INFO - BLC^BLRAG06 = check BLR PT CONFIRM parameter and return insurances for patient
- +15 ; BLR DELETE TEST - DELTST^BLRAG08 = Cancel tests - Test are no longer deleted, instead the status is changed to Not Performed.
- +16 ; BLR ORDER/TEST STATUS - LROS^BLRAG03 = return order/test status for given patient and date range
- +17 ;
- +18 ; BLR SHIP CONF - SC^BLRAG09A = select a shipping configuration
- +19 ; BLR MANIFEST BUILD - BM^BLRAG09B = build a shipping manifest
- +20 ; BLR MANIFEST CLOSE/SHIP - CLSHIP^BLRAG09C = Close/ship a shipping manifest
- +21 ; BLR MANIFEST DISPLAY - DISP^BLRAG09G = screen formatted text for manifest display
- +22 ; BLR MANIFEST START - SMONLY^BLRAG09C = Start a shipping manifest only, no building
- +23 ; BLR MANIFEST TEST ADD - ADDTEST^BLRAG09C= Add tests to an existing manifest\
- +24 ; BLR MANIFEST TEST REMOVE - REMVTST^BLRAG09C= Remove a test from manifest - actually flags test as "removed".
- +25 ; BLR MANIFEST TESTS TO ADD- TARPC^BLRAG09B = return tests that can be added to a manifest
- +26 ;
- LBLTYP ; Determine label routine to use. (LBLTYP^LRLABLD)
- +1 ; Sets LRLABEL to label print routine (label^routine).
- +2 ; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1
- +3 ;
- +4 NEW BLRDEVLS
- +5 ; Default label routine
- +6 SET LRLABEL="^LRLABEL"_$PIECE($GET(^LAB(69.9,1,3)),U,3)
- +7 SET BLRIOS=$PIECE($GET(^LAB(69.9,1,0)),U,1)
- +8 SET BLRDEVLS=$ORDER(^LAB(69.9,1,3.6,"B",+BLRDEV,0))
- +9 IF BLRDEVLS
- Begin DoDot:1
- +10 SET BLRDEVLS(0)=$GET(^LAB(69.9,1,3.6,BLRDEVLS,0))
- +11 ; default accession area for characteristics.
- +12 IF '$GET(LRAA)
- IF $PIECE(BLRDEVLS(0),"^",6)
- SET LRAA=$PIECE(BLRDEVLS(0),"^",6)
- End DoDot:1
- +13 ;
- +14 ; Site's local accession area label routine.
- +15 IF $GET(LRAA)>0
- IF $LENGTH($PIECE(^LRO(68,LRAA,.4),"^",5))
- Begin DoDot:1
- +16 SET LRLABEL=$PIECE(^LRO(68,LRAA,.4),"^",4,5)
- End DoDot:1
- QUIT
- +17 ;
- +18 ; This device not defined in file #69.9.
- +19 ; D ERR^BLRAGUT("BLRAG02A: Label device "_$P($G(^%ZIS(1,+BLRDEV,0)),U,1)_"is not defined in the LABORATORY SITE file.") Q
- IF BLRDEVLS<1
- QUIT
- +20 ;
- +21 ; Site's designated local label routine.
- +22 IF $LENGTH($PIECE(BLRDEVLS(0),"^",5))
- Begin DoDot:1
- +23 SET LRLABEL=$PIECE(BLRDEVLS(0),"^",4,5)
- End DoDot:1
- QUIT
- +24 ;
- +25 ; Intermec 3000/4000 printer
- +26 IF $PIECE(BLRDEVLS(0),"^",2)=1
- Begin DoDot:1
- +27 ; 1x3 label
- IF $PIECE(BLRDEVLS(0),"^",3)=1
- SET LRLABEL="^LRLABELC"
- QUIT
- +28 ; 1x2 label
- IF $PIECE(BLRDEVLS(0),"^",3)=2
- SET LRLABEL="^LRLABELA"
- QUIT
- +29 ; 10 part label
- IF $PIECE(BLRDEVLS(0),"^",3)=3
- SET LRLABEL="^LRLABELB"
- QUIT
- End DoDot:1
- +30 ;
- +31 ; Zebra ZPL II compatible printer
- +32 IF $PIECE(BLRDEVLS(0),"^",2)=2
- Begin DoDot:1
- +33 ; 1x3 label
- IF $PIECE(BLRDEVLS(0),"^",3)=1
- SET LRLABEL="^LRLABELG"
- QUIT
- +34 ; 1x2 label
- IF $PIECE(BLRDEVLS(0),"^",3)=2
- SET LRLABEL="^LRLABELD"
- QUIT
- +35 ; 10 part label
- IF $PIECE(BLRDEVLS(0),"^",3)=3
- SET LRLABEL="^LRLABELE"
- QUIT
- End DoDot:1
- +36 ;
- +37 QUIT
