PRC182.m

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 ---PRC182   879     printed  Mar 13, 2025@21:04:16                                                                                                                                                                                                       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