PRC182 ;WISC/REW/Displays list of temporary transaction with no FORM TYPE
;;5.0;IFCAP;**182**;4/21/95
;
;
LIST ;
S (COUNT,LOOP)=0
S MSG="Now searching for temporary transactions with missing 'Form Type'."
D MES^XPDUTL(MSG)
F S LOOP=$O(^PRCS(410,LOOP)) Q:LOOP="" D
. S TRAN=$G(^PRCS(410,LOOP,0))
. I $P(TRAN,"^",3)]"",$P(TRAN,"^",4)="" D
. . S COUNT=COUNT+1
. . I (COUNT=1) D
. . . S MSG="The following transaction(s) require a valid 'Form Type':"
. . . D BMES^XPDUTL(MSG)
. . . D MES^XPDUTL(" ")
. . S MSG="Station "_$J($P(TRAN,"^",5),5)_", FCP "
. . S MSG=MSG_$J($P($P($G(^PRCS(410,LOOP,3)),"^",1)," ",1),7)
. . S MSG=MSG_", Transaction '"_$P(TRAN,"^",3)_"'"
. . D MES^XPDUTL(MSG)
D BMES^XPDUTL("Search complete.")
S MSG="Total of "_COUNT
S MSG=MSG_" temporary transactions are missing 'Form Type' entries."
D MES^XPDUTL(MSG)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC182 879 printed Dec 13, 2024@01:59:28 Page 2
PRC182 ;WISC/REW/Displays list of temporary transaction with no FORM TYPE
+1 ;;5.0;IFCAP;**182**;4/21/95
+2 ;
+3 ;
LIST ;
+1 SET (COUNT,LOOP)=0
+2 SET MSG="Now searching for temporary transactions with missing 'Form Type'."
+3 DO MES^XPDUTL(MSG)
+4 FOR
SET LOOP=$ORDER(^PRCS(410,LOOP))
if LOOP=""
QUIT
Begin DoDot:1
+5 SET TRAN=$GET(^PRCS(410,LOOP,0))
+6 IF $PIECE(TRAN,"^",3)]""
IF $PIECE(TRAN,"^",4)=""
Begin DoDot:2
+7 SET COUNT=COUNT+1
+8 IF (COUNT=1)
Begin DoDot:3
+9 SET MSG="The following transaction(s) require a valid 'Form Type':"
+10 DO BMES^XPDUTL(MSG)
+11 DO MES^XPDUTL(" ")
End DoDot:3
+12 SET MSG="Station "_$JUSTIFY($PIECE(TRAN,"^",5),5)_", FCP "
+13 SET MSG=MSG_$JUSTIFY($PIECE($PIECE($GET(^PRCS(410,LOOP,3)),"^",1)," ",1),7)
+14 SET MSG=MSG_", Transaction '"_$PIECE(TRAN,"^",3)_"'"
+15 DO MES^XPDUTL(MSG)
End DoDot:2
End DoDot:1
+16 DO BMES^XPDUTL("Search complete.")
+17 SET MSG="Total of "_COUNT
+18 SET MSG=MSG_" temporary transactions are missing 'Form Type' entries."
+19 DO MES^XPDUTL(MSG)
+20 QUIT
