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 ---[H[J[2J[HKMPDUT 514 printed Dec 13, 2024@01:41:09 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
