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

GMPLUTL4.m

Go to the documentation of this file.
  1. GMPLUTL4 ; SLC/KER -- PL Utilities (Misc) ; 04/15/2002
  1. ;;2.0;Problem List;**26**;Aug 25, 1994
  1. ;
  1. ; External References
  1. ; DBIA 10096 ^%ZOSF("TEST")
  1. ;
  1. ; Variable Used but NEWed/KILLed Elsewhere
  1. ; IOT, ORWINDEV
  1. ;
  1. PTR(X) ; Output to Printer
  1. ; 1 = Yes
  1. ; 0 = No
  1. Q:+($$VISTA)>0!(+($$HFP)>0) 1
  1. Q 0
  1. ;
  1. VISTA(X) ; Vista Printer
  1. Q:$E($G(ION),1,3)="NUL" 0 Q:$G(IOT)'="HFS"&($E($G(IOST),1,2)["P-")&($G(IOST)'="P-OTHER") 1
  1. Q 0
  1. ;
  1. HFP(X) ; Host File sent to Printer
  1. ; Check ORWINDEV
  1. N GMTS85 S GMTS85=$$PROK("ORWRP",85)
  1. Q:+($G(GMTS85))>0&(+($G(ORWINDEV))>0) 1
  1. ; Check Host File Server
  1. Q:$G(IOT)'="HFS" 0
  1. ; Host File for GUI Scrollable Window
  1. Q:$E($G(ION),1,14)["OR WORKSTATION" 0
  1. ; TCP/IP Printer
  1. Q:$G(IO)["$PRT"!($G(IO)["PRN|") 1
  1. ; Windows Printer
  1. Q:$E($G(ION),1,14)["OR WINDOWS HFS" 1
  1. ; Host Files (file or unspecifed printer)
  1. Q 0
  1. ;
  1. ; Miscellaneous
  1. PROK(X,Y) ; Routine and Patch # OK
  1. N GMTS,GMTSI,GMTSO S X=$G(X),Y=$G(Y) Q:'$L(X) 0 Q:Y'=""&(+Y=0)
  1. S Y=+Y,GMTS=$$ROK(X) Q:'GMTS 0 Q:+Y=0 1 S GMTSO=0,GMTS=$T(@("+2^"_X)),GMTS=$P($P(GMTS,"**",2),"**",1)
  1. F GMTSI=1:1:$L(GMTS,",") S:+($P(GMTS,",",GMTSI))=Y GMTSO=1 Q:GMTSO=1
  1. S X=GMTSO Q X
  1. ROK(X) ; Routine OK (in UCI)
  1. S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1 Q 0