- BDMFZIS ; cmi/anch/maw - DEVICE CALLS AND QUEUING ;
- ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006
- ;;ROUTINE USED AS CENTRAL POINT FOR ALL DEVICE HANDLING AND QUEUING
- ZIS ;EP;TO CALL DEVICE
- I $G(BDMBROWS) D Q
- .K BDMPRINT ;cmi/maw kill off so not hanging around
- .S DIR(0)="SO^P:PRINT Output;B:BROWSE Output on Screen"
- .S DIR("A")="Do you want to "
- .S DIR("B")="PRINT"
- .W !
- .D DIR^BDMFDIC
- .Q:$D(BDMQUIT)!$D(BDMOUT)
- .I $E($G(X))="P" S BDMPRINT=1 D ZIS1 Q ;cmi/maw 1/17/2006 to look for print select or not
- .I $E($G(Y))="B" D BROWSE Q
- ZIS1 ;EP;
- K DN
- S %ZIS="AEMNPQ"
- S ZIBH=$TR($H,",","")_$R(1000)
- W !
- D ^%ZIS
- I POP>0 D CLOSE Q
- S:$G(IOPAR)]"" %ZIS("IOPAR")=IOPAR
- S ZTSAVE("%ZIS*")=""
- S ZTSAVE("ZIBH")=""
- S ZTRTN="OPEN^BDMFZIS"
- I $D(IO("Q")),IO=IO(0)!$D(IO("S")) D G ZIS
- .W *7,*7
- .W !!,"CANNOT QUEUE TO HOME OR SLAVE DEVICE."
- I '$D(IO("Q")) D D CLOSE Q
- .I $E(IOST,1,2)="P-" D
- ..W !!,"...One moment please, while I complete your print request..."
- ..W !
- .D:$D(BDMRTN) @ZTRTN
- E D ZTLOAD
- Q
- CLOSE ;EP;TO CLOSE DEVICE
- D ^%ZISC
- K IOP,IOPAR,%ZIS,ZTSK,ZTQUEUED,ZTREQ
- Q
- ZTLOAD ;EP;TO CALL %ZTLOAD
- K BDMDR
- S ZTIO=ION
- S ZTSAVE("BDM*")=""
- D ^%ZTLOAD
- W !!,$S($G(ZTSK)]"":"Request queued!",1:"Request cancelled.")
- D CLOSE
- H 2
- Q
- OPEN ;EP;TO OPEN DEVICE AND PRINT SELECTED REPORT
- I '$D(ZTQUEUED)!(ION["HOST") S IOP=ION D ^%ZIS I POP S BDMQUIT="" Q
- U IO
- D @BDMRTN
- S:$D(ZTQUEUED) ZTREQ="@"
- D:'$D(ZTQUEUED) CLOSE
- Q
- HOST ;EP;TO OPEN HOST FILE
- ;%FN - FILE NAME REQUIRED
- ;BDMOP - 'R' FOR READ, 'W' FOR WRITE REQUIRED, 'M' FOR READ/WRITE
- Q:'$D(%FN)!'$D(BDMOP)
- S POP=1
- F BDMI=51:1:54 Q:'POP D
- .S (IOP,ION)=BDMI
- .S %ZIS("IOPAR")="("""_%FN_""":"""_BDMOP_""")"
- .D ^%ZIS
- I POP D G HOST:$G(BDMX)<2 S BDMQUIT="" Q
- .W !!,"Waiting for HOST FILE SERVER."
- .S BDMX=$G(BDMX)+1
- K IOP,POP
- Q
- BROWSE ;EP;TO BROWSE
- Q:$G(BDMRTN)=""
- S BDMFLD("BROWSE")=1
- D VIEWR^XBLM(BDMRTN)
- I $D(BDMQUIT) D Q
- .K BDMQUIT
- .W !!,"BROWSE function temporarily unavailable."
- .D ZIS1
- D CLEAR^VALM1
- Q
- BDMFZIS ; cmi/anch/maw - DEVICE CALLS AND QUEUING ;
- +1 ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006
- +2 ;;ROUTINE USED AS CENTRAL POINT FOR ALL DEVICE HANDLING AND QUEUING
- ZIS ;EP;TO CALL DEVICE
- +1 IF $GET(BDMBROWS)
- Begin DoDot:1
- +2 ;cmi/maw kill off so not hanging around
- KILL BDMPRINT
- +3 SET DIR(0)="SO^P:PRINT Output;B:BROWSE Output on Screen"
- +4 SET DIR("A")="Do you want to "
- +5 SET DIR("B")="PRINT"
- +6 WRITE !
- +7 DO DIR^BDMFDIC
- +8 IF $DATA(BDMQUIT)!$DATA(BDMOUT)
- QUIT
- +9 ;cmi/maw 1/17/2006 to look for print select or not
- IF $EXTRACT($GET(X))="P"
- SET BDMPRINT=1
- DO ZIS1
- QUIT
- +10 IF $EXTRACT($GET(Y))="B"
- DO BROWSE
- QUIT
- End DoDot:1
- QUIT
- ZIS1 ;EP;
- +1 KILL DN
- +2 SET %ZIS="AEMNPQ"
- +3 SET ZIBH=$TRANSLATE($HOROLOG,",","")_$RANDOM(1000)
- +4 WRITE !
- +5 DO ^%ZIS
- +6 IF POP>0
- DO CLOSE
- QUIT
- +7 IF $GET(IOPAR)]""
- SET %ZIS("IOPAR")=IOPAR
- +8 SET ZTSAVE("%ZIS*")=""
- +9 SET ZTSAVE("ZIBH")=""
- +10 SET ZTRTN="OPEN^BDMFZIS"
- +11 IF $DATA(IO("Q"))
- IF IO=IO(0)!$DATA(IO("S"))
- Begin DoDot:1
- +12 WRITE *7,*7
- +13 WRITE !!,"CANNOT QUEUE TO HOME OR SLAVE DEVICE."
- End DoDot:1
- GOTO ZIS
- +14 IF '$DATA(IO("Q"))
- Begin DoDot:1
- +15 IF $EXTRACT(IOST,1,2)="P-"
- Begin DoDot:2
- +16 WRITE !!,"...One moment please, while I complete your print request..."
- +17 WRITE !
- End DoDot:2
- +18 IF $DATA(BDMRTN)
- DO @ZTRTN
- End DoDot:1
- DO CLOSE
- QUIT
- +19 IF '$TEST
- DO ZTLOAD
- +20 QUIT
- CLOSE ;EP;TO CLOSE DEVICE
- +1 DO ^%ZISC
- +2 KILL IOP,IOPAR,%ZIS,ZTSK,ZTQUEUED,ZTREQ
- +3 QUIT
- ZTLOAD ;EP;TO CALL %ZTLOAD
- +1 KILL BDMDR
- +2 SET ZTIO=ION
- +3 SET ZTSAVE("BDM*")=""
- +4 DO ^%ZTLOAD
- +5 WRITE !!,$SELECT($GET(ZTSK)]"":"Request queued!",1:"Request cancelled.")
- +6 DO CLOSE
- +7 HANG 2
- +8 QUIT
- OPEN ;EP;TO OPEN DEVICE AND PRINT SELECTED REPORT
- +1 IF '$DATA(ZTQUEUED)!(ION["HOST")
- SET IOP=ION
- DO ^%ZIS
- IF POP
- SET BDMQUIT=""
- QUIT
- +2 USE IO
- +3 DO @BDMRTN
- +4 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +5 IF '$DATA(ZTQUEUED)
- DO CLOSE
- +6 QUIT
- HOST ;EP;TO OPEN HOST FILE
- +1 ;%FN - FILE NAME REQUIRED
- +2 ;BDMOP - 'R' FOR READ, 'W' FOR WRITE REQUIRED, 'M' FOR READ/WRITE
- +3 IF '$DATA(%FN)!'$DATA(BDMOP)
- QUIT
- +4 SET POP=1
- +5 FOR BDMI=51:1:54
- IF 'POP
- QUIT
- Begin DoDot:1
- +6 SET (IOP,ION)=BDMI
- +7 SET %ZIS("IOPAR")="("""_%FN_""":"""_BDMOP_""")"
- +8 DO ^%ZIS
- End DoDot:1
- +9 IF POP
- Begin DoDot:1
- +10 WRITE !!,"Waiting for HOST FILE SERVER."
- +11 SET BDMX=$GET(BDMX)+1
- End DoDot:1
- IF $GET(BDMX)<2
- GOTO HOST
- SET BDMQUIT=""
- QUIT
- +12 KILL IOP,POP
- +13 QUIT
- BROWSE ;EP;TO BROWSE
- +1 IF $GET(BDMRTN)=""
- QUIT
- +2 SET BDMFLD("BROWSE")=1
- +3 DO VIEWR^XBLM(BDMRTN)
- +4 IF $DATA(BDMQUIT)
- Begin DoDot:1
- +5 KILL BDMQUIT
- +6 WRITE !!,"BROWSE function temporarily unavailable."
- +7 DO ZIS1
- End DoDot:1
- QUIT
- +8 DO CLEAR^VALM1
- +9 QUIT
