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

OCXSEND.m

Go to the documentation of this file.
  1. OCXSEND ;SLC/RJS,CLA - BUILD RULE TRANSPORTER ROUTINES ;2/22/08 12:30
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,74,96,105,243**;Dec 17,1997;Build 242
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. S ;
  1. N X,IOP,TOTL S TOTL=0
  1. N CVER,RCNT,RSIZE,LASTFILE,HEADER1,HEADER2,HEADER3,HEADER4,HEADER5
  1. N OCXASK,OCXID,OCXLIN2,OCXLIN3,OCXPATCH,OCXSCR,PARM,PARMV,DIE,DIERR,DIQ2,FCPARM,TEXT
  1. I '$D(IOM) S IOP=0 D ^%ZIS K IOP
  1. K ^TMP("OCXSEND",$J),^UTILITY($J),OCXPATH
  1. K ^UTILITY($J),OCXPATH
  1. S ^TMP("OCXSEND",$J)=($P($H,",",2)+($H*86400)+(4*60*60))_" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG"
  1. S OCXLIN2=$T(+2)
  1. S OCXLIN3=$T(+3)
  1. ;
  1. D ^OCXSEND1 ; Get List of Objects to Transport
  1. ;
  1. I '$O(^TMP("OCXSEND",$J,"LIST",0)) K ^TMP("OCXSEND",$J) Q ; Nothing selected so Quit
  1. ;
  1. S OCXASK="" F D Q:$L(OCXASK)
  1. .W !
  1. .W !,"When the transport routine encounters locally"
  1. .W !,"altered rule data at a site, do you want to:"
  1. .;
  1. .S OCXASK=$$READ("S^O:Overwrite local data;D:Display locally altered data only;A:Ask the site what to do","(O)verwrite, (D)isplay, or (A)sk the site ? ","Ask")
  1. ;
  1. Q:(OCXASK[U)
  1. I (OCXASK="O") W !!,"Locally altered data will be overwritten without asking.",!!
  1. I (OCXASK="D") W !!,"Locally altered data will be displayed only.",!!
  1. I (OCXASK="A") W !!,"Sites will be asked before locally altered data is overwritten.",!!
  1. ;
  1. S OCXPATCH="" F D Q:$L(OCXPATCH)
  1. .W !!,"Enter Patch ID (ex. OR*3*96): " R OCXPATCH:DTIME E S OCXPATCH="^" Q
  1. .Q:(OCXPATCH="^")
  1. .I '$L(OCXPATCH) S OCXPATCH="^^" Q
  1. .I $L(OCXPATCH),'(OCXPATCH?1"OR*"1N1"*"1.4N) D S OCXPATCH="" Q
  1. ..W !!
  1. ..W:'(OCXPATCH["?") "Invalid"
  1. ..W " Format -> OR*v*ppp"
  1. ..W !," v = Package Version."
  1. ..W !," ppp = Patch Number."
  1. ..W !
  1. Q:(OCXPATCH="^")
  1. S:(OCXPATCH="^^") OCXPATCH=""
  1. I $P(OCXPATCH,"*",3) S $P(OCXLIN2,";",5)="**"_$P(OCXPATCH,"*",3)_"**"
  1. I $L(OCXPATCH) S OCXPATCH="(Delete after Install of "_OCXPATCH_")"
  1. ;
  1. Q:'$$RSDEL
  1. ;
  1. D ^OCXSEND2 ; Get File Data
  1. ;
  1. S TOTL=$$EN^OCXSEND3 ; File Routines
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSENDA ; File Main Runtime Library Routine
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSEND4 ; File Utility Runtime Library Routine 0
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSEND5 ; File Utility Runtime Library Routine 1
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSEND6 ; File Utility Runtime Library Routine 2
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSEND7 ; File Utility Runtime Library Routine 3
  1. ;
  1. S TOTL=TOTL+$$EN^OCXSEND8 ; File Utility Runtime Library Routine 4
  1. ;
  1. EXIT K ^TMP("OCXSEND",$J),^UTILITY($J)
  1. ;
  1. W !!,"Routines filed.",!!
  1. ;
  1. Q
  1. ;
  1. READ(OCX0,OCXA,OCXB,OCXL) ;
  1. N X,DIR,DTOUT,DUOUT,DIRUT,DIROUT
  1. Q:'$L($G(OCX0)) U
  1. S DIR(0)=OCX0
  1. S:$L($G(OCXA)) DIR("A")=OCXA
  1. S:$L($G(OCXB)) DIR("B")=OCXB
  1. F X=1:1:($G(OCXL)-1) W !
  1. D ^DIR
  1. I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
  1. Q Y
  1. ;
  1. CUCI() Q:'$D(^%ZOSF("UCI")) "" N Y X ^%ZOSF("UCI") Q Y
  1. ;
  1. NETNAME() ;
  1. N NETNAME
  1. S NETNAME=$P($$NETNAME^XMXUTIL(DUZ),"@",2)
  1. I $L(NETNAME) Q NETNAME
  1. ; Q:$L($G(^XMB("NETNAME"))) ^XMB("NETNAME")
  1. ; Q:$L($G(^XMB("NAME"))) ^XMB("NAME")
  1. Q $$CUCI
  1. ;
  1. RSDEL() ;
  1. ;
  1. W !!,"Scanning for old rule transport routines..."
  1. N X,CNT,RCNT,RLIST,RNAME
  1. S RCNT=0
  1. ;
  1. ; Scan for Routines To Delete
  1. ;
  1. ; Main Routine
  1. S RNAME=$$RNAME^OCXSEND3(0,0) I $$RFIND(RNAME,100) S RLIST(RNAME)=""
  1. ;
  1. ; Runtime Library routines
  1. F CNT=0:1:35 S RNAME=$$RNAME^OCXSEND3(CNT,1) I $$RFIND(RNAME,CNT) S RLIST(RNAME)=""
  1. ;
  1. ; Data Routines
  1. F CNT=0:1:46655 S RNAME=$$RNAME^OCXSEND3(CNT,2) I $$RFIND(RNAME,CNT) S RLIST(RNAME)=""
  1. ;
  1. I '$L($O(RLIST(""))) W !,"No old rule transport routines found..." H 2 Q 1
  1. ;
  1. W !!,"These routines will be deleted and overwritten."
  1. Q:'$$READ("Y"," Do you want to proceed?","NO") 0
  1. ;
  1. ; Delete The routines
  1. ;
  1. I '$D(^%ZOSF("DEL")) W !!,"Old rule transport routines not deleted (^%ZOSF(""DEL"") undefined)" Q 0
  1. ;
  1. S RNAME="" F RCNT=1:1 S RNAME=$O(RLIST(RNAME)) Q:'$L(RNAME) D
  1. .W !,RNAME
  1. .I $$RDEL(RNAME) W " Deleted..." Q
  1. .W " Not Deleted..."
  1. ;
  1. W !!,RCNT," routine",$S((RCNT=1):"",1:"s")," deleted."
  1. ;
  1. H 2 Q 1
  1. ;
  1. RFIND(X,C) ;
  1. W:($X>70) ! W:'(C#100) "."
  1. Q:'$L(X) 0 X "S TEXT=$T(+1^"_X_")" Q:'$L(TEXT) 0
  1. W !,X Q 1
  1. Q
  1. ;
  1. RDEL(X) ;
  1. ;
  1. Q:'$L(X) 0 X "S TEXT=$T(+1^"_X_")" Q:'$L(TEXT) 0
  1. X ^%ZOSF("DEL") Q 1
  1. ;