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

OCXOCMPA.m

Go to the documentation of this file.
  1. OCXOCMPA ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Convert Constant Values to internal format) ;10/29/98 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. Q
  1. ;
  1. EXT2INT(OCXDT,OCXVAL) ;
  1. ;
  1. I (OCXDT="DATE/TIME") D
  1. .N X,%DT
  1. .I (OCXVAL="TOMORROW") S OCXVAL="T+1" Q
  1. .I (OCXVAL="YESTERDAY") S OCXVAL="T-1" Q
  1. .I (OCXVAL["TODAY") S OCXVAL=$P(OCXVAL,"TODAY",1)_"T"_$P(OCXVAL,"TODAY",2) Q
  1. .I (OCXVAL["NOW") S OCXVAL=$P(OCXVAL,"NOW",1)_"N"_$P(OCXVAL,"NOW",2) Q
  1. .Q:(OCXVAL="N") Q:(OCXVAL?1"N+".N) Q:(OCXVAL?1"N-".N)
  1. .Q:(OCXVAL="T") Q:(OCXVAL?1"T+".N) Q:(OCXVAL?1"T-".N)
  1. .S X=OCXVAL,%DT="T" D ^%DT S:(Y>0) OCXVAL=+Y
  1. ;
  1. Q $$QT(OCXVAL)
  1. ;
  1. QT(X) ;
  1. I ($E(X,1)="""") Q X
  1. I (+X=X) Q X
  1. S X=""""_X_""""
  1. Q X
  1. ;
  1. INT2DT(OCXDT) ; This Local Extrinsic Function converts an OCX internal format
  1. ; date into an Externl Format (Human Readable) date.
  1. ;
  1. Q:'$L($G(OCXDT)) ""
  1. N OCXYR,OCXLPYR,OCXMON,OCXDAY,OCXHR,OCXMIN,OCXSEC
  1. S (OCXYR,OCXLPYR,OCXMON,OCXDAY,OCXHR,OCXMIN,OCXSEC,OCXAP)=""
  1. S OCXSEC=$E(OCXDT#60+100,2,3),OCXDT=OCXDT\60
  1. S OCXMIN=$E(OCXDT#60+100,2,3),OCXDT=OCXDT\60
  1. S OCXHR=$E(OCXDT#24+100,2,3),OCXDT=OCXDT\24
  1. S OCXYR=(OCXDT\1461)*4+1841,OCXDT=OCXDT#1461
  1. S OCXLPYR=(OCXDT\365),OCXDT=OCXDT-(OCXLPYR*365),OCXYR=OCXYR+OCXLPYR
  1. S OCXCNT="031^059^090^120^151^181^212^243^273^304^334^365"
  1. S:(OCXLPYR=3) OCXCNT="031^060^091^121^152^182^213^244^274^305^335^366"
  1. F OCXMON=1:1:12 Q:(OCXDT<$P(OCXCNT,U,OCXMON))
  1. S OCXDAY=OCXDT-$P(OCXCNT,U,OCXMON-1)+1
  1. S OCXMON=$P("January^February^March^April^May^June^July^August^September^October^November^December",U,OCXMON)
  1. S OCXAP=$S('OCXHR:"Midnight",(OCXHR=12):"Noon",(OCXHR<12):"AM",1:"PM")
  1. S OCXHR=OCXHR#12 S:'OCXHR OCXHR=12
  1. Q:(OCXHR+OCXMIN+OCXSEC) OCXMON_" "_OCXDAY_","_OCXYR_" at "_OCXHR_":"_OCXMIN_"."_OCXSEC_" "_OCXAP
  1. Q OCXMON_" "_OCXDAY_","_OCXYR
  1. ;