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

PXRMFFAT.m

Go to the documentation of this file.
  1. PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;05/02/2011
  1. ;;2.0;CLINICAL REMINDERS;**4,6,18**;Feb 04, 2005;Build 152
  1. ;
  1. ;============================================
  1. ARGTYPE(FUNCTION,AN) ;Given a FUNCTION and argument number return the
  1. ;corresponding argument type. Possible argument types are:
  1. ; F - finding
  1. ; N - number
  1. ; S - string
  1. ; U - undefined
  1. N ROUTINE
  1. ;The routine for any function is determined by first removing
  1. ;the "_" character from the function name and then taking the
  1. ;first 8 characters. The first 8 character of a function must
  1. ;be unique.
  1. S ROUTINE="$$"_$E($TR(FUNCTION,"_",""),1,8)_"(AN)"
  1. Q @ROUTINE
  1. ;
  1. ;============================================
  1. COUNT(AN) ;
  1. Q $S(AN=1:"F",1:"U")
  1. ;
  1. ;===========================================
  1. DIFFDATE(AN) ;
  1. Q $S(AN=1:"F",AN=2:"F",AN=3:"S",1:"U")
  1. ;
  1. ;===========================================
  1. DTIMEDIF(AN) ;
  1. Q $S(AN=1:"F",AN=2:"N",AN=3:"S",AN=4:"F",AN=5:"N",AN=6:"S",AN=7:"S",AN=8:"S",1:"U")
  1. ;
  1. ;===========================================
  1. DUR(AN) ;
  1. Q $S(AN=1:"F",1:"U")
  1. ;
  1. ;============================================
  1. FI(AN) ;
  1. Q $S(AN=1:"F",1:"U")
  1. ;
  1. ;============================================
  1. MAXDATE(AN) ;
  1. I AN>0,AN<100 Q "F"
  1. E Q "U"
  1. ;
  1. ;============================================
  1. MAXVALUE(AN) ;
  1. Q $S(AN#2=1:"F",AN#2=0:"S",1:"U")
  1. ;
  1. ;============================================
  1. MINDATE(AN) ;
  1. I AN>0,AN<100 Q "F"
  1. E Q "U"
  1. ;
  1. ;============================================
  1. MINVALUE(AN) ;
  1. Q $S(AN#2=1:"F",AN#2=0:"S",1:"U")
  1. ;
  1. ;============================================
  1. MRD(AN) ;
  1. I AN>0,AN<100 Q "F"
  1. E Q "U"
  1. ;
  1. ;============================================
  1. NUMERIC(AN) ;
  1. Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
  1. ;
  1. ;============================================
  1. VALUE(AN) ;
  1. Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
  1. ;