- ORY42301 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*423) ;JUN 29,2016 at 06:15
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**423**;Dec 17,1997;Build 19
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- S ;
- ;
- D DOT^ORY423ES
- ;
- ;
- 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 ^ORY42302
- ;
- Q
- ;
- 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:^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:^DIC
- ;;R^"863.8:",.01,"E"
- ;;D^DIC
- ;;R^"863.8:",.02,"E"
- ;;D^DIC
- ;;R^"863.8:",1,1
- ;;D^An open reference used to specify the file in a DIC lookup
- ;;R^"863.8:","863.84:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:1",1,"E"
- ;;D^POINTER TO A FILEMAN FILE
- ;;R^"863.8:","863.84:2",.01,"E"
- ;;D^DIC
- ;;R^"863.8:","863.84:2",1,"E"
- ;;D^1
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^Enter the name of the file you are pointing to
- ;;EOR^
- ;;KEY^863.8:^DIC LOOKUP INDEX STRING
- ;;R^"863.8:",.01,"E"
- ;;D^DIC LOOKUP INDEX STRING
- ;;R^"863.8:",.02,"E"
- ;;D^DICIX
- ;;R^"863.8:",1,1
- ;;D^Contains the names of indices to be used in a DIC lookup in a comma
- ;;R^"863.8:",1,2
- ;;D^delimited string.
- ;;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 a DIC lookup index string
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^HELP MESSAGE
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^This is an '^' delimited string which contains the names of indices which are to be used in a DIC lookup; e.g., B^C^DOB.
- ;;EOR^
- ;;KEY^863.8:^FILE
- ;;R^"863.8:",.01,"E"
- ;;D^FILE
- ;;R^"863.8:",.02,"E"
- ;;D^FILE
- ;;R^"863.8:",1,1
- ;;D^The internal entry number of a file.
- ;;R^"863.8:","863.84:6",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:6",1,"E"
- ;;D^File
- ;;R^"863.8:","863.84:7",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:7",1,"E"
- ;;D^POINTER TO A FILEMAN FILE
- ;;R^"863.8:","863.84:8",.01,"E"
- ;;D^DIC
- ;;R^"863.8:","863.84:8",1,"E"
- ;;D^1
- ;;EOR^
- ;;KEY^863.8:^FM MASK
- ;;R^"863.8:",.01,"E"
- ;;D^FM MASK
- ;;R^"863.8:",.02,"E"
- ;;D^FM MASK
- ;;R^"863.8:",1,1
- ;;D^Tag^routine where code is located to parse the FM DD and override the parameter value
- ;;R^"863.8:","863.84:4",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:4",1,"E"
- ;;D^Enter tag^routine where the FM MASK parser is located
- ;;R^"863.8:","863.84:5",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:5",1,"E"
- ;;D^LINE TAG
- ;;EOR^
- ;;KEY^863.8:^FREE TEXT MAXIMUM LENGTH
- ;;R^"863.8:",.01,"E"
- ;;D^FREE TEXT MAXIMUM LENGTH
- ;;R^"863.8:",.02,"E"
- ;;D^FMAX
- ;;R^"863.8:",1,1
- ;;D^Maximum string length allowed
- ;;R^"863.8:",2,"E"
- ;;D^245
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^Maximum text string length allowed
- ;;R^"863.8:","863.84:4",.01,"E"
- ;;D^FM MASK
- ;;R^"863.8:","863.84:4",1,"E"
- ;;D^FMAX^OCXF6
- ;;R^"863.8:","863.84:5",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:5",1,"E"
- ;;D^POSITIVE INTEGER
- ;;EOR^
- ;;KEY^863.8:^HELP MESSAGE
- ;;R^"863.8:",.01,"E"
- ;;D^HELP MESSAGE
- ;;R^"863.8:",.02,"E"
- ;;D^HELP
- ;;R^"863.8:",1,1
- ;;D^A text string 1-250 characters long which overrides the Fileman help
- ;;R^"863.8:",1,2
- ;;D^message.
- ;;R^"863.8:","863.84:10",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:10",1,"E"
- ;;D^Enter a brief help message
- ;;R^"863.8:","863.84:8",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:8",1,"E"
- ;;D^FREE TEXT
- ;;R^"863.8:","863.84:9",.01,"E"
- ;;D^FM MASK
- ;;R^"863.8:","863.84:9",1,"E"
- ;;D^HELP^OCXF6
- ;;EOR^
- ;;KEY^863.8:^LOOP QUERY
- ;;R^"863.8:",.01,"E"
- ;;D^LOOP QUERY
- ;;R^"863.8:",.02,"E"
- ;;D^LOOP QUERY
- ;;R^"863.8:",1,1
- ;;D^Alternate query used when repeated answers are required
- ;;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 loop query text
- ;;R^"863.8:","863.84:3",.01,"E"
- ;;D^HELP MESSAGE
- ;;R^"863.8:","863.84:3",1,"E"
- ;;D^This is the query text for all entries after the first one
- ;;EOR^
- ;;KEY^863.8:^MANDATORY MESSAGE
- ;;R^"863.8:",.01,"E"
- ;;D^MANDATORY MESSAGE
- ;;R^"863.8:",.02,"E"
- ;;D^MAND MSG
- ;;R^"863.8:",1,1
- ;;D^Message sent to user telling him that his entry is mandatory
- ;;R^"863.8:",2,"E"
- ;;D^Mandatory answer. You must enter a value or '^' to exit.
- ;;R^"863.8:","863.84:4",.01,"E"
- ;;D^QUERY
- ;;R^"863.8:","863.84:4",1,"E"
- ;;D^Enter message
- ;;R^"863.8:","863.84:5",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.8:","863.84:5",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.8:^OCXO DATA DRIVE SOURCE
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO DATA DRIVE SOURCE
- ;;EOR^
- ;;KEY^863.8:^OCXO EXTERNAL FUNCTION CALL
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO EXTERNAL FUNCTION CALL
- ;;EOR^
- ;;KEY^863.8:^OCXO GENERATE CODE FUNCTION
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.8:",.02,"E"
- ;;D^GEN
- ;;EOR^
- ;;KEY^863.8:^OCXO HL7 SEGMENT ID
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO HL7 SEGMENT ID
- ;;R^"863.8:",.02,"E"
- ;;D^HL7SEGID
- ;;EOR^
- ;;KEY^863.8:^OCXO SEMI-COLON PIECE NUMBER
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO SEMI-COLON PIECE NUMBER
- ;;EOR^
- ;;KEY^863.8:^OCXO UP-ARROW PIECE NUMBER
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO UP-ARROW PIECE NUMBER
- ;;EOR^
- ;;KEY^863.8:^OCXO VARIABLE NAME
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO VARIABLE NAME
- ;;EOR^
- ;;KEY^863.8:^OCXO VT-BAR PIECE NUMBER
- ;;R^"863.8:",.01,"E"
- ;;D^OCXO VT-BAR PIECE NUMBER
- ;;EOR^
- ;;KEY^863.8:^PRIMARY DATA FIELD
- ;;R^"863.8:",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.8:",.02,"E"
- ;;D^PDFLD
- ;1;
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY42301 7817 printed Jan 18, 2025@03:43:02 Page 2
- ORY42301 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*423) ;JUN 29,2016 at 06:15
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**423**;Dec 17,1997;Build 19
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- S ;
- +1 ;
- +2 DO DOT^ORY423ES
- +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 ^ORY42302
- +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:^DATA TYPE
- +40 ;;R^"863.8:",.01,"E"
- +41 ;;D^DATA TYPE
- +42 ;;R^"863.8:",.02,"E"
- +43 ;;D^DATA TYPE
- +44 ;;R^"863.8:",1,1
- +45 ;;D^An MDD data type; i.e., an entry in the OCX MDD DATA TYPE file.
- +46 ;;R^"863.8:","863.84:6",.01,"E"
- +47 ;;D^QUERY
- +48 ;;R^"863.8:","863.84:6",1,"E"
- +49 ;;D^Enter the datatype
- +50 ;;R^"863.8:","863.84:7",.01,"E"
- +51 ;;D^DIC
- +52 ;;R^"863.8:","863.84:7",1,"E"
- +53 ;;D^864.1
- +54 ;;R^"863.8:","863.84:8",.01,"E"
- +55 ;;D^DATA TYPE
- +56 ;;R^"863.8:","863.84:8",1,"E"
- +57 ;;D^POINTER TO A FILEMAN FILE
- +58 ;;R^"863.8:","863.84:9",.01,"E"
- +59 ;;D^DIC LOOKUP INDEX STRING
- +60 ;;R^"863.8:","863.84:9",1,"E"
- +61 ;;D^B^C
- +62 ;;EOR^
- +63 ;;KEY^863.8:^DIC
- +64 ;;R^"863.8:",.01,"E"
- +65 ;;D^DIC
- +66 ;;R^"863.8:",.02,"E"
- +67 ;;D^DIC
- +68 ;;R^"863.8:",1,1
- +69 ;;D^An open reference used to specify the file in a DIC lookup
- +70 ;;R^"863.8:","863.84:1",.01,"E"
- +71 ;;D^DATA TYPE
- +72 ;;R^"863.8:","863.84:1",1,"E"
- +73 ;;D^POINTER TO A FILEMAN FILE
- +74 ;;R^"863.8:","863.84:2",.01,"E"
- +75 ;;D^DIC
- +76 ;;R^"863.8:","863.84:2",1,"E"
- +77 ;;D^1
- +78 ;;R^"863.8:","863.84:3",.01,"E"
- +79 ;;D^QUERY
- +80 ;;R^"863.8:","863.84:3",1,"E"
- +81 ;;D^Enter the name of the file you are pointing to
- +82 ;;EOR^
- +83 ;;KEY^863.8:^DIC LOOKUP INDEX STRING
- +84 ;;R^"863.8:",.01,"E"
- +85 ;;D^DIC LOOKUP INDEX STRING
- +86 ;;R^"863.8:",.02,"E"
- +87 ;;D^DICIX
- +88 ;;R^"863.8:",1,1
- +89 ;;D^Contains the names of indices to be used in a DIC lookup in a comma
- +90 ;;R^"863.8:",1,2
- +91 ;;D^delimited string.
- +92 ;;R^"863.8:","863.84:1",.01,"E"
- +93 ;;D^DATA TYPE
- +94 ;;R^"863.8:","863.84:1",1,"E"
- +95 ;;D^FREE TEXT
- +96 ;;R^"863.8:","863.84:2",.01,"E"
- +97 ;;D^QUERY
- +98 ;;R^"863.8:","863.84:2",1,"E"
- +99 ;;D^Enter a DIC lookup index string
- +100 ;;R^"863.8:","863.84:3",.01,"E"
- +101 ;;D^HELP MESSAGE
- +102 ;;R^"863.8:","863.84:3",1,"E"
- +103 ;;D^This is an '^' delimited string which contains the names of indices which are to be used in a DIC lookup; e.g., B^C^DOB.
- +104 ;;EOR^
- +105 ;;KEY^863.8:^FILE
- +106 ;;R^"863.8:",.01,"E"
- +107 ;;D^FILE
- +108 ;;R^"863.8:",.02,"E"
- +109 ;;D^FILE
- +110 ;;R^"863.8:",1,1
- +111 ;;D^The internal entry number of a file.
- +112 ;;R^"863.8:","863.84:6",.01,"E"
- +113 ;;D^QUERY
- +114 ;;R^"863.8:","863.84:6",1,"E"
- +115 ;;D^File
- +116 ;;R^"863.8:","863.84:7",.01,"E"
- +117 ;;D^DATA TYPE
- +118 ;;R^"863.8:","863.84:7",1,"E"
- +119 ;;D^POINTER TO A FILEMAN FILE
- +120 ;;R^"863.8:","863.84:8",.01,"E"
- +121 ;;D^DIC
- +122 ;;R^"863.8:","863.84:8",1,"E"
- +123 ;;D^1
- +124 ;;EOR^
- +125 ;;KEY^863.8:^FM MASK
- +126 ;;R^"863.8:",.01,"E"
- +127 ;;D^FM MASK
- +128 ;;R^"863.8:",.02,"E"
- +129 ;;D^FM MASK
- +130 ;;R^"863.8:",1,1
- +131 ;;D^Tag^routine where code is located to parse the FM DD and override the parameter value
- +132 ;;R^"863.8:","863.84:4",.01,"E"
- +133 ;;D^QUERY
- +134 ;;R^"863.8:","863.84:4",1,"E"
- +135 ;;D^Enter tag^routine where the FM MASK parser is located
- +136 ;;R^"863.8:","863.84:5",.01,"E"
- +137 ;;D^DATA TYPE
- +138 ;;R^"863.8:","863.84:5",1,"E"
- +139 ;;D^LINE TAG
- +140 ;;EOR^
- +141 ;;KEY^863.8:^FREE TEXT MAXIMUM LENGTH
- +142 ;;R^"863.8:",.01,"E"
- +143 ;;D^FREE TEXT MAXIMUM LENGTH
- +144 ;;R^"863.8:",.02,"E"
- +145 ;;D^FMAX
- +146 ;;R^"863.8:",1,1
- +147 ;;D^Maximum string length allowed
- +148 ;;R^"863.8:",2,"E"
- +149 ;;D^245
- +150 ;;R^"863.8:","863.84:3",.01,"E"
- +151 ;;D^QUERY
- +152 ;;R^"863.8:","863.84:3",1,"E"
- +153 ;;D^Maximum text string length allowed
- +154 ;;R^"863.8:","863.84:4",.01,"E"
- +155 ;;D^FM MASK
- +156 ;;R^"863.8:","863.84:4",1,"E"
- +157 ;;D^FMAX^OCXF6
- +158 ;;R^"863.8:","863.84:5",.01,"E"
- +159 ;;D^DATA TYPE
- +160 ;;R^"863.8:","863.84:5",1,"E"
- +161 ;;D^POSITIVE INTEGER
- +162 ;;EOR^
- +163 ;;KEY^863.8:^HELP MESSAGE
- +164 ;;R^"863.8:",.01,"E"
- +165 ;;D^HELP MESSAGE
- +166 ;;R^"863.8:",.02,"E"
- +167 ;;D^HELP
- +168 ;;R^"863.8:",1,1
- +169 ;;D^A text string 1-250 characters long which overrides the Fileman help
- +170 ;;R^"863.8:",1,2
- +171 ;;D^message.
- +172 ;;R^"863.8:","863.84:10",.01,"E"
- +173 ;;D^QUERY
- +174 ;;R^"863.8:","863.84:10",1,"E"
- +175 ;;D^Enter a brief help message
- +176 ;;R^"863.8:","863.84:8",.01,"E"
- +177 ;;D^DATA TYPE
- +178 ;;R^"863.8:","863.84:8",1,"E"
- +179 ;;D^FREE TEXT
- +180 ;;R^"863.8:","863.84:9",.01,"E"
- +181 ;;D^FM MASK
- +182 ;;R^"863.8:","863.84:9",1,"E"
- +183 ;;D^HELP^OCXF6
- +184 ;;EOR^
- +185 ;;KEY^863.8:^LOOP QUERY
- +186 ;;R^"863.8:",.01,"E"
- +187 ;;D^LOOP QUERY
- +188 ;;R^"863.8:",.02,"E"
- +189 ;;D^LOOP QUERY
- +190 ;;R^"863.8:",1,1
- +191 ;;D^Alternate query used when repeated answers are required
- +192 ;;R^"863.8:","863.84:1",.01,"E"
- +193 ;;D^DATA TYPE
- +194 ;;R^"863.8:","863.84:1",1,"E"
- +195 ;;D^FREE TEXT
- +196 ;;R^"863.8:","863.84:2",.01,"E"
- +197 ;;D^QUERY
- +198 ;;R^"863.8:","863.84:2",1,"E"
- +199 ;;D^Enter loop query text
- +200 ;;R^"863.8:","863.84:3",.01,"E"
- +201 ;;D^HELP MESSAGE
- +202 ;;R^"863.8:","863.84:3",1,"E"
- +203 ;;D^This is the query text for all entries after the first one
- +204 ;;EOR^
- +205 ;;KEY^863.8:^MANDATORY MESSAGE
- +206 ;;R^"863.8:",.01,"E"
- +207 ;;D^MANDATORY MESSAGE
- +208 ;;R^"863.8:",.02,"E"
- +209 ;;D^MAND MSG
- +210 ;;R^"863.8:",1,1
- +211 ;;D^Message sent to user telling him that his entry is mandatory
- +212 ;;R^"863.8:",2,"E"
- +213 ;;D^Mandatory answer. You must enter a value or '^' to exit.
- +214 ;;R^"863.8:","863.84:4",.01,"E"
- +215 ;;D^QUERY
- +216 ;;R^"863.8:","863.84:4",1,"E"
- +217 ;;D^Enter message
- +218 ;;R^"863.8:","863.84:5",.01,"E"
- +219 ;;D^DATA TYPE
- +220 ;;R^"863.8:","863.84:5",1,"E"
- +221 ;;D^FREE TEXT
- +222 ;;EOR^
- +223 ;;KEY^863.8:^OCXO DATA DRIVE SOURCE
- +224 ;;R^"863.8:",.01,"E"
- +225 ;;D^OCXO DATA DRIVE SOURCE
- +226 ;;EOR^
- +227 ;;KEY^863.8:^OCXO EXTERNAL FUNCTION CALL
- +228 ;;R^"863.8:",.01,"E"
- +229 ;;D^OCXO EXTERNAL FUNCTION CALL
- +230 ;;EOR^
- +231 ;;KEY^863.8:^OCXO GENERATE CODE FUNCTION
- +232 ;;R^"863.8:",.01,"E"
- +233 ;;D^OCXO GENERATE CODE FUNCTION
- +234 ;;R^"863.8:",.02,"E"
- +235 ;;D^GEN
- +236 ;;EOR^
- +237 ;;KEY^863.8:^OCXO HL7 SEGMENT ID
- +238 ;;R^"863.8:",.01,"E"
- +239 ;;D^OCXO HL7 SEGMENT ID
- +240 ;;R^"863.8:",.02,"E"
- +241 ;;D^HL7SEGID
- +242 ;;EOR^
- +243 ;;KEY^863.8:^OCXO SEMI-COLON PIECE NUMBER
- +244 ;;R^"863.8:",.01,"E"
- +245 ;;D^OCXO SEMI-COLON PIECE NUMBER
- +246 ;;EOR^
- +247 ;;KEY^863.8:^OCXO UP-ARROW PIECE NUMBER
- +248 ;;R^"863.8:",.01,"E"
- +249 ;;D^OCXO UP-ARROW PIECE NUMBER
- +250 ;;EOR^
- +251 ;;KEY^863.8:^OCXO VARIABLE NAME
- +252 ;;R^"863.8:",.01,"E"
- +253 ;;D^OCXO VARIABLE NAME
- +254 ;;EOR^
- +255 ;;KEY^863.8:^OCXO VT-BAR PIECE NUMBER
- +256 ;;R^"863.8:",.01,"E"
- +257 ;;D^OCXO VT-BAR PIECE NUMBER
- +258 ;;EOR^
- +259 ;;KEY^863.8:^PRIMARY DATA FIELD
- +260 ;;R^"863.8:",.01,"E"
- +261 ;;D^PRIMARY DATA FIELD
- +262 ;;R^"863.8:",.02,"E"
- +263 ;;D^PDFLD
- +264 ;1;
- +265 ;