Last change
on this file since 1710 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
854 bytes
|
Rev | Line | |
---|
[613] | 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.