OCXDI01E ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
S ;
;
D DOT^OCXDIAG
;
;
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("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
;
G ^OCXDI01F
;
Q
;
DATA ;
;
;;R^"863.7:",.01,"E"
;;D^STUFF
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Stuff a value into a string "window"
;;R^"863.7:",2,1
;;D^Given the string X with vertical bar windows containing parameter names,
;;R^"863.7:",2,2
;;D^replace the window with the value of the specified parameters.
;;R^"863.7:",3,"E"
;;D^STUFF^OCXF
;;R^"863.7:","863.74:1",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:1",1.1,"E"
;;D^2
;;R^"863.7:","863.74:1",1.2,"E"
;;D^Y
;;R^"863.7:","863.74:2",.01,"E"
;;D^TEXT STRING
;;R^"863.7:","863.74:2",1.1,"E"
;;D^1
;;R^"863.7:","863.74:2",1.2,"E"
;;D^X
;;EOR^
;;KEY^863.7:^OVERRIDE ARRAY STRING
;;R^"863.7:",.01,"E"
;;D^OVERRIDE ARRAY STRING
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Converts a delimited string to an array
;;R^"863.7:",2,1
;;D^Given string X and closed array reference V, the delimiter A marks the array
;;R^"863.7:",2,2
;;D^variable and the delimiter B marks the value.
;;R^"863.7:",3,"E"
;;D^ASTG^OCXF
;;R^"863.7:","863.74:1",.01,"E"
;;D^FREE TEXT STRING
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^X
;;R^"863.7:","863.74:2",.01,"E"
;;D^PRIMARY DELIMITER
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^V
;;R^"863.7:","863.74:3",.01,"E"
;;D^SECONDARY DELIMITER
;;R^"863.7:","863.74:3",1.1,"E"
;;D^3
;;R^"863.7:","863.74:3",1.2,"E"
;;D^A
;;R^"863.7:","863.74:4",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:4",1.1,"E"
;;D^4
;;R^"863.7:","863.74:4",1.2,"E"
;;D^B
;;EOR^
;;KEY^863.7:^TEST
;;R^"863.7:",.01,"E"
;;D^TEST
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^XXX
;;R^"863.7:",2,1
;;D^XXXXX
;;R^"863.7:",3,"E"
;;D^BRK^OCXF
;;R^"863.7:","863.74:1",.01,"E"
;;D^FREE TEXT MAXIMUM LENGTH
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^X
;;R^"863.7:","863.74:2",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^Y
;;R^"863.7:","863.74:3",.01,"E"
;;D^FILE
;;R^"863.7:","863.74:3",1.1,"E"
;;D^3
;;R^"863.7:","863.74:3",1.2,"E"
;;D^T
;;R^"863.7:","863.74:4",.01,"E"
;;D^FIELD NAME
;;R^"863.7:","863.74:4",1.1,"E"
;;D^4
;;R^"863.7:","863.74:4",1.2,"E"
;;D^F
;;EOR^
;;KEY^863.7:^PAUSE
;;R^"863.7:",.01,"E"
;;D^PAUSE
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^End of screen message: '<>'
;;R^"863.7:",2,1
;;D^'^' of '^^' or <RETURN>
;;R^"863.7:",3,"E"
;;D^PAUSE^OCXF
;;EOR^
;;KEY^863.7:^LIST
;;R^"863.7:",.01,"E"
;;D^LIST
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Manages the display of a list
;;R^"863.7:",2,1
;;D^Manages the display of a simple list on the screen (including pauses).
;;R^"863.7:",3,"E"
;;D^LIST^OCXF1
;;R^"863.7:","863.74:1",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^G
;;R^"863.7:","863.74:2",.01,"E"
;;D^START WITH
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^S
;;R^"863.7:","863.74:3",.01,"E"
;;D^END WITH
;;R^"863.7:","863.74:3",1.1,"E"
;;D^3
;;R^"863.7:","863.74:3",1.2,"E"
;;D^E
;;R^"863.7:","863.74:4",.01,"E"
;;D^OUTPUT TRANSFORM
;;R^"863.7:","863.74:4",1.1,"E"
;;D^4
;;R^"863.7:","863.74:4",1.2,"E"
;;D^O
;;R^"863.7:","863.74:5",.01,"E"
;;D^SCREEN LENGTH
;;R^"863.7:","863.74:5",1.1,"E"
;;D^5
;;R^"863.7:","863.74:5",1.2,"E"
;;D^L
;;R^"863.7:","863.74:6",.01,"E"
;;D^DATA TYPE
;;R^"863.7:","863.74:6",1.1,"E"
;;D^6
;;R^"863.7:","863.74:6",1.2,"E"
;;D^T
;;R^"863.7:","863.74:7",.01,"E"
;;D^MESSAGE
;;R^"863.7:","863.74:7",1.1,"E"
;;D^7
;;R^"863.7:","863.74:7",1.2,"E"
;;D^M
;;R^"863.7:","863.74:8",.01,"E"
;;D^POINTER REFERENCE
;;R^"863.7:","863.74:8",1.1,"E"
;;D^8
;;R^"863.7:","863.74:8",1.2,"E"
;;D^R
;;EOR^
;;KEY^863.7:^QLIST
;;R^"863.7:",.01,"E"
;;D^QLIST
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Quick list
;;R^"863.7:",2,1
;;D^A "lite" form of LIST^OCXF1. Only require 2 variables: the source global
;;R^"863.7:",2,2
;;D^and the TAB
;;R^"863.7:",3,"E"
;;D^QLIST^OCXF1
;;R^"863.7:","863.74:1",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^OCXCREF
;;R^"863.7:","863.74:2",.01,"E"
;;D^DATA TYPE
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^T
;;EOR^
;;KEY^863.7:^FORMATTED LIST
;;R^"863.7:",.01,"E"
;;D^FORMATTED LIST
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Formats a list into a multi-columnar display
;;R^"863.7:",2,1
;;D^Formats a list in to a multi columnar diaplay. No. of items less than
;;R^"863.7:",2,2
;;D^8 or greater than 66 = 1 column; less than 33 = 2 columns ; less than
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI01E 5552 printed Sep 23, 2025@19:59:37 Page 2
OCXDI01E ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
S ;
+1 ;
+2 DO DOT^OCXDIAG
+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("OCXDIAG",$JOB,$ORDER(^TMP("OCXDIAG",$JOB,"A"),-1)+1)=TEXT
End DoDot:1
if QUIT
QUIT
+8 ;
+9 GOTO ^OCXDI01F
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;R^"863.7:",.01,"E"
+3 ;;D^STUFF
+4 ;;R^"863.7:",.02,"E"
+5 ;;D^PARAMETERIZED SUBROUTINE
+6 ;;R^"863.7:",1,"E"
+7 ;;D^Stuff a value into a string "window"
+8 ;;R^"863.7:",2,1
+9 ;;D^Given the string X with vertical bar windows containing parameter names,
+10 ;;R^"863.7:",2,2
+11 ;;D^replace the window with the value of the specified parameters.
+12 ;;R^"863.7:",3,"E"
+13 ;;D^STUFF^OCXF
+14 ;;R^"863.7:","863.74:1",.01,"E"
+15 ;;D^CLOSED REFERENCE
+16 ;;R^"863.7:","863.74:1",1.1,"E"
+17 ;;D^2
+18 ;;R^"863.7:","863.74:1",1.2,"E"
+19 ;;D^Y
+20 ;;R^"863.7:","863.74:2",.01,"E"
+21 ;;D^TEXT STRING
+22 ;;R^"863.7:","863.74:2",1.1,"E"
+23 ;;D^1
+24 ;;R^"863.7:","863.74:2",1.2,"E"
+25 ;;D^X
+26 ;;EOR^
+27 ;;KEY^863.7:^OVERRIDE ARRAY STRING
+28 ;;R^"863.7:",.01,"E"
+29 ;;D^OVERRIDE ARRAY STRING
+30 ;;R^"863.7:",.02,"E"
+31 ;;D^PARAMETERIZED SUBROUTINE
+32 ;;R^"863.7:",1,"E"
+33 ;;D^Converts a delimited string to an array
+34 ;;R^"863.7:",2,1
+35 ;;D^Given string X and closed array reference V, the delimiter A marks the array
+36 ;;R^"863.7:",2,2
+37 ;;D^variable and the delimiter B marks the value.
+38 ;;R^"863.7:",3,"E"
+39 ;;D^ASTG^OCXF
+40 ;;R^"863.7:","863.74:1",.01,"E"
+41 ;;D^FREE TEXT STRING
+42 ;;R^"863.7:","863.74:1",1.1,"E"
+43 ;;D^1
+44 ;;R^"863.7:","863.74:1",1.2,"E"
+45 ;;D^X
+46 ;;R^"863.7:","863.74:2",.01,"E"
+47 ;;D^PRIMARY DELIMITER
+48 ;;R^"863.7:","863.74:2",1.1,"E"
+49 ;;D^2
+50 ;;R^"863.7:","863.74:2",1.2,"E"
+51 ;;D^V
+52 ;;R^"863.7:","863.74:3",.01,"E"
+53 ;;D^SECONDARY DELIMITER
+54 ;;R^"863.7:","863.74:3",1.1,"E"
+55 ;;D^3
+56 ;;R^"863.7:","863.74:3",1.2,"E"
+57 ;;D^A
+58 ;;R^"863.7:","863.74:4",.01,"E"
+59 ;;D^CLOSED REFERENCE
+60 ;;R^"863.7:","863.74:4",1.1,"E"
+61 ;;D^4
+62 ;;R^"863.7:","863.74:4",1.2,"E"
+63 ;;D^B
+64 ;;EOR^
+65 ;;KEY^863.7:^TEST
+66 ;;R^"863.7:",.01,"E"
+67 ;;D^TEST
+68 ;;R^"863.7:",.02,"E"
+69 ;;D^PARAMETERIZED SUBROUTINE
+70 ;;R^"863.7:",1,"E"
+71 ;;D^XXX
+72 ;;R^"863.7:",2,1
+73 ;;D^XXXXX
+74 ;;R^"863.7:",3,"E"
+75 ;;D^BRK^OCXF
+76 ;;R^"863.7:","863.74:1",.01,"E"
+77 ;;D^FREE TEXT MAXIMUM LENGTH
+78 ;;R^"863.7:","863.74:1",1.1,"E"
+79 ;;D^1
+80 ;;R^"863.7:","863.74:1",1.2,"E"
+81 ;;D^X
+82 ;;R^"863.7:","863.74:2",.01,"E"
+83 ;;D^CLOSED REFERENCE
+84 ;;R^"863.7:","863.74:2",1.1,"E"
+85 ;;D^2
+86 ;;R^"863.7:","863.74:2",1.2,"E"
+87 ;;D^Y
+88 ;;R^"863.7:","863.74:3",.01,"E"
+89 ;;D^FILE
+90 ;;R^"863.7:","863.74:3",1.1,"E"
+91 ;;D^3
+92 ;;R^"863.7:","863.74:3",1.2,"E"
+93 ;;D^T
+94 ;;R^"863.7:","863.74:4",.01,"E"
+95 ;;D^FIELD NAME
+96 ;;R^"863.7:","863.74:4",1.1,"E"
+97 ;;D^4
+98 ;;R^"863.7:","863.74:4",1.2,"E"
+99 ;;D^F
+100 ;;EOR^
+101 ;;KEY^863.7:^PAUSE
+102 ;;R^"863.7:",.01,"E"
+103 ;;D^PAUSE
+104 ;;R^"863.7:",.02,"E"
+105 ;;D^PARAMETERIZED SUBROUTINE
+106 ;;R^"863.7:",1,"E"
+107 ;;D^End of screen message: '<>'
+108 ;;R^"863.7:",2,1
+109 ;;D^'^' of '^^' or <RETURN>
+110 ;;R^"863.7:",3,"E"
+111 ;;D^PAUSE^OCXF
+112 ;;EOR^
+113 ;;KEY^863.7:^LIST
+114 ;;R^"863.7:",.01,"E"
+115 ;;D^LIST
+116 ;;R^"863.7:",.02,"E"
+117 ;;D^PARAMETERIZED SUBROUTINE
+118 ;;R^"863.7:",1,"E"
+119 ;;D^Manages the display of a list
+120 ;;R^"863.7:",2,1
+121 ;;D^Manages the display of a simple list on the screen (including pauses).
+122 ;;R^"863.7:",3,"E"
+123 ;;D^LIST^OCXF1
+124 ;;R^"863.7:","863.74:1",.01,"E"
+125 ;;D^CLOSED REFERENCE
+126 ;;R^"863.7:","863.74:1",1.1,"E"
+127 ;;D^1
+128 ;;R^"863.7:","863.74:1",1.2,"E"
+129 ;;D^G
+130 ;;R^"863.7:","863.74:2",.01,"E"
+131 ;;D^START WITH
+132 ;;R^"863.7:","863.74:2",1.1,"E"
+133 ;;D^2
+134 ;;R^"863.7:","863.74:2",1.2,"E"
+135 ;;D^S
+136 ;;R^"863.7:","863.74:3",.01,"E"
+137 ;;D^END WITH
+138 ;;R^"863.7:","863.74:3",1.1,"E"
+139 ;;D^3
+140 ;;R^"863.7:","863.74:3",1.2,"E"
+141 ;;D^E
+142 ;;R^"863.7:","863.74:4",.01,"E"
+143 ;;D^OUTPUT TRANSFORM
+144 ;;R^"863.7:","863.74:4",1.1,"E"
+145 ;;D^4
+146 ;;R^"863.7:","863.74:4",1.2,"E"
+147 ;;D^O
+148 ;;R^"863.7:","863.74:5",.01,"E"
+149 ;;D^SCREEN LENGTH
+150 ;;R^"863.7:","863.74:5",1.1,"E"
+151 ;;D^5
+152 ;;R^"863.7:","863.74:5",1.2,"E"
+153 ;;D^L
+154 ;;R^"863.7:","863.74:6",.01,"E"
+155 ;;D^DATA TYPE
+156 ;;R^"863.7:","863.74:6",1.1,"E"
+157 ;;D^6
+158 ;;R^"863.7:","863.74:6",1.2,"E"
+159 ;;D^T
+160 ;;R^"863.7:","863.74:7",.01,"E"
+161 ;;D^MESSAGE
+162 ;;R^"863.7:","863.74:7",1.1,"E"
+163 ;;D^7
+164 ;;R^"863.7:","863.74:7",1.2,"E"
+165 ;;D^M
+166 ;;R^"863.7:","863.74:8",.01,"E"
+167 ;;D^POINTER REFERENCE
+168 ;;R^"863.7:","863.74:8",1.1,"E"
+169 ;;D^8
+170 ;;R^"863.7:","863.74:8",1.2,"E"
+171 ;;D^R
+172 ;;EOR^
+173 ;;KEY^863.7:^QLIST
+174 ;;R^"863.7:",.01,"E"
+175 ;;D^QLIST
+176 ;;R^"863.7:",.02,"E"
+177 ;;D^PARAMETERIZED SUBROUTINE
+178 ;;R^"863.7:",1,"E"
+179 ;;D^Quick list
+180 ;;R^"863.7:",2,1
+181 ;;D^A "lite" form of LIST^OCXF1. Only require 2 variables: the source global
+182 ;;R^"863.7:",2,2
+183 ;;D^and the TAB
+184 ;;R^"863.7:",3,"E"
+185 ;;D^QLIST^OCXF1
+186 ;;R^"863.7:","863.74:1",.01,"E"
+187 ;;D^CLOSED REFERENCE
+188 ;;R^"863.7:","863.74:1",1.1,"E"
+189 ;;D^1
+190 ;;R^"863.7:","863.74:1",1.2,"E"
+191 ;;D^OCXCREF
+192 ;;R^"863.7:","863.74:2",.01,"E"
+193 ;;D^DATA TYPE
+194 ;;R^"863.7:","863.74:2",1.1,"E"
+195 ;;D^2
+196 ;;R^"863.7:","863.74:2",1.2,"E"
+197 ;;D^T
+198 ;;EOR^
+199 ;;KEY^863.7:^FORMATTED LIST
+200 ;;R^"863.7:",.01,"E"
+201 ;;D^FORMATTED LIST
+202 ;;R^"863.7:",.02,"E"
+203 ;;D^PARAMETERIZED SUBROUTINE
+204 ;;R^"863.7:",1,"E"
+205 ;;D^Formats a list into a multi-columnar display
+206 ;;R^"863.7:",2,1
+207 ;;D^Formats a list in to a multi columnar diaplay. No. of items less than
+208 ;;R^"863.7:",2,2
+209 ;;D^8 or greater than 66 = 1 column; less than 33 = 2 columns ; less than
+210 ;1;
+211 ;
