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

IBDF18E3.m

Go to the documentation of this file.
  1. IBDF18E3 ;ALB/AAS - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. ;
  1. QUE ; -- always task off from scanner
  1. S IBD("AICS")=1 ;flag for IBDF PCE EVENT protocol
  1. D VALIDATE^PXCA(.PXCA,.PXCAVSIT)
  1. I $D(PXCA("ERROR")) S PXCASTAT=0 Q
  1. I '$D(PXCA("ERROR")) S PXCASTAT=1
  1. ;
  1. S ZTDTH=$H,ZTRTN="DQ^IBDF18E3"
  1. S ZTSAVE("PXCA(")="",ZTSAVE("PX*")="",ZTSAVE("IBD(""AICS"")")=""
  1. S ZTDESC="IBD - Pass scanning data to PCE"
  1. S ZTIO="IBD RESOURCE"
  1. D ^%ZTLOAD
  1. ;
  1. K IBD("AICS")
  1. Q
  1. ;
  1. DQ ; -- entry point from taskman
  1. D FOREGND^PXCA(.PXCA,.PXCASTAT)
  1. S ZTREQ="@"
  1. K PXCA,PXCASTAT,IBD,IBDSEL,IBDF
  1. Q