- 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 Feb 18, 2025@23:43:23 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