- PRCST24 ; ;10/27/00
- S X=DG(DQ),DIC=DIE
- X "S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCST24 234 printed Jan 18, 2025@03:19:56 Page 2
- PRCST24 ; ;10/27/00
- +1 SET X=DG(DQ)
- SET DIC=DIE
- +2 XECUTE "S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"