source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOSCR3.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 588 bytes
Line 
1OCXOSCR3 ;SLC/RJS,CLA - message xref for the Order Check Patient Rule Event File;1/05/04 14:56
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 Q
6 ;
7SET(OCXX,OCXD0,OCXD1) ;
8 ;
9 N OCXM,OCXC,OCXP,OCXA,OCXO
10 ;
11 S OCXC=0
12 S OCXO=+$P($G(^OCXD(860.7,OCXD0,1,OCXD1,0)),U,3)
13 S OCXM=$G(^OCXD(860.7,OCXD0,1,OCXD1,"M")) Q:'$L(OCXM)
14 ;
15 F OCXP=1:1:$L(OCXM) D
16 .S OCXA=$A(OCXM,OCXP)-30 Q:(OCXA<1)
17 .S OCXC=OCXC+OCXA,OCXC=OCXC+(OCXP-1*100)
18 ;
19 S ^OCXD(860.7,"AT",OCXX,OCXD0,OCXD1,OCXO,OCXC)=($H*86400)+$P($H,",",2)
20 ;
21 Q
22 ;
Note: See TracBrowser for help on using the repository browser.