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

QAOSAHOC.m

Go to the documentation of this file.
  1. QAOSAHOC ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE QA OCCURRENCE SCREEN FILE (#741) ;7/9/93 13:28
  1. ;;3.0;Occurrence Screen;;09/14/1993
  1. EN ;
  1. S QAQMRTN="MENU^QAOSAHO2",QAQORTN="OTHER^QAOSAHOC",QAQDIC=741
  1. S QAQMHDR="Occurrence Screen"
  1. D ^QAQAHOC0
  1. K QAOSCLIN,QAOSEXCP,QAQFOUND
  1. Q
  1. OTHER ;
  1. K DIS S QA=0
  1. O1 W !!?3,"Do you want the report to include 'deleted' records"
  1. S %=2 D YN^DICN I %=-1 S QAQQUIT=1 Q
  1. I %=0 W !!?5,"Please answer Y(es) or N(o)" G O1
  1. I %=2 S DIS(QA)="I $P(^QA(741,D0,0),""^"",11)'=2",QA=1
  1. O2 W !!?3,"Do you want the report to include 'exception to criteria' records"
  1. S %=2 D YN^DICN I %=-1 S QAQQUIT=1 Q
  1. I %'>0 W !!?5,"Please answer Y(es) or N(o)" G O2
  1. I %=2 D
  1. . S QAOSCLIN=+$O(^QA(741.2,"C",1,0)),QAOSEXCP=+$O(^QA(741.6,"B",3,0))
  1. . S DIS(QA)="I QAOSEXCP'=$P($G(^QA(741,D0,""REVR"",+$O(^QA(741,D0,""REVR"",""B"",QAOSCLIN,0)),0)),""^"",5)"
  1. . Q
  1. O3 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
  1. S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
  1. Q