Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BLRAG09G

BLRAG09G.m

Go to the documentation of this file. 
  1. BLRAG09G ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ;
  1.  ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185
  1.  ;from LA7SMB
  1.  ; Shipping Manifest support routines
  1.  ;
  1.  ;  BLR REF LAB USING LEDI   - UL^BLRAG02      = return the value of the 'REF LAB USING LEDI?' field in the BLR MASTER CONTROL file
  1.  ;  BLR ICD LOOKUP           - ICDLKUP^BLRAG07 = ICD code lookup
  1.  ;  BLR ORDER REASON LKUP    - ORL^BLRAG07     = return order reasons from file 100.03
  1.  ;  BLR PATIENT LOOKUP       - PTLK^BLRAG04    = Patient Lookup
  1.  ;  BLR PRINTERS AVAILABLE   - DEVICE^BLRAG10  = return available printers from the DEVICE file
  1.  ;  BLR USER LOOKUP          - NP^BLRAG06      = return entries from the NEW PERSON table 200 that are 'active'
  1.  ;
  1.  ;  BLR ACCESSION            - ACC^BLRAG05     = lab accession processor
  1.  ;  BLR ACCESSION PRINT      - ABR^BLRAG02     = reprint accession label or manifest
  1.  ;  BLR ALL NON-ACCESSIONED  - ANA^BLRAG01     = return all non-accessioned lab records
  1.  ;  BLR ALL-ACCESSIONED      - ABD^BLRAG02     = return all accessioned records for given date range
  1.  ;  BLR COLLECTION INFO      - BLC^BLRAG06     = check BLR PT CONFIRM parameter and return insurances for patient
  1.  ;  BLR DELETE TEST          - DELTST^BLRAG08  = Cancel tests - Test are no longer deleted, instead the status is changed to Not Performed.
  1.  ;  BLR ORDER/TEST STATUS    - LROS^BLRAG03    = return order/test status for given patient and date range
  1.  ;
  1.  ;  BLR SHIP CONF            - SC^BLRAG09A     = select a shipping configuration
  1.  ;  BLR MANIFEST BUILD       - BM^BLRAG09B     = build a shipping manifest
  1.  ;  BLR MANIFEST CLOSE/SHIP  - CLSHIP^BLRAG09C = Close/ship a shipping manifest
  1.  ;  BLR MANIFEST DISPLAY     - DISP^BLRAG09G   = screen formatted text for manifest display
  1.  ;  BLR MANIFEST START       - SMONLY^BLRAG09C = Start a shipping manifest only, no building
  1.  ;  BLR MANIFEST TEST ADD    - ADDTEST^BLRAG09C= Add tests to an existing manifest\
  1.  ;  BLR MANIFEST TEST REMOVE - REMVTST^BLRAG09C= Remove a test from manifest - actually flags test as "removed".
  1.  ;  BLR MANIFEST TESTS TO ADD- TARPC^BLRAG09B  = return tests that can be added to a manifest
  1.  ;
  1. DISP(BLRY,LA7SM,BLRIOM,BLRIOSL) ;screen formatted text for manifest display
  1.  ; BLR MANIFEST DISPLAY
  1.  ;INPUT:
  1.  ; LA7SM   = ien of active shipping manifest in file #62.8
  1.  ;                  LAB SHIPPING MANIFEST
  1.  ; BLRIOM  = page width character count; defaults to 132
  1.  ; BLRIOSL = page line count; defaults to 51
  1.  ;RETURNS:
  1.  ;  Formatted Manifest text for screen display
  1.  ;  Each array entry is a single line of display and
  1.  ;  ends with a pipe |.
  1.  N BLRI
  1.  D ^XBKVAR S X="ERROR^BLRAGUT",@^%ZOSF("TRAP")
  1.  S BLRI=0
  1.  K ^TMP("BLRAG",$J)
  1.  S BLRY=$$TMPGLB^BLRAGUT()
  1.  ;            0
  1.  S @BLRY@(0)="ERROR_ID"
  1.  N BLRTXT
  1.  S BLRTXT=""
  1.  S LA7SM=+$G(LA7SM)
  1.  I '$D(^LAHM(62.8,+$G(LA7SM))) D ERR^BLRAGUT("BLRAG09G: Invalid Manifest IEN") Q
  1.  S BLRIOM=$G(BLRIOM)
  1.  S BLRIOSL=$G(BLRIOSL)
  1.  D DEVT^BLRAG09D(.BLRTXT,"",LA7SM,BLRIOM,BLRIOSL)  ;get manifest display text array
  1.  S @BLRY@(0)="MANIFEST_DISPLAY"
  1.  S BLRTXT="" F  S BLRTXT=$O(BLRTXT(BLRTXT)) Q:BLRTXT=""  S BLRI=BLRI+1 S @BLRY@(BLRI)=BLRTXT(BLRTXT)_"|"
  1.  Q