|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
996 bytes
|
| Line | |
|---|
| 1 | SROASSP ;BIR/MAM - PRINT A COMPLETED ASSESSMENT ;12/05/07
|
|---|
| 2 | ;;3.0; Surgery ;**38,94,166**;24 Jun 93;Build 6
|
|---|
| 3 | BATCH ;
|
|---|
| 4 | W ! K DIR S DIR("?",1)="Enter YES to batch print all completed or transmitted assessments for a",DIR("?",2)="selected date range. Enter NO or press return to print one specific",DIR("?")="assessment."
|
|---|
| 5 | S DIR("A")="Do you want to batch print assessments for a specific date range ? ",DIR(0)="YA",DIR("B")="NO" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
|
|---|
| 6 | I Y D ^SROABCH Q
|
|---|
| 7 | S SRPRINT=1 K SRNEW D ^SROASS I '$D(SRTN) S SRSOUT=1 G END
|
|---|
| 8 | W ! K %ZIS,IO("Q"),POP S %ZIS("A")="Print the Completed Assessment on which Device: ",%ZIS="Q" D ^%ZIS I POP S SRSOUT=1 G END
|
|---|
| 9 | I $D(IO("Q")) K IO("Q") S ZTDESC="Completed Surgery Risk Assessment",ZTSAVE("SRSITE*")="",ZTSAVE("SRTN")="",ZTRTN=$S($P($G(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM") D ^%ZTLOAD G END
|
|---|
| 10 | D @($S($P($G(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM"))
|
|---|
| 11 | END D ^%ZISC W @IOF K SRTN D ^SRSKILL
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
