Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OCXOED16

OCXOED16.m

Go to the documentation of this file.
  1. OCXOED16 ;SLC/RJS,CLA - Rule Editor (Expert System Editor Options) ;6/19/01 16:35
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ;
  1. S ;
  1. ;
  1. Q
  1. EN(OCXACT) ;
  1. ;
  1. ;
  1. N OCXTHLN,OCXTNLN,OCXTRLN,OCXTULN,OCXTNLN
  1. ;
  1. S OCXOPT=$$GETOPT^OCXOEDT(.OCXACT) Q:(OCXOPT=U) 1 X:$L(OCXOPT) OCXOPT
  1. ;
  1. Q 0
  1. ;
  1. EDRULE ;
  1. ;
  1. N OCXY F W !! S OCXY=+$$DIC("^OCXS(860.2,","AEMQNL","Select Rule: ") Q:'OCXY D EN^OCXOED01(OCXY)
  1. ;
  1. Q
  1. ;
  1. EDELEM ;
  1. ;
  1. N OCXY F W !! S OCXY=+$$DIC("^OCXS(860.3,","AEMQNL","Select Element: ") Q:'OCXY D EN^OCXOED07(OCXY)
  1. ;
  1. Q
  1. ;
  1. EDDF ;
  1. ;
  1. N OCXY F W !! S OCXY=+$$DIC("^OCXS(860.4,","AEMQNL","Select Data Field: ") Q:'OCXY D EN^OCXOED11(OCXY)
  1. ;
  1. Q
  1. ;
  1. EDMDD ;
  1. ;
  1. N OCXY F W !! S OCXY=$$DIC("^OCXS(863.3,","AEMQNL","Select Link: ") Q:'OCXY D EN^OCXOED13($P(OCXY,U,2))
  1. ;
  1. Q
  1. ;
  1. COMP D ^OCXOCMP Q
  1. ;
  1. SCANDF D SELECT^OCXOSCR1 Q
  1. ;
  1. SCANEL D SELECT^OCXOSCR2 Q
  1. ;
  1. EDPARAM(OCXD0,PARNAM) ;
  1. ;
  1. N NEWVAL
  1. W !!
  1. W " ",$$FIELD("Link Parameter -> "_PARNAM_": ")
  1. W:$L($$GLPVAL(OCXD0,PARNAM)) $$GLPVAL(OCXD0,PARNAM)_" // "
  1. R NEWVAL:30 E Q
  1. I (NEWVAL="@") W ! Q:'$$READ("Y","Are you sure you want to delete this value ?","YES")
  1. D SLPVAL(OCXD0,PARNAM,NEWVAL)
  1. Q
  1. ;
  1. GLPVAL(OCXD0,PNAME) ;
  1. N X S X="" F S X=$O(OCXRD("LINK",OCXD0,"PAR",X)) Q:'X I ($G(OCXRD("LINK",OCXD0,"PAR",X,.01,"E"))=PNAME) Q
  1. Q:'X "" Q $G(OCXRD("LINK",OCXD0,"PAR",X,1,"E"))
  1. ;
  1. SLPVAL(OCXD0,PNAME,PVAL) ;
  1. N DA,OCXY,OCXZ
  1. S DA(1)=OCXD0,OCXY=+$$DIC("^OCXS(863.3,"_OCXD0_",""PAR"",","ML","",PNAME,"","",.DA) Q:(OCXY<1)
  1. S DA(1)=OCXD0,DA=+OCXY,OCXZ=$$DIE("^OCXS(863.3,"_OCXD0_",""PAR"",",.DA,1,PVAL)
  1. Q
  1. ;
  1. FIELD(OCXHDR) ;
  1. ;
  1. Q OCXTHLN_$G(OCXHDR)_OCXTNLN
  1. ;
  1. DATA(OCXVAL,OCXLEN) ;
  1. ;
  1. N SPACES S SPACES="",$P(SPACES," ",OCXLEN+5)=" ",OCXVAL=$G(OCXVAL)
  1. I ($L(OCXVAL)>OCXLEN) Q $E(OCXVAL,1,OCXLEN-3)_"..."
  1. Q $E((OCXVAL_SPACES),1,OCXLEN)
  1. ;
  1. READ(OCXZ0,OCXZA,OCXZB,OCXZL) ;
  1. N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
  1. Q:'$L($G(OCXZ0)) U
  1. S DIR(0)=OCXZ0
  1. S:$L($G(OCXZA)) DIR("A")=OCXZA
  1. S:$L($G(OCXZB)) DIR("B")=OCXZB
  1. F OCXLINE=1:1:($G(OCXZL)-1) W !
  1. D ^DIR
  1. I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
  1. Q Y
  1. ;
  1. DIE(DIE,DA,OCXFLD,OCXVAL) ;
  1. ;
  1. N DUOUT,DTOUT,DIC
  1. S DR=OCXFLD_"///^S X=OCXVAL"
  1. S DIC=DIE D RM(IOM) D ^DIE D RM(0) Q:$G(DTOUT) 0 Q:$G(DUOUT) 0 Q 1
  1. ;
  1. RM(X) X ^%ZOSF("RM") Q
  1. ;
  1. DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXDR,DA) ;
  1. ;
  1. N DIC,X,Y
  1. S DIC=$G(OCXDIC) Q:'$L(DIC) -1
  1. S DIC(0)=$G(OCXDIC0) S:$L($G(OCXX)) X=OCXX
  1. S:$L($G(OCXDICS)) DIC("S")=OCXDICS
  1. S:$L($G(OCXDICA)) DIC("A")=OCXDICA
  1. S:$L($G(OCXDR)) DIC("DR")=OCXDR
  1. D ^DIC Q:(Y<1) 0 Q Y
  1. ;