Routine: ORY22101

ORY22101 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**221**;Dec 17,1997

 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

S ;

 D DOT^ORY221ES

 K REMOTE,LOCAL,OPCODE,REF

 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D  Q:QUIT

 .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT

 G ^ORY22102

DATA ;

 ;;ROOT^OCXS(860.2,0)^ORDER CHECK RULE^860.2I

 ;;ROOT^OCXS(860.3,0)^ORDER CHECK ELEMENT^860.3

 ;;ROOT^OCXS(860.4,0)^ORDER CHECK DATA FIELD^860.4I

 ;;ROOT^OCXS(860.5,0)^ORDER CHECK DATA SOURCE^860.5

 ;;ROOT^OCXS(860.6,0)^ORDER CHECK DATA CONTEXT^860.6

 ;;ROOT^OCXS(860.8,0)^ORDER CHECK COMPILER FUNCTIONS^860.8

 ;;ROOT^OCXS(860.9,0)^ORDER CHECK NATIONAL TERM^860.9

 ;;ROOT^OCXS(863,0)^OCX MDD CLASS^863

 ;;ROOT^OCXS(863.1,0)^OCX MDD APPLICATION^863.1

 ;;ROOT^OCXS(863.2,0)^OCX MDD SUBJECT^863.2

 ;;ROOT^OCXS(863.3,0)^OCX MDD LINK^863.3I

 ;;ROOT^OCXS(863.4,0)^OCX MDD ATTRIBUTE^863.4

 ;;ROOT^OCXS(863.5,0)^OCX MDD VALUES^863.5

 ;;ROOT^OCXS(863.6,0)^OCX MDD METHOD^863.6

 ;;ROOT^OCXS(863.7,0)^OCX MDD PUBLIC FUNCTION^863.7

 ;;ROOT^OCXS(863.8,0)^OCX MDD PARAMETER^863.8

 ;;ROOT^OCXS(863.9,0)^OCX MDD CONDITION/FUNCTION^863.9I

 ;;ROOT^OCXS(864,0)^OCX MDD SITE PREFERENCES^864P

 ;;ROOT^OCXS(864.1,0)^OCX MDD DATATYPE^864.1

 ;;ROOT^OCXD(860.1,0)^ORDER CHECK PATIENT ACTIVE DATA^860.1P

 ;;ROOT^OCXD(860.7,0)^ORDER CHECK PATIENT RULE EVENT^860.7P

 ;;ROOT^OCXD(861,0)^ORDER CHECK RAW DATA LOG^861

 ;;SOF^863.8  OCX MDD PARAMETER

 ;;KEY^863.8:^COMPARISON VALUE

 ;;R^"863.8:",.01,"E"

 ;;D^COMPARISON VALUE

 ;;R^"863.8:",.02,"E"

 ;;D^CVAL

 ;;R^"863.8:",1,1

 ;;D^

 ;;R^"863.8:",1,2

 ;;D^   This is a value to be compared with PRIMARY DATA FIELD

 ;;R^"863.8:",1,3

 ;;D^ in a truth conditional.

 ;;R^"863.8:",1,4

 ;;D^

 ;;EOR^

 ;;KEY^863.8:^CONDITION CALL

 ;;R^"863.8:",.01,"E"

 ;;D^CONDITION CALL

 ;;R^"863.8:",.02,"E"

 ;;D^COND CALL

 ;;R^"863.8:",1,1

 ;;D^tag^routine which manages the dialogue for selecting and validating a

 ;;R^"863.8:",1,2

 ;;D^condition.

 ;;R^"863.8:","863.84:3",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:3",1,"E"

 ;;D^Tag^routine which manages the condition

 ;;R^"863.8:","863.84:4",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:4",1,"E"

 ;;D^LINE TAG

 ;;EOR^

 ;;KEY^863.8:^DATA TYPE

 ;;R^"863.8:",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:",.02,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:",1,1

 ;;D^An MDD data type; i.e., an entry in the OCX MDD DATA TYPE file.

 ;;R^"863.8:","863.84:6",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:6",1,"E"

 ;;D^Enter the datatype

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^DIC

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^864.1

 ;;R^"863.8:","863.84:8",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:8",1,"E"

 ;;D^POINTER TO A FILEMAN FILE

 ;;R^"863.8:","863.84:9",.01,"E"

 ;;D^DIC LOOKUP INDEX STRING

 ;;R^"863.8:","863.84:9",1,"E"

 ;;D^B^C

 ;;EOR^

 ;;KEY^863.8:^DATE EXACT

 ;;R^"863.8:",.01,"E"

 ;;D^DATE EXACT

 ;;R^"863.8:",.02,"E"

 ;;D^DATE X

 ;;R^"863.8:",1,1

 ;;D^Exact date required.  "X"=EXACT DATE REQUIRED

 ;;R^"863.8:","863.84:10",.01,"E"

 ;;D^FM MASK

 ;;R^"863.8:","863.84:10",1,"E"

 ;;D^DEX^OCXF6

 ;;R^"863.8:","863.84:11",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:11",1,"E"

 ;;D^SET OF CODES

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^Enter an 'X' if exact date is required

 ;;R^"863.8:","863.84:9",.01,"E"

 ;;D^SET CODES

 ;;R^"863.8:","863.84:9",1,"E"

 ;;D^X:EXACT DATE REQUIRED

 ;;EOR^

 ;;KEY^863.8:^DATE INPUT FORMAT

 ;;R^"863.8:",.01,"E"

 ;;D^DATE INPUT FORMAT

 ;;R^"863.8:",.02,"E"

 ;;D^DATE INPUT

 ;;R^"863.8:",1,1

 ;;D^Can numeric input format (MMDDYY) be used? "N"=NO

 ;;R^"863.8:","863.84:6",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:6",1,"E"

 ;;D^Enter 'N' if numeric date input (MMDDYY) cannot be used

 ;;R^"863.8:","863.84:8",.01,"E"

 ;;D^SET CODES

 ;;R^"863.8:","863.84:8",1,"E"

 ;;D^N:NO

 ;;R^"863.8:","863.84:9",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:9",1,"E"

 ;;D^SET OF CODES

 ;;EOR^

 ;;KEY^863.8:^DATE LIMIT

 ;;R^"863.8:",.01,"E"

 ;;D^DATE LIMIT

 ;;R^"863.8:",.02,"E"

 ;;D^DATE LIM

 ;;R^"863.8:",1,1

 ;;D^Equivalent to %DT(0); e.g., 2940101=MUst be > or = to 1/1/94, -2940101=

 ;;R^"863.8:",1,2

 ;;D^Must be < or = 1/1/94

 ;;R^"863.8:",2,"E"

 ;;D^

 ;;R^"863.8:","863.84:4",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:4",1,"E"

 ;;D^Max or min date allowed [(-)yyymmdd]

 ;;R^"863.8:","863.84:5",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:5",1,"E"

 ;;D^FILEMAN DATE INTERNAL FORMAT

 ;;EOR^

 ;;KEY^863.8:^DATE MAXIMUM

 ;;R^"863.8:",.01,"E"

 ;;D^DATE MAXIMUM

 ;;R^"863.8:",.02,"E"

 ;;D^DATE MAX

 ;;R^"863.8:",1,1

 ;;D^Maximum date allowed in internal FM format

 ;;R^"863.8:","863.84:6",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:6",1,"E"

 ;;D^Maximum date

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^FILEMAN DATE INTERNAL FORMAT

 ;;R^"863.8:","863.84:8",.01,"E"

 ;;D^FM MASK

 ;;R^"863.8:","863.84:8",1,"E"

 ;;D^DMAX^OCXF6

 ;;EOR^

 ;;KEY^863.8:^DATE MINIMUM

 ;;R^"863.8:",.01,"E"

 ;;D^DATE MINIMUM

 ;;R^"863.8:",.02,"E"

 ;;D^DATE MIN

 ;;R^"863.8:",1,1

 ;;D^Earliest date allowed

 ;;R^"863.8:","863.84:6",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:6",1,"E"

 ;;D^Enter earliest date allowed

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^FILEMAN DATE INTERNAL FORMAT

 ;;R^"863.8:","863.84:8",.01,"E"

 ;;D^FM MASK

 ;;R^"863.8:","863.84:8",1,"E"

 ;;D^DMIN^OCXF6

 ;;EOR^

 ;;KEY^863.8:^DATE SECONDS

 ;;R^"863.8:",.01,"E"

 ;;D^DATE SECONDS

 ;;R^"863.8:",.02,"E"

 ;;D^DATE SEC

 ;;R^"863.8:",1,1

 ;;D^Seconds allowed and returned.  "S"=SECONDS RETURNED

 ;;R^"863.8:","863.84:10",.01,"E"

 ;;D^SET CODES

 ;;R^"863.8:","863.84:10",1,"E"

 ;;D^S:SECONDS RETURNED

 ;;R^"863.8:","863.84:11",.01,"E"

 ;;D^FM MASK

 ;;R^"863.8:","863.84:11",1,"E"

 ;;D^DSEC^OCXF6

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^Enter 'S' if you want seconds returned

 ;;R^"863.8:","863.84:9",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:9",1,"E"

 ;;D^SET OF CODES

 ;;EOR^

 ;;KEY^863.8:^DATE SPECIAL MASK

 ;;R^"863.8:",.01,"E"

 ;;D^DATE SPECIAL MASK

 ;;R^"863.8:",.02,"E"

 ;;D^DATE MASK

 ;;R^"863.8:",1,1

 ;;D^Executable code using the date in internal FM format and returning a

 ;;R^"863.8:",1,2

 ;;D^truth value which checks the validity of the date outside of %DT

 ;;R^"863.8:","863.84:3",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:3",1,"E"

 ;;D^Date mask code

 ;;R^"863.8:","863.84:4",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:4",1,"E"

 ;;D^MUMPS CODE

 ;;EOR^

 ;;KEY^863.8:^DATE SPECIAL OUTPUT FORMAT

 ;;R^"863.8:",.01,"E"

 ;;D^DATE SPECIAL OUTPUT FORMAT

 ;;R^"863.8:",.02,"E"

 ;;D^DATE OUT

 ;;R^"863.8:",1,1

 ;;D^M code which transforms internal FM date format to external format

 ;;R^"863.8:","863.84:3",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:3",1,"E"

 ;;D^Output format code

 ;;R^"863.8:","863.84:4",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:4",1,"E"

 ;;D^MUMPS CODE

 ;;EOR^

 ;;KEY^863.8:^DATE TIME

 ;;R^"863.8:",.01,"E"

 ;;D^DATE TIME

 ;;R^"863.8:",.02,"E"

 ;;D^DATE TIME

 ;;R^"863.8:",1,1

 ;;D^Can time be entered along with the date? "T"=TIME ALLOWED, "R"=TIME REQUIRED

 ;;R^"863.8:","863.84:10",.01,"E"

 ;;D^DATA TYPE

 ;;R^"863.8:","863.84:10",1,"E"

 ;;D^SET OF CODES

 ;;R^"863.8:","863.84:11",.01,"E"

 ;;D^FM MASK

 ;;R^"863.8:","863.84:11",1,"E"

 ;;D^DTIME^OCXF6

 ;;R^"863.8:","863.84:7",.01,"E"

 ;;D^QUERY

 ;;R^"863.8:","863.84:7",1,"E"

 ;;D^Time parameter

 ;;R^"863.8:","863.84:9",.01,"E"

;1;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY22101   7812     printed  Feb 19, 2025@00:05:50                                                                                                                                                                                                    Page 2

ORY22101  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**221**;Dec 17,1997

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3       ;

S         ;

 +1       ;

 +2        DO DOT^ORY221ES

 +3       ;

 +4       ;

 +5        KILL REMOTE,LOCAL,OPCODE,REF

 +6        FOR LINE=1:1:500

               SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)

               if TEXT

                   QUIT

               IF $LENGTH(TEXT)

                   Begin DoDot:1

 +7                    SET ^TMP("OCXRULE",$JOB,$ORDER(^TMP("OCXRULE",$JOB,"A"),-1)+1)=TEXT

                   End DoDot:1

                   if QUIT

                       QUIT

 +8       ;

 +9        GOTO ^ORY22102

 +10      ;

 +11       QUIT

 +12      ;

DATA      ;

 +1       ;

 +2       ;;ROOT^OCXS(860.2,0)^ORDER CHECK RULE^860.2I

 +3       ;;ROOT^OCXS(860.3,0)^ORDER CHECK ELEMENT^860.3

 +4       ;;ROOT^OCXS(860.4,0)^ORDER CHECK DATA FIELD^860.4I

 +5       ;;ROOT^OCXS(860.5,0)^ORDER CHECK DATA SOURCE^860.5

 +6       ;;ROOT^OCXS(860.6,0)^ORDER CHECK DATA CONTEXT^860.6

 +7       ;;ROOT^OCXS(860.8,0)^ORDER CHECK COMPILER FUNCTIONS^860.8

 +8       ;;ROOT^OCXS(860.9,0)^ORDER CHECK NATIONAL TERM^860.9

 +9       ;;ROOT^OCXS(863,0)^OCX MDD CLASS^863

 +10      ;;ROOT^OCXS(863.1,0)^OCX MDD APPLICATION^863.1

 +11      ;;ROOT^OCXS(863.2,0)^OCX MDD SUBJECT^863.2

 +12      ;;ROOT^OCXS(863.3,0)^OCX MDD LINK^863.3I

 +13      ;;ROOT^OCXS(863.4,0)^OCX MDD ATTRIBUTE^863.4

 +14      ;;ROOT^OCXS(863.5,0)^OCX MDD VALUES^863.5

 +15      ;;ROOT^OCXS(863.6,0)^OCX MDD METHOD^863.6

 +16      ;;ROOT^OCXS(863.7,0)^OCX MDD PUBLIC FUNCTION^863.7

 +17      ;;ROOT^OCXS(863.8,0)^OCX MDD PARAMETER^863.8

 +18      ;;ROOT^OCXS(863.9,0)^OCX MDD CONDITION/FUNCTION^863.9I

 +19      ;;ROOT^OCXS(864,0)^OCX MDD SITE PREFERENCES^864P

 +20      ;;ROOT^OCXS(864.1,0)^OCX MDD DATATYPE^864.1

 +21      ;;ROOT^OCXD(860.1,0)^ORDER CHECK PATIENT ACTIVE DATA^860.1P

 +22      ;;ROOT^OCXD(860.7,0)^ORDER CHECK PATIENT RULE EVENT^860.7P

 +23      ;;ROOT^OCXD(861,0)^ORDER CHECK RAW DATA LOG^861

 +24      ;;SOF^863.8  OCX MDD PARAMETER

 +25      ;;KEY^863.8:^COMPARISON VALUE

 +26      ;;R^"863.8:",.01,"E"

 +27      ;;D^COMPARISON VALUE

 +28      ;;R^"863.8:",.02,"E"

 +29      ;;D^CVAL

 +30      ;;R^"863.8:",1,1

 +31      ;;D^

 +32      ;;R^"863.8:",1,2

 +33      ;;D^   This is a value to be compared with PRIMARY DATA FIELD

 +34      ;;R^"863.8:",1,3

 +35      ;;D^ in a truth conditional.

 +36      ;;R^"863.8:",1,4

 +37      ;;D^

 +38      ;;EOR^

 +39      ;;KEY^863.8:^CONDITION CALL

 +40      ;;R^"863.8:",.01,"E"

 +41      ;;D^CONDITION CALL

 +42      ;;R^"863.8:",.02,"E"

 +43      ;;D^COND CALL

 +44      ;;R^"863.8:",1,1

 +45      ;;D^tag^routine which manages the dialogue for selecting and validating a

 +46      ;;R^"863.8:",1,2

 +47      ;;D^condition.

 +48      ;;R^"863.8:","863.84:3",.01,"E"

 +49      ;;D^QUERY

 +50      ;;R^"863.8:","863.84:3",1,"E"

 +51      ;;D^Tag^routine which manages the condition

 +52      ;;R^"863.8:","863.84:4",.01,"E"

 +53      ;;D^DATA TYPE

 +54      ;;R^"863.8:","863.84:4",1,"E"

 +55      ;;D^LINE TAG

 +56      ;;EOR^

 +57      ;;KEY^863.8:^DATA TYPE

 +58      ;;R^"863.8:",.01,"E"

 +59      ;;D^DATA TYPE

 +60      ;;R^"863.8:",.02,"E"

 +61      ;;D^DATA TYPE

 +62      ;;R^"863.8:",1,1

 +63      ;;D^An MDD data type; i.e., an entry in the OCX MDD DATA TYPE file.

 +64      ;;R^"863.8:","863.84:6",.01,"E"

 +65      ;;D^QUERY

 +66      ;;R^"863.8:","863.84:6",1,"E"

 +67      ;;D^Enter the datatype

 +68      ;;R^"863.8:","863.84:7",.01,"E"

 +69      ;;D^DIC

 +70      ;;R^"863.8:","863.84:7",1,"E"

 +71      ;;D^864.1

 +72      ;;R^"863.8:","863.84:8",.01,"E"

 +73      ;;D^DATA TYPE

 +74      ;;R^"863.8:","863.84:8",1,"E"

 +75      ;;D^POINTER TO A FILEMAN FILE

 +76      ;;R^"863.8:","863.84:9",.01,"E"

 +77      ;;D^DIC LOOKUP INDEX STRING

 +78      ;;R^"863.8:","863.84:9",1,"E"

 +79      ;;D^B^C

 +80      ;;EOR^

 +81      ;;KEY^863.8:^DATE EXACT

 +82      ;;R^"863.8:",.01,"E"

 +83      ;;D^DATE EXACT

 +84      ;;R^"863.8:",.02,"E"

 +85      ;;D^DATE X

 +86      ;;R^"863.8:",1,1

 +87      ;;D^Exact date required.  "X"=EXACT DATE REQUIRED

 +88      ;;R^"863.8:","863.84:10",.01,"E"

 +89      ;;D^FM MASK

 +90      ;;R^"863.8:","863.84:10",1,"E"

 +91      ;;D^DEX^OCXF6

 +92      ;;R^"863.8:","863.84:11",.01,"E"

 +93      ;;D^DATA TYPE

 +94      ;;R^"863.8:","863.84:11",1,"E"

 +95      ;;D^SET OF CODES

 +96      ;;R^"863.8:","863.84:7",.01,"E"

 +97      ;;D^QUERY

 +98      ;;R^"863.8:","863.84:7",1,"E"

 +99      ;;D^Enter an 'X' if exact date is required

 +100     ;;R^"863.8:","863.84:9",.01,"E"

 +101     ;;D^SET CODES

 +102     ;;R^"863.8:","863.84:9",1,"E"

 +103     ;;D^X:EXACT DATE REQUIRED

 +104     ;;EOR^

 +105     ;;KEY^863.8:^DATE INPUT FORMAT

 +106     ;;R^"863.8:",.01,"E"

 +107     ;;D^DATE INPUT FORMAT

 +108     ;;R^"863.8:",.02,"E"

 +109     ;;D^DATE INPUT

 +110     ;;R^"863.8:",1,1

 +111     ;;D^Can numeric input format (MMDDYY) be used? "N"=NO

 +112     ;;R^"863.8:","863.84:6",.01,"E"

 +113     ;;D^QUERY

 +114     ;;R^"863.8:","863.84:6",1,"E"

 +115     ;;D^Enter 'N' if numeric date input (MMDDYY) cannot be used

 +116     ;;R^"863.8:","863.84:8",.01,"E"

 +117     ;;D^SET CODES

 +118     ;;R^"863.8:","863.84:8",1,"E"

 +119     ;;D^N:NO

 +120     ;;R^"863.8:","863.84:9",.01,"E"

 +121     ;;D^DATA TYPE

 +122     ;;R^"863.8:","863.84:9",1,"E"

 +123     ;;D^SET OF CODES

 +124     ;;EOR^

 +125     ;;KEY^863.8:^DATE LIMIT

 +126     ;;R^"863.8:",.01,"E"

 +127     ;;D^DATE LIMIT

 +128     ;;R^"863.8:",.02,"E"

 +129     ;;D^DATE LIM

 +130     ;;R^"863.8:",1,1

 +131     ;;D^Equivalent to %DT(0); e.g., 2940101=MUst be > or = to 1/1/94, -2940101=

 +132     ;;R^"863.8:",1,2

 +133     ;;D^Must be < or = 1/1/94

 +134     ;;R^"863.8:",2,"E"

 +135     ;;D^

 +136     ;;R^"863.8:","863.84:4",.01,"E"

 +137     ;;D^QUERY

 +138     ;;R^"863.8:","863.84:4",1,"E"

 +139     ;;D^Max or min date allowed [(-)yyymmdd]

 +140     ;;R^"863.8:","863.84:5",.01,"E"

 +141     ;;D^DATA TYPE

 +142     ;;R^"863.8:","863.84:5",1,"E"

 +143     ;;D^FILEMAN DATE INTERNAL FORMAT

 +144     ;;EOR^

 +145     ;;KEY^863.8:^DATE MAXIMUM

 +146     ;;R^"863.8:",.01,"E"

 +147     ;;D^DATE MAXIMUM

 +148     ;;R^"863.8:",.02,"E"

 +149     ;;D^DATE MAX

 +150     ;;R^"863.8:",1,1

 +151     ;;D^Maximum date allowed in internal FM format

 +152     ;;R^"863.8:","863.84:6",.01,"E"

 +153     ;;D^QUERY

 +154     ;;R^"863.8:","863.84:6",1,"E"

 +155     ;;D^Maximum date

 +156     ;;R^"863.8:","863.84:7",.01,"E"

 +157     ;;D^DATA TYPE

 +158     ;;R^"863.8:","863.84:7",1,"E"

 +159     ;;D^FILEMAN DATE INTERNAL FORMAT

 +160     ;;R^"863.8:","863.84:8",.01,"E"

 +161     ;;D^FM MASK

 +162     ;;R^"863.8:","863.84:8",1,"E"

 +163     ;;D^DMAX^OCXF6

 +164     ;;EOR^

 +165     ;;KEY^863.8:^DATE MINIMUM

 +166     ;;R^"863.8:",.01,"E"

 +167     ;;D^DATE MINIMUM

 +168     ;;R^"863.8:",.02,"E"

 +169     ;;D^DATE MIN

 +170     ;;R^"863.8:",1,1

 +171     ;;D^Earliest date allowed

 +172     ;;R^"863.8:","863.84:6",.01,"E"

 +173     ;;D^QUERY

 +174     ;;R^"863.8:","863.84:6",1,"E"

 +175     ;;D^Enter earliest date allowed

 +176     ;;R^"863.8:","863.84:7",.01,"E"

 +177     ;;D^DATA TYPE

 +178     ;;R^"863.8:","863.84:7",1,"E"

 +179     ;;D^FILEMAN DATE INTERNAL FORMAT

 +180     ;;R^"863.8:","863.84:8",.01,"E"

 +181     ;;D^FM MASK

 +182     ;;R^"863.8:","863.84:8",1,"E"

 +183     ;;D^DMIN^OCXF6

 +184     ;;EOR^

 +185     ;;KEY^863.8:^DATE SECONDS

 +186     ;;R^"863.8:",.01,"E"

 +187     ;;D^DATE SECONDS

 +188     ;;R^"863.8:",.02,"E"

 +189     ;;D^DATE SEC

 +190     ;;R^"863.8:",1,1

 +191     ;;D^Seconds allowed and returned.  "S"=SECONDS RETURNED

 +192     ;;R^"863.8:","863.84:10",.01,"E"

 +193     ;;D^SET CODES

 +194     ;;R^"863.8:","863.84:10",1,"E"

 +195     ;;D^S:SECONDS RETURNED

 +196     ;;R^"863.8:","863.84:11",.01,"E"

 +197     ;;D^FM MASK

 +198     ;;R^"863.8:","863.84:11",1,"E"

 +199     ;;D^DSEC^OCXF6

 +200     ;;R^"863.8:","863.84:7",.01,"E"

 +201     ;;D^QUERY

 +202     ;;R^"863.8:","863.84:7",1,"E"

 +203     ;;D^Enter 'S' if you want seconds returned

 +204     ;;R^"863.8:","863.84:9",.01,"E"

 +205     ;;D^DATA TYPE

 +206     ;;R^"863.8:","863.84:9",1,"E"

 +207     ;;D^SET OF CODES

 +208     ;;EOR^

 +209     ;;KEY^863.8:^DATE SPECIAL MASK

 +210     ;;R^"863.8:",.01,"E"

 +211     ;;D^DATE SPECIAL MASK

 +212     ;;R^"863.8:",.02,"E"

 +213     ;;D^DATE MASK

 +214     ;;R^"863.8:",1,1

 +215     ;;D^Executable code using the date in internal FM format and returning a

 +216     ;;R^"863.8:",1,2

 +217     ;;D^truth value which checks the validity of the date outside of %DT

 +218     ;;R^"863.8:","863.84:3",.01,"E"

 +219     ;;D^QUERY

 +220     ;;R^"863.8:","863.84:3",1,"E"

 +221     ;;D^Date mask code

 +222     ;;R^"863.8:","863.84:4",.01,"E"

 +223     ;;D^DATA TYPE

 +224     ;;R^"863.8:","863.84:4",1,"E"

 +225     ;;D^MUMPS CODE

 +226     ;;EOR^

 +227     ;;KEY^863.8:^DATE SPECIAL OUTPUT FORMAT

 +228     ;;R^"863.8:",.01,"E"

 +229     ;;D^DATE SPECIAL OUTPUT FORMAT

 +230     ;;R^"863.8:",.02,"E"

 +231     ;;D^DATE OUT

 +232     ;;R^"863.8:",1,1

 +233     ;;D^M code which transforms internal FM date format to external format

 +234     ;;R^"863.8:","863.84:3",.01,"E"

 +235     ;;D^QUERY

 +236     ;;R^"863.8:","863.84:3",1,"E"

 +237     ;;D^Output format code

 +238     ;;R^"863.8:","863.84:4",.01,"E"

 +239     ;;D^DATA TYPE

 +240     ;;R^"863.8:","863.84:4",1,"E"

 +241     ;;D^MUMPS CODE

 +242     ;;EOR^

 +243     ;;KEY^863.8:^DATE TIME

 +244     ;;R^"863.8:",.01,"E"

 +245     ;;D^DATE TIME

 +246     ;;R^"863.8:",.02,"E"

 +247     ;;D^DATE TIME

 +248     ;;R^"863.8:",1,1

 +249     ;;D^Can time be entered along with the date? "T"=TIME ALLOWED, "R"=TIME REQUIRED

 +250     ;;R^"863.8:","863.84:10",.01,"E"

 +251     ;;D^DATA TYPE

 +252     ;;R^"863.8:","863.84:10",1,"E"

 +253     ;;D^SET OF CODES

 +254     ;;R^"863.8:","863.84:11",.01,"E"

 +255     ;;D^FM MASK

 +256     ;;R^"863.8:","863.84:11",1,"E"

 +257     ;;D^DTIME^OCXF6

 +258     ;;R^"863.8:","863.84:7",.01,"E"

 +259     ;;D^QUERY

 +260     ;;R^"863.8:","863.84:7",1,"E"

 +261     ;;D^Time parameter

 +262     ;;R^"863.8:","863.84:9",.01,"E"

 +263     ;1;

 +264     ;

ORY22101.m