RCY222PR.m

RCY222PR ;ALB/TMK - PRCA*4.5*222 PRE-INSTALL ;04-AUG-2004

 ;;4.5;Accounts Receivable;**222**;Mar 20, 1995

 ;

 D BMES^XPDUTL("Closing all 'in-use' ERA worklist batches")

 N Z,Z0,DA,DIE,DR

 S Z=0 F  S Z=$O(^RCY(344.49,Z)) Q:'Z  I $O(^RCY(344.49,Z,3,0)) S Z0=0 F  S Z0=$O(^RCY(344.49,Z,3,Z0)) Q:'Z0  I $P($G(^(Z0,0)),U,5) S DA(1)=Z,DA=Z0,DR=".05///0",DIE="^RCY("_DA(1)_",3," D ^DIE

 ;

 D COMPLETE

 D END

 Q

 ;

COMPLETE ;

 D BMES^XPDUTL("Step complete.")

 Q

 ;

END ;

 D BMES^XPDUTL("Pre-install complete.")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCY222PR   528     printed  Dec 13, 2024@01:49:56                                                                                                                                                                                                     Page 2

RCY222PR  ;ALB/TMK - PRCA*4.5*222 PRE-INSTALL ;04-AUG-2004

 +1       ;;4.5;Accounts Receivable;**222**;Mar 20, 1995

 +2       ;

 +3        DO BMES^XPDUTL("Closing all 'in-use' ERA worklist batches")

 +4        NEW Z,Z0,DA,DIE,DR

 +5        SET Z=0

           FOR 

               SET Z=$ORDER(^RCY(344.49,Z))

               if 'Z

                   QUIT 

               IF $ORDER(^RCY(344.49,Z,3,0))

                   SET Z0=0

                   FOR 

                       SET Z0=$ORDER(^RCY(344.49,Z,3,Z0))

                       if 'Z0

                           QUIT 

                       IF $PIECE($GET(^(Z0,0)),U,5)

                           SET DA(1)=Z

                           SET DA=Z0

                           SET DR=".05///0"

                           SET DIE="^RCY("_DA(1)_",3,"

                           DO ^DIE

 +6       ;

 +7        DO COMPLETE

 +8        DO END

 +9        QUIT 

 +10      ;

COMPLETE  ;

 +1        DO BMES^XPDUTL("Step complete.")

 +2        QUIT 

 +3       ;

END       ;

 +1        DO BMES^XPDUTL("Pre-install complete.")

 +2        QUIT 

 +3       ;