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

ENWOME2.m

Go to the documentation of this file.
  1. ENWOME2 ;(WASH ISC)/SAB-WORK ORDER MULTIPLE ENTRY, PRINT NEW WO ;1.6.96
  1. ;;7.0;ENGINEERING;**35**;Aug 17, 1993
  1. ; Input Variables
  1. ; ENPRT("DEV") = selected output device
  1. ; ENWODA = ien of master work order (File #6920)
  1. ; ^TMP($J,equip ien) selected equipment array
  1. ; = work order ien^work order number
  1. QUETSK ; queue task to print new work orders
  1. S ZTRTN="DQ^ENWOME2",ZTDESC="Multiple Work Order Hardcopy Print"
  1. S ZTDTH=$H,ZTIO=ENPRT("DEV")
  1. S ZTSAVE("ENWODA")="",ZTSAVE("^TMP($J,")=""
  1. D ^%ZTLOAD,HOME^%ZIS K ZTSK
  1. Q
  1. DQ ; queued entry point
  1. ; get software setting for barcodes
  1. S ENBARCD=0
  1. S ENI=$O(^ENG(6910.2,"B","PRINT BAR CODES ON W.O.",0))
  1. I ENI,$P($G(^ENG(6920.2,ENI,0)),U,2)="Y" S ENBARCD=1
  1. ; get software setting for long/short format wo
  1. S ENI=$O(^ENG(6910.2,"B","AUTO PRINT NEW W.O.",0))
  1. S ENPRT("AUTO")=$S(ENI:$P($G(^ENG(6910.2,ENI,0)),U,2),1:"")
  1. ; print work orders in appropriate format
  1. S DA=ENWODA N IOINHI,IOINLOW D ZIS^ENUTL
  1. I ENPRT("AUTO")="S" D FDAT4^ENWOP3
  1. I ENPRT("AUTO")'="S" D PRT1^ENWOD W @$G(IOF)
  1. S ENI=0 F S ENI=$O(^TMP($J,ENI)) Q:'ENI S ENDA=$P($G(^(ENI)),U) D:ENDA
  1. . S DA=ENDA N IOINHI,IOINLOW D ZIS^ENUTL
  1. . I ENPRT("AUTO")="S" D FDAT4^ENWOP3
  1. . I ENPRT("AUTO")'="S" D PRT1^ENWOD W @$G(IOF)
  1. I $D(ZTQUEUED) S ZTREQ="@" K ^TMP($J)
  1. K DA,ENBARCD,ENDA,ENI,ENPRT,ENSHKEY,ENWODA
  1. Q
  1. ;ENWOME2