source: WorldVistAEHR/trunk/r/SURGERY-SR/SROMENU.m@ 700

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1SROMENU ;B'HAM ISC/MAM - OPERATION MENU OPTIONS ;10/13/04
2 ;;3.0; Surgery ;**52,67,69,104,107,100,134**;24 Jun 93
3TECH ; sromen-anes tech
4 G:'$G(SRTN) NO D ^SROLOCK G:SROLOCK END
5 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
6 K DR,SRODR S DR="[SROMEN-ANES TECH]",DIE=130,DA=SRTN D ^DIE I $D(SRODR) D ^SROCON1
7 G END
8OP ; sromen-op
9 D RT K SRODR
10 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
11 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
12 K DR S SRDTIME=DTIME,DTIME=3600,DIE=130,DR="[SROMEN-OPER]",DA=SRTN,ST="OPERATION"_$S(SROLOCK:" **LOCKED",1:"") D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME I $D(Q3("VIEW")) K Q3("VIEW") G END
13 I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
14 I $D(SRODR) D ^SROCON1
15 S SROERR=SRTN G END
16COMP ; sromen-comp
17 K SRODR
18 G:'$G(SRTN) NO D ^SROLOCK G:SROLOCK END
19 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
20 K DR W @IOF,! S DIE=130,DA=SRTN,DR="[SROMEN-COMP]" D ^DIE
21 I $D(SRODR) D ^SROCON1
22 G END
23SHORT ; sromen-out
24 D RT K SRODR
25 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
26 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
27 K DR S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN,DR="[SROMEN-OUT]",ST="SHORT SCREEN"_$S(SROLOCK:" **LOCKED",1:"") D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME I $D(Q3("VIEW")) K Q3("VIEW") G END
28 I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
29 I $D(SRODR) D ^SROCON1
30 S SROERR=SRTN G END
31PACU ; sromen-pacu
32 D RT K SRODR
33 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
34 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
35 K DR S DIE=130,DA=SRTN,ST="PACU"_$S(SROLOCK:" **LOCKED",1:""),DR="[SROMEN-PACU]" D EN2^SROVAR,^SRCUSS I $D(Q3("VIEW")) K Q3("VIEW") G END
36 I $D(SRODR) D ^SROCON1
37 S SROERR=SRTN D ^SROERR0
38 G END
39POST ; sromen-post
40 D RT K SRODR
41 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
42 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
43 K DR S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN,ST="POST OPERATION"_$S(SROLOCK:" **LOCKED",1:""),DR="[SROMEN-POST]" D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME I $D(Q3("VIEW")) K Q3("VIEW") G END
44 I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
45 I $D(SRODR) D ^SROCON1
46 S SROERR=SRTN G END
47REF ; sromen-refer
48 K SRODR
49 G:'$G(SRTN) NO D ^SROLOCK G:SROLOCK END
50 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
51 W @IOF K DR S DIE=130,DA=SRTN,DR="[SROMEN-REFER]" W !! D ^DIE
52 I $D(SRODR) D ^SROCON1
53 G END
54STAFF ; sromen-staff
55 D RT K SRODR
56 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
57 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
58 K DR S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN,ST="SURGICAL STAFF"_$S(SROLOCK:" **LOCKED",1:""),DR="[SROMEN-STAFF]" D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME I $D(Q3("VIEW")) K Q3("VIEW") G END
59 I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
60 I $D(SRODR) D ^SROCON1
61 S SROERR=SRTN G END
62START ; sromen-start
63 D RT K SRODR
64 G:'$G(SRTN) NO D ^SROLOCK I SROLOCK S Q3("VIEW")=""
65 N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK G END
66 K DR S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN,ST="STARTUP"_$S(SROLOCK:" **LOCKED",1:""),DR="[SROMEN-START]" D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME I $D(Q3("VIEW")) K Q3("VIEW") G END
67 I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
68 I $D(SRODR) D ^SROCON1
69 S SROERR=SRTN G END
70REV ; review request information (request menu)
71 K SRNEWOP D ^SROPS D RT G:'$G(SRTN) END
72 K Y,DR S Q3("VIEW")="",ST="REVIEW REQUEST",DIC=130,DA=SRTN,DR="[SRSREQV]" D EN2^SROVAR,^SRCUSS K DR,SRTN
73 G END
74NO ;
75 W !!,"An operative procedure must be selected to use this option.",!
76 W !!,"Press RETURN to continue " R X:DTIME
77END ;
78 I $D(SROERR) D ^SROERR0
79 I $G(SRTN) D UNLOCK^SROUTL(SRTN)
80 K SRDTIME D ^SRSKILL W @IOF
81 Q
82RT ; start RT logging
83 I $G(SRTN),$D(XRTL) S XRTN="SROMENU" D T0^%ZOSV
84 Q
Note: See TracBrowser for help on using the repository browser.