source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCXTST.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 293 bytes
Line 
1PRCXTST ;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.