Return to DIQQQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQQQ.m, revision 1.1.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