Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
293 bytes
|
Rev | Line | |
---|
[613] | 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.