source: GuiMail/trunk/p/CWMAPP01.m@ 1574

CWMAPP01        ; ;21-Jun-2005 06:34;CLC
        ;;2.3;CWMAIL;;Jul 19, 2005
        ;;
LOAD    ; load data into ^TMP (expects ROOT to be defined)
        S I=1 F  S REF=$T(DATA+I) Q:REF=""  S VAL=$T(DATA+I+1) D
        . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
        . S @(ROOT_REF)=VAL
        Q
DATA    ; parameter data
        ;;2,"KEY")
        ;;CWMA STARTUP NEW MAIL^1
        ;;2,"VAL")
        ;;True
        ;;4,"KEY")
        ;;CWMA GENERAL MD COL^1
        ;;4,"VAL")
        ;;0,5
        ;;5,"KEY")
        ;;CWMA GENERAL MD COL^2
        ;;5,"VAL")
        ;;1,25
        ;;6,"KEY")
        ;;CWMA GENERAL MD COL^3
        ;;6,"VAL")
        ;;2,60
        ;;7,"KEY")
        ;;CWMA GENERAL MD COL^4
        ;;7,"VAL")
        ;;3,250
        ;;8,"KEY")
        ;;CWMA GENERAL MD COL^5
        ;;8,"VAL")
        ;;4,200
        ;;9,"KEY")
        ;;CWMA GENERAL MD COL^6
        ;;9,"VAL")
        ;;5,47
        ;;18,"KEY")
        ;;CWMA SOUND ENABLED^1
        ;;18,"VAL")
        ;;False
        ;;40,"KEY")
        ;;CWMA GENERAL MD COL^7
        ;;40,"VAL")
        ;;6,38
        ;;42,"KEY")
        ;;CWMA GENERAL CMA STYLE^1
        ;;42,"VAL")
        ;;Use Menu
        ;;43,"KEY")
        ;;CWMA GENERAL MPD TAB^1
        ;;43,"VAL")
        ;;Recipients
        ;;44,"KEY")
        ;;CWMA GENERAL NMP FREQ^1
        ;;44,"VAL")
        ;;5
        ;;45,"KEY")
        ;;CWMA GENERAL MD COUNT^1
        ;;45,"VAL")
        ;;8
        ;;46,"KEY")
        ;;CWMA GENERAL PRINTMODE^1
        ;;46,"VAL")
        ;;Vista
        ;;66,"KEY")
        ;;CWMA ALLOW ATTACHMENTS^1
        ;;66,"VAL")
        ;;True