| 1 | SROALOG ;BIR/MAM - ASSESSMENT LOG ;01/22/07
|
|---|
| 2 | ;;3.0; Surgery ;**38,55,62,77,50,153,160**;24 Jun 93;Build 7
|
|---|
| 3 | K SRMNA S (SRSOUT,SRFLG,SRSP)=0
|
|---|
| 4 | START G:SRSOUT END W @IOF,!,"List of Surgery Risk Assessments",!!," 1. List of Incomplete Assessments"
|
|---|
| 5 | W !," 2. List of Completed Assessments",!," 3. List of Transmitted Assessments"
|
|---|
| 6 | W !," 4. List of Non-Assessed Major Surgical Cases",!," 5. List of All Major Surgical Cases"
|
|---|
| 7 | W !," 6. List of All Surgical Cases",!," 7. List of Completed/Transmitted Assessments Missing Information"
|
|---|
| 8 | W !," 8. List of 1-Liner Cases Missing Information",!," 9. List of Eligible Cases"
|
|---|
| 9 | W !!,"Select the Number of the Report Desired: " R X:DTIME I '$T!("^"[X) S SRSOUT=1 G END
|
|---|
| 10 | I X<1!(X>9)!(X\1'=X) D HELP G START
|
|---|
| 11 | S SREPORT=X
|
|---|
| 12 | DATE D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
|
|---|
| 13 | D SEL G:SRSOUT END
|
|---|
| 14 | N SRINSTP S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,"^"),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,"^",2))
|
|---|
| 15 | I SREPORT<7 W @IOF,!,"This report is designed to print to your terminal screen or a printer. When",!,"using a printer, a 132 column format is used.",!
|
|---|
| 16 | K IOP,%ZIS,POP,IO("Q") S %ZIS("A")="Print the List of Assessments to which Device: ",%ZIS="QM" D ^%ZIS I POP S SRSOUT=1 G END
|
|---|
| 17 | I $D(IO("Q")) K IO("Q") S ZTRTN="EN^SROALOG",ZTDESC="List of Surgery Risk Assessments",(ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SREPORT"),ZTSAVE("SRASP"),ZTSAVE("SRFLG"),ZTSAVE("SRSP"),ZTSAVE("SRINSTP"))="",ZTREQ="@" D ^%ZTLOAD G END
|
|---|
| 18 | EN ; entry when queued
|
|---|
| 19 | N SRFRTO S Y=SRSD X ^DD("DD") S SRFRTO="FROM: "_Y_" TO: ",Y=SRED X ^DD("DD") S SRFRTO=SRFRTO_Y
|
|---|
| 20 | U IO S SRSD=SRSD-.0001,SRED=SRED_".9999",Y=DT X ^DD("DD") S SRPRINT="DATE PRINTED: "_Y
|
|---|
| 21 | S SRINST=$S(SRINSTP["ALL DIV":$P($$SITE^SROVAR,"^",2)_" - ALL DIVISIONS",1:$$GET1^DIQ(4,SRINSTP,.01))
|
|---|
| 22 | I SREPORT=1 D:SRSP ^SROANTS D:'SRSP ^SROANT G END
|
|---|
| 23 | I SREPORT=2 D:SRSP ^SROALCS D:'SRSP ^SROALC G END
|
|---|
| 24 | I SREPORT=3 D:SRSP ^SROALTS D:'SRSP ^SROALT G END
|
|---|
| 25 | I SREPORT=4 S SRMNA=1 D:SRSP ^SROALLS D:'SRSP ^SROALL G END
|
|---|
| 26 | I SREPORT=5 D:SRSP ^SROALLS D:'SRSP ^SROALL G END
|
|---|
| 27 | I SREPORT=7 D ^SROALM G END
|
|---|
| 28 | I SREPORT=8 D ^SROALMN G END
|
|---|
| 29 | I SREPORT=9 D ^SROALEC G END
|
|---|
| 30 | D:SRSP ^SROALSS D:'SRSP ^SROALST
|
|---|
| 31 | END I 'SRSOUT,$E(IOST)'="P" W !!,"Press <RET> to continue " R X:DTIME
|
|---|
| 32 | W:$E(IOST)="P" @IOF K ^TMP("SRA",$J) I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
|
|---|
| 33 | D ^%ZISC K SRTN W @IOF D ^SRSKILL
|
|---|
| 34 | Q
|
|---|
| 35 | HELP W !!,"Select the number corresponding to the type of report you want to print.",!!,"Press <RET> to continue " R X:DTIME I '$T!(X["^") S SRSOUT=1
|
|---|
| 36 | Q
|
|---|
| 37 | SEL ; select specialty
|
|---|
| 38 | W !!,"Print by Surgical Specialty ? YES// " R X:DTIME S:'$T X="^" I X="^" S SRSOUT=1 Q
|
|---|
| 39 | S X=$E(X) I "YyNn"'[X W !!,"Enter <RET> to print the report by surgical specialty, or 'N' to print",!,"the report listing all surgical cases." G SEL
|
|---|
| 40 | Q:"Yy"'[X
|
|---|
| 41 | SEL1 S SRSP=1 W !!,"Print report for ALL specialties ? YES// " R X:DTIME S:'$T X="^" I X="^" S SRSOUT=1 Q
|
|---|
| 42 | S X=$E(X) I "YyNn"'[X W !!,"Enter <RET> to print the report for all surgical specialties, or 'N' to ",!,"print the report for a specific surgical specialty." G SEL1
|
|---|
| 43 | I "Yy"'[X W ! 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 I Y>0 S SRASP=+Y,SRFLG=1 Q
|
|---|
| 44 | I Y'>0 S SRSOUT=1 Q
|
|---|
| 45 | Q
|
|---|
