PXRMFFAT.m

PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;05/02/2011

 ;;2.0;CLINICAL REMINDERS;**4,6,18**;Feb 04, 2005;Build 152

 ;

 ;============================================

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 determined by first removing

 ;the "_" character from the function name and then taking the

 ;first 8 characters. The first 8 character of a function must

 ;be unique.

 S ROUTINE="$$"_$E($TR(FUNCTION,"_",""),1,8)_"(AN)"

 Q @ROUTINE

 ;

 ;============================================

COUNT(AN) ;

 Q $S(AN=1:"F",1:"U")

 ;

 ;===========================================

DIFFDATE(AN) ;

 Q $S(AN=1:"F",AN=2:"F",AN=3:"S",1:"U")

 ;

 ;===========================================

DTIMEDIF(AN) ;

 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")

 ;

 ;===========================================

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"

 ;

 ;============================================

MAXVALUE(AN) ;

 Q $S(AN#2=1:"F",AN#2=0:"S",1:"U")

 ;

 ;============================================

MINDATE(AN) ;

 I AN>0,AN<100 Q "F"

 E  Q "U"

 ;

 ;============================================

MINVALUE(AN) ;

 Q $S(AN#2=1:"F",AN#2=0:"S",1:"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")

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMFFAT   1908     printed  Apr 09, 2024@20:52:33                                                                                                                                                                                                    Page 2

PXRMFFAT  ;SLC/PKR - Function Finding argument type routines. ;05/02/2011

 +1       ;;2.0;CLINICAL REMINDERS;**4,6,18**;Feb 04, 2005;Build 152

 +2       ;

 +3       ;============================================

ARGTYPE(FUNCTION,AN) ;Given a FUNCTION and argument number return the

 +1       ;corresponding argument type. Possible argument types are:

 +2       ; F - finding

 +3       ; N - number

 +4       ; S - string

 +5       ; U - undefined

 +6        NEW ROUTINE

 +7       ;The routine for any function is determined by first removing

 +8       ;the "_" character from the function name and then taking the

 +9       ;first 8 characters. The first 8 character of a function must

 +10      ;be unique.

 +11       SET ROUTINE="$$"_$EXTRACT($TRANSLATE(FUNCTION,"_",""),1,8)_"(AN)"

 +12       QUIT @ROUTINE

 +13      ;

 +14      ;============================================

COUNT(AN) ;

 +1        QUIT $SELECT(AN=1:"F",1:"U")

 +2       ;

 +3       ;===========================================

DIFFDATE(AN) ;

 +1        QUIT $SELECT(AN=1:"F",AN=2:"F",AN=3:"S",1:"U")

 +2       ;

 +3       ;===========================================

DTIMEDIF(AN) ;

 +1        QUIT $SELECT(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")

 +2       ;

 +3       ;===========================================

DUR(AN)   ;

 +1        QUIT $SELECT(AN=1:"F",1:"U")

 +2       ;

 +3       ;============================================

FI(AN)    ;

 +1        QUIT $SELECT(AN=1:"F",1:"U")

 +2       ;

 +3       ;============================================

MAXDATE(AN) ;

 +1        IF AN>0

               IF AN<100

                   QUIT "F"

 +2       IF '$TEST

               QUIT "U"

 +3       ;

 +4       ;============================================

MAXVALUE(AN) ;

 +1        QUIT $SELECT(AN#2=1:"F",AN#2=0:"S",1:"U")

 +2       ;

 +3       ;============================================

MINDATE(AN) ;

 +1        IF AN>0

               IF AN<100

                   QUIT "F"

 +2       IF '$TEST

               QUIT "U"

 +3       ;

 +4       ;============================================

MINVALUE(AN) ;

 +1        QUIT $SELECT(AN#2=1:"F",AN#2=0:"S",1:"U")

 +2       ;

 +3       ;============================================

MRD(AN)   ;

 +1        IF AN>0

               IF AN<100

                   QUIT "F"

 +2       IF '$TEST

               QUIT "U"

 +3       ;

 +4       ;============================================

NUMERIC(AN) ;

 +1        QUIT $SELECT(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")

 +2       ;

 +3       ;============================================

VALUE(AN) ;

 +1        QUIT $SELECT(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")

 +2       ;