Routine: OCXDI01O

OCXDI01O ;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 ^OCXDI01P

DATA ;

 ;;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:^EQUALS ELEMENT IN SET

 ;;R^"863.9:",.01,"E"

 ;;D^EQUALS ELEMENT IN SET

 ;;R^"863.9:",.02,"E"

 ;;D^FREE TEXT

 ;;R^"863.9:",.04,"E"

 ;;D^EQUALS 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 EQUALS ELEMENT IN SET

 ;;EOR^

 ;;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 LOCAL TERM

 ;;R^"863.9:",.01,"E"

 ;;D^EQ FREE TEXT LOCAL TERM

 ;;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 TERM EQUALS

 ;;R^"863.9:","863.92:1",.01,"E"

 ;;D^EQUALS

 ;;EOR^

 ;;EOF^OCXS(863.9)^1

 ;;SOF^863.6  OCX MDD METHOD

 ;;KEY^863.6:^RETURN FIELD NAVIGATION CODE FOR FILEMAN FILE

 ;;R^"863.6:",.01,"E"

 ;;D^RETURN FIELD NAVIGATION CODE FOR FILEMAN FILE

 ;;R^"863.6:",.02,"E"

 ;;D^GET FILEMAN NAVIGATION CODE

 ;;R^"863.6:",.03,"E"

 ;;D^LINK

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^This method returns a navigation string in the form of a value that can

 ;;R^"863.6:",1,2

 ;;D^ be used to build a FLDS or BY string that DIP uses to generate a report.

 ;;R^"863.6:",1,3

 ;;D^This value is returned in the variable OCXFC

 ;;R^"863.6:",2,"E"

 ;;D^FMCODE^OCXRPG

 ;;R^"863.6:","863.63:1",.01,"E"

 ;;D^FM NAVIGATION CODE

 ;;EOR^

 ;;KEY^863.6:^GET A VALUE DIALOGUE

 ;;R^"863.6:",.01,"E"

 ;;D^GET A VALUE DIALOGUE

 ;;R^"863.6:",.02,"E"

 ;;D^READER

 ;;R^"863.6:",.03,"E"

 ;;D^ATTRIBUTE

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Each attribute in the OCX MDD ATTRIBUTE file has a data type.  This method

 ;;R^"863.6:",1,2

 ;;D^prompts the user for a valid value based on this data type.

 ;;R^"863.6:",2,"E"

 ;;D^GETVAL^OCXFD

 ;;EOR^

 ;;KEY^863.6:^ADD A NEW RECORD

 ;;R^"863.6:",.01,"E"

 ;;D^ADD A NEW RECORD

 ;;R^"863.6:",.02,"E"

 ;;D^ADD REC

 ;;R^"863.6:",.03,"E"

 ;;D^CLASS

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Adds a new record to an MDD file

 ;;R^"863.6:",2,"E"

 ;;D^ADD^OCXFMGR3

 ;;EOR^

 ;;KEY^863.6:^DELETE A RECORD

 ;;R^"863.6:",.01,"E"

 ;;D^DELETE A RECORD

 ;;R^"863.6:",.02,"E"

 ;;D^DEL REC

 ;;R^"863.6:",.03,"E"

 ;;D^CLASS

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Deletes a record from an MDD file.

 ;;R^"863.6:",2,"E"

 ;;D^DEL^OCXFMGR3

 ;;EOR^

 ;;KEY^863.6:^EDIT A RECORD

 ;;R^"863.6:",.01,"E"

 ;;D^EDIT A RECORD

 ;;R^"863.6:",.02,"E"

 ;;D^EDIT REC

 ;;R^"863.6:",.03,"E"

 ;;D^CLASS

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Edits an existing record from an MDD file.

 ;;R^"863.6:",2,"E"

 ;;D^EDIT^OCXFMGR3

 ;;EOR^

 ;;KEY^863.6:^VIEW A RECORD

 ;;R^"863.6:",.01,"E"

 ;;D^VIEW A RECORD

 ;;R^"863.6:",.02,"E"

 ;;D^VIEW REC

 ;;R^"863.6:",.03,"E"

 ;;D^CLASS

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^View an existing record in an MDD file.

 ;;R^"863.6:",2,"E"

 ;;D^VIEW^OCXFMGR3

 ;;EOR^

 ;;KEY^863.6:^DIALOGUE READER

 ;;R^"863.6:",.01,"E"

 ;;D^DIALOGUE READER

 ;;R^"863.6:",.02,"E"

 ;;D^READER

 ;;R^"863.6:",.03,"E"

 ;;D^DATA TYPE

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Manages dialogue for user to return a value.  Similar to GET A VALUE

 ;;R^"863.6:",1,2

 ;;D^DIALOGUE but not coupled to an attribute.

 ;;R^"863.6:",2,"E"

 ;;D^VAL^OCXFD

 ;;R^"863.6:","863.63:1",.01,"E"

 ;;D^LINE FEED

 ;;R^"863.6:","863.63:1",1,"E"

 ;;D^1

 ;;R^"863.6:","863.63:2",.01,"E"

 ;;D^TAB OFFSET

 ;;R^"863.6:","863.63:2",1,"E"

 ;;D^0

 ;;R^"863.6:","863.63:3",.01,"E"

 ;;D^MAND

 ;;R^"863.6:","863.63:3",1,"E"

 ;;D^0

 ;;EOR^

 ;;KEY^863.6:^VIEW PARAMETER USAGE

 ;;R^"863.6:",.01,"E"

 ;;D^VIEW PARAMETER USAGE

 ;;R^"863.6:",.02,"E"

 ;;D^PAR VIEW

 ;;R^"863.6:",.03,"E"

 ;;D^PARAMETER

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Displays all classes and methods which currently use this parameter.

 ;;R^"863.6:",1,2

 ;;D^Also determines if a parameter is a fundamental "data definition" param.

 ;;R^"863.6:",2,"E"

 ;;D^VIEW^OCXF3

 ;;EOR^

 ;;KEY^863.6:^RETURN ORPHANED PARAMETERS

 ;;R^"863.6:",.01,"E"

 ;;D^RETURN ORPHANED PARAMETERS

 ;;R^"863.6:",.02,"E"

 ;;D^ORPH

 ;;R^"863.6:",.03,"E"

 ;;D^PARAMETER

 ;;R^"863.6:",.04,"E"

 ;;D^ROUTINE

 ;;R^"863.6:",1,1

 ;;D^Finds parameters which are "orphaned" when an object is deleted.

 ;;R^"863.6:",2,"E"

;1;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXDI01O   5447     printed  Apr 23, 2025@18:38:03                                                                                                                                                                                                    Page 2

OCXDI01O  ;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 ^OCXDI01P

 +10      ;

 +11       QUIT

 +12      ;

DATA      ;

 +1       ;

 +2       ;;R^"863.9:",.04,"E"

 +3       ;;D^IS FALSE

 +4       ;;R^"863.9:","863.91:1",.01,"E"

 +5       ;;D^OCXO GENERATE CODE FUNCTION

 +6       ;;R^"863.9:","863.91:1",1,"E"

 +7       ;;D^GCC BOOLEAN LOGICAL FALSE

 +8       ;;R^"863.9:","863.92:1",.01,"E"

 +9       ;;D^FALSE

 +10      ;;EOR^

 +11      ;;KEY^863.9:^EQUALS ELEMENT IN SET

 +12      ;;R^"863.9:",.01,"E"

 +13      ;;D^EQUALS ELEMENT IN SET

 +14      ;;R^"863.9:",.02,"E"

 +15      ;;D^FREE TEXT

 +16      ;;R^"863.9:",.04,"E"

 +17      ;;D^EQUALS AN ELEMENT IN THE SET

 +18      ;;R^"863.9:","863.91:1",.01,"E"

 +19      ;;D^OCXO GENERATE CODE FUNCTION

 +20      ;;R^"863.9:","863.91:1",1,"E"

 +21      ;;D^GCC FREE TEXT EQUALS ELEMENT IN SET

 +22      ;;EOR^

 +23      ;;KEY^863.9:^CONTAINS ELEMENT IN SET

 +24      ;;R^"863.9:",.01,"E"

 +25      ;;D^CONTAINS ELEMENT IN SET

 +26      ;;R^"863.9:",.02,"E"

 +27      ;;D^FREE TEXT

 +28      ;;R^"863.9:",.04,"E"

 +29      ;;D^CONTAINS AN ELEMENT IN THE SET

 +30      ;;R^"863.9:","863.91:1",.01,"E"

 +31      ;;D^OCXO GENERATE CODE FUNCTION

 +32      ;;R^"863.9:","863.91:1",1,"E"

 +33      ;;D^GCC FREE TEXT CONTAINS ELEMENT IN SET

 +34      ;;EOR^

 +35      ;;KEY^863.9:^EQ FREE TEXT LOCAL TERM

 +36      ;;R^"863.9:",.01,"E"

 +37      ;;D^EQ FREE TEXT LOCAL TERM

 +38      ;;R^"863.9:",.02,"E"

 +39      ;;D^FREE TEXT

 +40      ;;R^"863.9:",.04,"E"

 +41      ;;D^IS EQUAL TO

 +42      ;;R^"863.9:","863.91:3",.01,"E"

 +43      ;;D^OCXO GENERATE CODE FUNCTION

 +44      ;;R^"863.9:","863.91:3",1,"E"

 +45      ;;D^GCC FREE TEXT TERM EQUALS

 +46      ;;R^"863.9:","863.92:1",.01,"E"

 +47      ;;D^EQUALS

 +48      ;;EOR^

 +49      ;;EOF^OCXS(863.9)^1

 +50      ;;SOF^863.6  OCX MDD METHOD

 +51      ;;KEY^863.6:^RETURN FIELD NAVIGATION CODE FOR FILEMAN FILE

 +52      ;;R^"863.6:",.01,"E"

 +53      ;;D^RETURN FIELD NAVIGATION CODE FOR FILEMAN FILE

 +54      ;;R^"863.6:",.02,"E"

 +55      ;;D^GET FILEMAN NAVIGATION CODE

 +56      ;;R^"863.6:",.03,"E"

 +57      ;;D^LINK

 +58      ;;R^"863.6:",.04,"E"

 +59      ;;D^ROUTINE

 +60      ;;R^"863.6:",1,1

 +61      ;;D^This method returns a navigation string in the form of a value that can

 +62      ;;R^"863.6:",1,2

 +63      ;;D^ be used to build a FLDS or BY string that DIP uses to generate a report.

 +64      ;;R^"863.6:",1,3

 +65      ;;D^This value is returned in the variable OCXFC

 +66      ;;R^"863.6:",2,"E"

 +67      ;;D^FMCODE^OCXRPG

 +68      ;;R^"863.6:","863.63:1",.01,"E"

 +69      ;;D^FM NAVIGATION CODE

 +70      ;;EOR^

 +71      ;;KEY^863.6:^GET A VALUE DIALOGUE

 +72      ;;R^"863.6:",.01,"E"

 +73      ;;D^GET A VALUE DIALOGUE

 +74      ;;R^"863.6:",.02,"E"

 +75      ;;D^READER

 +76      ;;R^"863.6:",.03,"E"

 +77      ;;D^ATTRIBUTE

 +78      ;;R^"863.6:",.04,"E"

 +79      ;;D^ROUTINE

 +80      ;;R^"863.6:",1,1

 +81      ;;D^Each attribute in the OCX MDD ATTRIBUTE file has a data type.  This method

 +82      ;;R^"863.6:",1,2

 +83      ;;D^prompts the user for a valid value based on this data type.

 +84      ;;R^"863.6:",2,"E"

 +85      ;;D^GETVAL^OCXFD

 +86      ;;EOR^

 +87      ;;KEY^863.6:^ADD A NEW RECORD

 +88      ;;R^"863.6:",.01,"E"

 +89      ;;D^ADD A NEW RECORD

 +90      ;;R^"863.6:",.02,"E"

 +91      ;;D^ADD REC

 +92      ;;R^"863.6:",.03,"E"

 +93      ;;D^CLASS

 +94      ;;R^"863.6:",.04,"E"

 +95      ;;D^ROUTINE

 +96      ;;R^"863.6:",1,1

 +97      ;;D^Adds a new record to an MDD file

 +98      ;;R^"863.6:",2,"E"

 +99      ;;D^ADD^OCXFMGR3

 +100     ;;EOR^

 +101     ;;KEY^863.6:^DELETE A RECORD

 +102     ;;R^"863.6:",.01,"E"

 +103     ;;D^DELETE A RECORD

 +104     ;;R^"863.6:",.02,"E"

 +105     ;;D^DEL REC

 +106     ;;R^"863.6:",.03,"E"

 +107     ;;D^CLASS

 +108     ;;R^"863.6:",.04,"E"

 +109     ;;D^ROUTINE

 +110     ;;R^"863.6:",1,1

 +111     ;;D^Deletes a record from an MDD file.

 +112     ;;R^"863.6:",2,"E"

 +113     ;;D^DEL^OCXFMGR3

 +114     ;;EOR^

 +115     ;;KEY^863.6:^EDIT A RECORD

 +116     ;;R^"863.6:",.01,"E"

 +117     ;;D^EDIT A RECORD

 +118     ;;R^"863.6:",.02,"E"

 +119     ;;D^EDIT REC

 +120     ;;R^"863.6:",.03,"E"

 +121     ;;D^CLASS

 +122     ;;R^"863.6:",.04,"E"

 +123     ;;D^ROUTINE

 +124     ;;R^"863.6:",1,1

 +125     ;;D^Edits an existing record from an MDD file.

 +126     ;;R^"863.6:",2,"E"

 +127     ;;D^EDIT^OCXFMGR3

 +128     ;;EOR^

 +129     ;;KEY^863.6:^VIEW A RECORD

 +130     ;;R^"863.6:",.01,"E"

 +131     ;;D^VIEW A RECORD

 +132     ;;R^"863.6:",.02,"E"

 +133     ;;D^VIEW REC

 +134     ;;R^"863.6:",.03,"E"

 +135     ;;D^CLASS

 +136     ;;R^"863.6:",.04,"E"

 +137     ;;D^ROUTINE

 +138     ;;R^"863.6:",1,1

 +139     ;;D^View an existing record in an MDD file.

 +140     ;;R^"863.6:",2,"E"

 +141     ;;D^VIEW^OCXFMGR3

 +142     ;;EOR^

 +143     ;;KEY^863.6:^DIALOGUE READER

 +144     ;;R^"863.6:",.01,"E"

 +145     ;;D^DIALOGUE READER

 +146     ;;R^"863.6:",.02,"E"

 +147     ;;D^READER

 +148     ;;R^"863.6:",.03,"E"

 +149     ;;D^DATA TYPE

 +150     ;;R^"863.6:",.04,"E"

 +151     ;;D^ROUTINE

 +152     ;;R^"863.6:",1,1

 +153     ;;D^Manages dialogue for user to return a value.  Similar to GET A VALUE

 +154     ;;R^"863.6:",1,2

 +155     ;;D^DIALOGUE but not coupled to an attribute.

 +156     ;;R^"863.6:",2,"E"

 +157     ;;D^VAL^OCXFD

 +158     ;;R^"863.6:","863.63:1",.01,"E"

 +159     ;;D^LINE FEED

 +160     ;;R^"863.6:","863.63:1",1,"E"

 +161     ;;D^1

 +162     ;;R^"863.6:","863.63:2",.01,"E"

 +163     ;;D^TAB OFFSET

 +164     ;;R^"863.6:","863.63:2",1,"E"

 +165     ;;D^0

 +166     ;;R^"863.6:","863.63:3",.01,"E"

 +167     ;;D^MAND

 +168     ;;R^"863.6:","863.63:3",1,"E"

 +169     ;;D^0

 +170     ;;EOR^

 +171     ;;KEY^863.6:^VIEW PARAMETER USAGE

 +172     ;;R^"863.6:",.01,"E"

 +173     ;;D^VIEW PARAMETER USAGE

 +174     ;;R^"863.6:",.02,"E"

 +175     ;;D^PAR VIEW

 +176     ;;R^"863.6:",.03,"E"

 +177     ;;D^PARAMETER

 +178     ;;R^"863.6:",.04,"E"

 +179     ;;D^ROUTINE

 +180     ;;R^"863.6:",1,1

 +181     ;;D^Displays all classes and methods which currently use this parameter.

 +182     ;;R^"863.6:",1,2

 +183     ;;D^Also determines if a parameter is a fundamental "data definition" param.

 +184     ;;R^"863.6:",2,"E"

 +185     ;;D^VIEW^OCXF3

 +186     ;;EOR^

 +187     ;;KEY^863.6:^RETURN ORPHANED PARAMETERS

 +188     ;;R^"863.6:",.01,"E"

 +189     ;;D^RETURN ORPHANED PARAMETERS

 +190     ;;R^"863.6:",.02,"E"

 +191     ;;D^ORPH

 +192     ;;R^"863.6:",.03,"E"

 +193     ;;D^PARAMETER

 +194     ;;R^"863.6:",.04,"E"

 +195     ;;D^ROUTINE

 +196     ;;R^"863.6:",1,1

 +197     ;;D^Finds parameters which are "orphaned" when an object is deleted.

 +198     ;;R^"863.6:",2,"E"

 +199     ;1;

 +200     ;

OCXDI01O.m