source: WorldVistAEHR/trunk/r/SURGERY-SR/SROADOC.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: 2.1 KB
Line 
1SROADOC ;B'HAM ISC/MAM - ANESTHESIA PROVIDER REPORT; [ 09/22/98 11:23 AM ]
2 ;;3.0; Surgery ;**77,50**;24 Jun 93
3SETUTL ; set up ^TMP("SR",$J
4 Q:'$D(^SRF(SRTN,.3)) Q:$P(^(.3),"^")="" I SRPROV,$P(^(.3),"^")'=SRPROV Q
5 S SRPRIN=$P(^VA(200,$P(^SRF(SRTN,.3),"^"),0),"^"),SRSDT=$P(^SRF(SRTN,0),"^",9) S ^TMP("SR",$J,SRPRIN,SRSDT,SRTN)=""
6 Q
7END W ! D ^SRSKILL K SRTN D ^%ZISC W @IOF
8 Q
9CODES ; print technique code at bottom of page
10 W ! F LINE=1:1:IOM W "-"
11 W !,"SUPERVISOR CODES: 1-STAFF CASE, 2-STAFF ASSISTED BY RESIDENT OR C.R.N.A., 3-STAFF ASSISTING C.R.N.A., 4-STAFF ASSISTING RESIDENT"
12 W !,?18,"5-STAFF CONSULTING IN OR, 6-STAFF AVAILABLE IN OR SUITE, 7-STAFF AVAILABLE IN HOSP./UNIV. COMPLEX",!,?18,"8-STAFF CALLED FOR EMERGENCY, 9-C.R.N.A. INDEPENDENT DUTY MD/DDS SUP.",!
13 Q
14EN ;
15 W @IOF,!,"Anesthesia Provider Report"
16 D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
17SORT W !!!,"Do you want to print the report for all Anesthesia Providers ? YES// " R SRYN:DTIME I '$T!(SRYN["^") G END
18 S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
19 I "Yy"[SRYN S SRPROV="" G DEVICE
20 I "Nn"'[SRYN W !!,"Enter RETURN to print the report for all anesthesia providers, or 'NO'",!,"to select a specific anesthesia provider." G SORT
21 W !! K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Print the report for which Anesthesia Provider ? " D ^DIC K DIC I Y<0 G END
22 S SRPROV=+Y,SRPRO=$P(Y(0),"^")
23DEVICE K IOP,%ZIS,POP S %ZIS("A")="Print the Report on which Device: ",%ZIS="QM" W !!,"This report is designed to use a 132 column format.",! D ^%ZIS G:POP END
24 I $D(IO("Q")) K IO("Q") S ZTDESC="ANESTHESIA PROVIDER REPORT",ZTRTN="BEG^SROADOC",ZTSAVE("SRSD")=SRSD,ZTSAVE("SRED")=SRED,(ZTSAVE("SRPRO*"),ZTSAVE("SRSITE*"))="" D ^%ZTLOAD G END
25BEG ;
26 U IO K ^TMP("SR",$J) S SRF=0,PAGE=1,DATE=SRSD-.0001,EDATE=SRED+.9999,SRINST=SRSITE("SITE"),Y=DT X ^DD("DD") S SRPRINT=Y
27 N SRFRTO S Y=SRSD X ^DD("DD") S SRFRTO="FROM: "_Y_" TO: " S Y=SRED X ^DD("DD") S SRFRTO=SRFRTO_Y
28 F S DATE=$O(^SRF("AC",DATE)) Q:DATE>EDATE!(DATE="")!SRF S SRTN=0 F S SRTN=$O(^SRF("AC",DATE,SRTN)) Q:SRTN="" I $D(^SRF(SRTN,0)),$P($G(^SRF(SRTN,.2)),"^",12)'=""!($P($G(^SRF(SRTN,"NON")),"^")="Y"),$$DIV^SROUTL0(SRTN) D SETUTL
29 G PR^SROADOC1
Note: See TracBrowser for help on using the repository browser.