Return to DIQQQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQQQ.m, revision 1.1

1.1     ! snw         1: DIQQQ  ;SFISC/GFT,XAK-MORE HELP ;9/16/93  16:20 ;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: DICATT W !,"IF YOU WANT THE SAME ANSWER ALLOWED FOR ",F,!,"AS FOR " Q
        !             6:        ;
        !             7: DICATT1        W !,"ENTER GLOBAL SUBSCRIPT NAME AT WHICH ",F," WILL BE STORED"
        !             8:        W !,"   ALREADY ASSIGNED: " S Y="",T=0 F  S Y=$O(^DD(A,"GL",Y)) Q:Y=""  W $J(Y,9) W:$X>66 !
        !             9:        S Y=-1 G SUB^DICATT1
        !            10:        ;
        !            11: DIS    ;
        !            12:        W !?8,"ENTER A VALUE WHICH '"_O(DC)_"'"
        !            13:        W !?8,"MUST "_$P("NOT ",U,DN]"")_$P("^CONTAIN^MATCH^BE LESS THAN^EQUAL^EXCEED^FOLLOW",U,+DQ)_", IN ORDER FOR"
        !            14:        W " TRUTH CONDITION -"_$C(DC+64)_"- TO BE TRUE",! W:+DQ=3 ?8,"(I.E., ENTER WHAT WOULD FOLLOW THE MUMPS '?' OPERATOR)",!
        !            15:        I E["S" W !,"Use EXTERNAL VALUE (from list on the right)" D EN^DIQQ1(DK,DU,"?")
        !            16:        W ! G F^DIS
        !            17:        ;
        !            18: DISC   W !,"YOU CAN NEGATE ANY OF THESE CONDITIONS BY PRECEDING THEM WITH ""'"" OR ""-"""
        !            19:        W !,"SO THAT ""'NULL'"" MEANS ""NOT NULL""",! G C^DIS
        !            20:        ;
        !            21: DIP1   W $C(7),!,"YOU HAVE ASKED TO SORT ON THE SAME FIELD TWICE!",!,"PLEASE RE-ENTER YOUR SORT CRITERIA!" G Q^DIP
        !            22:        ;
        !            23: DIP3   W !,"IF YOU WANT PAGE NUMBERING TO START AT A NUMBER HIGHER THAN 1, TYPE THAT NUMBER" G ^DIP3
        !            24:        ;
        !            25: DIA    W "FOLLOW A FIELD NAME WITH ';""CAPTION""' TO HAVE THE FIELD ASKED AS 'CAPTION: '"
        !            26:        W !?9,"OR WITH ';T' TO USE THE FIELD 'TITLE' AS CAPTION"
        !            27:        G 2^DIA
        !            28:        ;
        !            29: DIA3   W !,$C(7),"CAPTIONS CANNOT CONTAIN ':' OR ';', OR BEGIN WITH A PERIOD OR A DIGIT",! G 2^DIA
        !            30:        ;
        !            31: DIP21  W !,"THIS TEMPLATE MAY EVENTUALLY BE USED WITH A DIFFERENT 'SORT-BY' SEQUENCE.",!
        !            32:        W "ANSWERING 'Y' HERE INSURES THAT, IN THAT CASE, USER WON'T HAVE TO REMEMBER"
        !            33:        W !,"TO TYPE THE '@' IN ORDER TO KEEP SUB-HEADERS FROM APPEARING.",! G SUB^DIP21
        !            34:        ;
        !            35: DICOMPW        W !?4,"AT THE TIME THE LOOKUP OCCURS IN FILE "_Y_", THERE MAY"
        !            36:        W !?4,"BE MORE THAN 1 ENTRY FOUND.  ANSWERING 'Y' HERE MEANS THAT THE"
        !            37:        W !?4,"USER THEN WILL BE ALLOWED TO CHOOSE AMONG SEVERAL ENTRIES.",!! Q
        !            38: XPDIP21        ;from XPUT^DIP21
        !            39:        W !!,$C(7),"You must choose a template to store the fields selected for export."
        !            40:        W !,"If you do not want to save the selections, use the '^'.",! Q