source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCSETI.m@ 1354

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

initial load of FOIAVistA 6/30/08 version
File size: 242 bytes
Line 
1PRCSETI ;WIRMFO/ERC-RESET I IN 0 NODE ;9/13/96
2 ;;5.0;IFCAP;**81,199**;4/21/95
3 ;RESETS "I" INTO 2ND PIECE OF 0 NODES OF 442 AND 443.6
4 I $P(^PRC(442,0),U,2)'["I" S $P(^(0),U,2)="442I"
5 I $P(^PRC(443.6,0),U,2)'["I" S $P(^(0),U,2)="443.6I"
6 Q
Note: See TracBrowser for help on using the repository browser.