|
Last change
on this file since 1524 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
854 bytes
|
| Line | |
|---|
| 1 | PRC182 ;WISC/REW/Displays list of temporary transaction with no FORM TYPE
|
|---|
| 2 | ;;5.0;IFCAP;**182**;4/21/95
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | LIST ;
|
|---|
| 6 | S (COUNT,LOOP)=0
|
|---|
| 7 | S MSG="Now searching for temporary transactions with missing 'Form Type'."
|
|---|
| 8 | D MES^XPDUTL(MSG)
|
|---|
| 9 | F S LOOP=$O(^PRCS(410,LOOP)) Q:LOOP="" D
|
|---|
| 10 | . S TRAN=$G(^PRCS(410,LOOP,0))
|
|---|
| 11 | . I $P(TRAN,"^",3)]"",$P(TRAN,"^",4)="" D
|
|---|
| 12 | . . S COUNT=COUNT+1
|
|---|
| 13 | . . I (COUNT=1) D
|
|---|
| 14 | . . . S MSG="The following transaction(s) require a valid 'Form Type':"
|
|---|
| 15 | . . . D BMES^XPDUTL(MSG)
|
|---|
| 16 | . . . D MES^XPDUTL(" ")
|
|---|
| 17 | . . S MSG="Station "_$J($P(TRAN,"^",5),5)_", FCP "
|
|---|
| 18 | . . S MSG=MSG_$J($P($P($G(^PRCS(410,LOOP,3)),"^",1)," ",1),7)
|
|---|
| 19 | . . S MSG=MSG_", Transaction '"_$P(TRAN,"^",3)_"'"
|
|---|
| 20 | . . D MES^XPDUTL(MSG)
|
|---|
| 21 | D BMES^XPDUTL("Search complete.")
|
|---|
| 22 | S MSG="Total of "_COUNT
|
|---|
| 23 | S MSG=MSG_" temporary transactions are missing 'Form Type' entries."
|
|---|
| 24 | D MES^XPDUTL(MSG)
|
|---|
| 25 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
