KMPDUT.m

KMPDUT ;OAK/RAK - CM Tools Utility ;2/17/04  10:45

 ;;3.0;KMPD;;Jan 22, 2009;Build 42

 ;

PARAMS(KMPDARRY) ;-- cp parameters file data

 ;-----------------------------------------------------------------------

 ; KMPDARRY... Array (called by name) that will contain data from file

 ;             #8973 (CP PARAMETERS).  This will be returned in internal 

 ;             format

 ;-----------------------------------------------------------------------

 ;

 Q:$G(KMPDARRY)=""

 M @KMPDARRY=^KMPD(8973,1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---KMPDUT   514     printed  Apr 09, 2024@20:46:34                                                                                                                                                                                                       Page 2

KMPDUT    ;OAK/RAK - CM Tools Utility ;2/17/04  10:45

 +1       ;;3.0;KMPD;;Jan 22, 2009;Build 42

 +2       ;

PARAMS(KMPDARRY) ;-- cp parameters file data

 +1       ;-----------------------------------------------------------------------

 +2       ; KMPDARRY... Array (called by name) that will contain data from file

 +3       ;             #8973 (CP PARAMETERS).  This will be returned in internal 

 +4       ;             format

 +5       ;-----------------------------------------------------------------------

 +6       ;

 +7        if $GET(KMPDARRY)=""

               QUIT 

 +8        MERGE @KMPDARRY=^KMPD(8973,1)

 +9        QUIT