source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFFAT.m@ 1015

PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;09/11/2007
 ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
 ;
 ;============================================
ARGTYPE(FUNCTION,AN) ;Given a FUNCTION and argument number return the
 ;corresponding argument type. Possible argument types are:
 ; F - finding
 ; N - number
 ; S - string
 ; U - undefined
 N ROUTINE
 ;The routine for any function is the same as the name of the
 ;function except for functions with "_" in the name. In that
 ;case the "_" is removed.
 S ROUTINE="$$"_$TR(FUNCTION,"_","")_"(AN)"
 Q @ROUTINE
 ;
 ;============================================
COUNT(AN) ;
 Q $S(AN=1:"F",1:"U")
 ;
 ;===========================================
DIFFDATE(AN) ;
 Q $S(AN=1:"F",AN=2:"F",1:"U")
 ;
 ;===========================================
DUR(AN) ;
 Q $S(AN=1:"F",1:"U")
 ;
 ;============================================
FI(AN) ;
 Q $S(AN=1:"F",1:"U")
 ;
 ;============================================
MAXDATE(AN) ;
 I AN>0,AN<100 Q "F"
 E  Q "U"
 ;
 ;============================================
MINDATE(AN) ;
 I AN>0,AN<100 Q "F"
 E  Q "U"
 ;
 ;============================================
MRD(AN) ;
 I AN>0,AN<100 Q "F"
 E  Q "U"
 ;
 ;============================================
NUMERIC(AN) ;
 Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
 ;
 ;============================================
VALUE(AN) ;
 Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
 ;