source:
WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCST15.m@
1800
| Last change on this file since 1800 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 239 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | PRCST15 ; ;10/27/00 |
| 2 | S X=DE(22),DIC=DIE | |
| 3 | 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'=DA) 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" |
Note:
See TracBrowser
for help on using the repository browser.
