Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROABCH.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/SURGERY-SR/SROABCH.m
r628 r636 1 SROABCH ;B IR/MAM - BATCH PRINT ASSESSMENTS ;11/28/072 ;;3.0; Surgery ;**77 ,166**;24 Jun 93;Build 61 SROABCH ;B'HAM ISC/MAM - BATCH PRINT ASSESSMENTS ; [ 01/08/98 9:54 AM ] 2 ;;3.0; Surgery ;**77**;24 Jun 93 3 3 DATE ; get dates 4 S (SRSOUT,SRSP)=0 W @IOF,!!,"This report will print all completed or transmitted assessments that have a",!,"date of operationwithin the date range selected.",!4 S SRSOUT=0 W @IOF,!!,"This report will print all completed or transmitted assessments that have a",!,"'date completed' within the date range selected.",! 5 5 D DATE^SROUTL(.SRASTDT,.SRAENDT,.SRSOUT) G:SRSOUT END 6 D SPEC7 6 W !!,"Depending on the date range entered, this report may be very long. You should",!,"QUEUE this report to the selected printer.",! 8 7 K %ZIS,IOP,POP,IO("Q") S %ZIS="Q",%ZIS("A")="Print on which Device: " D ^%ZIS S:POP SRSOUT=1 G:POP END 9 I $D(IO("Q")) K IO("Q") S ZTRTN="EN^SROABCH",(ZTSAVE("SRSITE*"),ZTSAVE("SRASTDT"),ZTSAVE("SRAENDT") ,ZTSAVE("SRSP"))="",ZTDESC="Batch Print Risk Assessments" D ^%ZTLOAD S SRSOUT=1 G END8 I $D(IO("Q")) K IO("Q") S ZTRTN="EN^SROABCH",(ZTSAVE("SRSITE*"),ZTSAVE("SRASTDT"),ZTSAVE("SRAENDT"))="",ZTDESC="Batch Print Risk Assessments" D ^%ZTLOAD S SRSOUT=1 G END 10 9 EN ; entry when queued 11 10 S SRSOUT=0,SRABATCH=1 12 11 U IO S SRAENDT=SRAENDT+.9999,SDATE=SRASTDT-.0001 F S SDATE=$O(^SRF("AC",SDATE)) Q:'SDATE!(SDATE>SRAENDT)!SRSOUT S SRTN=0 F S SRTN=$O(^SRF("AC",SDATE,SRTN)) Q:'SRTN!SRSOUT D STUFF 13 12 END I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q 13 I $E(IOST)'="P",'SRSOUT W !!,"Press RETURN to continue " R X:DTIME 14 14 D ^%ZISC K SRTN W @IOF D ^SRSKILL 15 15 Q 16 STUFF ; 17 I SRSP,$P(^SRF(SRTN,0),"^",4)'=SRSP Q 18 S DATE=$P(^SRF(SRTN,0),"^",9) 16 STUFF S DATE=$P(^SRF(SRTN,0),"^",9) 19 17 S SR("RA")=$G(^SRF(SRTN,"RA")),X=$P(SR("RA"),"^") I X'="T",X'="C" Q 20 18 I $P(SR("RA"),"^",6)'="Y" Q 21 19 K SRA D ^SROAPAS 22 20 Q 23 SPEC ; select specialty24 W ! K DIR S DIR(0)="YA",DIR("A")="Print report for ALL surgical specialties ? ",DIR("B")="YES"25 S DIR("?",1)="Enter YES to print the report for all surgical specialties, or NO to",DIR("?")="print the report for a specific surgical specialty."26 D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q27 I 'Y W ! K DIC S DIC("S")="I '$P(^(0),""^"",3)",DIC("A")="Print the Report for which Surgical Specialty: ",DIC=137.45,DIC(0)="QEAMZ" D ^DIC K DIC S:Y<0 SRSOUT=1 Q:Y<0 S SRSP=+Y28 Q
Note:
See TracChangeset
for help on using the changeset viewer.