source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF18E3.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 646 bytes
Line 
1IBDF18E3 ;ALB/AAS - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4QUE ; -- always task off from scanner
5 S IBD("AICS")=1 ;flag for IBDF PCE EVENT protocol
6 D VALIDATE^PXCA(.PXCA,.PXCAVSIT)
7 I $D(PXCA("ERROR")) S PXCASTAT=0 Q
8 I '$D(PXCA("ERROR")) S PXCASTAT=1
9 ;
10 S ZTDTH=$H,ZTRTN="DQ^IBDF18E3"
11 S ZTSAVE("PXCA(")="",ZTSAVE("PX*")="",ZTSAVE("IBD(""AICS"")")=""
12 S ZTDESC="IBD - Pass scanning data to PCE"
13 S ZTIO="IBD RESOURCE"
14 D ^%ZTLOAD
15 ;
16 K IBD("AICS")
17 Q
18 ;
19DQ ; -- entry point from taskman
20 D FOREGND^PXCA(.PXCA,.PXCASTAT)
21 S ZTREQ="@"
22 K PXCA,PXCASTAT,IBD,IBDSEL,IBDF
23 Q
Note: See TracBrowser for help on using the repository browser.