- 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 ---[H[J[2J[HIBDF18E3 669 printed Jan 18, 2025@03:52:10 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