- ACHSEOB0 ; IHS/ITSC/PMF - CONTINUATION OF ACHSEOB ; [ 10/16/2001 8:16 AM ]
- ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- ;
- REPORT ;EP
- S ACHSERPT=$$DIR^XBDIR("S^N:NO REPORT;S:SUMMARY REPORT - Total # of EOBR's by Facility;D:DETAILED REPORT - Listing of each EOBR plus Summary Report","Enter Type Of Report To Print","SUMMARY")
- Q:$D(DUOUT)!$D(DTOUT)!(ACHSERPT="N")
- W !!
- K %ZIS
- S %ZIS="OP",%ZIS("A")="Enter Printer For Report:"
- D ^%ZIS
- K %ZIS
- S:$D(IO("Q")) ACHSIO("Q")=IO("Q")
- I POP D HOME^%ZIS G ENDX^ACHSEOB
- S ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL
- D HOME^%ZIS
- U IO
- Q
- ;
- ACHSEOB0 ; IHS/ITSC/PMF - CONTINUATION OF ACHSEOB ; [ 10/16/2001 8:16 AM ]
- +1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- +2 ;
- REPORT ;EP
- +1 SET ACHSERPT=$$DIR^XBDIR("S^N:NO REPORT;S:SUMMARY REPORT - Total # of EOBR's by Facility;D:DETAILED REPORT - Listing of each EOBR plus Summary Report","Enter Type Of Report To Print","SUMMARY")
- +2 IF $DATA(DUOUT)!$DATA(DTOUT)!(ACHSERPT="N")
- QUIT
- +3 WRITE !!
- +4 KILL %ZIS
- +5 SET %ZIS="OP"
- SET %ZIS("A")="Enter Printer For Report:"
- +6 DO ^%ZIS
- +7 KILL %ZIS
- +8 IF $DATA(IO("Q"))
- SET ACHSIO("Q")=IO("Q")
- +9 IF POP
- DO HOME^%ZIS
- GOTO ENDX^ACHSEOB
- +10 SET ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL
- +11 DO HOME^%ZIS
- +12 USE IO
- +13 QUIT
- +14 ;