Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Rev | Line | |
---|
[613] | 1 | MCPFTR ;WISC/MLH-RELEASE A PFT REPORT ;8/24/92 10:08
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | ;;
|
---|
| 4 | S FINIS=0 ; done-processing flag
|
---|
| 5 | FOR D Q:FINIS
|
---|
| 6 | . S DIC="^MCAR(700,",DIC(0)="AEMQZ"
|
---|
| 7 | . D ^DIC ; select a report to release
|
---|
| 8 | . K DIC
|
---|
| 9 | . IF Y=-1 S FINIS=1 ; we're through processing
|
---|
| 10 | . ELSE D ; process this entry
|
---|
| 11 | .. S MCARGDA=+Y,RELSTAT=$P($G(^MCAR(700,MCARGDA,2)),U)
|
---|
| 12 | .. IF RELSTAT="Y" W !!,"This report has already been released. Try again.",!!
|
---|
| 13 | .. ELSE D ; ask for print and confirm release
|
---|
| 14 | ... S DIR(0)="Y",DIR("A")="Do you want to print this report before releasing it"
|
---|
| 15 | ... D ^DIR
|
---|
| 16 | ... K DIR
|
---|
| 17 | ... I Y D SUM^MCPFTP ; print the report
|
---|
| 18 | ... S DIR(0)="Y",DIR("A")="Sure you wish to RELEASE this report",DIR("B")="N"
|
---|
| 19 | ... D ^DIR
|
---|
| 20 | ... K DIR
|
---|
| 21 | ... IF Y D ; release the report
|
---|
| 22 | .... S $P(^MCAR(700,MCARGDA,2),U)="Y" ; release node on PFT
|
---|
| 23 | .... W !!,"*** REPORT RELEASED ***",!!
|
---|
| 24 | .... Q
|
---|
| 25 | ... ;END IF
|
---|
| 26 | ... ;
|
---|
| 27 | ... Q
|
---|
| 28 | .. ;END IF
|
---|
| 29 | .. ;
|
---|
| 30 | .. Q
|
---|
| 31 | . ;END IF
|
---|
| 32 | . ;
|
---|
| 33 | . Q
|
---|
| 34 | ;END FOR
|
---|
| 35 | ;
|
---|
| 36 | K FINIS
|
---|
| 37 | QUIT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.