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 ---[H[J[2J[HPRYNPOST 529 printed Nov 22, 2024@16:52:27 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
