PRYNPOST.m

PRYNPOST ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "CA" X-REF ;10/19/95  12:23 PM [ 10/25/95   7:10 AM ]

V ;;4.5;Accounts Receivable;**23**;Mar 20, 1995

 N RCI,TRTYP

 W !,"STARTING POST-INIT"

 W !,"SETTING CA X-REF IN FILE 433"

 S RCI=0 F  S RCI=$O(^PRCA(433,RCI)) Q:RCI'?1N.N  D

    .S TRTYP=$P($G(^PRCA(433,RCI,1)),U,2)

    .I TRTYP=35,$P($G(^PRCA(433,RCI,8)),U,8) D

       ..S ^PRCA(433,"CA",RCI)=""

       ..W "."

       ..Q

    .Q

 W !,"CA X-REF SET"

 S ^PRCA(433,"CA",0)=""

 W !,"POST-INIT COMPLETED"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRYNPOST   529     printed  Apr 09, 2024@20:53:29                                                                                                                                                                                                     Page 2

PRYNPOST  ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "CA" X-REF ;10/19/95  12:23 PM [ 10/25/95   7:10 AM ]

V         ;;4.5;Accounts Receivable;**23**;Mar 20, 1995

 +1        NEW RCI,TRTYP

 +2        WRITE !,"STARTING POST-INIT"

 +3        WRITE !,"SETTING CA X-REF IN FILE 433"

 +4        SET RCI=0

           FOR 

               SET RCI=$ORDER(^PRCA(433,RCI))

               if RCI'?1N.N

                   QUIT 

               Begin DoDot:1

 +5                SET TRTYP=$PIECE($GET(^PRCA(433,RCI,1)),U,2)

 +6                IF TRTYP=35

                       IF $PIECE($GET(^PRCA(433,RCI,8)),U,8)

                           Begin DoDot:2

 +7                            SET ^PRCA(433,"CA",RCI)=""

 +8                            WRITE "."

 +9                            QUIT 

                           End DoDot:2

 +10               QUIT 

               End DoDot:1

 +11       WRITE !,"CA X-REF SET"

 +12       SET ^PRCA(433,"CA",0)=""

 +13       WRITE !,"POST-INIT COMPLETED"

 +14       QUIT