| [613] | 1 | GMPLUTL4 ; SLC/KER -- PL Utilities (Misc) ; 04/15/2002
|
|---|
| 2 | ;;2.0;Problem List;**26**;Aug 25, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 10096 ^%ZOSF("TEST")
|
|---|
| 6 | ;
|
|---|
| 7 | ; Variable Used but NEWed/KILLed Elsewhere
|
|---|
| 8 | ; IOT, ORWINDEV
|
|---|
| 9 | ;
|
|---|
| 10 | PTR(X) ; Output to Printer
|
|---|
| 11 | ; 1 = Yes
|
|---|
| 12 | ; 0 = No
|
|---|
| 13 | Q:+($$VISTA)>0!(+($$HFP)>0) 1
|
|---|
| 14 | Q 0
|
|---|
| 15 | ;
|
|---|
| 16 | VISTA(X) ; Vista Printer
|
|---|
| 17 | Q:$E($G(ION),1,3)="NUL" 0 Q:$G(IOT)'="HFS"&($E($G(IOST),1,2)["P-")&($G(IOST)'="P-OTHER") 1
|
|---|
| 18 | Q 0
|
|---|
| 19 | ;
|
|---|
| 20 | HFP(X) ; Host File sent to Printer
|
|---|
| 21 | ; Check ORWINDEV
|
|---|
| 22 | N GMTS85 S GMTS85=$$PROK("ORWRP",85)
|
|---|
| 23 | Q:+($G(GMTS85))>0&(+($G(ORWINDEV))>0) 1
|
|---|
| 24 | ; Check Host File Server
|
|---|
| 25 | Q:$G(IOT)'="HFS" 0
|
|---|
| 26 | ; Host File for GUI Scrollable Window
|
|---|
| 27 | Q:$E($G(ION),1,14)["OR WORKSTATION" 0
|
|---|
| 28 | ; TCP/IP Printer
|
|---|
| 29 | Q:$G(IO)["$PRT"!($G(IO)["PRN|") 1
|
|---|
| 30 | ; Windows Printer
|
|---|
| 31 | Q:$E($G(ION),1,14)["OR WINDOWS HFS" 1
|
|---|
| 32 | ; Host Files (file or unspecifed printer)
|
|---|
| 33 | Q 0
|
|---|
| 34 | ;
|
|---|
| 35 | ; Miscellaneous
|
|---|
| 36 | PROK(X,Y) ; Routine and Patch # OK
|
|---|
| 37 | N GMTS,GMTSI,GMTSO S X=$G(X),Y=$G(Y) Q:'$L(X) 0 Q:Y'=""&(+Y=0)
|
|---|
| 38 | 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)
|
|---|
| 39 | F GMTSI=1:1:$L(GMTS,",") S:+($P(GMTS,",",GMTSI))=Y GMTSO=1 Q:GMTSO=1
|
|---|
| 40 | S X=GMTSO Q X
|
|---|
| 41 | ROK(X) ; Routine OK (in UCI)
|
|---|
| 42 | S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1 Q 0
|
|---|
