source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCOSRV8.m@ 1078

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

initial load of WorldVistAEHR

File size: 422 bytes
Line 
1PRCOSRV8 ;WISC/DJM-FILE 423.5 FIELD .01 UPDATE ;7/13/94 9:58 AM
2V ;;5.0;IFCAP;;4/21/95
3UPDATE ;ALL ENTRIES WITHOUT A '-' IN FILE 423.5 WILL BE CHANGED TO INCLUDE 'IFC-'BEFORE THE TRANSACTION CODE. THE "B" X-REF WILL ALSO BE UPDATED.
4 N A,X
5 K ^PRCF(423.5,"B") S X=0
6 F S X=$O(^PRCF(423.5,X)) Q:X'>0 D
7 .S A=^PRCF(423.5,X,0)
8 .D:A'["-"
9 ..S A="IFC-"_A,^PRCF(423.5,X,0)=A
10 ..Q
11 .S ^PRCF(423.5,"B",$P(A,"^"),X)=""
12 .Q
13 Q
Note: See TracBrowser for help on using the repository browser.