source: WorldVistAEHR/trunk/r/PROBLEM_LIST-GMPL/GMPLUTL4.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1GMPLUTL4 ; 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 ;
10PTR(X) ; Output to Printer
11 ; 1 = Yes
12 ; 0 = No
13 Q:+($$VISTA)>0!(+($$HFP)>0) 1
14 Q 0
15 ;
16VISTA(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 ;
20HFP(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
36PROK(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
41ROK(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
Note: See TracBrowser for help on using the repository browser.