Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PRCSETI

PRCSETI.m

Go to the documentation of this file.

PRCSETI ;WIRMFO/ERC-RESET I IN 0 NODE ;9/13/96

 ;;5.0;IFCAP;**81,199**;4/21/95

 ;RESETS "I" INTO 2ND PIECE OF 0 NODES OF 442 AND 443.6

 I $P(^PRC(442,0),U,2)'["I" S $P(^(0),U,2)="442I"

 I $P(^PRC(443.6,0),U,2)'["I" S $P(^(0),U,2)="443.6I"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCSETI   248     printed  Oct 16, 2024@18:18:29                                                                                                                                                                                                      Page 2

PRCSETI   ;WIRMFO/ERC-RESET I IN 0 NODE ;9/13/96

 +1       ;;5.0;IFCAP;**81,199**;4/21/95

 +2       ;RESETS "I" INTO 2ND PIECE OF 0 NODES OF 442 AND 443.6

 +3        IF $PIECE(^PRC(442,0),U,2)'["I"

               SET $PIECE(^(0),U,2)="442I"

 +4        IF $PIECE(^PRC(443.6,0),U,2)'["I"

               SET $PIECE(^(0),U,2)="443.6I"

 +5        QUIT