Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACHSEOB0

ACHSEOB0.m

Go to the documentation of this file.
  1. ACHSEOB0 ; IHS/ITSC/PMF - CONTINUATION OF ACHSEOB ; [ 10/16/2001 8:16 AM ]
  1. ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
  1. ;
  1. REPORT ;EP
  1. 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")
  1. Q:$D(DUOUT)!$D(DTOUT)!(ACHSERPT="N")
  1. W !!
  1. K %ZIS
  1. S %ZIS="OP",%ZIS("A")="Enter Printer For Report:"
  1. D ^%ZIS
  1. K %ZIS
  1. S:$D(IO("Q")) ACHSIO("Q")=IO("Q")
  1. I POP D HOME^%ZIS G ENDX^ACHSEOB
  1. S ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL
  1. D HOME^%ZIS
  1. U IO
  1. Q
  1. ;