OCXOCMPT ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Build Sub-Routine Variable and Function Call Documentation) ;3/22/01 16:55
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
Q
DOC(OCXSUB) ;
;
N OCXLINE,OCXLIST,OCXDF,OCXNEW,OCXDELM,OCXPIEC,OCXTXT,OCXREST,OCXPTR,OCXRSUB,OCXD0,OCXOFF,OCXSRTN
;
I '$G(OCXAUTO) W:($X>60) ! W "."
;
;
S OCXSRTN=$P($G(^TMP("OCXCMP",$J,"C CODE",OCXSUB,10000,0))," ",1)
S OCXLINE=0 F OCXOFF=0:1 S OCXLINE=$O(^TMP("OCXCMP",$J,"C CODE",OCXSUB,OCXLINE)) Q:'OCXLINE D
.S OCXTXT=$G(^TMP("OCXCMP",$J,"C CODE",OCXSUB,OCXLINE,0)) Q:'$L(OCXTXT)
.;
.F OCXPIEC=2:1:$L(OCXTXT,"OCXDF(") S OCXDF=+$P(OCXTXT,"OCXDF(",OCXPIEC) I OCXDF S OCXLIST("V",OCXDF)=0
.;
.F OCXDELM="S OCXDF(",",OCXDF(" D
..F OCXPIEC=1:1:$L(OCXTXT,OCXDELM) I $P(OCXTXT,OCXDELM,OCXPIEC+1) D
...S OCXREST=$P(OCXTXT,OCXDELM,OCXPIEC+1),OCXDF=+OCXREST
...F OCXPTR=1:1:$L(OCXREST) Q:'($E(OCXREST,OCXPTR)=+$E(OCXREST,OCXPTR))
...S OCXLIST("V",OCXDF)=$G(OCXLIST("V",OCXDF),0)
...I ($E(OCXREST,OCXPTR)="=") S OCXLIST("V",OCXDF)=1
.;
.F OCXPIEC=2:1:$L(OCXTXT,"$$") D
..S OCXREST=$P(OCXTXT,"$$",OCXPIEC)
..S OCXDF=$P(OCXREST,")",1)
..I (OCXREST[")"),($P(OCXREST,"(",1)[" ") S OCXDF=$P(OCXREST," ",1)
..I '(OCXREST[")"),(OCXREST[" ") S OCXDF=$P(OCXREST," ",1)
..;
..I $L(OCXDF),($P(OCXDF,"(",1)="FILE") S OCXLIST("F",$P(OCXDF,"(",1)_"("_$P($P(OCXDF,"(",2),",",1,2)_",")=0 Q
..I $L(OCXDF) S OCXLIST("F",$P(OCXDF,"(",1)_"(")=0 Q
;
S OCXNEW="" I $O(OCXLIST("V",0)) D
.D FILE(" ;")
.D FILE(" ; Local "_$P($G(^TMP("OCXCMP",$J,"LINE",OCXSUB)),U,1)_" Variables")
.S OCXDF=0 F S OCXDF=$O(OCXLIST("V",OCXDF)) Q:'OCXDF D
..N OCXTXT
..S OCXTXT=" ; OCXDF("_(OCXDF)_") "_$E("----------",$L(OCXDF)+7,10)
..S OCXTXT=OCXTXT_"-> Data Field: "_$P($G(^OCXS(860.4,OCXDF,0)),U,1)_" ("_$$DATATYP(OCXDF)_")"
..D FILE(OCXTXT)
;
I $L($O(OCXLIST("F",0))) D
.N OCXFCALL,OCXFNAM,OCXF,OCXTXT,OCXELE
.D FILE(" ;")
.D FILE(" ; Local Extrinsic Functions")
.S OCXFCALL="" F S OCXFCALL=$O(OCXLIST("F",OCXFCALL)) Q:'$L(OCXFCALL) D
..S OCXFNAM=$P(OCXFCALL,"(",1) S:(OCXFNAM[" ") OCXFNAM=$P(OCXFNAM," ",1) Q:(OCXFNAM[U)
..S OCXTXT=" ; "_OCXFCALL
..S OCXF=$O(^OCXS(860.8,"C",OCXFNAM,0))
..I OCXF S OCXTXT=OCXTXT_" "_$E("---------------",$L(OCXFCALL),15)_"-> "_$P($G(^OCXS(860.8,OCXF,0)),U,1)
..I OCXF,(OCXFNAM="FILE") S OCXELE=$P($G(^OCXS(860.3,+$P($P(OCXFCALL,"(",2),",",2),0)),U,1),OCXTXT=OCXTXT_" (Event/Element: "_OCXELE_")"
..I 'OCXF,($E(OCXFCALL,1,3)="MCE") D
...S OCXTXT=OCXTXT_" "_$E("---------------",$L(OCXFCALL),15)_"-> "
...S OCXTXT=OCXTXT_" Verify Event/Element: '"_$P($G(^OCXS(860.3,+$P(OCXFCALL,"MCE",2),0)),U,1)_"'"
..D FILE(OCXTXT)
;
I $L(OCXNEW) D FILE(" ;"),FILE(" N "_OCXNEW)
;
Q
;
CALL(OCXSUB) ;
;
N OCXD0,OCXD1,OCXFROM,OCXLINE,OCXCALL,OCXDOC,OCXRTN,OCXOFF
;
I '$G(OCXAUTO) W:($X>60) ! W "."
;
S OCXLINE=$G(^TMP("OCXCMP",$J,"LINE",OCXSUB))
S OCXRTN=$P(OCXLINE,U,2),OCXLINE=$P(OCXLINE,U,1) Q:'$L(OCXLINE)
;
S (OCXDOC,OCXCALL)="",(OCXOFF,OCXD0)=0 F S OCXD0=$O(^TMP("OCXCMP",$J,"CALLREF",OCXSUB,OCXD0)) Q:'OCXD0 D
.S OCXFROM=$G(^TMP("OCXCMP",$J,"LINE",OCXD0)) Q:'$L(OCXFROM)
.S OCXD1=$O(^TMP("OCXCMP",$J,"CALLREF",OCXSUB,OCXD0,0))
.I OCXD1 F OCXOFF=0:1 S OCXD1=$O(^TMP("OCXCMP",$J,"C CODE",OCXD0,OCXD1),-1) Q:'OCXD1
.I OCXOFF S $P(OCXFROM,U,1)=$P(OCXFROM,U,1)_"+"_OCXOFF
.I (OCXRTN=$P(OCXFROM,U,2)) S OCXFROM=$P(OCXFROM,U,1)
.S:$L(OCXCALL) OCXCALL=OCXCALL_", and " S OCXCALL=OCXCALL_OCXFROM
I $L(OCXCALL) S OCXCALL=" Called from "_OCXCALL_"."
E S OCXCALL=" External Call."
;
;
I (OCXLINE="LOG") S OCXDOC=" Returns the number of days to keep the Raw Data Log or 0 if logging is disabled."
I (OCXLINE="CDATA") S OCXDOC=" Returns compiler flags, Execution TRACE ON/OFF, Time Logging ON/OFF, and Raw Data Logging ON/OFF"
I (OCXLINE="UPDATE") S OCXDOC=" Main Entry point for evaluating Rules."
I (OCXLINE="SCAN") S OCXDOC=" Tests all Rules for Event/Elements that were found to be valid in the UPDATE subroutine."
I ($E(OCXLINE,1,5)="SWAPIN") S OCXDOC="This subroutine moves an array from ^TMP to a local variable."
I ($E(OCXLINE,1,5)="SWAPOUT") S OCXDOC="This subroutine moves an array from a local variable to ^TMP."
I ($E(OCXLINE,1,5)="GETDF") S OCXDOC="This subroutine loads the OCXDF data field array from variables in the environment."
I ($E(OCXLINE,1,5)="TRACE") S OCXDOC="During program execution trace mode, display all data fields for '"_$P($G(^OCXS(860.6,+$P(OCXLINE,"TRACE",2),0)),U,1)_"' data source."
I ($E(OCXLINE,1,3)="CHK") S OCXDOC=" Look through the current environment for valid Event/Elements for this patient."
I ($E(OCXLINE,1,2)="EL") S OCXDOC=" Examine every rule that involves Element #"_(+$P(OCXLINE,"EL",2))_" ["_$P($G(^OCXS(860.3,+$P(OCXLINE,"EL",2),0)),U,1)_"]"
I ($E(OCXLINE,1,4)="TERM") S OCXDOC=" Local Term Lookup",OCXCALL=" Internal Call."
I ($E(OCXLINE,1)="R") D
.N OCXR0,OCXR1,OCXR2
.S OCXR0=+$P(OCXLINE,"R",2) Q:'OCXR0
.S OCXR1=+$P(OCXLINE,"R",3) Q:'OCXR1
.S OCXR2=$E(OCXLINE,$L(OCXLINE))
.I (OCXR2="A") S OCXDOC=" Verify all Event/Elements of"
.E I (OCXR2="B") S OCXDOC=" Send Order Check, Notication messages and/or Execute code for"
.E Q
.S OCXDOC=OCXDOC_" Rule #"_(+$P(OCXLINE,"R",2))_" '"_$E($P($G(^OCXS(860.2,+OCXR0,0)),U,1),1,40)
.I ($L($P($G(^OCXS(860.2,+OCXR0,0)),U,1))>40) S OCXDOC=OCXDOC_"..."
.S OCXDOC=OCXDOC_"'"
.S OCXDOC=OCXDOC_" Relation #"_(+$P(OCXLINE,"R",3))_" '"_$E($G(^OCXS(860.2,OCXR0,"R",OCXR1,"E")),1,50)
.I ($L(^OCXS(860.2,OCXR0,"R",OCXR1,"E"))>50) S OCXDOC=OCXDOC_"..."
.S OCXDOC=OCXDOC_"'"
;
S OCXD0=$G(^TMP("OCXCMP",$J,"D CODE","LINE",OCXLINE))
S OCXD1=+$P(OCXD0,",",2),OCXD0=+OCXD0 Q:'OCXD0 Q:'OCXD1
Q:'$D(^TMP("OCXCMP",$J,"D CODE",OCXD0,OCXD1,0))
S ^TMP("OCXCMP",$J,"D CODE",OCXD0,OCXD1,0)=^TMP("OCXCMP",$J,"D CODE",OCXD0,OCXD1,0)_OCXDOC
S ^TMP("OCXCMP",$J,"D CODE",OCXD0,OCXD1+1,0)=^TMP("OCXCMP",$J,"D CODE",OCXD0,OCXD1+1,0)_OCXCALL
Q
;
FILE(TXT) ;
;
N OCXLINE
S OCXLINE=$O(^TMP("OCXCMP",$J,"C CODE",OCXSUB,10999),-1)+1
S ^TMP("OCXCMP",$J,"C CODE",OCXSUB,OCXLINE,0)=TXT
Q
;
DATATYP(OCXDF) ;
;
N OCXCON
S OCXCON=$O(^TMP("OCXCMP",$J,"DATA FIELD",OCXDF,0)) Q:'OCXCON ""
Q $G(^TMP("OCXCMP",$J,"DATA FIELD",OCXDF,OCXCON,"DTYP","DATA TYPE NAME"))
;
OCXOCMPT ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Build Sub-Routine Variable and Function Call Documentation) ;3/22/01 16:55
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
+4 QUIT
DOC(OCXSUB) ;
+1 ;
+2 NEW OCXLINE,OCXLIST,OCXDF,OCXNEW,OCXDELM,OCXPIEC,OCXTXT,OCXREST,OCXPTR,OCXRSUB,OCXD0,OCXOFF,OCXSRTN
+3 ;
+4 IF '$GET(OCXAUTO)
IF ($X>60)
WRITE !
WRITE "."
+5 ;
+6 ;
+7 SET OCXSRTN=$PIECE($GET(^TMP("OCXCMP",$JOB,"C CODE",OCXSUB,10000,0))," ",1)
+8 SET OCXLINE=0
FOR OCXOFF=0:1
SET OCXLINE=$ORDER(^TMP("OCXCMP",$JOB,"C CODE",OCXSUB,OCXLINE))
IF 'OCXLINE
QUIT
Begin DoDot:1
+9 SET OCXTXT=$GET(^TMP("OCXCMP",$JOB,"C CODE",OCXSUB,OCXLINE,0))
IF '$LENGTH(OCXTXT)
QUIT
+10 ;
+11 FOR OCXPIEC=2:1:$LENGTH(OCXTXT,"OCXDF(")
SET OCXDF=+$PIECE(OCXTXT,"OCXDF(",OCXPIEC)
IF OCXDF
SET OCXLIST("V",OCXDF)=0
+12 ;
+13 FOR OCXDELM="S OCXDF(",",OCXDF("
Begin DoDot:2
+14 FOR OCXPIEC=1:1:$LENGTH(OCXTXT,OCXDELM)
IF $PIECE(OCXTXT,OCXDELM,OCXPIEC+1)
Begin DoDot:3
+15 SET OCXREST=$PIECE(OCXTXT,OCXDELM,OCXPIEC+1)
SET OCXDF=+OCXREST
+16 FOR OCXPTR=1:1:$LENGTH(OCXREST)
IF '($EXTRACT(OCXREST,OCXPTR)=+$EXTRACT(OCXREST,OCXPTR))
QUIT
+17 SET OCXLIST("V",OCXDF)=$GET(OCXLIST("V",OCXDF),0)
+18 IF ($EXTRACT(OCXREST,OCXPTR)="=")
SET OCXLIST("V",OCXDF)=1
End DoDot:3
End DoDot:2
+19 ;
+20 FOR OCXPIEC=2:1:$LENGTH(OCXTXT,"$$")
Begin DoDot:2
+21 SET OCXREST=$PIECE(OCXTXT,"$$",OCXPIEC)
+22 SET OCXDF=$PIECE(OCXREST,")",1)
+23 IF (OCXREST[")")
IF ($PIECE(OCXREST,"(",1)[" ")
SET OCXDF=$PIECE(OCXREST," ",1)
+24 IF '(OCXREST[")")
IF (OCXREST[" ")
SET OCXDF=$PIECE(OCXREST," ",1)
+25 ;
+26 IF $LENGTH(OCXDF)
IF ($PIECE(OCXDF,"(",1)="FILE")
SET OCXLIST("F",$PIECE(OCXDF,"(",1)_"("_$PIECE($PIECE(OCXDF,"(",2),",",1,2)_",")=0
QUIT
+27 IF $LENGTH(OCXDF)
SET OCXLIST("F",$PIECE(OCXDF,"(",1)_"(")=0
QUIT
End DoDot:2
End DoDot:1
+28 ;
+29 SET OCXNEW=""
IF $ORDER(OCXLIST("V",0))
Begin DoDot:1
+30 DO FILE(" ;")
+31 DO FILE(" ; Local "_$PIECE($GET(^TMP("OCXCMP",$JOB,"LINE",OCXSUB)),U,1)_" Variables")
+32 SET OCXDF=0
FOR
SET OCXDF=$ORDER(OCXLIST("V",OCXDF))
IF 'OCXDF
QUIT
Begin DoDot:2
+33 NEW OCXTXT
+34 SET OCXTXT=" ; OCXDF("_(OCXDF)_") "_$EXTRACT("----------",$LENGTH(OCXDF)+7,10)
+35 SET OCXTXT=OCXTXT_"-> Data Field: "_$PIECE($GET(^OCXS(860.4,OCXDF,0)),U,1)_" ("_$$DATATYP(OCXDF)_")"
+36 DO FILE(OCXTXT)
End DoDot:2
End DoDot:1
+37 ;
+38 IF $LENGTH($ORDER(OCXLIST("F",0)))
Begin DoDot:1
+39 NEW OCXFCALL,OCXFNAM,OCXF,OCXTXT,OCXELE
+40 DO FILE(" ;")
+41 DO FILE(" ; Local Extrinsic Functions")
+42 SET OCXFCALL=""
FOR
SET OCXFCALL=$ORDER(OCXLIST("F",OCXFCALL))
IF '$LENGTH(OCXFCALL)
QUIT
Begin DoDot:2
+43 SET OCXFNAM=$PIECE(OCXFCALL,"(",1)
IF (OCXFNAM[" ")
SET OCXFNAM=$PIECE(OCXFNAM," ",1)
IF (OCXFNAM[U)
QUIT
+44 SET OCXTXT=" ; "_OCXFCALL
+45 SET OCXF=$ORDER(^OCXS(860.8,"C",OCXFNAM,0))
+46 IF OCXF
SET OCXTXT=OCXTXT_" "_$EXTRACT("---------------",$LENGTH(OCXFCALL),15)_"-> "_$PIECE($GET(^OCXS(860.8,OCXF,0)),U,1)
+47 IF OCXF
IF (OCXFNAM="FILE")
SET OCXELE=$PIECE($GET(^OCXS(860.3,+$PIECE($PIECE(OCXFCALL,"(",2),",",2),0)),U,1)
SET OCXTXT=OCXTXT_" (Event/Element: "_OCXELE_")"
+48 IF 'OCXF
IF ($EXTRACT(OCXFCALL,1,3)="MCE")
Begin DoDot:3
+49 SET OCXTXT=OCXTXT_" "_$EXTRACT("---------------",$LENGTH(OCXFCALL),15)_"-> "
+50 SET OCXTXT=OCXTXT_" Verify Event/Element: '"_$PIECE($GET(^OCXS(860.3,+$PIECE(OCXFCALL,"MCE",2),0)),U,1)_"'"
End DoDot:3
+51 DO FILE(OCXTXT)
End DoDot:2
End DoDot:1
+52 ;
+53 IF $LENGTH(OCXNEW)
DO FILE(" ;")
DO FILE(" N "_OCXNEW)
+54 ;
+55 QUIT
+56 ;
CALL(OCXSUB) ;
+1 ;
+2 NEW OCXD0,OCXD1,OCXFROM,OCXLINE,OCXCALL,OCXDOC,OCXRTN,OCXOFF
+3 ;
+4 IF '$GET(OCXAUTO)
IF ($X>60)
WRITE !
WRITE "."
+5 ;
+6 SET OCXLINE=$GET(^TMP("OCXCMP",$JOB,"LINE",OCXSUB))
+7 SET OCXRTN=$PIECE(OCXLINE,U,2)
SET OCXLINE=$PIECE(OCXLINE,U,1)
IF '$LENGTH(OCXLINE)
QUIT
+8 ;
+9 SET (OCXDOC,OCXCALL)=""
SET (OCXOFF,OCXD0)=0
FOR
SET OCXD0=$ORDER(^TMP("OCXCMP",$JOB,"CALLREF",OCXSUB,OCXD0))
IF 'OCXD0
QUIT
Begin DoDot:1
+10 SET OCXFROM=$GET(^TMP("OCXCMP",$JOB,"LINE",OCXD0))
IF '$LENGTH(OCXFROM)
QUIT
+11 SET OCXD1=$ORDER(^TMP("OCXCMP",$JOB,"CALLREF",OCXSUB,OCXD0,0))
+12 IF OCXD1
FOR OCXOFF=0:1
SET OCXD1=$ORDER(^TMP("OCXCMP",$JOB,"C CODE",OCXD0,OCXD1),-1)
IF 'OCXD1
QUIT
+13 IF OCXOFF
SET $PIECE(OCXFROM,U,1)=$PIECE(OCXFROM,U,1)_"+"_OCXOFF
+14 IF (OCXRTN=$PIECE(OCXFROM,U,2))
SET OCXFROM=$PIECE(OCXFROM,U,1)
+15 IF $LENGTH(OCXCALL)
SET OCXCALL=OCXCALL_", and "
SET OCXCALL=OCXCALL_OCXFROM
End DoDot:1
+16 IF $LENGTH(OCXCALL)
SET OCXCALL=" Called from "_OCXCALL_"."
+17 IF '$TEST
SET OCXCALL=" External Call."
+18 ;
+19 ;
+20 IF (OCXLINE="LOG")
SET OCXDOC=" Returns the number of days to keep the Raw Data Log or 0 if logging is disabled."
+21 IF (OCXLINE="CDATA")
SET OCXDOC=" Returns compiler flags, Execution TRACE ON/OFF, Time Logging ON/OFF, and Raw Data Logging ON/OFF"
+22 IF (OCXLINE="UPDATE")
SET OCXDOC=" Main Entry point for evaluating Rules."
+23 IF (OCXLINE="SCAN")
SET OCXDOC=" Tests all Rules for Event/Elements that were found to be valid in the UPDATE subroutine."
+24 IF ($EXTRACT(OCXLINE,1,5)="SWAPIN")
SET OCXDOC="This subroutine moves an array from ^TMP to a local variable."
+25 IF ($EXTRACT(OCXLINE,1,5)="SWAPOUT")
SET OCXDOC="This subroutine moves an array from a local variable to ^TMP."
+26 IF ($EXTRACT(OCXLINE,1,5)="GETDF")
SET OCXDOC="This subroutine loads the OCXDF data field array from variables in the environment."
+27 IF ($EXTRACT(OCXLINE,1,5)="TRACE")
SET OCXDOC="During program execution trace mode, display all data fields for '"_$PIECE($GET(^OCXS(860.6,+$PIECE(OCXLINE,"TRACE",2),0)),U,1)_"' data source."
+28 IF ($EXTRACT(OCXLINE,1,3)="CHK")
SET OCXDOC=" Look through the current environment for valid Event/Elements for this patient."
+29 IF ($EXTRACT(OCXLINE,1,2)="EL")
SET OCXDOC=" Examine every rule that involves Element #"_(+$PIECE(OCXLINE,"EL",2))_" ["_$PIECE($GET(^OCXS(860.3,+$PIECE(OCXLINE,"EL",2),0)),U,1)_"]"
+30 IF ($EXTRACT(OCXLINE,1,4)="TERM")
SET OCXDOC=" Local Term Lookup"
SET OCXCALL=" Internal Call."
+31 IF ($EXTRACT(OCXLINE,1)="R")
Begin DoDot:1
+32 NEW OCXR0,OCXR1,OCXR2
+33 SET OCXR0=+$PIECE(OCXLINE,"R",2)
IF 'OCXR0
QUIT
+34 SET OCXR1=+$PIECE(OCXLINE,"R",3)
IF 'OCXR1
QUIT
+35 SET OCXR2=$EXTRACT(OCXLINE,$LENGTH(OCXLINE))
+36 IF (OCXR2="A")
SET OCXDOC=" Verify all Event/Elements of"
+37 IF '$TEST
IF (OCXR2="B")
SET OCXDOC=" Send Order Check, Notication messages and/or Execute code for"
+38 IF '$TEST
QUIT
+39 SET OCXDOC=OCXDOC_" Rule #"_(+$PIECE(OCXLINE,"R",2))_" '"_$EXTRACT($PIECE($GET(^OCXS(860.2,+OCXR0,0)),U,1),1,40)
+40 IF ($LENGTH($PIECE($GET(^OCXS(860.2,+OCXR0,0)),U,1))>40)
SET OCXDOC=OCXDOC_"..."
+41 SET OCXDOC=OCXDOC_"'"
+42 SET OCXDOC=OCXDOC_" Relation #"_(+$PIECE(OCXLINE,"R",3))_" '"_$EXTRACT($GET(^OCXS(860.2,OCXR0,"R",OCXR1,"E")),1,50)
+43 IF ($LENGTH(^OCXS(860.2,OCXR0,"R",OCXR1,"E"))>50)
SET OCXDOC=OCXDOC_"..."
+44 SET OCXDOC=OCXDOC_"'"
End DoDot:1
+45 ;
+46 SET OCXD0=$GET(^TMP("OCXCMP",$JOB,"D CODE","LINE",OCXLINE))
+47 SET OCXD1=+$PIECE(OCXD0,",",2)
SET OCXD0=+OCXD0
IF 'OCXD0
QUIT
IF 'OCXD1
QUIT
+48 IF '$DATA(^TMP("OCXCMP",$JOB,"D CODE",OCXD0,OCXD1,0))
QUIT
+49 SET ^TMP("OCXCMP",$JOB,"D CODE",OCXD0,OCXD1,0)=^TMP("OCXCMP",$JOB,"D CODE",OCXD0,OCXD1,0)_OCXDOC
+50 SET ^TMP("OCXCMP",$JOB,"D CODE",OCXD0,OCXD1+1,0)=^TMP("OCXCMP",$JOB,"D CODE",OCXD0,OCXD1+1,0)_OCXCALL
+51 QUIT
+52 ;
FILE(TXT) ;
+1 ;
+2 NEW OCXLINE
+3 SET OCXLINE=$ORDER(^TMP("OCXCMP",$JOB,"C CODE",OCXSUB,10999),-1)+1
+4 SET ^TMP("OCXCMP",$JOB,"C CODE",OCXSUB,OCXLINE,0)=TXT
+5 QUIT
+6 ;
DATATYP(OCXDF) ;
+1 ;
+2 NEW OCXCON
+3 SET OCXCON=$ORDER(^TMP("OCXCMP",$JOB,"DATA FIELD",OCXDF,0))
IF 'OCXCON
QUIT ""
+4 QUIT $GET(^TMP("OCXCMP",$JOB,"DATA FIELD",OCXDF,OCXCON,"DTYP","DATA TYPE NAME"))
+5 ;
