- AMQQRMH ; IHS/CMI/THL - HEALTH SUMMARY GENERATOR ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;-----
- HSUM ; - EP - FROM ^AMQQCMPL
- W !
- S DIC="^APCHSCTL("
- S DIC(0)="AEQ"
- S DIC("A")="HEALTH SUMMARY TYPE: "
- S DIC("B")="ADULT REGULAR"
- D ^DIC
- K DIC
- I Y=-1 S AMQQQUIT="",AMQQOPT("SPEC")="" Q
- S APCHSTYP=+Y
- D DEV
- I $D(AMQQQUIT) Q
- S AMQQRMFL="OUTPUT^AMQQRMH"
- I $D(IO("Q")) D HSUMTASK D ^%ZISC W @IOF Q
- U IO D HSUMRUN D ^%ZISC
- EXIT K %,I
- Q
- ;
- DEV W !!!
- S %ZIS="Q"
- D ^%ZIS
- I POP K DUOUT,DTOUT,POP S AMQQQUIT=""
- D PRINT^AMQQSEC E W " <= Not a secure device!!",*7 G DEV
- I $D(IO("Q")),IO=IO(0) W !!,"You can not queue a job to a slave printer..Try again",!!,*7 G DEV
- Q
- ;
- HSUMRUN W @IOF
- X AMQV(0)
- I IOST["P-" W @IOF
- I $D(ZTQUEUED) D EXIT2^AMQQKILL S ZTREQ="@"
- K AMQQRMFL,APCHSTYP,APCHSPAT
- Q
- ;
- HSUMTASK S ZTRTN="HSUMRUN^AMQQRMH"
- S ZTIO=ION
- S ZTDTH="NOW"
- F I=1:1 S %=$P("AMQQRMFL;APCHSTYP;AMQV(;AMQQ200(;AMQQRV;AMQQNV;AMQQXV;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)=""
- S ZTDESC="Q-MAN HEALTH SUMMARY GENERATOR"
- D ^%ZTLOAD
- D ^%ZISC
- W !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
- H 3
- Q
- ;
- OUTPUT ; ENTRY POINT
- I $D(AMQP(0)),$D(APCHSTYP) S X="",APCHSPAT=AMQP(0) D EN^APCHS
- I $G(X)=U S AMQQQUIT="" F %=AMQQOV,.1,1,2,3,5,10 S AMQP(%)=99999999999
- Q
- ;
- AMQQRMH ; IHS/CMI/THL - HEALTH SUMMARY GENERATOR ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;-----
- HSUM ; - EP - FROM ^AMQQCMPL
- +1 WRITE !
- +2 SET DIC="^APCHSCTL("
- +3 SET DIC(0)="AEQ"
- +4 SET DIC("A")="HEALTH SUMMARY TYPE: "
- +5 SET DIC("B")="ADULT REGULAR"
- +6 DO ^DIC
- +7 KILL DIC
- +8 IF Y=-1
- SET AMQQQUIT=""
- SET AMQQOPT("SPEC")=""
- QUIT
- +9 SET APCHSTYP=+Y
- +10 DO DEV
- +11 IF $DATA(AMQQQUIT)
- QUIT
- +12 SET AMQQRMFL="OUTPUT^AMQQRMH"
- +13 IF $DATA(IO("Q"))
- DO HSUMTASK
- DO ^%ZISC
- WRITE @IOF
- QUIT
- +14 USE IO
- DO HSUMRUN
- DO ^%ZISC
- EXIT KILL %,I
- +1 QUIT
- +2 ;
- DEV WRITE !!!
- +1 SET %ZIS="Q"
- +2 DO ^%ZIS
- +3 IF POP
- KILL DUOUT,DTOUT,POP
- SET AMQQQUIT=""
- +4 DO PRINT^AMQQSEC
- IF '$TEST
- WRITE " <= Not a secure device!!",*7
- GOTO DEV
- +5 IF $DATA(IO("Q"))
- IF IO=IO(0)
- WRITE !!,"You can not queue a job to a slave printer..Try again",!!,*7
- GOTO DEV
- +6 QUIT
- +7 ;
- HSUMRUN WRITE @IOF
- +1 XECUTE AMQV(0)
- +2 IF IOST["P-"
- WRITE @IOF
- +3 IF $DATA(ZTQUEUED)
- DO EXIT2^AMQQKILL
- SET ZTREQ="@"
- +4 KILL AMQQRMFL,APCHSTYP,APCHSPAT
- +5 QUIT
- +6 ;
- HSUMTASK SET ZTRTN="HSUMRUN^AMQQRMH"
- +1 SET ZTIO=ION
- +2 SET ZTDTH="NOW"
- +3 FOR I=1:1
- SET %=$PIECE("AMQQRMFL;APCHSTYP;AMQV(;AMQQ200(;AMQQRV;AMQQNV;AMQQXV;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I)
- IF %=""
- QUIT
- SET ZTSAVE(%)=""
- +4 SET ZTDESC="Q-MAN HEALTH SUMMARY GENERATOR"
- +5 DO ^%ZTLOAD
- +6 DO ^%ZISC
- +7 WRITE !!,$SELECT($DATA(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
- +8 HANG 3
- +9 QUIT
- +10 ;
- OUTPUT ; ENTRY POINT
- +1 IF $DATA(AMQP(0))
- IF $DATA(APCHSTYP)
- SET X=""
- SET APCHSPAT=AMQP(0)
- DO EN^APCHS
- +2 IF $GET(X)=U
- SET AMQQQUIT=""
- FOR %=AMQQOV,.1,1,2,3,5,10
- SET AMQP(%)=99999999999
- +3 QUIT
- +4 ;
