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

RMPR125P.m

Go to the documentation of this file.

RMPR125P ;HINES OI/SPS-PRE INSTALL ROUTINE FOR P125;03/30/2009

 ;;3.0;PROSTHETICS;**125**;Feb 09, 1996;Build 21

 S DIK="^DD(660,",DA=49,DA(1)=660 D ^DIK

 K DA,DIK,

 ;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR125P   183     printed  Feb 18, 2025@23:58:13                                                                                                                                                                                                     Page 2

RMPR125P  ;HINES OI/SPS-PRE INSTALL ROUTINE FOR P125;03/30/2009

 +1       ;;3.0;PROSTHETICS;**125**;Feb 09, 1996;Build 21

 +2        SET DIK="^DD(660,"

           SET DA=49

           SET DA(1)=660

           DO ^DIK

 +3        KILL DA,DIK,

 +4        QUIT

 +5       ;

 +6       ;END