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

PRCS.m

Go to the documentation of this file.

PRCS ;SF-ISC/LJP-CONTROL POINT ACT. MENU VARIABLE INIT/KILL ;9-19-89/15:19

V ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

EXIT K C2,CPCK,DIC,PRC,PRCSC,PRCSIP,I,J,K,O,S,X,Y Q

INIT2 S IOP=IO(0) D ^%ZIS K IOP Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCS   262     printed  Oct 16, 2024@18:17:45                                                                                                                                                                                                         Page 2

PRCS      ;SF-ISC/LJP-CONTROL POINT ACT. MENU VARIABLE INIT/KILL ;9-19-89/15:19

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

EXIT       KILL C2,CPCK,DIC,PRC,PRCSC,PRCSIP,I,J,K,O,S,X,Y

           QUIT

INIT2      SET IOP=IO(0)

           DO ^%ZIS

           KILL IOP

           QUIT