- OCXRU003 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*96) ;JAN 30,2001 at 11:16
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**96**;Dec 17,1997
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- S ;
- ;
- D DOT^OCXRULE
- ;
- ;
- 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 ^OCXRU004
- ;
- Q
- ;
- DATA ;
- ;
- ;;R^"863.8:","863.84:2",.01,"E"
- ;;D^FM MASK
- ;;R^"863.8:","863.84:2",1,"E"
- ;;D^SET^OCXF6
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^CODE STRING
- ;;EOR^
- ;;KEY^863.8:^TERMINATOR
- ;;R^"863.8:",.01,"E"
- ;;D^TERMINATOR
- ;;R^"863.8:",.02,"E"
- ;;D^TERMINATOR
- ;;R^"863.8:",1,1
- ;;D^A text string terminator; e.g., '?', ': ', '=>'
- ;;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^Enter text string terminator
- ;;R^"863.8:","863.84:5",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:5",1,"E"
- ;;D^FREE TEXT
- ;;R^"863.8:","863.84:6",.01,"E"
- ;;D^FREE TEXT MAXIMUM LENGTH
- ;;R^"863.8:","863.84:6",1,"E"
- ;;D^9
- ;;EOR^
- ;;KEY^863.8:^VALUE CALL
- ;;R^"863.8:",.01,"E"
- ;;D^VALUE CALL
- ;;R^"863.8:",.02,"E"
- ;;D^VAL CALL
- ;;R^"863.8:",.03,"E"
- ;;D^NO
- ;;R^"863.8:",1,1
- ;;D^tag^routine which manages the dialogue for collecting and validating a value
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^Enter tag^routine
- ;;R^"863.8:","863.84:4",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:4",1,"E"
- ;;D^LINE TAG
- ;;EOR^
- ;;EOF^OCXS(863.8)^1
- ;;SOF^864.1 OCX MDD DATATYPE
- ;;KEY^864.1:^BOOLEAN
- ;;R^"864.1:",.01,"E"
- ;;D^BOOLEAN
- ;;R^"864.1:",.02,"E"
- ;;D^BOOL
- ;;EOR^
- ;;KEY^864.1:^DATE/TIME
- ;;R^"864.1:",.01,"E"
- ;;D^DATE/TIME
- ;;R^"864.1:",.02,"E"
- ;;D^DATE
- ;;R^"864.1:",2,"E"
- ;;D^GENERIC
- ;;R^"864.1:","864.11:10",.01,"E"
- ;;D^DATE SPECIAL MASK
- ;;R^"864.1:","864.11:11",.01,"E"
- ;;D^VALUE CALL
- ;;R^"864.1:","864.11:11",1,"E"
- ;;D^DATE^OCXFDD
- ;;R^"864.1:","864.11:12",.01,"E"
- ;;D^CONDITION CALL
- ;;R^"864.1:","864.11:12",1,"E"
- ;;D^COND^OCXFDD1
- ;;R^"864.1:","864.11:13",.01,"E"
- ;;D^HELP FRAME MESSAGE
- ;;R^"864.1:","864.11:13",1,"E"
- ;;D^Want instructions for entering a valid date and time
- ;;R^"864.1:","864.11:14",.01,"E"
- ;;D^QUERY
- ;;R^"864.1:","864.11:14",1,"E"
- ;;D^Enter date/time
- ;;R^"864.1:","864.11:15",.01,"E"
- ;;D^LOOP QUERY
- ;;R^"864.1:","864.11:15",1,"E"
- ;;D^Enter another date/time
- ;;R^"864.1:","864.11:16",.01,"E"
- ;;D^REPEAT THE QUERY
- ;;R^"864.1:","864.11:16",1,"E"
- ;;D^0
- ;;R^"864.1:","864.11:2",.01,"E"
- ;;D^DATE EXACT
- ;;R^"864.1:","864.11:2",1,"E"
- ;;D^X
- ;;R^"864.1:","864.11:3",.01,"E"
- ;;D^DATE INPUT FORMAT
- ;;R^"864.1:","864.11:4",.01,"E"
- ;;D^DATE LIMIT
- ;;R^"864.1:","864.11:5",.01,"E"
- ;;D^DATE MAXIMUM
- ;;R^"864.1:","864.11:6",.01,"E"
- ;;D^DATE MINIMUM
- ;;R^"864.1:","864.11:7",.01,"E"
- ;;D^DATE SECONDS
- ;;R^"864.1:","864.11:8",.01,"E"
- ;;D^DATE SPECIAL OUTPUT FORMAT
- ;;R^"864.1:","864.11:9",.01,"E"
- ;;D^DATE TIME
- ;;EOR^
- ;;KEY^864.1:^FREE TEXT
- ;;R^"864.1:",.01,"E"
- ;;D^FREE TEXT
- ;;R^"864.1:",.02,"E"
- ;;D^FT
- ;;R^"864.1:",2,"E"
- ;;D^GENERIC
- ;;R^"864.1:","864.11:1",.01,"E"
- ;;D^VALUE CALL
- ;;R^"864.1:","864.11:1",1,"E"
- ;;D^FT^OCXFDFT
- ;;R^"864.1:","864.11:2",.01,"E"
- ;;D^QUERY
- ;;R^"864.1:","864.11:2",1,"E"
- ;;D^Enter a free text string
- ;;R^"864.1:","864.11:3",.01,"E"
- ;;D^FREE TEXT MAXIMUM LENGTH
- ;;R^"864.1:","864.11:3",1,"E"
- ;;D^240
- ;;R^"864.1:","864.11:4",.01,"E"
- ;;D^HELP MESSAGE
- ;;R^"864.1:","864.11:4",1,"E"
- ;;D^Enter a free text string. Do not use control characters. |FTMM HELP|
- ;;R^"864.1:","864.11:5",.01,"E"
- ;;D^LOOP QUERY
- ;;R^"864.1:","864.11:5",1,"E"
- ;;D^Enter another free text string
- ;;R^"864.1:","864.11:6",.01,"E"
- ;;D^REPEAT THE QUERY
- ;;R^"864.1:","864.11:6",1,"E"
- ;;D^0
- ;;EOR^
- ;;KEY^864.1:^GENERIC
- ;;R^"864.1:",.01,"E"
- ;;D^GENERIC
- ;;R^"864.1:",.02,"E"
- ;;D^GENERIC
- ;;R^"864.1:","864.11:11",.01,"E"
- ;;D^MANDATORY MESSAGE
- ;;R^"864.1:","864.11:11",1,"E"
- ;;D^This answer is mandatory. Enter a response or press '^' to exit.
- ;;R^"864.1:","864.11:12",.01,"E"
- ;;D^TERMINATOR
- ;;R^"864.1:","864.11:12",1,"E"
- ;;D^:
- ;;R^"864.1:","864.11:13",.01,"E"
- ;;D^LOOP QUERY
- ;;R^"864.1:","864.11:13",1,"E"
- ;;D^Enter another value
- ;;R^"864.1:","864.11:7",.01,"E"
- ;;D^VALUE CALL
- ;;R^"864.1:","864.11:7",1,"E"
- ;;D^GEN^OCXFDMOM
- ;;R^"864.1:","864.11:8",.01,"E"
- ;;D^QUERY
- ;;R^"864.1:","864.11:8",1,"E"
- ;;D^Enter a value
- ;;R^"864.1:","864.11:9",.01,"E"
- ;;D^HELP MESSAGE
- ;;R^"864.1:","864.11:9",1,"E"
- ;;D^
- ;;EOR^
- ;;KEY^864.1:^NUMERIC
- ;;R^"864.1:",.01,"E"
- ;;D^NUMERIC
- ;;R^"864.1:",.02,"E"
- ;;D^NUMERIC
- ;;R^"864.1:",2,"E"
- ;;D^GENERIC
- ;;R^"864.1:","864.11:1",.01,"E"
- ;;D^VALUE CALL
- ;;R^"864.1:","864.11:1",1,"E"
- ;;D^NU^OCXFDNU
- ;;R^"864.1:","864.11:2",.01,"E"
- ;;D^QUERY
- ;;R^"864.1:","864.11:2",1,"E"
- ;;D^Enter a number
- ;;R^"864.1:","864.11:3",.01,"E"
- ;;D^LOOP QUERY
- ;;R^"864.1:","864.11:3",1,"E"
- ;;D^Enter another number
- ;;R^"864.1:","864.11:4",.01,"E"
- ;;D^REPEAT THE QUERY
- ;;R^"864.1:","864.11:4",1,"E"
- ;;D^0
- ;;EOR^
- ;;EOF^OCXS(864.1)^1
- ;;SOF^863.7 OCX MDD PUBLIC FUNCTION
- ;;KEY^863.7:^GCC BOOLEAN LOGICAL TRUE
- ;;R^"863.7:",.01,"E"
- ;;D^GCC BOOLEAN LOGICAL TRUE
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^TRUE^OCXF23
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;EOR^
- ;;KEY^863.7:^GCC DATE/TIME AFTER
- ;;R^"863.7:",.01,"E"
- ;;D^GCC DATE/TIME AFTER
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^AFTER^OCXF21
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC FREE TEXT EQUALS
- ;;R^"863.7:",.01,"E"
- ;;D^GCC FREE TEXT EQUALS
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^AEQ^OCXF22
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC FREE TEXT EQUALS ELEMENT IN SET
- ;;R^"863.7:",.01,"E"
- ;;D^GCC FREE TEXT EQUALS ELEMENT IN SET
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^EQSET^OCXF22
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC FREE TEXT NOT EQUALS
- ;;R^"863.7:",.01,"E"
- ;;D^GCC FREE TEXT NOT EQUALS
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^NAEQ^OCXF22
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC FREE TEXT STARTS WITH
- ;;R^"863.7:",.01,"E"
- ;;D^GCC FREE TEXT STARTS WITH
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^START^OCXF22
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC NUMERIC GREATER THAN
- ;;R^"863.7:",.01,"E"
- ;;D^GCC NUMERIC GREATER THAN
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^GRT^OCXF20
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;1;
- ;
- OCXRU003 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*96) ;JAN 30,2001 at 11:16
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**96**;Dec 17,1997
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- S ;
- +1 ;
- +2 DO DOT^OCXRULE
- +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 ^OCXRU004
- +10 ;
- +11 QUIT
- +12 ;
- DATA ;
- +1 ;
- +2 ;;R^"863.8:","863.84:2",.01,"E"
- +3 ;;D^FM MASK
- +4 ;;R^"863.8:","863.84:2",1,"E"
- +5 ;;D^SET^OCXF6
- +6 ;;R^"863.8:","863.84:3",.01,"E"
- +7 ;;D^DATA TYPE
- +8 ;;R^"863.8:","863.84:3",1,"E"
- +9 ;;D^CODE STRING
- +10 ;;EOR^
- +11 ;;KEY^863.8:^TERMINATOR
- +12 ;;R^"863.8:",.01,"E"
- +13 ;;D^TERMINATOR
- +14 ;;R^"863.8:",.02,"E"
- +15 ;;D^TERMINATOR
- +16 ;;R^"863.8:",1,1
- +17 ;;D^A text string terminator; e.g., '?', ': ', '=>'
- +18 ;;R^"863.8:",2,"E"
- +19 ;;D^:
- +20 ;;R^"863.8:","863.84:4",.01,"E"
- +21 ;;D^QUERY
- +22 ;;R^"863.8:","863.84:4",1,"E"
- +23 ;;D^Enter text string terminator
- +24 ;;R^"863.8:","863.84:5",.01,"E"
- +25 ;;D^DATA TYPE
- +26 ;;R^"863.8:","863.84:5",1,"E"
- +27 ;;D^FREE TEXT
- +28 ;;R^"863.8:","863.84:6",.01,"E"
- +29 ;;D^FREE TEXT MAXIMUM LENGTH
- +30 ;;R^"863.8:","863.84:6",1,"E"
- +31 ;;D^9
- +32 ;;EOR^
- +33 ;;KEY^863.8:^VALUE CALL
- +34 ;;R^"863.8:",.01,"E"
- +35 ;;D^VALUE CALL
- +36 ;;R^"863.8:",.02,"E"
- +37 ;;D^VAL CALL
- +38 ;;R^"863.8:",.03,"E"
- +39 ;;D^NO
- +40 ;;R^"863.8:",1,1
- +41 ;;D^tag^routine which manages the dialogue for collecting and validating a value
- +42 ;;R^"863.8:","863.84:3",.01,"E"
- +43 ;;D^QUERY
- +44 ;;R^"863.8:","863.84:3",1,"E"
- +45 ;;D^Enter tag^routine
- +46 ;;R^"863.8:","863.84:4",.01,"E"
- +47 ;;D^DATA TYPE
- +48 ;;R^"863.8:","863.84:4",1,"E"
- +49 ;;D^LINE TAG
- +50 ;;EOR^
- +51 ;;EOF^OCXS(863.8)^1
- +52 ;;SOF^864.1 OCX MDD DATATYPE
- +53 ;;KEY^864.1:^BOOLEAN
- +54 ;;R^"864.1:",.01,"E"
- +55 ;;D^BOOLEAN
- +56 ;;R^"864.1:",.02,"E"
- +57 ;;D^BOOL
- +58 ;;EOR^
- +59 ;;KEY^864.1:^DATE/TIME
- +60 ;;R^"864.1:",.01,"E"
- +61 ;;D^DATE/TIME
- +62 ;;R^"864.1:",.02,"E"
- +63 ;;D^DATE
- +64 ;;R^"864.1:",2,"E"
- +65 ;;D^GENERIC
- +66 ;;R^"864.1:","864.11:10",.01,"E"
- +67 ;;D^DATE SPECIAL MASK
- +68 ;;R^"864.1:","864.11:11",.01,"E"
- +69 ;;D^VALUE CALL
- +70 ;;R^"864.1:","864.11:11",1,"E"
- +71 ;;D^DATE^OCXFDD
- +72 ;;R^"864.1:","864.11:12",.01,"E"
- +73 ;;D^CONDITION CALL
- +74 ;;R^"864.1:","864.11:12",1,"E"
- +75 ;;D^COND^OCXFDD1
- +76 ;;R^"864.1:","864.11:13",.01,"E"
- +77 ;;D^HELP FRAME MESSAGE
- +78 ;;R^"864.1:","864.11:13",1,"E"
- +79 ;;D^Want instructions for entering a valid date and time
- +80 ;;R^"864.1:","864.11:14",.01,"E"
- +81 ;;D^QUERY
- +82 ;;R^"864.1:","864.11:14",1,"E"
- +83 ;;D^Enter date/time
- +84 ;;R^"864.1:","864.11:15",.01,"E"
- +85 ;;D^LOOP QUERY
- +86 ;;R^"864.1:","864.11:15",1,"E"
- +87 ;;D^Enter another date/time
- +88 ;;R^"864.1:","864.11:16",.01,"E"
- +89 ;;D^REPEAT THE QUERY
- +90 ;;R^"864.1:","864.11:16",1,"E"
- +91 ;;D^0
- +92 ;;R^"864.1:","864.11:2",.01,"E"
- +93 ;;D^DATE EXACT
- +94 ;;R^"864.1:","864.11:2",1,"E"
- +95 ;;D^X
- +96 ;;R^"864.1:","864.11:3",.01,"E"
- +97 ;;D^DATE INPUT FORMAT
- +98 ;;R^"864.1:","864.11:4",.01,"E"
- +99 ;;D^DATE LIMIT
- +100 ;;R^"864.1:","864.11:5",.01,"E"
- +101 ;;D^DATE MAXIMUM
- +102 ;;R^"864.1:","864.11:6",.01,"E"
- +103 ;;D^DATE MINIMUM
- +104 ;;R^"864.1:","864.11:7",.01,"E"
- +105 ;;D^DATE SECONDS
- +106 ;;R^"864.1:","864.11:8",.01,"E"
- +107 ;;D^DATE SPECIAL OUTPUT FORMAT
- +108 ;;R^"864.1:","864.11:9",.01,"E"
- +109 ;;D^DATE TIME
- +110 ;;EOR^
- +111 ;;KEY^864.1:^FREE TEXT
- +112 ;;R^"864.1:",.01,"E"
- +113 ;;D^FREE TEXT
- +114 ;;R^"864.1:",.02,"E"
- +115 ;;D^FT
- +116 ;;R^"864.1:",2,"E"
- +117 ;;D^GENERIC
- +118 ;;R^"864.1:","864.11:1",.01,"E"
- +119 ;;D^VALUE CALL
- +120 ;;R^"864.1:","864.11:1",1,"E"
- +121 ;;D^FT^OCXFDFT
- +122 ;;R^"864.1:","864.11:2",.01,"E"
- +123 ;;D^QUERY
- +124 ;;R^"864.1:","864.11:2",1,"E"
- +125 ;;D^Enter a free text string
- +126 ;;R^"864.1:","864.11:3",.01,"E"
- +127 ;;D^FREE TEXT MAXIMUM LENGTH
- +128 ;;R^"864.1:","864.11:3",1,"E"
- +129 ;;D^240
- +130 ;;R^"864.1:","864.11:4",.01,"E"
- +131 ;;D^HELP MESSAGE
- +132 ;;R^"864.1:","864.11:4",1,"E"
- +133 ;;D^Enter a free text string. Do not use control characters. |FTMM HELP|
- +134 ;;R^"864.1:","864.11:5",.01,"E"
- +135 ;;D^LOOP QUERY
- +136 ;;R^"864.1:","864.11:5",1,"E"
- +137 ;;D^Enter another free text string
- +138 ;;R^"864.1:","864.11:6",.01,"E"
- +139 ;;D^REPEAT THE QUERY
- +140 ;;R^"864.1:","864.11:6",1,"E"
- +141 ;;D^0
- +142 ;;EOR^
- +143 ;;KEY^864.1:^GENERIC
- +144 ;;R^"864.1:",.01,"E"
- +145 ;;D^GENERIC
- +146 ;;R^"864.1:",.02,"E"
- +147 ;;D^GENERIC
- +148 ;;R^"864.1:","864.11:11",.01,"E"
- +149 ;;D^MANDATORY MESSAGE
- +150 ;;R^"864.1:","864.11:11",1,"E"
- +151 ;;D^This answer is mandatory. Enter a response or press '^' to exit.
- +152 ;;R^"864.1:","864.11:12",.01,"E"
- +153 ;;D^TERMINATOR
- +154 ;;R^"864.1:","864.11:12",1,"E"
- +155 ;;D^:
- +156 ;;R^"864.1:","864.11:13",.01,"E"
- +157 ;;D^LOOP QUERY
- +158 ;;R^"864.1:","864.11:13",1,"E"
- +159 ;;D^Enter another value
- +160 ;;R^"864.1:","864.11:7",.01,"E"
- +161 ;;D^VALUE CALL
- +162 ;;R^"864.1:","864.11:7",1,"E"
- +163 ;;D^GEN^OCXFDMOM
- +164 ;;R^"864.1:","864.11:8",.01,"E"
- +165 ;;D^QUERY
- +166 ;;R^"864.1:","864.11:8",1,"E"
- +167 ;;D^Enter a value
- +168 ;;R^"864.1:","864.11:9",.01,"E"
- +169 ;;D^HELP MESSAGE
- +170 ;;R^"864.1:","864.11:9",1,"E"
- +171 ;;D^
- +172 ;;EOR^
- +173 ;;KEY^864.1:^NUMERIC
- +174 ;;R^"864.1:",.01,"E"
- +175 ;;D^NUMERIC
- +176 ;;R^"864.1:",.02,"E"
- +177 ;;D^NUMERIC
- +178 ;;R^"864.1:",2,"E"
- +179 ;;D^GENERIC
- +180 ;;R^"864.1:","864.11:1",.01,"E"
- +181 ;;D^VALUE CALL
- +182 ;;R^"864.1:","864.11:1",1,"E"
- +183 ;;D^NU^OCXFDNU
- +184 ;;R^"864.1:","864.11:2",.01,"E"
- +185 ;;D^QUERY
- +186 ;;R^"864.1:","864.11:2",1,"E"
- +187 ;;D^Enter a number
- +188 ;;R^"864.1:","864.11:3",.01,"E"
- +189 ;;D^LOOP QUERY
- +190 ;;R^"864.1:","864.11:3",1,"E"
- +191 ;;D^Enter another number
- +192 ;;R^"864.1:","864.11:4",.01,"E"
- +193 ;;D^REPEAT THE QUERY
- +194 ;;R^"864.1:","864.11:4",1,"E"
- +195 ;;D^0
- +196 ;;EOR^
- +197 ;;EOF^OCXS(864.1)^1
- +198 ;;SOF^863.7 OCX MDD PUBLIC FUNCTION
- +199 ;;KEY^863.7:^GCC BOOLEAN LOGICAL TRUE
- +200 ;;R^"863.7:",.01,"E"
- +201 ;;D^GCC BOOLEAN LOGICAL TRUE
- +202 ;;R^"863.7:",.02,"E"
- +203 ;;D^EXTRINSIC FUNCTION
- +204 ;;R^"863.7:",3,"E"
- +205 ;;D^TRUE^OCXF23
- +206 ;;R^"863.7:","863.74:1",.01,"E"
- +207 ;;D^PRIMARY DATA FIELD
- +208 ;;R^"863.7:","863.74:1",1.1,"E"
- +209 ;;D^1
- +210 ;;EOR^
- +211 ;;KEY^863.7:^GCC DATE/TIME AFTER
- +212 ;;R^"863.7:",.01,"E"
- +213 ;;D^GCC DATE/TIME AFTER
- +214 ;;R^"863.7:",.02,"E"
- +215 ;;D^EXTRINSIC FUNCTION
- +216 ;;R^"863.7:",3,"E"
- +217 ;;D^AFTER^OCXF21
- +218 ;;R^"863.7:","863.74:1",.01,"E"
- +219 ;;D^PRIMARY DATA FIELD
- +220 ;;R^"863.7:","863.74:1",1.1,"E"
- +221 ;;D^1
- +222 ;;R^"863.7:","863.74:2",.01,"E"
- +223 ;;D^COMPARISON VALUE
- +224 ;;R^"863.7:","863.74:2",1.1,"E"
- +225 ;;D^2
- +226 ;;EOR^
- +227 ;;KEY^863.7:^GCC FREE TEXT EQUALS
- +228 ;;R^"863.7:",.01,"E"
- +229 ;;D^GCC FREE TEXT EQUALS
- +230 ;;R^"863.7:",.02,"E"
- +231 ;;D^EXTRINSIC FUNCTION
- +232 ;;R^"863.7:",3,"E"
- +233 ;;D^AEQ^OCXF22
- +234 ;;R^"863.7:","863.74:1",.01,"E"
- +235 ;;D^PRIMARY DATA FIELD
- +236 ;;R^"863.7:","863.74:1",1.1,"E"
- +237 ;;D^1
- +238 ;;R^"863.7:","863.74:2",.01,"E"
- +239 ;;D^COMPARISON VALUE
- +240 ;;R^"863.7:","863.74:2",1.1,"E"
- +241 ;;D^2
- +242 ;;EOR^
- +243 ;;KEY^863.7:^GCC FREE TEXT EQUALS ELEMENT IN SET
- +244 ;;R^"863.7:",.01,"E"
- +245 ;;D^GCC FREE TEXT EQUALS ELEMENT IN SET
- +246 ;;R^"863.7:",.02,"E"
- +247 ;;D^EXTRINSIC FUNCTION
- +248 ;;R^"863.7:",3,"E"
- +249 ;;D^EQSET^OCXF22
- +250 ;;R^"863.7:","863.74:1",.01,"E"
- +251 ;;D^PRIMARY DATA FIELD
- +252 ;;R^"863.7:","863.74:1",1.1,"E"
- +253 ;;D^1
- +254 ;;R^"863.7:","863.74:2",.01,"E"
- +255 ;;D^COMPARISON VALUE
- +256 ;;R^"863.7:","863.74:2",1.1,"E"
- +257 ;;D^2
- +258 ;;EOR^
- +259 ;;KEY^863.7:^GCC FREE TEXT NOT EQUALS
- +260 ;;R^"863.7:",.01,"E"
- +261 ;;D^GCC FREE TEXT NOT EQUALS
- +262 ;;R^"863.7:",.02,"E"
- +263 ;;D^EXTRINSIC FUNCTION
- +264 ;;R^"863.7:",3,"E"
- +265 ;;D^NAEQ^OCXF22
- +266 ;;R^"863.7:","863.74:1",.01,"E"
- +267 ;;D^PRIMARY DATA FIELD
- +268 ;;R^"863.7:","863.74:1",1.1,"E"
- +269 ;;D^1
- +270 ;;R^"863.7:","863.74:2",.01,"E"
- +271 ;;D^COMPARISON VALUE
- +272 ;;R^"863.7:","863.74:2",1.1,"E"
- +273 ;;D^2
- +274 ;;EOR^
- +275 ;;KEY^863.7:^GCC FREE TEXT STARTS WITH
- +276 ;;R^"863.7:",.01,"E"
- +277 ;;D^GCC FREE TEXT STARTS WITH
- +278 ;;R^"863.7:",.02,"E"
- +279 ;;D^EXTRINSIC FUNCTION
- +280 ;;R^"863.7:",3,"E"
- +281 ;;D^START^OCXF22
- +282 ;;R^"863.7:","863.74:1",.01,"E"
- +283 ;;D^PRIMARY DATA FIELD
- +284 ;;R^"863.7:","863.74:1",1.1,"E"
- +285 ;;D^1
- +286 ;;R^"863.7:","863.74:2",.01,"E"
- +287 ;;D^COMPARISON VALUE
- +288 ;;R^"863.7:","863.74:2",1.1,"E"
- +289 ;;D^2
- +290 ;;EOR^
- +291 ;;KEY^863.7:^GCC NUMERIC GREATER THAN
- +292 ;;R^"863.7:",.01,"E"
- +293 ;;D^GCC NUMERIC GREATER THAN
- +294 ;;R^"863.7:",.02,"E"
- +295 ;;D^EXTRINSIC FUNCTION
- +296 ;;R^"863.7:",3,"E"
- +297 ;;D^GRT^OCXF20
- +298 ;;R^"863.7:","863.74:1",.01,"E"
- +299 ;;D^PRIMARY DATA FIELD
- +300 ;;R^"863.7:","863.74:1",1.1,"E"
- +301 ;;D^1
- +302 ;;R^"863.7:","863.74:2",.01,"E"
- +303 ;;D^COMPARISON VALUE
- +304 ;;R^"863.7:","863.74:2",1.1,"E"
- +305 ;1;
- +306 ;