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

ORWTIU.m

Go to the documentation of this file. 
  1. ORWTIU ; slc/REV - Functions for GUI PARAMETER ACTIONS ; 08 Feb 2001  09:02AM
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,109,132,195,243**;Dec 17, 1997;Build 242
  1.  ;
  1. GTTIUCTX(Y,ORUSER) ; Returns current Notes view context for user
  1.  N OCCLIM,SHOWSUB
  1.  S Y=$$GET^XPAR("ALL","ORCH CONTEXT NOTES",1)
  1.  I +$P(Y,";",5)=0 D
  1.  . S OCCLIM=$P($$PERSPRF^TIULE(DUZ),U,10)
  1.  . S:+OCCLIM>0 $P(Y,";",5)=OCCLIM
  1.  S SHOWSUB=$P(Y,";",6)
  1.  S $P(Y,";",6)=$S(SHOWSUB'="":SHOWSUB,1:0)
  1.  Q
  1. SVTIUCTX(Y,ORCTXT) ; Save new Notes view preferences for user
  1.  N TMP
  1.  S TMP=$$GET^XPAR(DUZ_";VA(200,","ORCH CONTEXT NOTES",1)
  1.  I TMP'="" D  Q
  1.  . D CHG^XPAR(DUZ_";VA(200,","ORCH CONTEXT NOTES",1,ORCTXT)
  1.  D ADD^XPAR(DUZ_";VA(200,","ORCH CONTEXT NOTES",1,ORCTXT)
  1.  Q
  1.  ;
  1. GTDCCTX(Y,ORUSER) ; Returns current DC Summary view context for user
  1.  N OCCLIM,SHOWSUB
  1.  S Y=$$GET^XPAR("ALL","ORCH CONTEXT SUMMRIES",1)
  1.  I +$P(Y,";",5)=0 D
  1.  . S OCCLIM=$P($$PERSPRF^TIULE(DUZ),U,10)
  1.  . S:+OCCLIM>0 $P(Y,";",5)=OCCLIM
  1.  S SHOWSUB=$P(Y,";",6)
  1.  S $P(Y,";",6)=$S(SHOWSUB'="":SHOWSUB,1:0)
  1.  Q
  1. SVDCCTX(Y,ORCTXT) ; Save new DC Summary view preferences for user
  1.  N TMP
  1.  S TMP=$$GET^XPAR(DUZ_";VA(200,","ORCH CONTEXT SUMMRIES",1)
  1.  I TMP'="" D  Q
  1.  . D CHG^XPAR(DUZ_";VA(200,","ORCH CONTEXT SUMMRIES",1,ORCTXT)
  1.  D ADD^XPAR(DUZ_";VA(200,","ORCH CONTEXT SUMMRIES",1,ORCTXT)
  1.  Q
  1.  ;
  1. PRINTW(ORY,ORDA,ORFLG) ;TIU print to windows printer
  1.  N ZTQUEUED,ORHFS,ORSUB,ORIO,ORSTATUS,ROOT,ORERR,ORWIN,ORHANDLE
  1.  N IOM,IOSL,IOST,IOF,IOT,IOS
  1.  S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORWIN=1,ORHANDLE="ORWTIU"
  1.  S ORY=$NA(^TMP(ORSUB,$J,1))
  1.  S ORHFS=$$HFS^ORWRP()
  1.  D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W")
  1.  I POP D  Q
  1.  . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file for TIU print")
  1.  D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
  1.  N $ETRAP,$ESTACK
  1.  S $ETRAP="D ERR^ORWRP Q"
  1.  U IO
  1.  D RPC^TIUPD(.ORERR,ORDA,ORIO,ORFLG,ORWIN)
  1.  D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
  1.  Q
  1. GTLSTITM(ORY,ORTIUDA) ; Return single listbox item for document
  1.  Q:+$G(ORTIUDA)=0
  1.  S ORY=ORTIUDA_U_$$RESOLVE^TIUSRVLO(ORTIUDA)
  1.  Q
  1. IDNOTES(ORY)    ; Is ID Notes installed?
  1.  S ORY=$$PATCH^XPDUTL("TIU*1.0*100")
  1.  Q
  1.  ; DBIA #2322
  1.  S ORY=$$CANLINK^TIULP(ORTITLE)
  1.  Q
  1. GETCP(ORY,ORTIUDA) ; Checks required CP fields before signature
  1.  S ORY=""
  1.  N ORTITLE,ORAUTH,ORCOS,ORPSUMCD,ORPROCDT,ORROOT,ORERR,ORREFDT
  1.  S ORERR="",ORROOT=$NA(^TMP("ORTIU",$J))
  1.  D EXTRACT^TIULQ(ORTIUDA,.ORROOT,.ORERR,".01;1202;1208;70201;70202;1301",,,"I")
  1.  S ORTITLE=@ORROOT@(ORTIUDA,".01","I")
  1.  S ORAUTH=@ORROOT@(ORTIUDA,"1202","I")
  1.  S ORCOS=@ORROOT@(ORTIUDA,"1208","I")
  1.  S ORPSUMCD=@ORROOT@(ORTIUDA,"70201","I")
  1.  S ORPROCDT=@ORROOT@(ORTIUDA,"70202","I")
  1.  S ORREFDT=@ORROOT@(ORTIUDA,"1301","I")
  1.  S ORY=ORAUTH_U_ORCOS_U_ORPSUMCD_U_ORPROCDT_U_ORTITLE_U_ORREFDT
  1.  K @ORROOT
  1.  Q
  1. CHKTXT(ORY,ORTIUDA) ; Checks for presence of text before signature
  1.  S ORY='$$EMPTYDOC^TIULF(ORTIUDA)  ;DBIA #4426
  1.  Q