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