IBDF18E3.m

IBDF18E3 ;ALB/AAS - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

QUE ; -- always task off from scanner

 S IBD("AICS")=1 ;flag for IBDF PCE EVENT protocol

 D VALIDATE^PXCA(.PXCA,.PXCAVSIT)

 I $D(PXCA("ERROR")) S PXCASTAT=0 Q

 I '$D(PXCA("ERROR")) S PXCASTAT=1

 ;

 S ZTDTH=$H,ZTRTN="DQ^IBDF18E3"

 S ZTSAVE("PXCA(")="",ZTSAVE("PX*")="",ZTSAVE("IBD(""AICS"")")=""

 S ZTDESC="IBD - Pass scanning data to PCE"

 S ZTIO="IBD RESOURCE"

 D ^%ZTLOAD

 ;

 K IBD("AICS")

 Q

 ;

DQ ; -- entry point from taskman

 D FOREGND^PXCA(.PXCA,.PXCASTAT)

 S ZTREQ="@"

 K PXCA,PXCASTAT,IBD,IBDSEL,IBDF

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDF18E3   669     printed  Apr 09, 2024@21:58:49                                                                                                                                                                                                     Page 2

IBDF18E3  ;ALB/AAS - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

QUE       ; -- always task off from scanner

 +1       ;flag for IBDF PCE EVENT protocol

           SET IBD("AICS")=1

 +2        DO VALIDATE^PXCA(.PXCA,.PXCAVSIT)

 +3        IF $DATA(PXCA("ERROR"))

               SET PXCASTAT=0

               QUIT 

 +4        IF '$DATA(PXCA("ERROR"))

               SET PXCASTAT=1

 +5       ;

 +6        SET ZTDTH=$HOROLOG

           SET ZTRTN="DQ^IBDF18E3"

 +7        SET ZTSAVE("PXCA(")=""

           SET ZTSAVE("PX*")=""

           SET ZTSAVE("IBD(""AICS"")")=""

 +8        SET ZTDESC="IBD - Pass scanning data to PCE"

 +9        SET ZTIO="IBD RESOURCE"

 +10       DO ^%ZTLOAD

 +11      ;

 +12       KILL IBD("AICS")

 +13       QUIT 

 +14      ;

DQ        ; -- entry point from taskman

 +1        DO FOREGND^PXCA(.PXCA,.PXCASTAT)

 +2        SET ZTREQ="@"

 +3        KILL PXCA,PXCASTAT,IBD,IBDSEL,IBDF

 +4        QUIT