source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRC182.m@ 1710

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
RevLine 
[613]1PRC182 ;WISC/REW/Displays list of temporary transaction with no FORM TYPE
2 ;;5.0;IFCAP;**182**;4/21/95
3 ;
4 ;
5LIST ;
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.