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

PRCNVS2.m

Go to the documentation of this file.

PRCNVS2 ;SSI/ALA-Patch 2 Post Init ;[ 02/12/97  11:48 AM ]

 ;;1.0;Equipment/Turn-In Request;**2**;Sep 13, 1996

 ;  Fix "P" cross-reference

 K ^PRCN(413,"P")

 S DIK="^PRCN(413,",DIK(1)="34^P"

 D ENALL^DIK

 K DIK,II,LPRI,OLDPRI,PRCNX,PRIMAX,SERV,DA,DIC

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNVS2   262     printed  Oct 16, 2024@17:55:38                                                                                                                                                                                                      Page 2

PRCNVS2   ;SSI/ALA-Patch 2 Post Init ;[ 02/12/97  11:48 AM ]

 +1       ;;1.0;Equipment/Turn-In Request;**2**;Sep 13, 1996

 +2       ;  Fix "P" cross-reference

 +3        KILL ^PRCN(413,"P")

 +4        SET DIK="^PRCN(413,"

           SET DIK(1)="34^P"

 +5        DO ENALL^DIK

 +6        KILL DIK,II,LPRI,OLDPRI,PRCNX,PRIMAX,SERV,DA,DIC

 +7        QUIT