|
Last change
on this file since 1724 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
588 bytes
|
| Line | |
|---|
| 1 | OCXOSCR3 ;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 | ;
|
|---|
| 7 | SET(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.
