source:
WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCXTST.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 293 bytes |
Line | |
---|---|
1 | PRCXTST ;Routine to create "AB" entries for split off 2237s ;8/24/95 08:31 |
2 | ;;5.0;IFCAP;**23**;4/21/95 |
3 | N N |
4 | S N=0 F S N=$O(^PRCS(410,N)) Q:'N I $P($G(^(N,0)),U,4)'=1&('$D(^PRCS(410,N,"IT","AB"))) D |
5 | .S DA(1)=N,DIK="^PRCS(410,"_DA(1)_",""IT"",",DIK(1)=".01^AB" |
6 | .D ENALL^DIK K DA,DIK |
7 | QUIT |
Note:
See TracBrowser
for help on using the repository browser.