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