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

OCXGENE.m

Go to the documentation of this file.
  1. OCXGENE ;SLC/RJS,CLA - External Interface - PROCESS GENERIC RESULT REQUESTS;3/1/99 12:37
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ;
  1. Q
  1. EN(OUTMSG,OCXDFN,OCXGND,OCXGNM) ;
  1. ;
  1. N OCXRDT,OCXOZZT
  1. S OCXRDT=($H*86400+$P($H,",",2))
  1. S:'$D(OUTMSG) OUTMSG=""
  1. D CHECK(OCXGND,OCXGNM,OCXDFN,.OUTMSG)
  1. Q
  1. VERBOSE(OCXGND,OCXGNM,OCXDFN) ;
  1. ;
  1. N OCXX,OUTMSG,OCXOZZT
  1. S OCXRDT=($H*86400+$P($H,",",2))
  1. S OUTMSG=""
  1. D CHECK(OCXGND,OCXGNM,OCXDFN,.OUTMSG)
  1. W:$O(OUTMSG(0)) !,"Generic Query Results: ",$C(7)
  1. S OCXX=0 F S OCXX=$O(OUTMSG(OCXX)) Q:'OCXX W !,OUTMSG(OCXX)
  1. W:$O(OUTMSG(0)) !,$C(7)
  1. Q
  1. ;
  1. CHECK(OCXGND,OCXGNM,OCXDFN,OUTMSG) ;
  1. ;
  1. ;
  1. I $$RTEST D Q
  1. .N OMSG,OTMOUT,OCXM
  1. .S OMSG="^25^^Order Checking is recompiling and momentarily disabled"
  1. .S OCXM=0 F S OCXM=$O(OUTMSG(OCXM)) Q:'OCXM Q:(OUTMSG(OCXM)[OMSG)
  1. .Q:OCXM
  1. .S OUTMSG($O(OUTMSG(""),-1)+1)=OMSG
  1. ;
  1. ;
  1. N OCXSUB,OCXTEST,OCXDATA,OCXEL,OCXSEG0,DFN,%DT,X,Y
  1. N OCXOLOG,OCXORDT,OCXOSRC
  1. ;
  1. S DFN=+OCXDFN
  1. S X="N",%DT="T" D ^%DT S OCXORDT=+Y
  1. Q:'DFN
  1. ;
  1. S (OCXTEST,OCXDATA)=""
  1. S OCXOSRC="GENERIC QUERY"
  1. ;
  1. S OCXOLOG=$$LOG(OCXGND,OCXGNM)
  1. ;
  1. D UPDATE^OCXOZ01(DFN,OCXOSRC,.OUTMSG)
  1. ;
  1. D FINISH^OCXOLOG(OCXOLOG)
  1. ;
  1. Q
  1. ;
  1. ;
  1. RTEST() ;
  1. N DATE,TMOUT
  1. Q:'$L($T(^OCXOZ01)) 1
  1. I '($P($G(^OCXD(861,1,0)),U,1)="SITE PREFERENCES") K ^OCXD(861,1) S ^OCXD(861,1,0)="SITE PREFERENCES"
  1. S DATE=$P($G(^OCXD(861,1,0)),U,3)
  1. I DATE,((+DATE)=(+$H)),(((+$P($H,",",2))-(+$P(DATE,",",2)))<1800) Q 1
  1. Q 0
  1. ;
  1. LOG(OCXGND,OCXGNM) ;
  1. ;
  1. ; Log Messages
  1. ;
  1. I $G(OCXTRACE),$$CDATA^OCXOZ01 Q 0
  1. Q:'$L($T(LOG^OCXOZ01)) 0 Q:'$$LOG^OCXOZ01 0
  1. N OCXNL
  1. S OCXARY="OCXNL"
  1. S OCXNL(1)="OCXGND="_OCXGND
  1. S OCXNL(2)="OCXGNM="_OCXGNM
  1. Q $$NEW^OCXOLOG(OCXARY,"QUERY",+$G(DUZ),+OCXDFN)
  1. ;
  1. ERROR Q
  1. ;
  1. ;
  1. ; **** Old Labels to insure backwards compatibility ****
  1. ;
  1. PROC(OCXORD) ;
  1. D VERBOSE(OCXORD) Q
  1. ;