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