OCXDI01D ;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 ^OCXDI01E
;
Q
;
DATA ;
;
;;D^3
;;R^"863.7:","863.74:5",1.2,"E"
;;D^N
;;EOR^
;;KEY^863.7:^EXIT TEXT
;;R^"863.7:",.01,"E"
;;D^EXIT TEXT
;;R^"863.7:",.02,"E"
;;D^EXTRINSIC FUNCTION
;;R^"863.7:",1,"E"
;;D^User edits a text string
;;R^"863.7:",2,1
;;D^Extrinsic function equivalent to FileMan's text editor
;;R^"863.7:",3,"E"
;;D^RW^OCXF1
;;R^"863.7:","863.74:1",.01,"E"
;;D^TEXT STRING
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^OCXDY
;;EOR^
;;KEY^863.7:^LIST AN ARRAY
;;R^"863.7:",.01,"E"
;;D^LIST AN ARRAY
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^List an array on a screen. Scroll and do output transform.
;;R^"863.7:",2,1
;;D^This function lists the contents of an array on the screen. If the array
;;R^"863.7:",2,2
;;D^won't fit on one screen, scroll mode is invoked. Parameters specify the
;;R^"863.7:",2,3
;;D^output transfrom as well as start and stop marker and the empty array
;;R^"863.7:",2,4
;;D^message.
;;R^"863.7:",3,"E"
;;D^LIST^OCXF1
;;R^"863.7:","863.74:1",.01,"E"
;;D^TAB OFFSET
;;R^"863.7:","863.74:1",1.1,"E"
;;D^7
;;R^"863.7:","863.74:1",1.2,"E"
;;D^T
;;R^"863.7:","863.74:2",.01,"E"
;;D^INDEX
;;R^"863.7:","863.74:2",1.1,"E"
;;D^4
;;R^"863.7:","863.74:2",1.2,"E"
;;D^I
;;R^"863.7:","863.74:3",.01,"E"
;;D^CLOSED REFERENCE
;;R^"863.7:","863.74:3",1.1,"E"
;;D^1
;;R^"863.7:","863.74:3",1.2,"E"
;;D^G
;;R^"863.7:","863.74:4",.01,"E"
;;D^LIST START
;;R^"863.7:","863.74:4",1.1,"E"
;;D^2
;;R^"863.7:","863.74:4",1.2,"E"
;;D^S
;;R^"863.7:","863.74:5",.01,"E"
;;D^LIST END
;;R^"863.7:","863.74:5",1.1,"E"
;;D^3
;;R^"863.7:","863.74:5",1.2,"E"
;;D^E
;;R^"863.7:","863.74:6",.01,"E"
;;D^OUTPUT TRANSFORM
;;R^"863.7:","863.74:6",1.1,"E"
;;D^5
;;R^"863.7:","863.74:6",1.2,"E"
;;D^O
;;R^"863.7:","863.74:7",.01,"E"
;;D^SCREEN LENGTH
;;R^"863.7:","863.74:7",1.1,"E"
;;D^6
;;R^"863.7:","863.74:7",1.2,"E"
;;D^L
;;R^"863.7:","863.74:8",.01,"E"
;;D^LIST EMPTY MESSAGE
;;R^"863.7:","863.74:8",1.1,"E"
;;D^8
;;R^"863.7:","863.74:8",1.2,"E"
;;D^M
;;R^"863.7:","863.74:9",.01,"E"
;;D^POINTER GLOBAL
;;R^"863.7:","863.74:9",1.1,"E"
;;D^9
;;R^"863.7:","863.74:9",1.2,"E"
;;D^R
;;EOR^
;;KEY^863.7:^HELP FRAME
;;R^"863.7:",.01,"E"
;;D^HELP FRAME
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Encapsulated help frame call
;;R^"863.7:",2,1
;;D^Given a help frame IEN, display the help frame
;;R^"863.7:",3,"E"
;;D^HF^OCXF1
;;R^"863.7:","863.74:1",.01,"E"
;;D^HELP FRAME
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^XQH
;;EOR^
;;KEY^863.7:^OBJECT VIEW
;;R^"863.7:",.01,"E"
;;D^OBJECT VIEW
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^View an object
;;R^"863.7:",3,"E"
;;D^VIEW^OCXFMGR
;;R^"863.7:","863.74:1",.01,"E"
;;D^OPEN REFERENCE
;;R^"863.7:","863.74:1",1.1,"E"
;;D^1
;;R^"863.7:","863.74:1",1.2,"E"
;;D^OCXOREF
;;R^"863.7:","863.74:2",.01,"E"
;;D^INTERNAL ENTRY NUMBER
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^OCXREC
;;EOR^
;;KEY^863.7:^OBJECT DELETE
;;R^"863.7:",.01,"E"
;;D^OBJECT DELETE
;;R^"863.7:",.02,"E"
;;D^PARAMETERIZED SUBROUTINE
;;R^"863.7:",1,"E"
;;D^Delete an object
;;R^"863.7:",3,"E"
;;D^DEL^OCXFMGR
;;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^INTERNAL ENTRY NUMBER
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^OCXREC
;;R^"863.7:","863.74:3",.01,"E"
;;D^OBJECT NAME
;;R^"863.7:","863.74:3",1.1,"E"
;;D^3
;;R^"863.7:","863.74:3",1.2,"E"
;;D^OCXNAME
;;R^"863.7:","863.74:4",.01,"E"
;;D^FORCE DELETION
;;R^"863.7:","863.74:4",1.1,"E"
;;D^4
;;R^"863.7:","863.74:4",1.2,"E"
;;D^OCXFORCE
;;EOR^
;;KEY^863.7:^MOM
;;R^"863.7:",.01,"E"
;;D^MOM
;;R^"863.7:",.02,"E"
;;D^EXTRINSIC FUNCTION
;;R^"863.7:",1,"E"
;;D^Returns CLASS file closed ref
;;R^"863.7:",2,1
;;D^Returns the closed reference for the primary file in the class library:
;;R^"863.7:",2,2
;;D^the CLASS file.
;;R^"863.7:",3,"E"
;;D^MOM^OCXF
;;EOR^
;;KEY^863.7:^DICP
;;R^"863.7:",.01,"E"
;;D^DICP
;;R^"863.7:",.02,"E"
;;D^EXTRINSIC FUNCTION
;;R^"863.7:",1,"E"
;;D^Returns the DIC("P") string
;;R^"863.7:",2,1
;;D^Given a closed file reference and field name (defaults to "PARAMETER"),
;;R^"863.7:",2,2
;;D^it returns the DIC("P") string.
;;R^"863.7:",3,"E"
;;D^DICP^OCXF
;;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^R
;;R^"863.7:","863.74:2",.01,"E"
;;D^FIELD NAME
;;R^"863.7:","863.74:2",1.1,"E"
;;D^2
;;R^"863.7:","863.74:2",1.2,"E"
;;D^F
;;EOR^
;;KEY^863.7:^STUFF
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI01D 5501 printed Sep 23, 2025@19:59:36 Page 2
OCXDI01D ;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 ^OCXDI01E
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;D^3
+3 ;;R^"863.7:","863.74:5",1.2,"E"
+4 ;;D^N
+5 ;;EOR^
+6 ;;KEY^863.7:^EXIT TEXT
+7 ;;R^"863.7:",.01,"E"
+8 ;;D^EXIT TEXT
+9 ;;R^"863.7:",.02,"E"
+10 ;;D^EXTRINSIC FUNCTION
+11 ;;R^"863.7:",1,"E"
+12 ;;D^User edits a text string
+13 ;;R^"863.7:",2,1
+14 ;;D^Extrinsic function equivalent to FileMan's text editor
+15 ;;R^"863.7:",3,"E"
+16 ;;D^RW^OCXF1
+17 ;;R^"863.7:","863.74:1",.01,"E"
+18 ;;D^TEXT STRING
+19 ;;R^"863.7:","863.74:1",1.1,"E"
+20 ;;D^1
+21 ;;R^"863.7:","863.74:1",1.2,"E"
+22 ;;D^OCXDY
+23 ;;EOR^
+24 ;;KEY^863.7:^LIST AN ARRAY
+25 ;;R^"863.7:",.01,"E"
+26 ;;D^LIST AN ARRAY
+27 ;;R^"863.7:",.02,"E"
+28 ;;D^PARAMETERIZED SUBROUTINE
+29 ;;R^"863.7:",1,"E"
+30 ;;D^List an array on a screen. Scroll and do output transform.
+31 ;;R^"863.7:",2,1
+32 ;;D^This function lists the contents of an array on the screen. If the array
+33 ;;R^"863.7:",2,2
+34 ;;D^won't fit on one screen, scroll mode is invoked. Parameters specify the
+35 ;;R^"863.7:",2,3
+36 ;;D^output transfrom as well as start and stop marker and the empty array
+37 ;;R^"863.7:",2,4
+38 ;;D^message.
+39 ;;R^"863.7:",3,"E"
+40 ;;D^LIST^OCXF1
+41 ;;R^"863.7:","863.74:1",.01,"E"
+42 ;;D^TAB OFFSET
+43 ;;R^"863.7:","863.74:1",1.1,"E"
+44 ;;D^7
+45 ;;R^"863.7:","863.74:1",1.2,"E"
+46 ;;D^T
+47 ;;R^"863.7:","863.74:2",.01,"E"
+48 ;;D^INDEX
+49 ;;R^"863.7:","863.74:2",1.1,"E"
+50 ;;D^4
+51 ;;R^"863.7:","863.74:2",1.2,"E"
+52 ;;D^I
+53 ;;R^"863.7:","863.74:3",.01,"E"
+54 ;;D^CLOSED REFERENCE
+55 ;;R^"863.7:","863.74:3",1.1,"E"
+56 ;;D^1
+57 ;;R^"863.7:","863.74:3",1.2,"E"
+58 ;;D^G
+59 ;;R^"863.7:","863.74:4",.01,"E"
+60 ;;D^LIST START
+61 ;;R^"863.7:","863.74:4",1.1,"E"
+62 ;;D^2
+63 ;;R^"863.7:","863.74:4",1.2,"E"
+64 ;;D^S
+65 ;;R^"863.7:","863.74:5",.01,"E"
+66 ;;D^LIST END
+67 ;;R^"863.7:","863.74:5",1.1,"E"
+68 ;;D^3
+69 ;;R^"863.7:","863.74:5",1.2,"E"
+70 ;;D^E
+71 ;;R^"863.7:","863.74:6",.01,"E"
+72 ;;D^OUTPUT TRANSFORM
+73 ;;R^"863.7:","863.74:6",1.1,"E"
+74 ;;D^5
+75 ;;R^"863.7:","863.74:6",1.2,"E"
+76 ;;D^O
+77 ;;R^"863.7:","863.74:7",.01,"E"
+78 ;;D^SCREEN LENGTH
+79 ;;R^"863.7:","863.74:7",1.1,"E"
+80 ;;D^6
+81 ;;R^"863.7:","863.74:7",1.2,"E"
+82 ;;D^L
+83 ;;R^"863.7:","863.74:8",.01,"E"
+84 ;;D^LIST EMPTY MESSAGE
+85 ;;R^"863.7:","863.74:8",1.1,"E"
+86 ;;D^8
+87 ;;R^"863.7:","863.74:8",1.2,"E"
+88 ;;D^M
+89 ;;R^"863.7:","863.74:9",.01,"E"
+90 ;;D^POINTER GLOBAL
+91 ;;R^"863.7:","863.74:9",1.1,"E"
+92 ;;D^9
+93 ;;R^"863.7:","863.74:9",1.2,"E"
+94 ;;D^R
+95 ;;EOR^
+96 ;;KEY^863.7:^HELP FRAME
+97 ;;R^"863.7:",.01,"E"
+98 ;;D^HELP FRAME
+99 ;;R^"863.7:",.02,"E"
+100 ;;D^PARAMETERIZED SUBROUTINE
+101 ;;R^"863.7:",1,"E"
+102 ;;D^Encapsulated help frame call
+103 ;;R^"863.7:",2,1
+104 ;;D^Given a help frame IEN, display the help frame
+105 ;;R^"863.7:",3,"E"
+106 ;;D^HF^OCXF1
+107 ;;R^"863.7:","863.74:1",.01,"E"
+108 ;;D^HELP FRAME
+109 ;;R^"863.7:","863.74:1",1.1,"E"
+110 ;;D^1
+111 ;;R^"863.7:","863.74:1",1.2,"E"
+112 ;;D^XQH
+113 ;;EOR^
+114 ;;KEY^863.7:^OBJECT VIEW
+115 ;;R^"863.7:",.01,"E"
+116 ;;D^OBJECT VIEW
+117 ;;R^"863.7:",.02,"E"
+118 ;;D^PARAMETERIZED SUBROUTINE
+119 ;;R^"863.7:",1,"E"
+120 ;;D^View an object
+121 ;;R^"863.7:",3,"E"
+122 ;;D^VIEW^OCXFMGR
+123 ;;R^"863.7:","863.74:1",.01,"E"
+124 ;;D^OPEN REFERENCE
+125 ;;R^"863.7:","863.74:1",1.1,"E"
+126 ;;D^1
+127 ;;R^"863.7:","863.74:1",1.2,"E"
+128 ;;D^OCXOREF
+129 ;;R^"863.7:","863.74:2",.01,"E"
+130 ;;D^INTERNAL ENTRY NUMBER
+131 ;;R^"863.7:","863.74:2",1.1,"E"
+132 ;;D^2
+133 ;;R^"863.7:","863.74:2",1.2,"E"
+134 ;;D^OCXREC
+135 ;;EOR^
+136 ;;KEY^863.7:^OBJECT DELETE
+137 ;;R^"863.7:",.01,"E"
+138 ;;D^OBJECT DELETE
+139 ;;R^"863.7:",.02,"E"
+140 ;;D^PARAMETERIZED SUBROUTINE
+141 ;;R^"863.7:",1,"E"
+142 ;;D^Delete an object
+143 ;;R^"863.7:",3,"E"
+144 ;;D^DEL^OCXFMGR
+145 ;;R^"863.7:","863.74:1",.01,"E"
+146 ;;D^CLOSED REFERENCE
+147 ;;R^"863.7:","863.74:1",1.1,"E"
+148 ;;D^1
+149 ;;R^"863.7:","863.74:1",1.2,"E"
+150 ;;D^OCXCREF
+151 ;;R^"863.7:","863.74:2",.01,"E"
+152 ;;D^INTERNAL ENTRY NUMBER
+153 ;;R^"863.7:","863.74:2",1.1,"E"
+154 ;;D^2
+155 ;;R^"863.7:","863.74:2",1.2,"E"
+156 ;;D^OCXREC
+157 ;;R^"863.7:","863.74:3",.01,"E"
+158 ;;D^OBJECT NAME
+159 ;;R^"863.7:","863.74:3",1.1,"E"
+160 ;;D^3
+161 ;;R^"863.7:","863.74:3",1.2,"E"
+162 ;;D^OCXNAME
+163 ;;R^"863.7:","863.74:4",.01,"E"
+164 ;;D^FORCE DELETION
+165 ;;R^"863.7:","863.74:4",1.1,"E"
+166 ;;D^4
+167 ;;R^"863.7:","863.74:4",1.2,"E"
+168 ;;D^OCXFORCE
+169 ;;EOR^
+170 ;;KEY^863.7:^MOM
+171 ;;R^"863.7:",.01,"E"
+172 ;;D^MOM
+173 ;;R^"863.7:",.02,"E"
+174 ;;D^EXTRINSIC FUNCTION
+175 ;;R^"863.7:",1,"E"
+176 ;;D^Returns CLASS file closed ref
+177 ;;R^"863.7:",2,1
+178 ;;D^Returns the closed reference for the primary file in the class library:
+179 ;;R^"863.7:",2,2
+180 ;;D^the CLASS file.
+181 ;;R^"863.7:",3,"E"
+182 ;;D^MOM^OCXF
+183 ;;EOR^
+184 ;;KEY^863.7:^DICP
+185 ;;R^"863.7:",.01,"E"
+186 ;;D^DICP
+187 ;;R^"863.7:",.02,"E"
+188 ;;D^EXTRINSIC FUNCTION
+189 ;;R^"863.7:",1,"E"
+190 ;;D^Returns the DIC("P") string
+191 ;;R^"863.7:",2,1
+192 ;;D^Given a closed file reference and field name (defaults to "PARAMETER"),
+193 ;;R^"863.7:",2,2
+194 ;;D^it returns the DIC("P") string.
+195 ;;R^"863.7:",3,"E"
+196 ;;D^DICP^OCXF
+197 ;;R^"863.7:","863.74:1",.01,"E"
+198 ;;D^CLOSED REFERENCE
+199 ;;R^"863.7:","863.74:1",1.1,"E"
+200 ;;D^1
+201 ;;R^"863.7:","863.74:1",1.2,"E"
+202 ;;D^R
+203 ;;R^"863.7:","863.74:2",.01,"E"
+204 ;;D^FIELD NAME
+205 ;;R^"863.7:","863.74:2",1.1,"E"
+206 ;;D^2
+207 ;;R^"863.7:","863.74:2",1.2,"E"
+208 ;;D^F
+209 ;;EOR^
+210 ;;KEY^863.7:^STUFF
+211 ;1;
+212 ;
