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

AMQQRMAN.m

Go to the documentation of this file. 
  1. AMQQRMAN ; IHS/CMI/THL - R-MAN SPECIAL REPORTS ;
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;-----
  1. MAIL ; ENTRY POINT FROM AMQQOPT
  1.  I AMQQCCLS'="P" W !!,"The subject of your search must be 'PATIENT(S)'.  Request denied...",*7,!! H 3 S AMQQRERF="" Q
  1.  D ^AMQQRML
  1.  Q
  1.  ;
  1. AGE ; ENTRY POINT
  1.  I AMQQCCLS'="P" W !!,"The subject of your search must be 'PATIENT(S)'.  Request denied...",*7,!! H 3 S AMQQRERF="" Q
  1.  D ^AMQQRMA
  1.  Q
  1.  ;
  1. WORK ; ENTRY POINT
  1. MONTH ; ENTRY POINT
  1. TIME ; ENTRY POINT
  1.  I AMQQCCLS'="V",'$D(AMQQMULX) W !!,"This search does not find individual visits for analysis.  Request denied...",*7,!! H 3 S AMQQRERF="" Q
  1.  Q
  1.  ;
  1. HSUM ; ENTRY POINT
  1.  I AMQQCCLS'="P" W !!,"The subject of your search must be 'PATIENT(S)'.  Request denied...",*7,!! H 3 S AMQQRERF="" Q
  1.  Q
  1.  ;
  1. FF ; ENTRY POINT
  1.  S AMQV("OPTION")="PRINT"
  1. EMAN S X="AMQQEMAN"
  1.  X ^%ZOSF("TEST")
  1.  I  S AMQV("OPTION")="EMAN"
  1.  Q
  1.  ;