|
Last change
on this file since 811 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
